paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 07:39:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: tweaks for all compiler options timing.

Browse Source 
git-svn-id: trunk@42433 -
This commit is contained in:
juha 2013-08-20 13:44:07 +00:00
parent de6c937cf4
commit 6a3c5fa5b6
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ide/allcompileroptions.pas
View File

@ -29,7 +29,7 @@ type
FGeneratedControls: TComponentList;
FEffectiveFilter: string;
FEffectiveShowModified: Boolean;
FInitialRender: Boolean;
FRenderedOnce: Boolean;
procedure SetIdleConnected(AValue: Boolean);
procedure OnIdle(Sender: TObject; var Done: Boolean);
procedure CheckBoxClick(Sender: TObject);
@ -82,7 +82,7 @@ begin
btnResetOptionsFilter.Enabled := False;
btnResetOptionsFilter.Hint := 'Clear the filter for options';
FEffectiveFilter:=#1; // Set an impossible value first, makes sure options are filtered.
FInitialRender := True;
FRenderedOnce := False;
IdleConnected := True;
end;
@ -123,27 +123,29 @@ var
{$ENDIF}
begin
IdleConnected := False;
{$IFDEF TimeAllCompilerOptions}
StartTime := Now;
{$ENDIF}
Screen.Cursor := crHourGlass;
try
edOptionsFilter.Enabled := False;
{$IFDEF TimeAllCompilerOptions}
StartTime := Now;
{$ENDIF}
RenderAndFilterOptions;
{$IFDEF TimeAllCompilerOptions}
EndTime := Now-StartTime;
{$ENDIF}
edOptionsFilter.Enabled := True;
finally
Screen.Cursor := crDefault;
end;
{$IFDEF TimeAllCompilerOptions}
if FInitialRender then begin
EndTime := Now-StartTime;
if not FRenderedOnce then begin
ms := FormatDateTime('zzz', EndTime);
fs.TimeSeparator := ':';
ShowMessage(Format('Rendering compiler options GUI took: %s.%s',
[FormatDateTime('nn:ss', EndTime, fs), ms]));
end;
{$ENDIF}
FInitialRender := False;
FRenderedOnce := True;
end;
procedure TfrmAllCompilerOptions.CheckBoxClick(Sender: TObject);
@ -308,7 +310,7 @@ begin
FEffectiveFilter := edOptionsFilter.Text;
FEffectiveShowModified := cbShowModified.Checked;
{$IFDEF AllOptsFocusFilter}
if not FInitialRender then
if not not FInitialRender then
FocusControl(edOptionsFilter);
{$ENDIF}
finally