WebSVN – fastphp – Diff – /trunk/EditorMain.pas


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: 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
 
// 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;
 
{.$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;
    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);
  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;
  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;
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.
 
    memo2.Lines.Text := RunPHPScript(GetScrapFile, Sender=ActionLint, False);
 
    Webbrowser1.LoadHTML(MarkUpLineReference(memo2.Lines.Text), GetScrapFile);
 
    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;
 
const
  COLOR_FG = clGreen;
  COLOR_BG = clLime;
var
  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 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.Timer1Timer(Sender: TObject);
begin
  {$IFDEF OnlineHelp}
  Timer1.Enabled := false;
 
  // TODO: Insert a small online help hint
  //Caption := gOnlineHelpWord;
  {$ENDIF}
end;
 
procedure TForm1.TreeView1DblClick(Sender: TObject);
var
  tn: TTreeNode;
  lineNo: integer;
begin
  tn := TTreeView(Sender).Selected;
  if tn = nil then exit;
  lineNo := Integer(tn.Data);
  if lineNo > 0 then GotoLineNo(lineNo);
end;
 
(*
{$IFDEF USE_SHDOCVW_TLB}
*)
procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;
  const pDisp: IDispatch; const URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  BeforeNavigate(URL, Cancel);
end;
procedure TForm1.WebBrowser1WindowClosing(ASender: TObject;
  IsChildWindow: WordBool; var Cancel: WordBool);
resourcestring
  LNG_CLOSE_REQUEST = 'A script has requested the window to be closed. The window of a standalone script would now close.';
begin
  ShowMessage(LNG_CLOSE_REQUEST);
  TWebBrowser(ASender).Clear;
  Cancel := true;
end;
 
(*
{$ELSE}
procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  BeforeNavigate(URL, Cancel);
end;
{$ENDIF}
*)
 
procedure TForm1.BeforeNavigate(const URL: OleVariant; var Cancel: WordBool);
var
  s, myURL: string;
  lineno: integer;
  p: integer;
begin
  {$REGION 'Line number references (PHP errors and warnings)'}
  if Copy(URL, 1, length(FASTPHP_GOTO_URI_PREFIX)) = FASTPHP_GOTO_URI_PREFIX then
  begin
    try
      s := copy(URL, length(FASTPHP_GOTO_URI_PREFIX)+1, 99);
      if not TryStrToInt(s, lineno) then exit;
      GotoLineNo(lineno);
      SynEditFocusTimer.Enabled := true;
    finally
      Cancel := true;
    end;
    Exit;
  end;
  {$ENDREGION}
 
  {$REGION 'Intelligent browser (executes PHP scripts)'}
  if URL <> 'about:blank' then
  begin
    myUrl := URL;
 
    p := Pos('?', myUrl);
    if p >= 1 then myURL := copy(myURL, 1, p-1);
 
    // TODO: myURL urldecode
    // TODO: maybe we could even open that file in the editor!
 
    if FileExists(myURL) and (EndsText('.php', myURL) or EndsText('.php3', myURL) or EndsText('.php4', myURL) or EndsText('.php5', myURL) or EndsText('.phps', myURL)) then
    begin
      WebBrowser1.LoadHTML(RunPHPScript(myURL), myUrl);
      Cancel := true;
    end;
  end;
  {$ENDREGION}
end;
 
procedure TForm1.BtnSpecialCharsClick(Sender: TObject);
var
  opts: TSynEditorOptions;
begin
  opts := SynEdit1.Options;
  if eoShowSpecialChars in SynEdit1.Options then
  begin
    BtnSpecialChars.Picture.Assign(BtnSpecialCharsOff.Picture);
    Exclude(opts, eoShowSpecialChars);
    TFastPHPConfig.SpecialChars := false;
  end
  else
  begin
    BtnSpecialChars.Picture.Assign(BtnSpecialCharsOn.Picture);
    Include(opts, eoShowSpecialChars);
    TFastPHPConfig.SpecialChars := true;
  end;
  SynEdit1.Options := opts;
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  TFastPHPConfig.FontSize := SynEdit1.Font.Size;
end;
 
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  r: integer;
begin
  if SynEdit1.Modified then
  begin
    if (ParamStr(1) <> '') or (FSaveAsFilename <> '') then
    begin
      r := MessageDlg('Do you want to save?', mtConfirmation, mbYesNoCancel, 0);
      if r = mrCancel then
      begin
        CanClose := false;
        Exit;
      end
      else if r = mrYes then
      begin
        ActionSave.Execute;
        CanClose := true;
      end;
    end
    else
    begin
      ActionSave.Execute;
      CanClose := true;
    end;
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
  exeDir: string;
begin
  HlpPrevPageIndex := -1;
  CurSearchTerm := '';
  Caption := Caption + ' - ' + GetScrapFile;
  SrcRep := TSynEditFindReplace.Create(self);
  SrcRep.Editor := SynEdit1;
  SynEdit1.Gutter.Gradient := HighColorWindows;
 
  Screen.Cursors[crMouseGutter] := LoadCursor(hInstance, 'MOUSEGUTTER');
  SynEdit1.Gutter.Cursor := crMouseGutter;
 
  exeDir := IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0)));
  if FileExists(exeDir + 'codeexplorer.bmp') then ImageList1.LoadAndSplitImages(exeDir + 'codeexplorer.bmp');
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  if Assigned(ChmIndex) then
  begin
    FreeAndNil(ChmIndex);
  end;
  FreeAndNil(SrcRep);
 
  if Assigned(codeExplorer) then
  begin
    codeExplorer.Terminate;
    codeExplorer.WaitFor;
    FreeAndNil(codeExplorer);
  end;
end;
 
procedure TForm1.FormShow(Sender: TObject);
var
  ScrapFile: string;
  tmpFontSize: integer;
  opts: TSynEditorOptions;
begin
  ScrapFile := GetScrapFile;
  if ScrapFile = '' then
  begin
    Application.Terminate; // Close;
    exit;
  end;
 
  opts := SynEdit1.Options;
  if TFastPHPConfig.SpecialChars then
  begin
    BtnSpecialChars.Picture.Assign(BtnSpecialCharsOn.Picture);
    Include(opts, eoShowSpecialChars);
  end
  else
  begin
    BtnSpecialChars.Picture.Assign(BtnSpecialCharsOff.Picture);
    Exclude(opts, eoShowSpecialChars);
  end;
  SynEdit1.Options := opts;
 
  if FileExists(ScrapFile) then
    SynEdit1.Lines.LoadFromFile(ScrapFile)
  else
    SynEdit1.Lines.Clear;
 
  PageControl1.ActivePage := PlaintextTabSheet;
 
  PageControl2.ActivePage := CodeTabsheet;
  HelpTabsheet.TabVisible := false;
 
  tmpFontSize := TFastPHPConfig.FontSize;
  if tmpFontSize <> -1 then SynEdit1.Font.Size := tmpFontSize;
  SynEdit1.SetFocus;
 
  DoubleBuffered := true;
  StartCodeExplorer;
