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

IDE: Use DebugLn for timings of reading and rendering all compiler options.

Browse Source 
git-svn-id: trunk@42489 -
This commit is contained in:
juha 2013-08-25 08:09:55 +00:00
parent 00f34de6d3
commit e4b01f4dca
2 changed files with 8 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ide/allcompileroptions.lfm
View File

@ -40,15 +40,15 @@ object frmAllCompilerOptions: TfrmAllCompilerOptions
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ButtonPanel1
Left = 0
Height = 397
Height = 419
Top = 25
Width = 616
HorzScrollBar.Increment = 61
HorzScrollBar.Page = 612
HorzScrollBar.Smooth = True
HorzScrollBar.Tracking = True
VertScrollBar.Increment = 39
VertScrollBar.Page = 393
VertScrollBar.Increment = 41
VertScrollBar.Page = 415
VertScrollBar.Smooth = True
VertScrollBar.Tracking = True
Anchors = [akTop, akLeft, akRight, akBottom]
@ -59,7 +59,7 @@ object frmAllCompilerOptions: TfrmAllCompilerOptions
object ButtonPanel1: TButtonPanel
Left = 6
Height = 41
Top = 428
Top = 450
Width = 610
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
@ -98,11 +98,4 @@ object frmAllCompilerOptions: TfrmAllCompilerOptions
Caption = 'Use comments in custom options'
TabOrder = 4
end
object StatusBar1: TStatusBar
Left = 0
Height = 22
Top = 475
Width = 622
Panels = <>
end
end

11
ide/allcompileroptions.pas
View File

@ -19,7 +19,6 @@ type
cbUseComments: TCheckBox;
edOptionsFilter: TEdit;
sbAllOptions: TScrollBox;
StatusBar1: TStatusBar;
procedure btnResetOptionsFilterClick(Sender: TObject);
procedure cbShowModifiedClick(Sender: TObject);
procedure edOptionsFilterChange(Sender: TObject);
@ -129,7 +128,6 @@ procedure TfrmAllCompilerOptions.OnIdle(Sender: TObject; var Done: Boolean);
var
StartTime: TDateTime;
ReadTimeStr, RenderTimeStr: string;
begin
IdleConnected := False;
Screen.Cursor := crHourGlass;
@ -137,15 +135,14 @@ begin
edOptionsFilter.Enabled := False;
FOptionsThread.WaitFor; // Make sure the options are read.
if FOptionsReader.ErrorMsg <> '' then
StatusBar1.SimpleText := FOptionsReader.ErrorMsg
DebugLn(FOptionsReader.ErrorMsg)
else begin
StartTime := Now;
RenderAndFilterOptions;
edOptionsFilter.Enabled := True;
RenderTimeStr := FormatTimeWithMs(Now-StartTime);
ReadTimeStr := FormatTimeWithMs(FOptionsThread.ReadTime);
StatusBar1.SimpleText := Format('Time for reading options: %s, rendering GUI: %s',
[ReadTimeStr, RenderTimeStr]);
DebugLn(Format('AllCompilerOptions: Time for reading options: %s, rendering GUI: %s',
[FormatTimeWithMs(FOptionsThread.ReadTime),
FormatTimeWithMs(Now-StartTime)]));
end;
finally
Screen.Cursor := crDefault;