paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 02:49:19 +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; FGeneratedControls: TComponentList;
FEffectiveFilter: string; FEffectiveFilter: string;
FEffectiveShowModified: Boolean; FEffectiveShowModified: Boolean;
FInitialRender: Boolean; FRenderedOnce: Boolean;
procedure SetIdleConnected(AValue: Boolean); procedure SetIdleConnected(AValue: Boolean);
procedure OnIdle(Sender: TObject; var Done: Boolean); procedure OnIdle(Sender: TObject; var Done: Boolean);
procedure CheckBoxClick(Sender: TObject); procedure CheckBoxClick(Sender: TObject);
@ -82,7 +82,7 @@ begin
btnResetOptionsFilter.Enabled := False; btnResetOptionsFilter.Enabled := False;
btnResetOptionsFilter.Hint := 'Clear the filter for options'; btnResetOptionsFilter.Hint := 'Clear the filter for options';
FEffectiveFilter:=#1; // Set an impossible value first, makes sure options are filtered. FEffectiveFilter:=#1; // Set an impossible value first, makes sure options are filtered.
FInitialRender := True; FRenderedOnce := False;
IdleConnected := True; IdleConnected := True;
end; end;
@ -123,27 +123,29 @@ var
{$ENDIF} {$ENDIF}
begin begin
IdleConnected := False; IdleConnected := False;
{$IFDEF TimeAllCompilerOptions}
StartTime := Now;
{$ENDIF}
Screen.Cursor := crHourGlass; Screen.Cursor := crHourGlass;
try try
edOptionsFilter.Enabled := False; edOptionsFilter.Enabled := False;
{$IFDEF TimeAllCompilerOptions}
StartTime := Now;
{$ENDIF}
RenderAndFilterOptions; RenderAndFilterOptions;
{$IFDEF TimeAllCompilerOptions}
EndTime := Now-StartTime;
{$ENDIF}
edOptionsFilter.Enabled := True; edOptionsFilter.Enabled := True;
finally finally
Screen.Cursor := crDefault; Screen.Cursor := crDefault;
end; end;
{$IFDEF TimeAllCompilerOptions} {$IFDEF TimeAllCompilerOptions}
if FInitialRender then begin if not FRenderedOnce then begin
EndTime := Now-StartTime;
ms := FormatDateTime('zzz', EndTime); ms := FormatDateTime('zzz', EndTime);
fs.TimeSeparator := ':'; fs.TimeSeparator := ':';
ShowMessage(Format('Rendering compiler options GUI took: %s.%s', ShowMessage(Format('Rendering compiler options GUI took: %s.%s',
[FormatDateTime('nn:ss', EndTime, fs), ms])); [FormatDateTime('nn:ss', EndTime, fs), ms]));
end; end;
{$ENDIF} {$ENDIF}
FInitialRender := False; FRenderedOnce := True;
end; end;
procedure TfrmAllCompilerOptions.CheckBoxClick(Sender: TObject); procedure TfrmAllCompilerOptions.CheckBoxClick(Sender: TObject);
@ -308,7 +310,7 @@ begin
FEffectiveFilter := edOptionsFilter.Text; FEffectiveFilter := edOptionsFilter.Text;
FEffectiveShowModified := cbShowModified.Checked; FEffectiveShowModified := cbShowModified.Checked;
{$IFDEF AllOptsFocusFilter} {$IFDEF AllOptsFocusFilter}
if not FInitialRender then if not not FInitialRender then
FocusControl(edOptionsFilter); FocusControl(edOptionsFilter);
{$ENDIF} {$ENDIF}
finally finally