Rev 27 | Rev 30 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 27 | Rev 29 | ||
|---|---|---|---|
| Line 503... | Line 503... | ||
| 503 | HlpPrevPageIndex := -1; |
503 | HlpPrevPageIndex := -1; |
| 504 | CurSearchTerm := ''; |
504 | CurSearchTerm := ''; |
| 505 | Caption := Caption + ' - ' + GetScrapFile; |
505 | Caption := Caption + ' - ' + GetScrapFile; |
| 506 | SrcRep := TSynEditFindReplace.Create(self); |
506 | SrcRep := TSynEditFindReplace.Create(self); |
| 507 | SrcRep.Editor := SynEdit1; |
507 | SrcRep.Editor := SynEdit1; |
| - | 508 | SynEdit1.Gutter.Gradient := HighColorWindows; |
|
| 508 | end; |
509 | end; |
| 509 | 510 | ||
| 510 | procedure TForm1.FormDestroy(Sender: TObject); |
511 | procedure TForm1.FormDestroy(Sender: TObject); |
| 511 | begin |
512 | begin |
| 512 | if Assigned(ChmIndex) then |
513 | if Assigned(ChmIndex) then |