end;
 
procedure TForm1.Save1Click(Sender: TObject);
begin
  Button7.Click;
end;
 
procedure TForm1.Saveas1Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
  begin
    FSaveAsFilename := SaveDialog1.FileName;
    Caption := Copy(Caption, 1, Pos(' - ', Caption)-1) + ' - ' + FSaveAsFilename;
    Button7.Click;
  end;
end;
 
procedure TForm1.StartCodeExplorer;
begin
  codeExplorer := TRunCodeExplorer.Create(true);
  codeExplorer.InputRequestCallback := InputRequestCallback;
  codeExplorer.OutputNotifyCallback := OutputNotifyCallback;
  codeExplorer.PhpExe := GetPHPExe;
  codeExplorer.PhpFile := IncludeTrailingPathDelimiter(ExtractFileDir(Application.ExeName)) + 'codeexplorer.php'; // GetScrapFile;
  codeExplorer.WorkDir := ExtractFileDir(Application.ExeName);
  codeExplorer.Resume;
end;
 
function TForm1.GetScrapFile: string;
var
  tmpPath: string;
begin
  if FSaveAsFilename <> '' then
  begin
    result := FSaveAsFilename;
    exit;
  end;
 
  if FScrapFile <> '' then
  begin
    result := FScrapFile;
    exit;
  end;
 
  if ParamStr(1) <> '' then
  begin
    // Program was started with a filename
 
    result := ParamStr(1);
 
    if not FileExists(result) then
    begin
      case MessageDlg(Format('File %s does not exist. Create it?', [result]), mtConfirmation, mbYesNoCancel, 0) of
        mrYes:
          try
            SynEdit1.Lines.SaveToFile(result);
          except
            on E: Exception do
            begin
              MessageDlg(E.Message, mtError, [mbOk], 0);
              Application.Terminate;
              result := '';
              exit;
            end;
          end;
        mrNo:
          begin
            Application.Terminate;
            result := '';
            exit;
          end;
        mrCancel:
          begin
            Application.Terminate;
            result := '';
            exit;
          end;
      end;
    end;
  end
  else
  begin
    // Program is started without filename -> use scrap file
 
    result := TFastPHPConfig.ScrapFile;
 
    if not FileExists(result) then
    begin
      repeat
        {$REGION 'Determinate opendialog initial directory'}
        if result <> '' then
        begin
          tmpPath := ExtractFilePath(result);
          if DirectoryExists(tmpPath) then
          begin
            OpenDialog3.InitialDir := tmpPath;
            OpenDialog3.FileName := Result;
          end
          else
          begin
            OpenDialog3.InitialDir := GetMyDocumentsFolder;
          end;
        end
        else
        begin
          OpenDialog3.InitialDir := GetMyDocumentsFolder;
        end;
        {$ENDREGION}
 
        if not OpenDialog3.Execute then
        begin
          Application.Terminate;
          result := '';
          exit;
        end;
 
        if not DirectoryExists(ExtractFilePath(OpenDialog3.FileName)) then
        begin
          MessageDlg('Path does not exist! Please try again.', mtWarning, [mbOk], 0);
        end
        else
        begin
          result := OpenDialog3.FileName;
        end;
      until result <> '';
 
      if not FileExists(result) then
      begin
        try
          // Try saving the file; check if we have permissions
          //SynEdit1.Lines.Clear;
          SynEdit1.Lines.SaveToFile(result);
        except
          on E: Exception do
          begin
            MessageDlg(E.Message, mtError, [mbOk], 0);
            Application.Terminate;
            result := '';
            exit;
          end;
        end;
      end;
 
      TFastPHPConfig.ScrapFile := result;
      FScrapFile := result;
    end;
  end;
end;
 
procedure TForm1.Help;
var
  IndexFile, chmFile, w, OriginalWord, url: string;
  internalHtmlFile: string;
begin
  if not Assigned(ChmIndex) then
  begin
    IndexFile := TFastPHPConfig.HelpIndex;
    IndexFile := ChangeFileExt(IndexFile, '.ini'); // Just to be sure. Maybe someone wrote manually the ".chm" file in there
    if FileExists(IndexFile) then
    begin
      ChmIndex := TMemIniFile.Create(IndexFile);
    end;
  end;
 
  if Assigned(ChmIndex) then
  begin
    IndexFile := TFastPHPConfig.HelpIndex;
    // We don't check if IndexFile still exists. It is not important since we have ChmIndex pre-loaded in memory
 
    chmFile := ChangeFileExt(IndexFile, '.chm');
    if not FileExists(chmFile) then
    begin
      FreeAndNil(ChmIndex);
    end;
  end;
 
  if not Assigned(ChmIndex) then
  begin
    if not OpenDialog1.Execute then exit;
 
    chmFile := OpenDialog1.FileName;
    if not FileExists(chmFile) then exit;
 
    IndexFile := ChangeFileExt(chmFile, '.ini');
 
    if not FileExists(IndexFile) then
    begin
      Panel1.Align := alClient;
      Panel1.Visible := true;
      Panel1.BringToFront;
      Screen.Cursor := crHourGlass;
      Application.ProcessMessages;
      try
        if not ParseCHM(chmFile) then
        begin
          MessageDlg('The CHM file is not a valid PHP documentation. Cannot use help.', mtError, [mbOk], 0);
          exit;
        end;
      finally
        Screen.Cursor := crDefault;
        Panel1.Visible := false;
      end;
 
      if not FileExists(IndexFile) then
      begin
        MessageDlg('Unknown error. Cannot use help.', mtError, [mbOk], 0);
        exit;
      end;
    end;
 
    TFastPHPConfig.HelpIndex := IndexFile;
 
    ChmIndex := TMemIniFile.Create(IndexFile);
  end;
 
  w := GetWordUnderCaret(SynEdit1);
  if w = '' then exit;
  {$IFDEF UNICODE}
  if CharInSet(w[1], ['0'..'9']) then exit;
  {$ELSE}
  if w[1] in ['0'..'9'] then exit;
  {$ENDIF}
 
  Originalword := w;
//  w := StringReplace(w, '_', '-', [rfReplaceAll]);
  w := LowerCase(w);
  CurSearchTerm := w;
 
  internalHtmlFile := ChmIndex.ReadString('_HelpWords_', CurSearchTerm, '');
  if internalHtmlFile = '' then
  begin
    HelpTabsheet.TabVisible := false;
    HlpPrevPageIndex := -1;
    ShowMessageFmt('No help for "%s" available', [Originalword]);
    Exit;
  end;
 
  url := 'mk:@MSITStore:'+ChmFile+'::'+internalHtmlFile;
 
  HlpPrevPageIndex := PageControl2.ActivePageIndex; // Return by pressing ESC
  HelpTabsheet.TabVisible := true;
  PageControl2.ActivePage := HelpTabsheet;
  WebBrowser2.Navigate(url);
  WebBrowser2.Wait;
