mirror-github-bspeice/apophysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

traceform was not so well hidden :)

Browse Source
This commit is contained in:
zueuk 2008-12-18 08:00:28 +00:00
parent dd8c388f5f
commit d644e38ff8
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
2.10/Source/Main.dfm
View File

@ -290,15 +290,19 @@ object MainForm: TMainForm
Left = 571
Top = 0
Width = 8
Enabled = False
ImageIndex = 39
Style = tbsSeparator
Visible = False
end
object tbShowTrace: TToolButton
Left = 579
Top = 0
Hint = 'Show trace window'
Caption = 'tbShowTrace'
Enabled = False
ImageIndex = 38
Visible = False
OnClick = tbShowTraceClick
end
end

6
2.10/Source/Tracer.pas
View File

@ -95,12 +95,18 @@ begin
TraceLevel := Registry.ReadInteger('TraceLevel')
else
TraceLevel := 0;
MainForm.tbShowTrace.Visible := true;
MainForm.tbShowTrace.Enabled := true;
MainForm.tbTraceSeparator.Visible := true;
MainForm.tbTraceSeparator.Enabled := true;
{$else} // Tracer disabled in release version
TraceLevel := 0;
MainForm.tbShowTrace.Visible := false;
MainForm.tbShowTrace.Enabled := false;
MainForm.tbTraceSeparator.Visible := false;
MainForm.tbTraceSeparator.Enabled := false;
{$endif}