[About]
HTMLTag plug-in for Notepad++
Written by vor0nwe (Martijn Coppoolse) - http://martijn.coppoolse.com/software/
 using Delphi 10.2
Part of the Npp-plugins project - http://sourceforge.net/projects/npp-plugins/
Hosted on http://fossil.2of4.net/npp_htmltag/


[Introduction]
This plug-in provides three core functions to Notepad++:
- HTML and XML tag jumping, like the built-in brace matching (Ctrl+B / Shift+Ctrl+B), and selection

HTMLTag-entities.ini    This file contains the list(s) of entities that will be processed. For now,
                        only the list headed with [HTML 4] will be used.  This can be adjusted if
                        you want to use other entities.
HTMLTag-readme.txt      The file you're reading now.


[History]
- 1.1.1 - 2019-??
  * Fixed: decoding a JS escape caused Notepad++ to crash on 64-bits [c3c733e21f7af25e]
- 1.1.0 - 2017-09-04 20:15
  * Added: option to encode line break entities as well [689eef6cee]
  * Fixed: decoding a JS escape reduced the selection by one each time [e717ed1de5]
- 1.0.0 - 2017-02-19 16:03
  * Added: 64-bit version
  * Several tiny bugfixes
- 0.6.0 - 2015-01-20 21:20

  - add option to select tags only (both start tag and end tag, using multiple selection streams
    feature of Np++ v5.5 and up)
