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

Make message strings from const.inc translatable

Browse Source
This commit is contained in:
Ansgar Becker
2012-11-29 06:15:44 +00:00
parent 9d8b4cd83a
commit 645a9f3c7f
10 changed files with 96 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
source/helpers.pas
View File

@ -3345,7 +3345,7 @@ begin
adInt: I := FSettings[Index].CurrentInt;
adBool: B := FSettings[Index].CurrentBool;
adString: S := FSettings[Index].CurrentString;
else raise Exception.CreateFmt(SUnsupportedSettingsDatatype, [FSettings[Index].Name]);
else raise Exception.CreateFmt(_(SUnsupportedSettingsDatatype), [FSettings[Index].Name]);
end;
end else if FRegistry.ValueExists(ValueName) then begin
Inc(FReads);
@ -3353,7 +3353,7 @@ begin
adInt: I := FRegistry.ReadInteger(ValueName);
adBool: B := FRegistry.ReadBool(ValueName);
adString: S := FRegistry.ReadString(ValueName);
else raise Exception.CreateFmt(SUnsupportedSettingsDatatype, [FSettings[Index].Name]);
else raise Exception.CreateFmt(_(SUnsupportedSettingsDatatype), [FSettings[Index].Name]);
end;
end;
if (FormatName = '') and (FSessionPath = '') then begin
@ -3443,7 +3443,7 @@ begin
FSettings[Index].CurrentString := S;
end;
else
raise Exception.CreateFmt(SUnsupportedSettingsDatatype, [FSettings[Index].Name]);
raise Exception.CreateFmt(_(SUnsupportedSettingsDatatype), [FSettings[Index].Name]);
end;
if SameAsDefault and FRegistry.ValueExists(ValueName) then
FRegistry.DeleteValue(ValueName);