Rev 33 | Rev 40 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 33 | Rev 36 | ||
|---|---|---|---|
| Line 33... | Line 33... | ||
| 33 | // TODO: "{$IFDEF USE_SHDOCVW_TLB}_TLB{$ENDIF}" does not work with Delphi 10.2 |
33 | // TODO: "{$IFDEF USE_SHDOCVW_TLB}_TLB{$ENDIF}" does not work with Delphi 10.2 |
| 34 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
34 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
| 35 | Dialogs, StdCtrls, OleCtrls, ComCtrls, ExtCtrls, ToolWin, IniFiles, |
35 | Dialogs, StdCtrls, OleCtrls, ComCtrls, ExtCtrls, ToolWin, IniFiles, |
| 36 | SynEditHighlighter, SynHighlighterPHP, SynEdit, ShDocVw_TLB, FindReplace, |
36 | SynEditHighlighter, SynHighlighterPHP, SynEdit, ShDocVw_TLB, FindReplace, |
| 37 | System.Actions, Vcl.ActnList, System.UITypes, SynEditMiscClasses, |
37 | System.Actions, Vcl.ActnList, System.UITypes, SynEditMiscClasses, |
| 38 | SynEditSearch, RunPHP; |
38 | SynEditSearch, RunPHP, System.ImageList, Vcl.ImgList; |
| 39 | 39 | ||
| 40 | {.$DEFINE OnlineHelp} |
40 | {.$DEFINE OnlineHelp} |
| 41 | 41 | ||
| 42 | type |
42 | type |
| 43 | TForm1 = class(TForm) |
43 | TForm1 = class(TForm) |
| Line 84... | Line 84... | ||
| 84 | SynEditSearch1: TSynEditSearch; |
84 | SynEditSearch1: TSynEditSearch; |
| 85 | TreeView1: TTreeView; |
85 | TreeView1: TTreeView; |
| 86 | Splitter2: TSplitter; |
86 | Splitter2: TSplitter; |
| 87 | btnLint: TButton; |
87 | btnLint: TButton; |
| 88 | ActionLint: TAction; |
88 | ActionLint: TAction; |
| - | 89 | ImageList1: TImageList; |
|
| 89 | procedure Run(Sender: TObject); |
90 | procedure Run(Sender: TObject); |
| 90 | procedure FormShow(Sender: TObject); |
91 | procedure FormShow(Sender: TObject); |
| 91 | procedure FormCreate(Sender: TObject); |
92 | procedure FormCreate(Sender: TObject); |
| 92 | procedure FormDestroy(Sender: TObject); |
93 | procedure FormDestroy(Sender: TObject); |
| 93 | procedure FormClose(Sender: TObject; var Action: TCloseAction); |
94 | procedure FormClose(Sender: TObject; var Action: TCloseAction); |
| Line 152... | Line 153... | ||
| 152 | 153 | ||
| 153 | {$R Cursors.res} |
154 | {$R Cursors.res} |
| 154 | 155 | ||
| 155 | uses |
156 | uses |
| 156 | Functions, StrUtils, WebBrowserUtils, FastPHPUtils, Math, ShellAPI, RichEdit, |
157 | Functions, StrUtils, WebBrowserUtils, FastPHPUtils, Math, ShellAPI, RichEdit, |
| 157 | FastPHPTreeView; |
158 | FastPHPTreeView, ImageListEx; |
| 158 | 159 | ||
| 159 | const |
160 | const |
| 160 | crMouseGutter = 1; |
161 | crMouseGutter = 1; |
| 161 | 162 | ||
| 162 | // TODO: FindPrev ? |
163 | // TODO: FindPrev ? |
| Line 681... | Line 682... | ||
| 681 | SrcRep.Editor := SynEdit1; |
682 | SrcRep.Editor := SynEdit1; |
| 682 | SynEdit1.Gutter.Gradient := HighColorWindows; |
683 | SynEdit1.Gutter.Gradient := HighColorWindows; |
| 683 | 684 | ||
| 684 | Screen.Cursors[crMouseGutter] := LoadCursor(hInstance, 'MOUSEGUTTER'); |
685 | Screen.Cursors[crMouseGutter] := LoadCursor(hInstance, 'MOUSEGUTTER'); |
| 685 | SynEdit1.Gutter.Cursor := crMouseGutter; |
686 | SynEdit1.Gutter.Cursor := crMouseGutter; |
| - | 687 | ||
| - | 688 | if FileExists('codeexplorer.bmp') then ImageList1.LoadAndSplitImages('codeexplorer.bmp'); |
|
| 686 | end; |
689 | end; |
| 687 | 690 | ||
| 688 | procedure TForm1.FormDestroy(Sender: TObject); |
691 | procedure TForm1.FormDestroy(Sender: TObject); |
| 689 | begin |
692 | begin |
| 690 | if Assigned(ChmIndex) then |
693 | if Assigned(ChmIndex) then |