* On the fly (react to notifications and/or messages):
  - encode special characters on the fly (special cases: '<' only when inserting a space directly
    after it; '>' only when not after an unclosed '<'; perhaps not '&' when followed by a valid
    entity reference)
  - autoclose tags: typing '</' would close latest unclosed tag
  - *simultaneously* rename matching tags (like Ctrl-Shift-J in Delphi, or F2 in Visual Studio)
  - [Request#2147949] drop down list of tags on '<', and list of attributes on space after a tag
    (like Stylus Studio does)

[Version 1.1.1 - 2019-??]

  * Fixed: decoding a JS escape caused Notepad++ to crash on 64-bits [c3c733e21f7af25e]

    TWindowedObject = class
      protected
        FWindowHandle: THandle;
        FIsNpp: boolean;
      public
        constructor Create(AWindowHandle: THandle; ANppWindow: boolean = False);

        function SendMessage(const Message: UINT; wParam: WPARAM = 0; lParam: LPARAM = 0): LRESULT; overload; virtual;
        function SendMessage(const Message: UINT; wParam: WPARAM; lParam: Pointer): LRESULT; overload; virtual;
        procedure PostMessage(const Message: UINT; wParam: WPARAM = 0; lParam: LPARAM = 0); overload; virtual;
        procedure PostMessage(const Message: UINT; wParam: WPARAM; lParam: Pointer); overload; virtual;
    end;

    { -------------------------------------------------------------------------------------------- }
    TActiveDocument = class(TWindowedObject)
      private
        FPointer: Pointer;

  if IsNpp then begin
    Result := GetMessageConstString(Message);
  end else begin
    Result := GetSciMessageConstString(Message);
  end;
end;
{ ------------------------------------------------------------------------------------------------ }
function TWindowedObject.SendMessage(const Message: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT;
//var
//  MsgConst: string;
begin
//  MsgConst := GetMsgConstString(Message, FIsNpp);
//  DebugWrite('SendMessage', Format('hWnd: %d; Message: %d%s; wParam: %d; lParam: %d', [FWindowHandle, Message, MsgConst, wParam, lParam]));
//  try
    if SendMessageTimeout(FWindowHandle, Message, wParam, lParam, SMTO_NORMAL, 5000, @Result) = 0 then
      RaiseLastOSError;
//    DebugWrite('SendMessage', Format('hWnd: %d; Result: %d', [FWindowHandle, Result]));
//  except
//    on E: EOSError do begin
//      DebugWrite('SendMessage', Format('hWnd: %d; Error %d: %s', [FWindowHandle, E.ErrorCode, E.Message]));
//      raise;
//    end;
//    on E: Exception do begin
//      DebugWrite('SendMessage', Format('hWnd: %d; Error[%s]: %s', [FWindowHandle, E.ClassName, E.Message]));
//      raise;
//    end;
//  end;
end;
{ ------------------------------------------------------------------------------------------------ }
function TWindowedObject.SendMessage(const Message: UINT; wParam: WPARAM; lParam: Pointer): LRESULT;
//var
//  MsgConst: string;
begin
//  MsgConst := GetMsgConstString(Message, FIsNpp);
//  DebugWrite('SendMessage', Format('hWnd: %d; Message: %d%s; wParam: %d; lParam: 0x%p', [FWindowHandle, Message, MsgConst, wParam, lParam]));
//  try
    if SendMessageTimeout(FWindowHandle, Message, wParam, Windows.LPARAM(lParam), SMTO_NORMAL, 5000, @Result) = 0 then
      RaiseLastOSError;
//    DebugWrite('SendMessage', Format('hWnd: %d; Result: %d', [FWindowHandle, Result]));
//  except
//    on E: EOSError do begin
//      DebugWrite('SendMessage', Format('hWnd: %d; Error %d: %s', [FWindowHandle, E.ErrorCode, E.Message]));
//      raise;
//    end;
//    on E: Exception do begin
//      DebugWrite('SendMessage', Format('hWnd: %d; Error[%s]: %s', [FWindowHandle, E.ClassName, E.Message]));
//      raise;
//    end;
//  end;
end;

{ ------------------------------------------------------------------------------------------------ }
procedure TWindowedObject.PostMessage(const Message: UINT; wParam: WPARAM; lParam: LPARAM);
//var
//  MsgConst: string;
begin
//  MsgConst := GetMsgConstString(Message, FIsNpp);
//  DebugWrite('PostMessage', Format('hWnd: %d; Message: %d%s; wParam: %d; lParam: %d', [FWindowHandle, Message, MsgConst, wParam, lParam]));
//  try
    if Windows.PostMessage(FWindowHandle, Message, wParam, Windows.LPARAM(lParam)) = False then
      RaiseLastOSError;
//    DebugWrite('PostMessage', Format('hWnd: %d', [FWindowHandle]));
//  except
//    on E: EOSError do begin
//      DebugWrite('PostMessage', Format('hWnd: %d; Error %d: %s', [FWindowHandle, E.ErrorCode, E.Message]));
//      raise;
//    end;
//    on E: Exception do begin
//      DebugWrite('PostMessage', Format('hWnd: %d; Error[%s]: %s', [FWindowHandle, E.ClassName, E.Message]));
//      raise;
//    end;
//  end;
end;
{ ------------------------------------------------------------------------------------------------ }
procedure TWindowedObject.PostMessage(const Message: UINT; wParam: WPARAM; lParam: Pointer);
//var
//  MsgConst: string;
begin
//  MsgConst := GetMsgConstString(Message, FIsNpp);
//  DebugWrite('PostMessage', Format('hWnd: %d; Message: %d%s; wParam: %d; lParam: 0x%p', [FWindowHandle, Message, MsgConst, wParam, lParam]));
//  try
    if Windows.PostMessage(FWindowHandle, Message, wParam, Windows.LPARAM(lParam)) = False then
      RaiseLastOSError;
//    DebugWrite('PostMessage', Format('hWnd: %d', [FWindowHandle]));
//  except
//    on E: EOSError do begin
//      DebugWrite('PostMessage', Format('hWnd: %d; Error %d: %s', [FWindowHandle, E.ErrorCode, E.Message]));
//      raise;
//    end;
//    on E: Exception do begin
//      DebugWrite('PostMessage', Format('hWnd: %d; Error[%s]: %s', [FWindowHandle, E.ClassName, E.Message]));
//      raise;
//    end;
//  end;
end;

{ ================================================================================================ }
{ TEditor }

destructor TActiveDocument.Destroy;
begin

{ ------------------------------------------------------------------------------------------------ }
function DoEncodeJS(const Range: TTextRange): Integer; overload;
var
  Text: WideString;
begin
  Text := Range.Text;
  Result := DoEncodeJS({var}Text);
  if Result > 0 then begin
    Range.Text := Text;
  end;
end{DoEncodeJS};

{ ------------------------------------------------------------------------------------------------ }
procedure EncodeJS(Scope: TEntityReplacementScope = ersSelection);

<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
    <PropertyGroup>
        <ProjectGuid>{A2533A0E-8621-4A31-A675-059AFF5AA9FB}</ProjectGuid>
        <MainSource>HTMLTag.dpr</MainSource>
        <Base>True</Base>
        <Config Condition="'$(Config)'==''">Debug</Config>
        <TargetedPlatforms>3</TargetedPlatforms>
        <AppType>Library</AppType>
        <FrameworkType>VCL</FrameworkType>
        <ProjectVersion>18.3</ProjectVersion>
        <Platform Condition="'$(Platform)'==''">Win64</Platform>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
        <Base>true</Base>
    </PropertyGroup>
    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
        <Base_Win32>true</Base_Win32>
        <CfgParent>Base</CfgParent>

    <PropertyGroup Condition="'$(Base)'!=''">
        <VerInfo_MinorVer>1</VerInfo_MinorVer>
        <DCC_UNIT_PLATFORM>false</DCC_UNIT_PLATFORM>
        <DCC_SYMBOL_PLATFORM>false</DCC_SYMBOL_PLATFORM>
        <SanitizedProjectName>HTMLTag</SanitizedProjectName>
        <Icon_MainIcon>HTMLTag.ico</Icon_MainIcon>
        <PostBuildEventCancelOnError>false</PostBuildEventCancelOnError>

        <PostBuildEvent><![CDATA["C:\MC\Run\Util\Compression\UPX\upx.exe" --best -q "$(OUTPUTPATH)"
$(PostBuildEvent)]]></PostBuildEvent>

        <VerInfo_DLL>true</VerInfo_DLL>
        <DCC_ImageBase>00400000</DCC_ImageBase>
        <VerInfo_Keys>CompanyName=Voronwë;FileDescription=HTMLTag plugin for Notepad++;FileVersion=1.1.0.0;InternalName=HTMLTag;LegalCopyright=Martijn Coppoolse;LegalTrademarks=;OriginalFilename=HTMLTag.dll;ProductName=Notepad++;ProductVersion=7.0.0.0;Comments=http://fossil.2of4.net/npp_htmltag</VerInfo_Keys>
        <DCC_UsePackage>vcl;rtl;dbrtl;adortl;vcldb;vclx;bdertl;vcldbx;ibxpress;dsnap;cds;bdecds;qrpt;teeui;teedb;tee;dss;teeqr;visualclx;visualdbclx;dsnapcrba;dsnapcon;VclSmp;vclshlctrls;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;inetdb;nmfast;webdsnap;websnap;soaprtl;dbexpress;dbxcds;indy;dclOffice2k;dOCI6;CoolTrayIcon_D6plus;curlpkg;ThemeManagerD6;VirtualTreesD6;Jcl;JclVcl;JvCoreD6R;JvSystemD6R;JvStdCtrlsD6R;JvAppFrmD6R;JvBandsD6R;JvDBD6R;JvDlgsD6R;JvBDED6R;JvCmpD6R;JvCryptD6R;JvCtrlsD6R;JvCustomD6R;JvDockingD6R;JvDotNetCtrlsD6R;JvEDID6R;JvGlobusD6R;JvHMID6R;JvInterpreterD6R;JvJansD6R;JvManagedThreadsD6R;JvMMD6R;JvNetD6R;JvPageCompsD6R;JvPluginD6R;JvPrintPreviewD6R;JvRuntimeDesignD6R;JvTimeFrameworkD6R;JvUIBD6R;JvValidatorsD6R;JvWizardD6R;JvXPCtrlsD6R;$(DCC_UsePackage)</DCC_UsePackage>
        <DCC_ExeOutput>..\..\out\$(PLATFORM)\$(CONFIG)</DCC_ExeOutput>
        <DCC_Define>NPPUNICODE;$(DCC_Define)</DCC_Define>
        <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Winapi;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>

        <DCC_SymbolReferenceInfo>2</DCC_SymbolReferenceInfo>
        <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
        <DCC_Optimize>false</DCC_Optimize>
        <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
        <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
        <PostBuildEvent><![CDATA[]]></PostBuildEvent>


    </PropertyGroup>
    <PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
        <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
    </PropertyGroup>
    <ItemGroup>
        <DelphiCompile Include="$(MainSource)">
            <MainSource>MainSource</MainSource>