Rev 104 | Show entire file | Ignore 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); |