opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 03:01:07 +08:00
Code Issues Packages Projects Releases Wiki Activity

Introduce property LogToFile in TMainForm, which is synced with the registry setting asLogToFile. Fixes issue #2936.

Browse Source
This commit is contained in:
Ansgar Becker
2012-08-23 23:16:36 +00:00
parent 65a9011206
commit 491a6298d1
4 changed files with 65 additions and 77 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
source/helpers.pas
View File

@ -3371,8 +3371,8 @@ begin
if (not SameAsDefault) and (not SameAsCurrent) then begin
FRegistry.WriteInteger(ValueName, I);
Inc(FWrites);
FSettings[Index].CurrentInt := I;
end;
FSettings[Index].CurrentInt := I;
end;
adBool: begin
SameAsDefault := B = FSettings[Index].DefaultBool;
@ -3380,8 +3380,8 @@ begin
if (not SameAsDefault) and (not SameAsCurrent) then begin
FRegistry.WriteBool(ValueName, B);
Inc(FWrites);
FSettings[Index].CurrentBool := B;
end;
FSettings[Index].CurrentBool := B;
end;
adString: begin
SameAsDefault := S = FSettings[Index].DefaultString;
@ -3389,8 +3389,8 @@ begin
if (not SameAsDefault) and (not SameAsCurrent) then begin
FRegistry.WriteString(ValueName, S);
Inc(FWrites);
FSettings[Index].CurrentString := S;
end;
FSettings[Index].CurrentString := S;
end;
else
raise Exception.CreateFmt(SUnsupportedSettingsDatatype, [FSettings[Index].Name]);