Subversion Repositories fastphp

unit EditorMain;

{$Include 'FastPHP.inc'}

// TODO 70423 * <fastphp> bug beheben, bei dem php.exe im hintergrund geöffnet bleibt, wenn man den editor schließt !!!!!!!!!

(*

  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: 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

// 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

// - Let all colors be adjustable

// - code in bildschirmmitte (horizontal)?

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_TLB, FindReplace,

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

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

{.$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;

    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 Saveas1Click(Sender: TObject);

    procedure Save1Click(Sender: TObject);

    procedure BtnSpecialCharsClick(Sender: TObject);

    procedure WebBrowser1WindowClosing(ASender: TObject;

      IsChildWindow: WordBool; var Cancel: WordBool);

    procedure BtnLightClick(Sender: TObject);

    procedure StartUpTimerTimer(Sender: TObject);

  private

    CurSearchTerm: string;

    HlpPrevPageIndex: integer;

    SrcRep: TSynEditFindReplace;

    {$IFDEF OnlineHelp}

    gOnlineHelpWord: string;

    {$ENDIF}

    procedure Help;

    function MarkUpLineReference(cont: string): string;

    function InputRequestCallback(var data: AnsiString): boolean;

    function OutputNotifyCallback(const data: AnsiString): boolean;

  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;

  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;

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 ?

  InputQuery('Go to', 'Line number:', val);

  if not TryStrToInt(val, lineno) then

  begin

    if SynEdit1.CanFocus then SynEdit1.SetFocus;

    exit;

  end;

  GotoLineNo(lineno);

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.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.ActionSaveExecute(Sender: TObject);

begin

  SynEdit1.Lines.SaveToFile(GetScrapFile);

  SynEdit1.Modified := false;

  RefreshModifySign;

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;

    begin

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

      begin

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

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

      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';

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);

  InputQuery('Spaces to tabs', 'Indent:', val); // TODO: handle CANCEL correctly...

  if TryStrToInt(Trim(val), ind) then

  begin

    if ind = 0 then exit;

    SpaceToTab(SynEdit1.Lines, ind);

  end;

  if SynEdit1.CanFocus then SynEdit1.SetFocus;

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;

var

  firstTimeBrowserLoad: boolean = true;

procedure TForm1.Run(Sender: TObject);

var

  bakTS: TTabSheet;

  ss: TStringStream;

  bakPos: Int64;

begin

  memo2.Lines.Text := '';

  if firstTimeBrowserLoad 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;

    firstTimeBrowserLoad := false;

  end

  else

    Webbrowser1.Clear;

  Screen.Cursor := crHourGlass;

  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);

    // 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;

    *)

    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.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

    TmpCharA := Editor.Text[Start]

  else

    TmpCharA := #0;

  if (Start > 0){Added by VTS} and (Start < length(Editor.Text)) then

    TmpCharB := Editor.Text[Start + 1]

  else

    TmpCharB := #0;

  if not IsCharBracket(TmpCharA) and not IsCharBracket(TmpCharB) then exit;

  S := TmpCharB;

  if not IsCharBracket(TmpCharB) then

  begin

    P.Char := P.Char - 1;

    S := TmpCharA;

  end;

  Editor.GetHighlighterAttriAtRowCol(P, S, Attri);

  if (Editor.Highlighter.SymbolAttribute = Attri) then

  begin

    for i := low(OpenChars) to High(OpenChars) do

    begin

      if (S = OpenChars[i]) or (S = CloseChars[i]) then

      begin

        Pix := CharToPixels(P);

        Editor.Canvas.Brush.Style := bsSolid;//Clear;

        Editor.Canvas.Font.Assign(Editor.Font);

        Editor.Canvas.Font.Style := Attri.Style;

        if (TransientType = ttAfter) then

        begin

          Editor.Canvas.Font.Color := COLOR_FG;

          Editor.Canvas.Brush.Color := COLOR_BG;

        end

        else

        begin

          Editor.Canvas.Font.Color := Attri.Foreground;

          Editor.Canvas.Brush.Color := Attri.Background;

        end;

        if Editor.Canvas.Font.Color = clNone then

          Editor.Canvas.Font.Color := Editor.Font.Color;

        if Editor.Canvas.Brush.Color = clNone then

          Editor.Canvas.Brush.Color := Editor.Color;

        Editor.Canvas.TextOut(Pix.X, Pix.Y, S);

        P := Editor.GetMatchingBracketEx(P);

        if (P.Char > 0) and (P.Line > 0) then

        begin

          Pix := CharToPixels(P);

          if Pix.X > Editor.Gutter.Width then

          begin

            {$REGION 'Added by ViaThinkSoft'}

            if (TransientType = ttAfter) then

            begin

              Editor.Canvas.Font.Color := COLOR_FG;

              Editor.Canvas.Brush.Color := COLOR_BG;

            end

            else

            begin

              Editor.Canvas.Font.Color := Attri.Foreground;

              Editor.Canvas.Brush.Color := Attri.Background;

            end;

            if Editor.Canvas.Font.Color = clNone then

              Editor.Canvas.Font.Color := Editor.Font.Color;

            if Editor.Canvas.Brush.Color = clNone then

              Editor.Canvas.Brush.Color := Editor.Color;

            {$ENDREGION}

            if S = OpenChars[i] then

              Editor.Canvas.TextOut(Pix.X, Pix.Y, CloseChars[i])

            else Editor.Canvas.TextOut(Pix.X, Pix.Y, OpenChars[i]);

          end;

        end;

      end;

    end;

    Editor.Canvas.Brush.Style := bsSolid;

  end;

end;

procedure TForm1.SynEditFocusTimerTimer(Sender: TObject);

begin

  SynEditFocusTimer.Enabled := false;

  Button1.SetFocus; // Workaround for weird bug... This (and the timer) is necessary to get the focus to SynEdit1

  SynEdit1.SetFocus;

end;

procedure TForm1.Theme_Dark;

begin

  if IsThemeDark then exit;

  TStyleManager.TrySetStyle('Windows10 SlateGray');

  Color := 1316887;

  Font.Color := clCream;

  //Memo2.Font.Color := clCream;

  //Memo2.ParentColor := true;

  SynEdit1.ActiveLineColor := 2238502;

  SynEdit1.Color := 1316887;

  SynEdit1.Font.Color := clCream;

  SynEdit1.Gutter.Color := 1316887;

  SynEdit1.Gutter.Font.Color := clCream;

  SynEdit1.Gutter.GradientStartColor := 2238502;

  SynEdit1.Gutter.GradientEndColor := 1316887;

  SynPHPSyn1.CommentAttri.Foreground := 6314591;

  SynPHPSyn1.IdentifierAttri.Foreground := 9627120;

  SynPHPSyn1.KeyAttri.Foreground := 4157595;

  SynPHPSyn1.NumberAttri.Foreground := 5008079;

  SynPHPSyn1.StringAttri.Foreground := 6987151;

  SynPHPSyn1.SymbolAttri.Foreground := 8769754;

  SynPHPSyn1.VariableAttri.Foreground := 6924493;

end;

procedure TForm1.Theme_Light;

begin

  if not IsThemeDark then exit;

  TStyleManager.TrySetStyle('Windows');

  Color := clBtnFace;

  Font.Color := clWindowText;

  //Memo2.Font.Color := clWindowText;

  SynEdit1.ActiveLineColor := 14680010;

  SynEdit1.Color := clWindow;

  SynEdit1.Font.Color := clWindowText;