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 Left = 571
Top = 0 Top = 0
Width = 8 Width = 8
Enabled = False
ImageIndex = 39 ImageIndex = 39
Style = tbsSeparator Style = tbsSeparator
Visible = False
end end
object tbShowTrace: TToolButton object tbShowTrace: TToolButton
Left = 579 Left = 579
Top = 0 Top = 0
Hint = 'Show trace window' Hint = 'Show trace window'
Caption = 'tbShowTrace' Caption = 'tbShowTrace'
Enabled = False
ImageIndex = 38 ImageIndex = 38
Visible = False
OnClick = tbShowTraceClick OnClick = tbShowTraceClick
end end
end end

6
2.10/Source/Tracer.pas
View File

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