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

Optimize TAppSettings.SetSessionPath to only fire PrepareRegistry if required.

Browse Source
This commit is contained in:
Ansgar Becker
2012-12-04 20:40:44 +00:00
parent cea47f7087
commit a77a55da18
1 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
source/helpers.pas
View File

@ -3240,8 +3240,10 @@ end;
procedure TAppSettings.SetSessionPath(Value: String);
begin
// Following calls may want to read or write some session specific setting
FSessionPath := Value;
PrepareRegistry;
if Value <> FSessionPath then begin
FSessionPath := Value;
PrepareRegistry;
end;
end;
@ -3393,8 +3395,9 @@ begin
if FSettings[Index].Session and IsEmpty(FSessionPath) then
raise Exception.Create(_('Attempt to read session setting without session path'));
if (not FSettings[Index].Session) and IsNotEmpty(FSessionPath) then
FSessionPath := '';
PrepareRegistry;
SessionPath := ''
else
PrepareRegistry;
if FSettings[Index].Synced then begin
case DataType of
adInt: I := FSettings[Index].CurrentInt;
@ -3467,8 +3470,9 @@ begin
if FSettings[Index].Session and IsEmpty(FSessionPath) then
raise Exception.Create(_('Attempt to write session setting without session path'));
if (not FSettings[Index].Session) and IsNotEmpty(FSessionPath) then
FSessionPath := '';
PrepareRegistry;
SessionPath := ''
else
PrepareRegistry;
case DataType of
adInt: begin
SameAsCurrent := FSettings[Index].Synced and (I = FSettings[Index].CurrentInt);