end;
 
procedure TForm1.GotoLineNo(LineNo:integer);
var
  line: string;
  i: integer;
begin
  SynEdit1.GotoLineAndCenter(LineNo);
 
  // Skip indent
  line := SynEdit1.Lines[SynEdit1.CaretY];
  for i := 1 to Length(line) do
  begin
    {$IFDEF UNICODE}
    if not CharInSet(line[i], [' ', #9]) then
    {$ELSE}
    if not (line[i] in [' ', #9]) then
    {$ENDIF}
    begin
      SynEdit1.CaretX := i-1;
      break;
    end;
  end;
 
  PageControl2.ActivePage := CodeTabsheet;
  if SynEdit1.CanFocus then SynEdit1.SetFocus;
end;
 
procedure TForm1.PageControl2Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  if PageControl2.ActivePage = HelpTabsheet then
    HlpPrevPageIndex := -1
  else
    HlpPrevPageIndex := PageControl2.ActivePageIndex;
 
  AllowChange := true;
end;
 
procedure TForm1.Memo2DblClick(Sender: TObject);
var
  line: string;
 
  procedure _process(toFind: string);
  var
    p, lineno: integer;
  begin
    if FileSystemCaseSensitive then
      p := Pos(toFind, line)
    else
      p := Pos(LowerCase(toFind), LowerCase(line));
    if p <> 0 then
    begin
      line := copy(line, p+length(toFind), 99);
      if not TryStrToInt(line, lineno) then exit;
      GotoLineNo(lineno);
    end;
  end;
 
begin
  line := memo2.Lines.Strings[Memo2.CaretPos.Y];
 
  {$REGION 'Possibility 1: filename.php:lineno'}
  _process(ExtractFileName(GetScrapFile) + ':');
  {$ENDREGION}
 
  {$REGION 'Possibility 2: on line xx'}
  _process(ExtractFileName(GetScrapFile) + ' on line ');
  {$ENDREGION}
end;
 
procedure TForm1.Memo2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ((ssCtrl in Shift) and (Key = 65)) then TMemo(Sender).SelectAll;
end;
 
function TForm1.MarkUpLineReference(cont: string): string;
 
  procedure _process(toFind: string);
  var
    p, a, b: integer;
    num: integer;
    insert_a, insert_b: string;
  begin
    if FileSystemCaseSensitive then
      p := Pos(toFind, cont)
    else
      p := Pos(LowerCase(toFind), LowerCase(cont));
    while p >= 1 do
    begin
      a := p;
      b := p + length(toFind);
      num := 0;
      {$IFDEF UNICODE}
      while CharInSet(cont[b], ['0'..'9']) do
      {$ELSE}
      while cont[b] in ['0'..'9'] do
      {$ENDIF}
      begin
        num := num*10 + StrToInt(cont[b]);
        inc(b);
      end;
 
      insert_b := '</a>';
      insert_a := '<a href="' + FASTPHP_GOTO_URI_PREFIX + IntToStr(num) + '">';
 
      insert(insert_b, cont, b);
      insert(insert_a, cont, a);
 
      p := b + Length(insert_a) + Length(insert_b);
 
      p := PosEx(toFind, cont, p+1);
    end;
  end;
 
begin
  {$REGION 'Possibility 1: filename.php:lineno'}
  _process(ExtractFileName(GetScrapFile) + ':');
  {$ENDREGION}
 
  {$REGION 'Possibility 2: on line xx'}
  _process(ExtractFileName(GetScrapFile) + ' on line ');
  {$ENDREGION}
 
  result := cont;
end;
 
function TForm1.InputRequestCallback(var data: AnsiString): boolean;
begin
  data := UTF8Encode(SynEdit1.Text);
  result := true;
end;
 
function TForm1.OutputNotifyCallback(const data: AnsiString): boolean;
begin
  result := TreeView1.FillWithFastPHPData(data);
end;
 
end.
 

Rev 58	Rev 60
1	unit EditorMain;	1	unit EditorMain;
2		2
3	{$Include 'FastPHP.inc'}	3	{$Include 'FastPHP.inc'}
4		4
5	(*	5	(*
6	This program requires	6	This program requires
7	- Microsoft Internet Controls (TWebBrowser)	7	- Microsoft Internet Controls (TWebBrowser)
8	If you are using Delphi 10.1 Starter Edition, please import the ActiveX TLB	8	If you are using Delphi 10.1 Starter Edition, please import the ActiveX TLB
9	"Microsoft Internet Controls"	9	"Microsoft Internet Controls"
10	- SynEdit	10	- SynEdit
11	You can obtain SynEdit via Embarcadero GetIt	11	You can obtain SynEdit via Embarcadero GetIt
12	*)	12	*)
13		13
14	// TODO: localize	14	// TODO: localize
15	// TODO: wieso geht copy paste im twebbrowser nicht???	15	// TODO: wieso geht copy paste im twebbrowser nicht???
16	// TODO: Wieso dauert webbrowser1 erste kompilierung so lange???	16	// TODO: Wieso dauert webbrowser1 erste kompilierung so lange???
17	// TODO: wieso kommt syntax fehler zweimal? einmal stderr einmal stdout?	17	// TODO: wieso kommt syntax fehler zweimal? einmal stderr einmal stdout?
18	// TODO: Browser titlebar (link preview)	18	// TODO: Browser titlebar (link preview)
19	// TODO: "jump to next/prev todo" buttons/shortcuts	19	// TODO: "jump to next/prev todo" buttons/shortcuts
20	// TODO: "increase/decrease indent" buttons/shortcuts	20	// TODO: "increase/decrease indent" buttons/shortcuts
21		21
22	// Future ideas	22	// Future ideas
23	// - code insight	23	// - code insight
24	// - verschiedene php versionen?	24	// - verschiedene php versionen?
25	// - webbrowser1 nur laden, wenn man den tab anwählt?	25	// - webbrowser1 nur laden, wenn man den tab anwählt?
26	// - doppelklick auf tab soll diesen schließen	26	// - doppelklick auf tab soll diesen schließen
27	// - Onlinehelp (www) aufrufen	27	// - Onlinehelp (www) aufrufen
28	// - Let all colors be adjustable	28	// - Let all colors be adjustable
29	// - code in bildschirmmitte (horizontal)?	29	// - code in bildschirmmitte (horizontal)?
30		30
31	interface	31	interface
32		32
33	uses	33	uses
34	// TODO: "{$IFDEF USE_SHDOCVW_TLB}_TLB{$ENDIF}" does not work with Delphi 10.2	34	// TODO: "{$IFDEF USE_SHDOCVW_TLB}_TLB{$ENDIF}" does not work with Delphi 10.2
35	Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,	35	Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
36	Dialogs, StdCtrls, OleCtrls, ComCtrls, ExtCtrls, ToolWin, IniFiles,	36	Dialogs, StdCtrls, OleCtrls, ComCtrls, ExtCtrls, ToolWin, IniFiles,
37	SynEditHighlighter, SynHighlighterPHP, SynEdit, ShDocVw_TLB, FindReplace,	37	SynEditHighlighter, SynHighlighterPHP, SynEdit, ShDocVw_TLB, FindReplace,
38	ActnList, SynEditMiscClasses, SynEditSearch, RunPHP, ImgList, SynUnicode,	38	ActnList, SynEditMiscClasses, SynEditSearch, RunPHP, ImgList, SynUnicode,
39	System.ImageList, System.Actions, Vcl.Menus, SHDocVw;	39	System.ImageList, System.Actions, Vcl.Menus, SHDocVw;
40		40
41	{.$DEFINE OnlineHelp}	41	{.$DEFINE OnlineHelp}
42		42
43	type	43	type
44	TForm1 = class(TForm)	44	TForm1 = class(TForm)
45	PageControl1: TPageControl;	45	PageControl1: TPageControl;
46	PlaintextTabSheet: TTabSheet;	46	PlaintextTabSheet: TTabSheet;
47	HtmlTabSheet: TTabSheet;	47	HtmlTabSheet: TTabSheet;
48	Memo2: TMemo;	48	Memo2: TMemo;
49	WebBrowser1: TWebBrowser;	49	WebBrowser1: TWebBrowser;
50	Splitter1: TSplitter;	50	Splitter1: TSplitter;
51	PageControl2: TPageControl;	51	PageControl2: TPageControl;
52	CodeTabsheet: TTabSheet;	52	CodeTabsheet: TTabSheet;
53	HelpTabsheet: TTabSheet;	53	HelpTabsheet: TTabSheet;
54	WebBrowser2: TWebBrowser;	54	WebBrowser2: TWebBrowser;
55	OpenDialog1: TOpenDialog;	55	OpenDialog1: TOpenDialog;
56	Panel1: TPanel;	56	Panel1: TPanel;
57	OpenDialog3: TOpenDialog;	57	OpenDialog3: TOpenDialog;
58	SynEdit1: TSynEdit;	58	SynEdit1: TSynEdit;
59	SynPHPSyn1: TSynPHPSyn;	59	SynPHPSyn1: TSynPHPSyn;
60	Panel2: TPanel;	60	Panel2: TPanel;
61	SynEditFocusTimer: TTimer;	61	SynEditFocusTimer: TTimer;
62	Button1: TButton;	62	Button1: TButton;
63	Button2: TButton;	63	Button2: TButton;
64	Button3: TButton;	64	Button3: TButton;
65	Button4: TButton;	65	Button4: TButton;
66	Button5: TButton;	66	Button5: TButton;
67	Button6: TButton;	67	Button6: TButton;
68	ActionList: TActionList;	68	ActionList: TActionList;
69	ActionFind: TAction;	69	ActionFind: TAction;
70	ActionReplace: TAction;	70	ActionReplace: TAction;
71	ActionFindNext: TAction;	71	ActionFindNext: TAction;
72	ActionGoto: TAction;	72	ActionGoto: TAction;
73	ActionSave: TAction;	73	ActionSave: TAction;
74	ActionHelp: TAction;	74	ActionHelp: TAction;
75	ActionRun: TAction;	75	ActionRun: TAction;
76	ActionESC: TAction;	76	ActionESC: TAction;
77	Button7: TButton;	77	Button7: TButton;
78	ActionOpen: TAction;	78	ActionOpen: TAction;
79	Button8: TButton;	79	Button8: TButton;
80	Button9: TButton;	80	Button9: TButton;
81	ActionFindPrev: TAction;	81	ActionFindPrev: TAction;
82	Timer1: TTimer;	82	Timer1: TTimer;
83	ActionSpaceToTab: TAction;	83	ActionSpaceToTab: TAction;
84	Button11: TButton;	84	Button11: TButton;
85	SynEditSearch1: TSynEditSearch;	85	SynEditSearch1: TSynEditSearch;
86	TreeView1: TTreeView;	86	TreeView1: TTreeView;
87	Splitter2: TSplitter;	87	Splitter2: TSplitter;
88	btnLint: TButton;	88	btnLint: TButton;
89	ActionLint: TAction;	89	ActionLint: TAction;
90	ImageList1: TImageList;	90	ImageList1: TImageList;
91	RunPopup: TPopupMenu;	91	RunPopup: TPopupMenu;
92	OpeninIDE1: TMenuItem;	92	OpeninIDE1: TMenuItem;
93	ActionRunConsole: TAction;	93	ActionRunConsole: TAction;
94	Runinconsole1: TMenuItem;	94	Runinconsole1: TMenuItem;
95	SavePopup: TPopupMenu;	95	SavePopup: TPopupMenu;
96	Saveas1: TMenuItem;	96	Saveas1: TMenuItem;
97	Save1: TMenuItem;	97	Save1: TMenuItem;
98	SaveDialog1: TSaveDialog;	98	SaveDialog1: TSaveDialog;
99	BtnSpecialChars: TImage;	99	BtnSpecialChars: TImage;
100	BtnSpecialCharsOff: TImage;	100	BtnSpecialCharsOff: TImage;
101	BtnSpecialCharsOn: TImage;	101	BtnSpecialCharsOn: TImage;
102	procedure Run(Sender: TObject);	102	procedure Run(Sender: TObject);
103	procedure RunConsole(Sender: TObject);	103	procedure RunConsole(Sender: TObject);
104	procedure FormShow(Sender: TObject);	104	procedure FormShow(Sender: TObject);
105	procedure FormCreate(Sender: TObject);	105	procedure FormCreate(Sender: TObject);
106	procedure FormDestroy(Sender: TObject);	106	procedure FormDestroy(Sender: TObject);
107	procedure FormClose(Sender: TObject; var Action: TCloseAction);	107	procedure FormClose(Sender: TObject; var Action: TCloseAction);
108	procedure PageControl2Changing(Sender: TObject; var AllowChange: Boolean);	108	procedure PageControl2Changing(Sender: TObject; var AllowChange: Boolean);
109	procedure Memo2DblClick(Sender: TObject);	109	procedure Memo2DblClick(Sender: TObject);
110	(*	110	(*
111	{$IFDEF USE_SHDOCVW_TLB}	111	{$IFDEF USE_SHDOCVW_TLB}
112	*)	112	*)
113	procedure WebBrowser1BeforeNavigate2(ASender: TObject;	113	procedure WebBrowser1BeforeNavigate2(ASender: TObject;
114	const pDisp: IDispatch; const URL, Flags, TargetFrameName, PostData,	114	const pDisp: IDispatch; const URL, Flags, TargetFrameName, PostData,
115	Headers: OleVariant; var Cancel: WordBool);	115	Headers: OleVariant; var Cancel: WordBool);
116	(*	116	(*
117	{$ELSE}	117	{$ELSE}
118	procedure WebBrowser1BeforeNavigate2(ASender: TObject;	118	procedure WebBrowser1BeforeNavigate2(ASender: TObject;
119	const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,	119	const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
120	Headers: OleVariant; var Cancel: WordBool);	120	Headers: OleVariant; var Cancel: WordBool);
121	{$ENDIF}	121	{$ENDIF}
122	*)	122	*)
123	procedure BeforeNavigate(const URL: OleVariant; var Cancel: WordBool);	123	procedure BeforeNavigate(const URL: OleVariant; var Cancel: WordBool);
124	procedure SynEditFocusTimerTimer(Sender: TObject);	124	procedure SynEditFocusTimerTimer(Sender: TObject);
125	procedure ActionFindExecute(Sender: TObject);	125	procedure ActionFindExecute(Sender: TObject);
126	procedure ActionReplaceExecute(Sender: TObject);	126	procedure ActionReplaceExecute(Sender: TObject);
127	procedure ActionFindNextExecute(Sender: TObject);	127	procedure ActionFindNextExecute(Sender: TObject);
128	procedure ActionGotoExecute(Sender: TObject);	128	procedure ActionGotoExecute(Sender: TObject);
129	procedure ActionSaveExecute(Sender: TObject);	129	procedure ActionSaveExecute(Sender: TObject);
130	procedure ActionHelpExecute(Sender: TObject);	130	procedure ActionHelpExecute(Sender: TObject);
131	procedure ActionRunExecute(Sender: TObject);	131	procedure ActionRunExecute(Sender: TObject);
132	procedure ActionESCExecute(Sender: TObject);	132	procedure ActionESCExecute(Sender: TObject);
133	procedure SynEdit1MouseWheelDown(Sender: TObject; Shift: TShiftState;	133	procedure SynEdit1MouseWheelDown(Sender: TObject; Shift: TShiftState;
134	MousePos: TPoint; var Handled: Boolean);	134	MousePos: TPoint; var Handled: Boolean);
135	procedure SynEdit1MouseWheelUp(Sender: TObject; Shift: TShiftState;	135	procedure SynEdit1MouseWheelUp(Sender: TObject; Shift: TShiftState;
136	MousePos: TPoint; var Handled: Boolean);	136	MousePos: TPoint; var Handled: Boolean);
137	procedure ActionOpenExecute(Sender: TObject);	137	procedure ActionOpenExecute(Sender: TObject);
138	procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);	138	procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
139	procedure Memo2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);	139	procedure Memo2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
140	procedure ActionFindPrevExecute(Sender: TObject);	140	procedure ActionFindPrevExecute(Sender: TObject);
141	procedure SynEdit1MouseCursor(Sender: TObject;	141	procedure SynEdit1MouseCursor(Sender: TObject;
142	const aLineCharPos: TBufferCoord; var aCursor: TCursor);	142	const aLineCharPos: TBufferCoord; var aCursor: TCursor);
143	procedure Timer1Timer(Sender: TObject);	143	procedure Timer1Timer(Sender: TObject);
144	procedure ActionSpaceToTabExecute(Sender: TObject);	144	procedure ActionSpaceToTabExecute(Sender: TObject);
145	procedure TreeView1DblClick(Sender: TObject);	145	procedure TreeView1DblClick(Sender: TObject);
146	procedure SynEdit1GutterClick(Sender: TObject; Button: TMouseButton; X, Y,	146	procedure SynEdit1GutterClick(Sender: TObject; Button: TMouseButton; X, Y,
147	Line: Integer; Mark: TSynEditMark);	147	Line: Integer; Mark: TSynEditMark);
148	procedure SynEdit1PaintTransient(Sender: TObject; Canvas: TCanvas;	148	procedure SynEdit1PaintTransient(Sender: TObject; Canvas: TCanvas;
149	TransientType: TTransientType);	149	TransientType: TTransientType);
150	procedure ActionLintExecute(Sender: TObject);	150	procedure ActionLintExecute(Sender: TObject);
151	procedure ActionRunConsoleExecute(Sender: TObject);	151	procedure ActionRunConsoleExecute(Sender: TObject);
152	procedure SynEdit1Change(Sender: TObject);	152	procedure SynEdit1Change(Sender: TObject);
153	procedure Saveas1Click(Sender: TObject);	153	procedure Saveas1Click(Sender: TObject);
154	procedure Save1Click(Sender: TObject);	154	procedure Save1Click(Sender: TObject);
155	procedure BtnSpecialCharsClick(Sender: TObject);	155	procedure BtnSpecialCharsClick(Sender: TObject);
156	procedure SynEdit1KeyDown(Sender: TObject; var Key: Word;	156	procedure WebBrowser1WindowClosing(ASender: TObject;
157	Shift: TShiftState);	157	IsChildWindow: WordBool; var Cancel: WordBool);
158	private	158	private
159	CurSearchTerm: string;	159	CurSearchTerm: string;
160	HlpPrevPageIndex: integer;	160	HlpPrevPageIndex: integer;
161	SrcRep: TSynEditFindReplace;	161	SrcRep: TSynEditFindReplace;
162	{$IFDEF OnlineHelp}	162	{$IFDEF OnlineHelp}
163	gOnlineHelpWord: string;	163	gOnlineHelpWord: string;
164	{$ENDIF}	164	{$ENDIF}
165	procedure Help;	165	procedure Help;
166	function MarkUpLineReference(cont: string): string;	166	function MarkUpLineReference(cont: string): string;
167	function InputRequestCallback(var data: AnsiString): boolean;	167	function InputRequestCallback(var data: AnsiString): boolean;
168	function OutputNotifyCallback(const data: AnsiString): boolean;	168	function OutputNotifyCallback(const data: AnsiString): boolean;
169	protected	169	protected
170	ChmIndex: TMemIniFile;	170	ChmIndex: TMemIniFile;
171	FScrapFile: string;	171	FScrapFile: string;
172	FSaveAsFilename: string;	172	FSaveAsFilename: string;
173	codeExplorer: TRunCodeExplorer;	173	codeExplorer: TRunCodeExplorer;
174	procedure GotoLineNo(LineNo: integer);	174	procedure GotoLineNo(LineNo: integer);
175	function GetScrapFile: string;	175	function GetScrapFile: string;
176	procedure StartCodeExplorer;	176	procedure StartCodeExplorer;
177	procedure RefreshModifySign;	177	procedure RefreshModifySign;
178	end;	178	end;
179		179
180	var	180	var
181	Form1: TForm1;	181	Form1: TForm1;
182		182
183	implementation	183	implementation
184		184
185	{$R *.dfm}	185	{$R *.dfm}
186		186
187	{$R Cursors.res}	187	{$R Cursors.res}
188		188
189	uses	189	uses
190	Functions, StrUtils, WebBrowserUtils, FastPHPUtils, Math, ShellAPI, RichEdit,	190	Functions, StrUtils, WebBrowserUtils, FastPHPUtils, Math, ShellAPI, RichEdit,
191	FastPHPTreeView, ImageListEx, FastPHPConfig;	191	FastPHPTreeView, ImageListEx, FastPHPConfig;
192		192
193	const	193	const
194	crMouseGutter = 1;	194	crMouseGutter = 1;
195		195
196	procedure TForm1.RefreshModifySign;	196	procedure TForm1.RefreshModifySign;
197	var	197	var
198	tmp: string;	198	tmp: string;
199	begin	199	begin
200	tmp := Caption;	200	tmp := Caption;
201		201
202	tmp := StringReplace(tmp, '*', '', [rfReplaceAll]);	202	tmp := StringReplace(tmp, '*', '', [rfReplaceAll]);
203	if SynEdit1.Modified then tmp := tmp + '*';	203	if SynEdit1.Modified then tmp := tmp + '*';
204		204
205	if Caption <> tmp then Caption := tmp;	205	if Caption <> tmp then Caption := tmp;
206	end;	206	end;
207		207
208	procedure TForm1.ActionFindNextExecute(Sender: TObject);	208	procedure TForm1.ActionFindNextExecute(Sender: TObject);
209	begin	209	begin
210	SrcRep.FindNext;	210	SrcRep.FindNext;
211	end;	211	end;
212		212
213	procedure TForm1.ActionFindPrevExecute(Sender: TObject);	213	procedure TForm1.ActionFindPrevExecute(Sender: TObject);
214	begin	214	begin
215	SrcRep.FindPrev;	215	SrcRep.FindPrev;
216	end;	216	end;
217		217
218	procedure TForm1.ActionGotoExecute(Sender: TObject);	218	procedure TForm1.ActionGotoExecute(Sender: TObject);
219	var	219	var
220	val: string;	220	val: string;
221	lineno: integer;	221	lineno: integer;
222	begin	222	begin
223	// TODO: VK_LMENU does not work! only works with AltGr but not Alt	223	// TODO: VK_LMENU does not work! only works with AltGr but not Alt
224	// http://stackoverflow.com/questions/16828250/delphi-xe2-how-to-prevent-the-alt-key-stealing-focus ?	224	// http://stackoverflow.com/questions/16828250/delphi-xe2-how-to-prevent-the-alt-key-stealing-focus ?
225		225
226	InputQuery('Go to', 'Line number:', val);	226	InputQuery('Go to', 'Line number:', val);
227	if not TryStrToInt(val, lineno) then	227	if not TryStrToInt(val, lineno) then
228	begin	228	begin
229	if SynEdit1.CanFocus then SynEdit1.SetFocus;	229	if SynEdit1.CanFocus then SynEdit1.SetFocus;
230	exit;	230	exit;
231	end;	231	end;
232	GotoLineNo(lineno);	232	GotoLineNo(lineno);
233	end;	233	end;
234		234
235	procedure TForm1.ActionHelpExecute(Sender: TObject);	235	procedure TForm1.ActionHelpExecute(Sender: TObject);
236	begin	236	begin
237	Help;	237	Help;
238	if PageControl2.ActivePage = HelpTabsheet then	238	if PageControl2.ActivePage = HelpTabsheet then
239	WebBrowser2.SetFocus	239	WebBrowser2.SetFocus
240	else if PageControl2.ActivePage = CodeTabsheet then	240	else if PageControl2.ActivePage = CodeTabsheet then
241	SynEdit1.SetFocus;	241	SynEdit1.SetFocus;
242	end;	242	end;
243		243
244	procedure TForm1.ActionLintExecute(Sender: TObject);	244	procedure TForm1.ActionLintExecute(Sender: TObject);
245	begin	245	begin
246	Run(Sender);	246	Run(Sender);
247	SynEdit1.SetFocus;	247	SynEdit1.SetFocus;
248	end;	248	end;
249		249
250	procedure TForm1.ActionOpenExecute(Sender: TObject);	250	procedure TForm1.ActionOpenExecute(Sender: TObject);
251	begin	251	begin
252	If OpenDialog3.Execute then	252	If OpenDialog3.Execute then
253	begin	253	begin
254	ShellExecute(0, 'open', PChar(ParamStr(0)), PChar(OpenDialog3.FileName), '', SW_NORMAL);	254	ShellExecute(0, 'open', PChar(ParamStr(0)), PChar(OpenDialog3.FileName), '', SW_NORMAL);
255	end;	255	end;
256	end;	256	end;
257		257
258	procedure TForm1.ActionReplaceExecute(Sender: TObject);	258	procedure TForm1.ActionReplaceExecute(Sender: TObject);
259	begin	259	begin
260	SrcRep.ReplaceExecute;	260	SrcRep.ReplaceExecute;
261	end;	261	end;
262		262
263	procedure TForm1.ActionRunConsoleExecute(Sender: TObject);	263	procedure TForm1.ActionRunConsoleExecute(Sender: TObject);
264	begin	264	begin
265	RunConsole(Sender);	265	RunConsole(Sender);
266	SynEdit1.SetFocus;	266	SynEdit1.SetFocus;
267	end;	267	end;
268		268
269	procedure TForm1.ActionRunExecute(Sender: TObject);	269	procedure TForm1.ActionRunExecute(Sender: TObject);
270	begin	270	begin
271	Run(Sender);	271	Run(Sender);
272	SynEdit1.SetFocus;	272	SynEdit1.SetFocus;
273	end;	273	end;
274		274
275	procedure TForm1.ActionSaveExecute(Sender: TObject);	275	procedure TForm1.ActionSaveExecute(Sender: TObject);
276	begin	276	begin
277	SynEdit1.Lines.SaveToFile(GetScrapFile);	277	SynEdit1.Lines.SaveToFile(GetScrapFile);
278	SynEdit1.Modified := false;	278	SynEdit1.Modified := false;
279	RefreshModifySign;	279	RefreshModifySign;
280	end;	280	end;
281		281
282	procedure TForm1.ActionSpaceToTabExecute(Sender: TObject);	282	procedure TForm1.ActionSpaceToTabExecute(Sender: TObject);
283		283
284	function SpacesAtBeginning(line: string): integer;	284	function SpacesAtBeginning(line: string): integer;
285	begin	285	begin
286	result := 0;	286	result := 0;
287	if Trim(line) = '' then exit;	287	if Trim(line) = '' then exit;
288	while line[result+1] = ' ' do	288	while line[result+1] = ' ' do
289	begin	289	begin
290	inc(result);	290	inc(result);
291	end;	291	end;
292	end;	292	end;
293		293
294	function GuessIndent(lines: {$IFDEF UNICODE}TStrings{$ELSE}TUnicodeStrings{$ENDIF}): integer;	294	function GuessIndent(lines: {$IFDEF UNICODE}TStrings{$ELSE}TUnicodeStrings{$ENDIF}): integer;
295	function _Check(indent: integer): boolean;	295	function _Check(indent: integer): boolean;
296	var	296	var
297	i: integer;	297	i: integer;
298	begin	298	begin
299	result := true;	299	result := true;
300	for i := 0 to lines.Count-1 do	300	for i := 0 to lines.Count-1 do
301	if SpacesAtBeginning(lines.Strings[i]) mod indent <> 0 then	301	if SpacesAtBeginning(lines.Strings[i]) mod indent <> 0 then
302	begin	302	begin
303	// ShowMessageFmt('Zeile "%s" nicht durch %d teilbar!', [lines.strings[i], indent]);	303	// ShowMessageFmt('Zeile "%s" nicht durch %d teilbar!', [lines.strings[i], indent]);
304	result := false;	304	result := false;
305	exit;	305	exit;
306	end;	306	end;
307	end;	307	end;
308	var	308	var
309	i: integer;	309	i: integer;
310	begin	310	begin
311	for i := 8 downto 2 do	311	for i := 8 downto 2 do
312	begin	312	begin
313	if _Check(i) then	313	if _Check(i) then
314	begin	314	begin
315	result := i;	315	result := i;
316	exit;	316	exit;
317	end;	317	end;
318	end;	318	end;
319	result := -1;	319	result := -1;
320	end;	320	end;
321		321
322	procedure SpaceToTab(lines: {$IFDEF UNICODE}TStrings{$ELSE}TUnicodeStrings{$ENDIF}; indent: integer);	322	procedure SpaceToTab(lines: {$IFDEF UNICODE}TStrings{$ELSE}TUnicodeStrings{$ENDIF}; indent: integer);
323	var	323	var
324	i, spaces: integer;	324	i, spaces: integer;
325	begin	325	begin
326	for i := 0 to lines.Count-1 do	326	for i := 0 to lines.Count-1 do
327	begin	327	begin
328	spaces := SpacesAtBeginning(lines.Strings[i]);	328	spaces := SpacesAtBeginning(lines.Strings[i]);
329	lines.Strings[i] := StringOfChar(#9, spaces div indent) + StringOfChar(' ', spaces mod indent) + Copy(lines.Strings[i], spaces+1, Length(lines.Strings[i])-spaces);	329	lines.Strings[i] := StringOfChar(#9, spaces div indent) + StringOfChar(' ', spaces mod indent) + Copy(lines.Strings[i], spaces+1, Length(lines.Strings[i])-spaces);
330	end;	330	end;
331	end;	331	end;
332		332
333	function SpacesAvailable(lines: {$IFDEF UNICODE}TStrings{$ELSE}TUnicodeStrings{$ENDIF}): boolean;	333	function SpacesAvailable(lines: {$IFDEF UNICODE}TStrings{$ELSE}TUnicodeStrings{$ENDIF}): boolean;
334	var	334	var
335	i, spaces: integer;	335	i, spaces: integer;
336	begin	336	begin
337	for i := 0 to lines.Count-1 do	337	for i := 0 to lines.Count-1 do
338	begin	338	begin
339	spaces := SpacesAtBeginning(lines.Strings[i]);	339	spaces := SpacesAtBeginning(lines.Strings[i]);
340	if spaces > 0 then	340	if spaces > 0 then
341	begin	341	begin
342	result := true;	342	result := true;
343	exit;	343	exit;
344	end;	344	end;
345	end;	345	end;
346	result := false;	346	result := false;
347	exit;	347	exit;
348	end;	348	end;
349		349
350	var	350	var
351	val: string;	351	val: string;
352	ind: integer;	352	ind: integer;
353	resourcestring	353	resourcestring
354	SNoLinesAvailable = 'No lines with spaces at the beginning available';	354	SNoLinesAvailable = 'No lines with spaces at the beginning available';
355	begin	355	begin
356	// TODO: if something is selected, only process the selected part	356	// TODO: if something is selected, only process the selected part
357		357
358	if not SpacesAvailable(SynEdit1.Lines) then	358	if not SpacesAvailable(SynEdit1.Lines) then
359	begin	359	begin
360	MessageDlg(SNoLinesAvailable, mtInformation, [mbOk], 0);	360	MessageDlg(SNoLinesAvailable, mtInformation, [mbOk], 0);
361	exit;	361	exit;
362	end;	362	end;
363		363
364	ind := GuessIndent(SynEdit1.Lines);	364	ind := GuessIndent(SynEdit1.Lines);
365	if ind <> -1 then val := IntToStr(ind);	365	if ind <> -1 then val := IntToStr(ind);
366		366
367	InputQuery('Spaces to tabs', 'Indent:', val); // TODO: handle CANCEL correctly...	367	InputQuery('Spaces to tabs', 'Indent:', val); // TODO: handle CANCEL correctly...
368	if TryStrToInt(Trim(val), ind) then	368	if TryStrToInt(Trim(val), ind) then
369	begin	369	begin
370	if ind = 0 then exit;	370	if ind = 0 then exit;
371	SpaceToTab(SynEdit1.Lines, ind);	371	SpaceToTab(SynEdit1.Lines, ind);
372	end;	372	end;
373		373
374	if SynEdit1.CanFocus then SynEdit1.SetFocus;	374	if SynEdit1.CanFocus then SynEdit1.SetFocus;
375	end;	375	end;
376		376
377	procedure TForm1.ActionESCExecute(Sender: TObject);	377	procedure TForm1.ActionESCExecute(Sender: TObject);
378	begin	378	begin
379	if (HlpPrevPageIndex <> -1) and (PageControl2.ActivePage = HelpTabSheet) and	379	if (HlpPrevPageIndex <> -1) and (PageControl2.ActivePage = HelpTabSheet) and
380	(HelpTabsheet.TabVisible) then	380	(HelpTabsheet.TabVisible) then
381	begin	381	begin
382	PageControl2.ActivePageIndex := HlpPrevPageIndex;	382	PageControl2.ActivePageIndex := HlpPrevPageIndex;
383	HelpTabsheet.TabVisible := false;	383	HelpTabsheet.TabVisible := false;
384	end;	384	end;
385		385
386	// Dirty hack...	386	// Dirty hack...
387	SrcRep.CloseDialogs;	387	SrcRep.CloseDialogs;
388	end;	388	end;
389		389
390	procedure TForm1.ActionFindExecute(Sender: TObject);	390	procedure TForm1.ActionFindExecute(Sender: TObject);
391	begin	391	begin
392	SrcRep.FindExecute;	392	SrcRep.FindExecute;
393	end;	393	end;
394		394
395	var	395	var
396	firstTimeBrowserLoad: boolean = true;	396	firstTimeBrowserLoad: boolean = true;
397	procedure TForm1.Run(Sender: TObject);	397	procedure TForm1.Run(Sender: TObject);
398	var	398	var
399	bakTS: TTabSheet;	399	bakTS: TTabSheet;
400	begin	400	begin
401	memo2.Lines.Text := '';	401	memo2.Lines.Text := '';
402		402
403	if firstTimeBrowserLoad then	403	if firstTimeBrowserLoad then
404	begin	404	begin
405	bakTS := PageControl1.ActivePage;	405	bakTS := PageControl1.ActivePage;
406	try	406	try
407	PageControl1.ActivePage := HtmlTabSheet; // Required for the first time, otherwise, WebBrowser1.Clear will hang	407	PageControl1.ActivePage := HtmlTabSheet; // Required for the first time, otherwise, WebBrowser1.Clear will hang
408	Webbrowser1.Clear;	408	Webbrowser1.Clear;
409	finally	409	finally
410	PageControl1.ActivePage := bakTS;	410	PageControl1.ActivePage := bakTS;
411	end;	411	end;
412	firstTimeBrowserLoad := false;	412	firstTimeBrowserLoad := false;
413	end	413	end
414	else	414	else
415	Webbrowser1.Clear;	415	Webbrowser1.Clear;
416		416
417	Screen.Cursor := crHourGlass;	417	Screen.Cursor := crHourGlass;
418	Application.ProcessMessages;	418	Application.ProcessMessages;
419		419
420	try	420	try
421	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.	421	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.
422		422
423	memo2.Lines.Text := RunPHPScript(GetScrapFile, Sender=ActionLint, False);	423	memo2.Lines.Text := RunPHPScript(GetScrapFile, Sender=ActionLint, False);
424		424
425	Webbrowser1.LoadHTML(MarkUpLineReference(memo2.Lines.Text), GetScrapFile);	425	Webbrowser1.LoadHTML(MarkUpLineReference(memo2.Lines.Text), GetScrapFile);
426		426
427	if IsTextHTML(memo2.lines.text) then	427	if IsTextHTML(memo2.lines.text) then
428	PageControl1.ActivePage := HtmlTabSheet	428	PageControl1.ActivePage := HtmlTabSheet
429	else	429	else
430	PageControl1.ActivePage := PlaintextTabSheet;	430	PageControl1.ActivePage := PlaintextTabSheet;
431	finally	431	finally
432	Screen.Cursor := crDefault;	432	Screen.Cursor := crDefault;
433	end;	433	end;
434	end;	434	end;
435		435
436	procedure TForm1.RunConsole(Sender: TObject);	436	procedure TForm1.RunConsole(Sender: TObject);
437	begin	437	begin
438	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.	438	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.
439	RunPHPScript(GetScrapFile, Sender=ActionLint, True);	439	RunPHPScript(GetScrapFile, Sender=ActionLint, True);
440	end;	440	end;
441		441
442	procedure TForm1.SynEdit1Change(Sender: TObject);	442	procedure TForm1.SynEdit1Change(Sender: TObject);
443	begin	443	begin
444	RefreshModifySign;	444	RefreshModifySign;
445	end;	445	end;
446		446
447	procedure TForm1.SynEdit1GutterClick(Sender: TObject; Button: TMouseButton; X,	447	procedure TForm1.SynEdit1GutterClick(Sender: TObject; Button: TMouseButton; X,
448	Y, Line: Integer; Mark: TSynEditMark);	448	Y, Line: Integer; Mark: TSynEditMark);
449	begin	449	begin
450	(*	450	(*
451	TSynEdit(Sender).CaretX := 1;	451	TSynEdit(Sender).CaretX := 1;
452	TSynEdit(Sender).CaretY := Line;	452	TSynEdit(Sender).CaretY := Line;
453	TSynEdit(Sender).SelLength := Length(TSynEdit(Sender).LineText);	453	TSynEdit(Sender).SelLength := Length(TSynEdit(Sender).LineText);
454	*)	454	*)
455	end;	455	end;
456		456
457	procedure TForm1.SynEdit1KeyDown(Sender: TObject; var Key: Word;	-
458	Shift: TShiftState);	-
459	var	-
460	opts: TSynEditorOptions;	-
461	begin	-
462	// Hack: We want to use smart tabs/delete, but we don't want to jump to the very beginning if we have a fully empty line	-
463	// e.g. you start a line, add 10 tabs, and want to delete 1 tab, but then you remove all 10! That sucks!	-
464	if Trim(SynEdit1.LineText) = '' then	-
465	begin	-
466	opts := SynEdit1.Options;	-
467	Exclude(opts, eoSmartTabDelete);	-
468	Exclude(opts, eoTrimTrailingSpaces);	-
469	SynEdit1.Options := opts;	-
470	end	-
471	else	-
472	begin	-
473	opts := SynEdit1.Options;	-
474	Include(opts, eoSmartTabDelete);	-
475	Include(opts, eoTrimTrailingSpaces);	-
476	SynEdit1.Options := opts;	-
477	end;	-
478	end;	-
479		-
480	procedure TForm1.SynEdit1MouseCursor(Sender: TObject; const aLineCharPos: TBufferCoord; var aCursor: TCursor);	457	procedure TForm1.SynEdit1MouseCursor(Sender: TObject; const aLineCharPos: TBufferCoord; var aCursor: TCursor);
481	{$IFDEF OnlineHelp}	458	{$IFDEF OnlineHelp}
482	var	459	var
483	Line: Integer;	460	Line: Integer;
484	Column: Integer;	461	Column: Integer;
485	word: string;	462	word: string;
486	begin	463	begin
487	Line := aLineCharPos.Line-1;	464	Line := aLineCharPos.Line-1;
488	Column := aLineCharPos.Char-1;	465	Column := aLineCharPos.Char-1;
489	word := GetWordUnderPos(TSynEdit(Sender), Line, Column);	466	word := GetWordUnderPos(TSynEdit(Sender), Line, Column);
490	if word <> gOnlineHelpWord then	467	if word <> gOnlineHelpWord then
491	begin	468	begin
492	gOnlineHelpWord := word;	469	gOnlineHelpWord := word;
493	Timer1.Enabled := false;	470	Timer1.Enabled := false;
494	Timer1.Enabled := true;	471	Timer1.Enabled := true;
495	end;	472	end;
496	{$ELSE}	473	{$ELSE}
497	begin	474	begin
498	{$ENDIF}	475	{$ENDIF}
499	end;	476	end;
500		477

Subversion Repositories fastphp

fastphp/trunk/EditorMain.pas – Rev 58 → 60