Subversion Repositories fastphp

Compare Revisions

Regard whitespace Rev 102 → Rev 103

/trunk/EditorMain.dfm
135,10 → 135,10
SearchEngine = SynEditSearch1
TabWidth = 4
WantTabs = True
OnChange = SynEdit1Change
OnDropFiles = SynEdit1DropFiles
OnGutterClick = SynEdit1GutterClick
OnMouseCursor = SynEdit1MouseCursor
OnStatusChange = SynEdit1StatusChange
OnPaintTransient = SynEdit1PaintTransient
RemovedKeystrokes = <
item
902,10 → 902,4
Left = 60
Top = 460
end
object RefreshModifySignTimer: TTimer
Interval = 100
OnTimer = RefreshModifySignTimerTimer
Left = 908
Top = 260
end
end
/trunk/EditorMain.pas
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;