moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-24 18:22:25 -05:00
Code Issues Releases Wiki Activity

Simba: Fix funny name.

Browse Source
This commit is contained in:
Merlijn Wajer 2010-10-04 14:04:17 +02:00
parent d7784d4de1
commit bc243c0dc8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Projects/Simba/simbasettings.pas
View File

@ -35,7 +35,7 @@ type
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure SettingsTreeViewDblClick(Sender: TObject); procedure SettingsTreeViewDblClick(Sender: TObject);
function LastStance: Boolean; function FixSettingsFile: Boolean;
{ private declarations } { private declarations }
public public
procedure SaveCurrent; procedure SaveCurrent;
@ -55,7 +55,7 @@ uses LCLtype;
{ TSettingsForm } { TSettingsForm }
function TSettingsForm.LastStance: Boolean; function TSettingsForm.FixSettingsFile: Boolean;
begin begin
result := true; result := true;
mDebugLn('Could not load settings.xml!'); mDebugLn('Could not load settings.xml!');
@ -92,7 +92,7 @@ begin
if not Settings.LoadFromXML(SimbaSettingsFile) then if not Settings.LoadFromXML(SimbaSettingsFile) then
begin begin
if not LastStance then if not FixSettingsFile() then
begin begin
mDebugLn('Could not create, move or delete settings.xml.'); mDebugLn('Could not create, move or delete settings.xml.');
mDebugLn('***************** Giving up... ********************'); mDebugLn('***************** Giving up... ********************');