Subversion Repositories fastphp

Compare Revisions

Regard whitespace Rev 101 → Rev 102

/trunk/EditorMain.dfm
140,8 → 140,6
OnGutterClick = SynEdit1GutterClick
OnMouseCursor = SynEdit1MouseCursor
OnPaintTransient = SynEdit1PaintTransient
ExplicitLeft = 276
ExplicitWidth = 836
RemovedKeystrokes = <
item
Command = ecUndo
904,4 → 902,10
Left = 60
Top = 460
end
object RefreshModifySignTimer: TTimer
Interval = 100
OnTimer = RefreshModifySignTimerTimer
Left = 908
Top = 260
end
end
/trunk/EditorMain.pas
127,6 → 127,7
ActionGoToPHPDir: TAction;
ActionPHPInteractiveShell: TAction;
FontSizeTimer: TTimer;
RefreshModifySignTimer: TTimer;
procedure Run(Sender: TObject);
procedure RunConsole(Sender: TObject);
procedure FormShow(Sender: TObject);
192,6 → 193,7
procedure SynEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FontSizeTimerTimer(Sender: TObject);
procedure RefreshModifySignTimerTimer(Sender: TObject);
private
hMutex: THandle;
CurSearchTerm: string;
244,6 → 246,8
var
tmp: string;
begin
if SynEdit1 = nil then exit;
 
tmp := Caption;
 
tmp := StringReplace(tmp, '*', '', [rfReplaceAll]);
906,6 → 910,13
{$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;