| 116,6 → 116,8 |
|---|
| procedure Timer1Timer(Sender: TObject); |
| procedure ActionSpaceToTabExecute(Sender: TObject); |
| procedure TreeView1DblClick(Sender: TObject); |
| procedure SynEdit1GutterClick(Sender: TObject; Button: TMouseButton; X, Y, |
| Line: Integer; Mark: TSynEditMark); |
| private |
| CurSearchTerm: string; |
| HlpPrevPageIndex: integer; |
| 143,10 → 145,15 |
|---|
| |
| {$R *.dfm} |
| |
| {$R Cursors.res} |
| |
| uses |
| Functions, StrUtils, WebBrowserUtils, FastPHPUtils, Math, ShellAPI, RichEdit, |
| FastPHPTreeView; |
| |
| const |
| crMouseGutter = 1; |
| |
| // TODO: FindPrev ? |
| procedure TForm1.ActionFindNextExecute(Sender: TObject); |
| begin |
| 353,6 → 360,16 |
|---|
| 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 |
| 506,6 → 523,9 |
|---|
| SrcRep := TSynEditFindReplace.Create(self); |
| SrcRep.Editor := SynEdit1; |
| SynEdit1.Gutter.Gradient := HighColorWindows; |
| |
| Screen.Cursors[crMouseGutter] := LoadCursor(hInstance, 'MOUSEGUTTER'); |
| SynEdit1.Gutter.Cursor := crMouseGutter; |
| end; |
| |
| procedure TForm1.FormDestroy(Sender: TObject); |