Rev 104 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 104 | Rev 105 | ||
|---|---|---|---|
| Line 51... | Line 51... | ||
| 51 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
51 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
| 52 | Dialogs, StdCtrls, OleCtrls, ComCtrls, ExtCtrls, ToolWin, IniFiles, |
52 | Dialogs, StdCtrls, OleCtrls, ComCtrls, ExtCtrls, ToolWin, IniFiles, |
| 53 | SynEditHighlighter, SynHighlighterPHP, SynEdit, ShDocVw, FindReplace, |
53 | SynEditHighlighter, SynHighlighterPHP, SynEdit, ShDocVw, FindReplace, |
| 54 | ActnList, SynEditMiscClasses, SynEditSearch, RunPHP, ImgList, SynUnicode, |
54 | ActnList, SynEditMiscClasses, SynEditSearch, RunPHP, ImgList, SynUnicode, |
| 55 | System.ImageList, System.Actions, Vcl.Menus, Vcl.Themes, System.UITypes, |
55 | System.ImageList, System.Actions, Vcl.Menus, Vcl.Themes, System.UITypes, |
| 56 | SynEditCodeFolding; |
56 | SynEditCodeFolding, WebBrowserUtils; |
| 57 | 57 | ||
| 58 | {.$DEFINE OnlineHelp} |
58 | {.$DEFINE OnlineHelp} |
| 59 | 59 | ||
| 60 | type |
60 | type |
| 61 | TForm1 = class(TForm) |
61 | TForm1 = class(TForm) |
| Line 232... | Line 232... | ||
| 232 | {$R *.dfm} |
232 | {$R *.dfm} |
| 233 | 233 | ||
| 234 | {$R Cursors.res} |
234 | {$R Cursors.res} |
| 235 | 235 | ||
| 236 | uses |
236 | uses |
| 237 | Functions, StrUtils, WebBrowserUtils, FastPHPUtils, Math, ShellAPI, RichEdit, |
237 | Functions, StrUtils, FastPHPUtils, Math, ShellAPI, RichEdit, |
| 238 | FastPHPTreeView, ImageListEx, FastPHPConfig; |
238 | FastPHPTreeView, ImageListEx, FastPHPConfig; |
| 239 | 239 | ||
| 240 | const |
240 | const |
| 241 | crMouseGutter = 1; |
241 | crMouseGutter = 1; |
| 242 | 242 | ||
| Line 458... | Line 458... | ||
| 458 | lines.Strings[i] := newval; |
458 | lines.Strings[i] := newval; |
| 459 | end; |
459 | end; |
| 460 | end; |
460 | end; |
| 461 | if somethingchanged then |
461 | if somethingchanged then |
| 462 | begin |
462 | begin |
| - | 463 | SynEdit1.Modified := true; // seems to be required by Delphi 10.x |
|
| 463 | RefreshModifySign; |
464 | RefreshModifySign; |
| 464 | end; |
465 | end; |
| 465 | end; |
466 | end; |
| 466 | 467 | ||
| 467 | function SpacesAvailable(lines: {$IFDEF UNICODE}TStrings{$ELSE}TUnicodeStrings{$ENDIF}): boolean; |
468 | function SpacesAvailable(lines: {$IFDEF UNICODE}TStrings{$ELSE}TUnicodeStrings{$ENDIF}): boolean; |
| Line 808... | Line 809... | ||
| 808 | P := Editor.GetMatchingBracketEx(P); |
809 | P := Editor.GetMatchingBracketEx(P); |
| 809 | 810 | ||
| 810 | if (P.Char > 0) and (P.Line > 0) then |
811 | if (P.Char > 0) and (P.Line > 0) then |
| 811 | begin |
812 | begin |
| 812 | Pix := CharToPixels(P); |
813 | Pix := CharToPixels(P); |
| - | 814 | {$IF CompilerVersion >= 35.0} // Added by ViaThinkSoft (not sure about the exact version) |
|
| - | 815 | if Pix.X > Editor.Gutter.RealGutterWidth then // Added by ViaThinkSoft (not sure about the exact version) |
|
| - | 816 | {$ELSE} |
|
| 813 | if Pix.X > Editor.Gutter.Width then |
817 | if Pix.X > Editor.Gutter.Width then |
| - | 818 | {$IFEND} |
|
| 814 | begin |
819 | begin |
| 815 | {$REGION 'Added by ViaThinkSoft'} |
820 | {$REGION 'Added by ViaThinkSoft'} |
| 816 | if (TransientType = ttAfter) then |
821 | if (TransientType = ttAfter) then |
| 817 | begin |
822 | begin |
| 818 | Editor.Canvas.Font.Color := COLOR_FG; |
823 | Editor.Canvas.Font.Color := COLOR_FG; |
| Line 1203... | Line 1208... | ||
| 1203 | end; |
1208 | end; |
| 1204 | end |
1209 | end |
| 1205 | else |
1210 | else |
| 1206 | SynEdit1.Lines.Clear; |
1211 | SynEdit1.Lines.Clear; |
| 1207 | 1212 | ||
| - | 1213 | SynEdit1.Modified := false; // is required for Delphi 11 |
|
| - | 1214 | ||
| 1208 | SynEdit1.SetFocus; |
1215 | SynEdit1.SetFocus; |
| 1209 | 1216 | ||
| 1210 | StartCodeExplorer; |
1217 | StartCodeExplorer; |
| 1211 | 1218 | ||
| 1212 | DragAcceptFiles(Handle, True); |
1219 | DragAcceptFiles(Handle, True); |