Subversion Repositories fastphp

unit EditorMain;

{$Include 'FastPHP.inc'}

(*

  This program requires

  - Microsoft Internet Controls (TWebBrowser)

    If you are using Delphi 10.1 Starter Edition, please import the ActiveX TLB

    "Microsoft Internet Controls"

  - SynEdit

    You can obtain SynEdit via Embarcadero GetIt

*)

// TODO: "crHourGlass" does not work if F9 is pressed!

// TODO: if a scrapfile is already open, create a new scrap file (scrap2.php)

// TODO: localize

// TODO: wieso geht copy paste im twebbrowser nicht???

// TODO: Wieso dauert webbrowser1 erste kompilierung so lange???

// TODO: wieso kommt syntax fehler zweimal? einmal stderr einmal stdout?

// TODO: Browser titlebar (link preview)

// TODO: "jump to next/prev todo" buttons/shortcuts

// TODO: "increase/decrease indent" buttons/shortcuts

// In regards Unicode:

// - Solve compiler warnings

// - If you place Unicode symbols in a ANSI file, they will be replaced during saving

//   by "?" without asking the user if the code should be converted to Unicode!

// - FastPHP can only read a UTF-8 file correctly if it has a BOM

//   However, the PSR-1 standard requires that files have UTF-8 without BOM!

//   So we need auto-detect (since many people are working with ANSI!)

// - When a file is correctly loaded with UTF-8/BOM,

//   the run output (Plaintext and HTML) will show UTF-8 instead of Unicode

//   (that COULD be intended since the Windows CMD is not Unicode ready?)

//   But HTML is also shown as UTF-8 even though I have added <meta charset="UTF-8"> ?!

// - Is it possible that UTF8 BOM automatically gets removed by FastPHP, generating pure ANSI?

// Small things:

// - The scroll bars of SynEdit are not affected by the dark theme

// Future ideas

// - code insight

// - verschiedene php versionen?

// - webbrowser1 nur laden, wenn man den tab anwählt?

// - doppelklick auf tab soll diesen schließen

// - Onlinehelp (www) aufrufen oder CHM datei

// - Let all colors be adjustable

// - code in bildschirmmitte (horizontal)?

// - search in files of a directory

// - Files in multiple tabs?

// - Configurable tabulator display-width

interface

uses

  // TODO: "{$IFDEF USE_SHDOCVW_TLB}_TLB{$ENDIF}" does not work with Delphi 10.2

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, OleCtrls, ComCtrls, ExtCtrls, ToolWin, IniFiles,

  SynEditHighlighter, SynHighlighterPHP, SynEdit, ShDocVw, FindReplace,

  ActnList, SynEditMiscClasses, SynEditSearch, RunPHP, ImgList, SynUnicode,

  System.ImageList, System.Actions, Vcl.Menus, Vcl.Themes, System.UITypes;

{.$DEFINE OnlineHelp}

