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

final interface fixes

Browse Source
This commit is contained in:
zueuk
2006-09-23 15:53:39 +00:00
parent 6c02a3d075
commit 2c9a9705cc
4 changed files with 23 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
2.10/Source/Tracer.pas
View File

@ -70,6 +70,8 @@ procedure TTraceForm.FormCreate(Sender: TObject);
var
Registry: TRegistry;
begin
TraceLevel := 0; // Tracer disabled in release version
{ Read position from registry }
Registry := TRegistry.Create;
try
@ -85,8 +87,8 @@ begin
if Registry.ValueExists('Height') then
self.Height := Registry.ReadInteger('Height');
if Registry.ValueExists('TraceLevel') then
TraceLevel := Registry.ReadInteger('TraceLevel');
// if Registry.ValueExists('TraceLevel') then
// TraceLevel := Registry.ReadInteger('TraceLevel');
end;
Registry.CloseKey;
finally