127,7 → 127,6 |
ActionGoToPHPDir: TAction; |
ActionPHPInteractiveShell: TAction; |
FontSizeTimer: TTimer; |
RefreshModifySignTimer: TTimer; |
procedure Run(Sender: TObject); |
procedure RunConsole(Sender: TObject); |
procedure FormShow(Sender: TObject); |
178,7 → 177,6 |
TransientType: TTransientType); |
procedure ActionLintExecute(Sender: TObject); |
procedure ActionRunConsoleExecute(Sender: TObject); |
procedure SynEdit1Change(Sender: TObject); |
procedure BtnSpecialCharsClick(Sender: TObject); |
procedure WebBrowser1WindowClosing(ASender: TObject; |
IsChildWindow: WordBool; var Cancel: WordBool); |
193,7 → 191,7 |
procedure SynEdit1KeyDown(Sender: TObject; var Key: Word; |
Shift: TShiftState); |
procedure FontSizeTimerTimer(Sender: TObject); |
procedure RefreshModifySignTimerTimer(Sender: TObject); |
procedure SynEdit1StatusChange(Sender: TObject; Changes: TSynStatusChanges); |
private |
hMutex: THandle; |
CurSearchTerm: string; |
462,7 → 460,7 |
end; |
if somethingchanged then |
begin |
SynEdit1Change(SynEdit1); // set the "changed" flag |
RefreshModifySign; |
end; |
end; |
|
598,11 → 596,6 |
RunPHPScript(GetScrapFile, Sender=ActionLint, True); |
end; |
|
procedure TForm1.SynEdit1Change(Sender: TObject); |
begin |
RefreshModifySign; |
end; |
|
procedure TForm1.SynEdit1DropFiles(Sender: TObject; X, Y: Integer; |
AFiles: TStrings); |
var |
846,6 → 839,13 |
end; |
end; |
|
procedure TForm1.SynEdit1StatusChange(Sender: TObject; |
Changes: TSynStatusChanges); |
begin |
if scModified in Changes then |
RefreshModifySign; |
end; |
|
procedure TForm1.SynEditFocusTimerTimer(Sender: TObject); |
begin |
SynEditFocusTimer.Enabled := false; |
910,13 → 910,6 |
{$ENDIF} |
end; |
|
procedure TForm1.RefreshModifySignTimerTimer(Sender: TObject); |
begin |
// This timer is a workaround for this bug: |
// https://github.com/TurboPack/SynEdit/issues/246 |
RefreshModifySign; |
end; |
|
procedure TForm1.TreeView1DblClick(Sender: TObject); |
var |
tn: TTreeNode; |