type

  TForm1 = class(TForm)

    PageControl1: TPageControl;

    PlaintextTabSheet: TTabSheet;

    HtmlTabSheet: TTabSheet;

    Memo2: TMemo;

    WebBrowser1: TWebBrowser;

    Splitter1: TSplitter;

    PageControl2: TPageControl;

    CodeTabsheet: TTabSheet;

    HelpTabsheet: TTabSheet;

    WebBrowser2: TWebBrowser;

    OpenDialog1: TOpenDialog;

    Panel1: TPanel;

    OpenDialog3: TOpenDialog;

    SynEdit1: TSynEdit;

    SynPHPSyn1: TSynPHPSyn;

    Panel2: TPanel;

    SynEditFocusTimer: TTimer;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    Button6: TButton;

    ActionList: TActionList;

    ActionFind: TAction;

    ActionReplace: TAction;

    ActionFindNext: TAction;

    ActionGoto: TAction;

    ActionSave: TAction;

    ActionHelp: TAction;

    ActionRun: TAction;

    ActionESC: TAction;

    Button7: TButton;

    ActionOpen: TAction;

    Button8: TButton;

    Button9: TButton;

    ActionFindPrev: TAction;

    Timer1: TTimer;

    ActionSpaceToTab: TAction;

    Button11: TButton;

    SynEditSearch1: TSynEditSearch;

    TreeView1: TTreeView;

    Splitter2: TSplitter;

    btnLint: TButton;

    ActionLint: TAction;

    ImageList1: TImageList;

    RunPopup: TPopupMenu;

    OpeninIDE1: TMenuItem;

    ActionRunConsole: TAction;

    Runinconsole1: TMenuItem;

    SavePopup: TPopupMenu;

    Saveas1: TMenuItem;

    Save1: TMenuItem;

    SaveDialog1: TSaveDialog;

    BtnSpecialChars: TImage;

    BtnSpecialCharsOff: TImage;

    BtnSpecialCharsOn: TImage;

    BtnLightOn: TImage;

    BtnLightOff: TImage;

    BtnLight: TImage;

    StartUpTimer: TTimer;

    FileModTimer: TTimer;

    GotoPHPdir1: TMenuItem;

    PHPShell1: TMenuItem;

    ActionSaveAs: TAction;

    ActionGoToPHPDir: TAction;

    ActionPHPInteractiveShell: TAction;

    procedure Run(Sender: TObject);

    procedure RunConsole(Sender: TObject);

    procedure FormShow(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure FormDestroy(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure PageControl2Changing(Sender: TObject; var AllowChange: Boolean);

    procedure Memo2DblClick(Sender: TObject);

    (*

    {$IFDEF USE_SHDOCVW_TLB}

    *)

    procedure WebBrowser1BeforeNavigate2(ASender: TObject;

      const pDisp: IDispatch; const URL, Flags, TargetFrameName, PostData,

      Headers: OleVariant; var Cancel: WordBool);

    (*

    {$ELSE}

    procedure WebBrowser1BeforeNavigate2(ASender: TObject;

      const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,

      Headers: OleVariant; var Cancel: WordBool);

    {$ENDIF}

    *)

    procedure BeforeNavigate(const URL: OleVariant; var Cancel: WordBool);

    procedure SynEditFocusTimerTimer(Sender: TObject);

    procedure ActionFindExecute(Sender: TObject);

    procedure ActionReplaceExecute(Sender: TObject);

    procedure ActionFindNextExecute(Sender: TObject);

    procedure ActionGotoExecute(Sender: TObject);

    procedure ActionSaveExecute(Sender: TObject);

    procedure ActionHelpExecute(Sender: TObject);

    procedure ActionRunExecute(Sender: TObject);

    procedure ActionESCExecute(Sender: TObject);

    procedure SynEdit1MouseWheelDown(Sender: TObject; Shift: TShiftState;

      MousePos: TPoint; var Handled: Boolean);

    procedure SynEdit1MouseWheelUp(Sender: TObject; Shift: TShiftState;

      MousePos: TPoint; var Handled: Boolean);

    procedure ActionOpenExecute(Sender: TObject);

    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

    procedure Memo2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

    procedure ActionFindPrevExecute(Sender: TObject);

    procedure SynEdit1MouseCursor(Sender: TObject;

      const aLineCharPos: TBufferCoord; var aCursor: TCursor);

    procedure Timer1Timer(Sender: TObject);

    procedure ActionSpaceToTabExecute(Sender: TObject);

    procedure TreeView1DblClick(Sender: TObject);

    procedure SynEdit1GutterClick(Sender: TObject; Button: TMouseButton; X, Y,

      Line: Integer; Mark: TSynEditMark);

    procedure SynEdit1PaintTransient(Sender: TObject; Canvas: TCanvas;

      TransientType: TTransientType);

    procedure ActionLintExecute(Sender: TObject);

    procedure ActionRunConsoleExecute(Sender: TObject);

    procedure SynEdit1Change(Sender: TObject);

    procedure BtnSpecialCharsClick(Sender: TObject);

    procedure WebBrowser1WindowClosing(ASender: TObject;

      IsChildWindow: WordBool; var Cancel: WordBool);

    procedure BtnLightClick(Sender: TObject);

    procedure StartUpTimerTimer(Sender: TObject);

    procedure FileModTimerTimer(Sender: TObject);

    procedure SynEdit1DropFiles(Sender: TObject; X, Y: Integer;

      AFiles: TStrings);

    procedure ActionSaveAsExecute(Sender: TObject);

    procedure ActionGoToPHPDirExecute(Sender: TObject);

    procedure ActionPHPInteractiveShellExecute(Sender: TObject);

  private

    hMutex: THandle;

    CurSearchTerm: string;

    HlpPrevPageIndex: integer;

    SrcRep: TSynEditFindReplace;

    {$IFDEF OnlineHelp}

    gOnlineHelpWord: string;

    {$ENDIF}

    FileModLast: TDateTime;

    FormShowRanOnce: boolean;

    BrowserLoadedOnce: boolean;

    procedure Help;

    function InputRequestCallback(var data: AnsiString): boolean;

    function OutputNotifyCallback(const data: AnsiString): boolean;

    procedure RightTrimAll;

  protected

    ChmIndex: TMemIniFile;

    FScrapFile: string;

    FSaveAsFilename: string;

    codeExplorer: TRunCodeExplorer;

    procedure GotoLineNo(LineNo: integer);

    function GetScrapFile: string;

    procedure StartCodeExplorer;

    procedure RefreshModifySign;

    procedure Theme_Light;

    procedure Theme_Dark;

    function IsThemeDark: boolean;

    function MarkUpLineReference(cont: string): string;

    procedure SaveToFile(filename: string);

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

{$R Cursors.res}

uses

  Functions, StrUtils, WebBrowserUtils, FastPHPUtils, Math, ShellAPI, RichEdit,

  FastPHPTreeView, ImageListEx, FastPHPConfig;

const

  crMouseGutter = 1;

procedure TForm1.RefreshModifySign;

var

  tmp: string;

begin

  tmp := Caption;

  tmp := StringReplace(tmp, '*', '', [rfReplaceAll]);

  if SynEdit1.Modified then tmp := tmp + '*';

  if Caption <> tmp then Caption := tmp;

end;

procedure TForm1.ActionFindNextExecute(Sender: TObject);

begin

  SrcRep.FindNext;

end;

procedure TForm1.ActionFindPrevExecute(Sender: TObject);

begin

  SrcRep.FindPrev;

end;

procedure TForm1.ActionGotoExecute(Sender: TObject);

var

  val: string;

  lineno: integer;

resourcestring

  SGoTo = 'Go to';

  SLineNumber = 'Line number:';

begin

  // TODO: VK_LMENU does not work! only works with AltGr but not Alt

  // http://stackoverflow.com/questions/16828250/delphi-xe2-how-to-prevent-the-alt-key-stealing-focus ?

  if not InputQuery(SGoTo, SLineNumber, val) or

     not TryStrToInt(val, lineno) then

  begin

    if SynEdit1.CanFocus then SynEdit1.SetFocus;

    exit;

  end;

  GotoLineNo(lineno);

end;

procedure TForm1.ActionGoToPHPDirExecute(Sender: TObject);

var

  phpExe: string;

begin

  phpExe := GetPHPExe;

  if phpExe <> '' then

    ShellExecute(Handle, 'open', 'explorer.exe', PChar(ExtractFilePath(phpExe)), '', SW_NORMAL);

end;

procedure TForm1.ActionHelpExecute(Sender: TObject);

begin

  Help;

  if PageControl2.ActivePage = HelpTabsheet then

    WebBrowser2.SetFocus

  else if PageControl2.ActivePage = CodeTabsheet then

    SynEdit1.SetFocus;

end;

procedure TForm1.ActionLintExecute(Sender: TObject);

begin

  Run(Sender);

  SynEdit1.SetFocus;

end;

procedure TForm1.ActionOpenExecute(Sender: TObject);

begin

  If OpenDialog3.Execute then

  begin

    ShellExecute(0, 'open', PChar(ParamStr(0)), PChar('"' + OpenDialog3.FileName + '"'), '', SW_NORMAL);

  end;

end;

procedure TForm1.ActionPHPInteractiveShellExecute(Sender: TObject);

var

  phpExe: string;

begin

  phpExe := GetPHPExe;

  if phpExe <> '' then

    ShellExecute(Handle, 'open', PChar(phpExe), '-a', PChar(ExtractFilePath(phpExe)), SW_NORMAL);

end;

procedure TForm1.ActionReplaceExecute(Sender: TObject);

begin

  SrcRep.ReplaceExecute;

end;

procedure TForm1.ActionRunConsoleExecute(Sender: TObject);

begin

  RunConsole(Sender);

  SynEdit1.SetFocus;

end;

procedure TForm1.ActionRunExecute(Sender: TObject);

begin

  Run(Sender);

  SynEdit1.SetFocus;

end;

procedure TForm1.RightTrimAll;

var

  i: integer;

begin

  for i := 0 to SynEdit1.Lines.Count-1 do

  begin

    SynEdit1.Lines.Strings[i] := TrimRight(SynEdit1.Lines.Strings[i]);

  end;

  (*

  while (SynEdit1.Lines.Count > 0) and (SynEdit1.Lines.Strings[SynEdit1.Lines.Count-1] = '') do

  begin

    SynEdit1.Lines.Delete(SynEdit1.Lines.Count-1);

  end;

  if SynEdit1.SelStart > Length(SynEdit1.Text)-1 then

  begin

    // TODO: This code does not work...

    SynEdit1.SelStart := Length(SynEdit1.Text)-1;

    SynEdit1.SelEnd   := Length(SynEdit1.Text)-1;

  end;

  *)

end;

procedure TForm1.ActionSaveAsExecute(Sender: TObject);

var

  hMutexNew: THandle;

resourcestring

  SCannotSaveBecauseMutex = 'Cannot save because file "%s", because it is alrady open in another FastPHP window!';

begin

  if SaveDialog1.Execute then

  begin

    {$REGION 'Switch mutex'}

    hMutexNew := CreateMutex(nil, True, PChar('FastPHP'+md5(UpperCase(SaveDialog1.FileName))));

    if GetLastError = ERROR_ALREADY_EXISTS then

    begin

      ShowMessageFmt(SCannotSaveBecauseMutex, [SaveDialog1.FileName]);

      Close;

    end;

    if hMutex <> 0 then CloseHandle(hMutex); // Note: ReleaseMutex does not work as expected!

    hMutex := hMutexNew;

    {$ENDREGION}

    FSaveAsFilename := SaveDialog1.FileName;

    Caption := Copy(Caption, 1, Pos(' - ', Caption)-1) + ' - ' + FSaveAsFilename;

    Application.Title := Format('%s - FastPHP', [ExtractFileName(FSaveAsFilename)]); // do not translate!

    Button7.Click;

  end;

end;

procedure TForm1.ActionSaveExecute(Sender: TObject);

begin

  RightTrimAll;

  SaveToFile(GetScrapFile);

  SynEdit1.Modified := false;

  RefreshModifySign;

  if SynEdit1.CanFocus then SynEdit1.SetFocus;

end;

procedure TForm1.ActionSpaceToTabExecute(Sender: TObject);

    function SpacesAtBeginning(line: string): integer;

    begin

      result := 0;

      if Trim(line) = '' then exit;

      while line[result+1] = ' ' do

      begin

        inc(result);

      end;

    end;

    function GuessIndent(lines: {$IFDEF UNICODE}TStrings{$ELSE}TUnicodeStrings{$ENDIF}): integer;

      function _Check(indent: integer): boolean;

      var

        i: integer;

      begin

        result := true;

        for i := 0 to lines.Count-1 do

          if SpacesAtBeginning(lines.Strings[i]) mod indent <> 0 then

          begin

            // ShowMessageFmt('Zeile "%s" nicht durch %d teilbar!', [lines.strings[i], indent]);

            result := false;

            exit;

          end;

      end;

    var

      i: integer;

    begin

      for i := 8 downto 2 do

      begin

        if _Check(i) then

        begin

          result := i;

          exit;

        end;

      end;

      result := -1;

    end;

    procedure SpaceToTab(lines: {$IFDEF UNICODE}TStrings{$ELSE}TUnicodeStrings{$ENDIF}; indent: integer);

    var

      i, spaces: integer;

      newval: string;

      somethingchanged: boolean;

    begin

      somethingchanged := false;

      for i := 0 to lines.Count-1 do

      begin

        spaces := SpacesAtBeginning(lines.Strings[i]);

        newval := StringOfChar(#9, spaces div indent) + StringOfChar(' ', spaces mod indent) + Copy(lines.Strings[i], spaces+1, Length(lines.Strings[i])-spaces);

        if lines.Strings[i] <> newval then

        begin

          somethingchanged := true;

          lines.Strings[i] := newval;

        end;

      end;

      if somethingchanged then

      begin

        SynEdit1Change(SynEdit1); // set the "changed" flag

      end;

    end;

    function SpacesAvailable(lines: {$IFDEF UNICODE}TStrings{$ELSE}TUnicodeStrings{$ENDIF}): boolean;

    var

      i, spaces: integer;

    begin

      for i := 0 to lines.Count-1 do

      begin

        spaces := SpacesAtBeginning(lines.Strings[i]);

        if spaces > 0 then

        begin

          result := true;

          exit;

        end;

      end;

      result := false;

      exit;

    end;

var

  val: string;

  ind: integer;

resourcestring

  SNoLinesAvailable = 'No lines with spaces at the beginning available';

  SSpacesToLabs = 'Spaces to tabs';

  SIndent = 'Indent:';

begin

  // TODO: if something is selected, only process the selected part

  if not SpacesAvailable(SynEdit1.Lines) then

  begin

    MessageDlg(SNoLinesAvailable, mtInformation, [mbOk], 0);

    exit;

  end;

  ind := GuessIndent(SynEdit1.Lines);

  if ind <> -1 then val := IntToStr(ind);

  if not InputQuery(SSpacesToLabs, SIndent, val) or

     not TryStrToInt(Trim(val), ind) then

  begin

    if SynEdit1.CanFocus then SynEdit1.SetFocus;

    exit;

  end;

  if ind = 0 then exit;

  SpaceToTab(SynEdit1.Lines, ind);

end;

procedure TForm1.ActionESCExecute(Sender: TObject);

begin

  if (HlpPrevPageIndex <> -1) and (PageControl2.ActivePage = HelpTabSheet) and

     (HelpTabsheet.TabVisible) then

  begin

    PageControl2.ActivePageIndex := HlpPrevPageIndex;

    HelpTabsheet.TabVisible := false;

  end;

  // Dirty hack...

  SrcRep.CloseDialogs;

end;

procedure TForm1.ActionFindExecute(Sender: TObject);

begin

  SrcRep.FindExecute;

end;

procedure TForm1.Run(Sender: TObject);

var

  bakTS: TTabSheet;

  //ss: TStringStream;

  //bakPos: Int64;

begin

  memo2.Lines.Text := '';

  if not BrowserLoadedOnce then

  begin

    bakTS := PageControl1.ActivePage;

    try

      PageControl1.ActivePage := HtmlTabSheet; // Required for the first time, otherwise, WebBrowser1.Clear will hang

      Webbrowser1.Clear;

    finally

      PageControl1.ActivePage := bakTS;

    end;

    BrowserLoadedOnce := true;

  end

  else

    Webbrowser1.Clear;

  Screen.Cursor := crHourGlass; // TODO: Doesn't work with F9

  Application.ProcessMessages;

  try

    ActionSave.Execute; // TODO: if it is not the scrap file: do not save the file, since the user did not intended to save... better create a temporary file and run it instead.

    // TODO 70421 * <fastphp> flush() mittels ContentCallBack implementieren... ich möchte bei langen scripts statusanzeigen realisieren können mit javascript das stück für stück geladen wird !!!!!!!!

    // TODO 70422 * <fastphp> wenn ein script hängt, soll man es abwürgen dürfen!!!!!!

    memo2.Lines.Text := RunPHPScript(GetScrapFile, Sender=ActionLint, False);

    {$REGION 'Show in Web Browser'}

    Webbrowser1.LoadHTML(MarkUpLineReference(memo2.Lines.Text), GetScrapFile);

    // Alternatively:

    (*

    ss := TstringStream.Create;

    ss.WriteString(MarkUpLineReference(memo2.Lines.Text));

    ss.Position := 0;

    Webbrowser1.LoadStream(ss, GetScrapFile);

    Webbrowser1.Wait;

    ss.Free;

    *)

    {$ENDREGION}

    if IsTextHTML(memo2.lines.text) then

      PageControl1.ActivePage := HtmlTabSheet

    else

      PageControl1.ActivePage := PlaintextTabSheet;

  finally

    Screen.Cursor := crDefault;

  end;

end;

procedure TForm1.RunConsole(Sender: TObject);

begin

  ActionSave.Execute; // TODO: if it is not the scrap file: do not save the file, since the user did not intended to save... better create a temporary file and run it instead.

  RunPHPScript(GetScrapFile, Sender=ActionLint, True);

end;

procedure TForm1.SynEdit1Change(Sender: TObject);

begin

  RefreshModifySign;

end;

procedure TForm1.SynEdit1DropFiles(Sender: TObject; X, Y: Integer;

  AFiles: TStrings);

var

  FileName: string;

const

  WARN_FILE_COUNT = 10;

resourcestring

  SAreYouSure = 'Are you sure you want to open %d files?';

begin

  if AFiles.Count > WARN_FILE_COUNT then

  begin

    if not MessageDlg(Format(SAreYouSure, [WARN_FILE_COUNT]), mtConfirmation, mbYesNoCancel, 0) <> mrYes then

      exit;

  end;

  for FileName in AFiles do

  begin

    ShellExecute(0, 'open', PChar(ParamStr(0)), PChar('"' + FileName + '"'), '', SW_NORMAL);

  end;

end;

procedure TForm1.SynEdit1GutterClick(Sender: TObject; Button: TMouseButton; X,

  Y, Line: Integer; Mark: TSynEditMark);

begin

  (*

  TSynEdit(Sender).CaretX := 1;

  TSynEdit(Sender).CaretY := Line;

  TSynEdit(Sender).SelLength := Length(TSynEdit(Sender).LineText);

  *)

end;

procedure TForm1.SynEdit1MouseCursor(Sender: TObject; const aLineCharPos: TBufferCoord; var aCursor: TCursor);

{$IFDEF OnlineHelp}

var

  Line: Integer;

  Column: Integer;

  word: string;

begin

  Line  := aLineCharPos.Line-1;

  Column := aLineCharPos.Char-1;

  word := GetWordUnderPos(TSynEdit(Sender), Line, Column);

  if word <> gOnlineHelpWord then

  begin

    gOnlineHelpWord := word;

    Timer1.Enabled := false;

    Timer1.Enabled := true;

  end;

{$ELSE}

begin

{$ENDIF}

end;

procedure TForm1.SynEdit1MouseWheelDown(Sender: TObject; Shift: TShiftState;

  MousePos: TPoint; var Handled: Boolean);

begin

  if ssCtrl in Shift then

  begin

    SynEdit1.Font.Size := Max(SynEdit1.Font.Size - 1, 5);

    Handled := true;

  end

  else Handled := false;

end;

procedure TForm1.SynEdit1MouseWheelUp(Sender: TObject; Shift: TShiftState;

  MousePos: TPoint; var Handled: Boolean);

begin

  if ssCtrl in Shift then

  begin

    SynEdit1.Font.Size := SynEdit1.Font.Size + 1;

    Handled := true;

  end

  else Handled := false;

end;

procedure TForm1.SynEdit1PaintTransient(Sender: TObject; Canvas: TCanvas; TransientType: TTransientType);

var

  Editor: TSynEdit;

  OpenChars: array of WideChar;//[0..2] of WideChar=();

  CloseChars: array of WideChar;//[0..2] of WideChar=();

  function IsCharBracket(AChar: WideChar): Boolean;

  begin

    case AChar of

      '{','[','(','<','}',']',')','>':

        Result := True;

      else

        Result := False;

    end;

  end;

  function CharToPixels(P: TBufferCoord): TPoint;

  begin

    Result := Editor.RowColumnToPixels(Editor.BufferToDisplayPos(P));

  end;

var

  COLOR_FG: TColor;

  COLOR_BG: TColor;

  P: TBufferCoord;

  Pix: TPoint;

  D: TDisplayCoord;

  S: UnicodeString;

  I: Integer;

  Attri: TSynHighlighterAttributes;

  ArrayLength: Integer;

  start: Integer;

  TmpCharA, TmpCharB: WideChar;

begin

  // Source: https://github.com/SynEdit/SynEdit/blob/master/Demos/OnPaintTransientDemo/Unit1.pas

  if IsThemeDark then

  begin

    COLOR_FG := clLime;

    COLOR_BG := clGreen;

  end

  else

  begin

    COLOR_FG := clGreen;

    COLOR_BG := clLime;

  end;

  if TSynEdit(Sender).SelAvail then exit;

  Editor := TSynEdit(Sender);

  ArrayLength:= 3;

  (*

  if (Editor.Highlighter = shHTML) or (Editor.Highlighter = shXML) then

    inc(ArrayLength);

  *)

  SetLength(OpenChars, ArrayLength);

  SetLength(CloseChars, ArrayLength);

  for i := 0 to ArrayLength - 1 do

  begin

    case i of

      0: begin OpenChars[i] := '('; CloseChars[i] := ')'; end;

      1: begin OpenChars[i] := '{'; CloseChars[i] := '}'; end;

      2: begin OpenChars[i] := '['; CloseChars[i] := ']'; end;

      3: begin OpenChars[i] := '<'; CloseChars[i] := '>'; end;

    end;

  end;

  P := Editor.CaretXY;

  D := Editor.DisplayXY;

  Start := Editor.SelStart;

  if (Start > 0) and (Start <= length(Editor.Text)) then