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

Added Settings/Fonts/LoadOnStartUp and fixed a few things

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@387 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2010-01-10 01:56:30 +00:00
parent 6aaa97b0ee
commit 3ff440acc1
3 changed files with 117 additions and 109 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

178
Projects/SAMufasaGUI/project1.lpi
View File

@ -10,7 +10,7 @@
<TargetFileExt Value=""/> <TargetFileExt Value=""/>
<Title Value="Simba"/> <Title Value="Simba"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<ActiveEditorIndexAtStart Value="0"/> <ActiveEditorIndexAtStart Value="6"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/> <ProjectVersion Value=""/>
@ -137,8 +137,8 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="TestUnit"/> <UnitName Value="TestUnit"/>
<CursorPos X="111" Y="533"/> <CursorPos X="91" Y="1135"/>
<TopLine Value="522"/> <TopLine Value="1427"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="202"/> <UsageCount Value="202"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -204,7 +204,7 @@
<UnitName Value="MufasaTypes"/> <UnitName Value="MufasaTypes"/>
<CursorPos X="58" Y="108"/> <CursorPos X="58" Y="108"/>
<TopLine Value="92"/> <TopLine Value="92"/>
<EditorIndex Value="5"/> <EditorIndex Value="7"/>
<UsageCount Value="201"/> <UsageCount Value="201"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit22> </Unit22>
@ -236,7 +236,7 @@
<UnitName Value="CompTypes"/> <UnitName Value="CompTypes"/>
<CursorPos X="35" Y="727"/> <CursorPos X="35" Y="727"/>
<TopLine Value="712"/> <TopLine Value="712"/>
<UsageCount Value="0"/> <UsageCount Value="10"/>
</Unit26> </Unit26>
<Unit27> <Unit27>
<Filename Value="../../Units/MMLCore/windowutil.pas"/> <Filename Value="../../Units/MMLCore/windowutil.pas"/>
@ -258,7 +258,7 @@
<UnitName Value="finder"/> <UnitName Value="finder"/>
<CursorPos X="1" Y="1832"/> <CursorPos X="1" Y="1832"/>
<TopLine Value="1819"/> <TopLine Value="1819"/>
<EditorIndex Value="1"/> <EditorIndex Value="4"/>
<UsageCount Value="201"/> <UsageCount Value="201"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit29> </Unit29>
@ -281,8 +281,8 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="mmlpsthread"/> <UnitName Value="mmlpsthread"/>
<CursorPos X="52" Y="310"/> <CursorPos X="52" Y="310"/>
<TopLine Value="291"/> <TopLine Value="476"/>
<EditorIndex Value="2"/> <EditorIndex Value="5"/>
<UsageCount Value="202"/> <UsageCount Value="202"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit32> </Unit32>
@ -438,7 +438,7 @@
<UnitName Value="IntfGraphics"/> <UnitName Value="IntfGraphics"/>
<CursorPos X="3" Y="1336"/> <CursorPos X="3" Y="1336"/>
<TopLine Value="1334"/> <TopLine Value="1334"/>
<UsageCount Value="0"/> <UsageCount Value="10"/>
</Unit55> </Unit55>
<Unit56> <Unit56>
<Filename Value="../../../lazarus/lcl/graphtype.pp"/> <Filename Value="../../../lazarus/lcl/graphtype.pp"/>
@ -463,14 +463,14 @@
<Filename Value="../../../FPC/FPCCheckout/packages/fcl-image/src/fphandler.inc"/> <Filename Value="../../../FPC/FPCCheckout/packages/fcl-image/src/fphandler.inc"/>
<CursorPos X="18" Y="268"/> <CursorPos X="18" Y="268"/>
<TopLine Value="241"/> <TopLine Value="241"/>
<UsageCount Value="0"/> <UsageCount Value="10"/>
</Unit59> </Unit59>
<Unit60> <Unit60>
<Filename Value="../../../FPC/FPCCheckout/packages/fcl-image/src/fpwritebmp.pp"/> <Filename Value="../../../FPC/FPCCheckout/packages/fcl-image/src/fpwritebmp.pp"/>
<UnitName Value="FPWriteBMP"/> <UnitName Value="FPWriteBMP"/>
<CursorPos X="28" Y="722"/> <CursorPos X="28" Y="722"/>
<TopLine Value="698"/> <TopLine Value="698"/>
<UsageCount Value="0"/> <UsageCount Value="10"/>
</Unit60> </Unit60>
<Unit61> <Unit61>
<Filename Value="../../../lazarus/lcl/include/custombitmap.inc"/> <Filename Value="../../../lazarus/lcl/include/custombitmap.inc"/>
@ -502,7 +502,7 @@
<Filename Value="../../../FPC/FPCCheckout/rtl/i386/fastmove.inc"/> <Filename Value="../../../FPC/FPCCheckout/rtl/i386/fastmove.inc"/>
<CursorPos X="44" Y="836"/> <CursorPos X="44" Y="836"/>
<TopLine Value="817"/> <TopLine Value="817"/>
<UsageCount Value="0"/> <UsageCount Value="10"/>
</Unit65> </Unit65>
<Unit66> <Unit66>
<Filename Value="../../Units/MMLCore/colour_conv.pas"/> <Filename Value="../../Units/MMLCore/colour_conv.pas"/>
@ -542,19 +542,19 @@
<Filename Value="../../Units/MMLCore/macro/ColorSame.inc"/> <Filename Value="../../Units/MMLCore/macro/ColorSame.inc"/>
<CursorPos X="37" Y="5"/> <CursorPos X="37" Y="5"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="0"/> <UsageCount Value="10"/>
</Unit71> </Unit71>
<Unit72> <Unit72>
<Filename Value="../../../Documents/fpc/rtl/inc/mathh.inc"/> <Filename Value="../../../Documents/fpc/rtl/inc/mathh.inc"/>
<CursorPos X="19" Y="58"/> <CursorPos X="19" Y="58"/>
<TopLine Value="56"/> <TopLine Value="56"/>
<UsageCount Value="0"/> <UsageCount Value="10"/>
</Unit72> </Unit72>
<Unit73> <Unit73>
<Filename Value="../../../Documents/fpc/rtl/objpas/sysutils/sysutilh.inc"/> <Filename Value="../../../Documents/fpc/rtl/objpas/sysutils/sysutilh.inc"/>
<CursorPos X="19" Y="72"/> <CursorPos X="19" Y="72"/>
<TopLine Value="57"/> <TopLine Value="57"/>
<UsageCount Value="0"/> <UsageCount Value="10"/>
</Unit73> </Unit73>
<Unit74> <Unit74>
<Filename Value="../../Units/PascalScript/uPSRuntime.pas"/> <Filename Value="../../Units/PascalScript/uPSRuntime.pas"/>
@ -792,9 +792,11 @@
<Filename Value="../../Units/MMLCore/ocr.pas"/> <Filename Value="../../Units/MMLCore/ocr.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="ocr"/> <UnitName Value="ocr"/>
<CursorPos X="1" Y="195"/> <CursorPos X="73" Y="142"/>
<TopLine Value="180"/> <TopLine Value="124"/>
<EditorIndex Value="1"/>
<UsageCount Value="200"/> <UsageCount Value="200"/>
<Loaded Value="True"/>
</Unit107> </Unit107>
<Unit108> <Unit108>
<Filename Value="../../Units/PascalScript/uPSR_extctrls.pas"/> <Filename Value="../../Units/PascalScript/uPSR_extctrls.pas"/>
@ -901,7 +903,7 @@
<UnitName Value="ImgList"/> <UnitName Value="ImgList"/>
<CursorPos X="3" Y="58"/> <CursorPos X="3" Y="58"/>
<TopLine Value="41"/> <TopLine Value="41"/>
<UsageCount Value="0"/> <UsageCount Value="10"/>
</Unit124> </Unit124>
<Unit125> <Unit125>
<Filename Value="../../Units/PascalScript/uPSDebugger.pas"/> <Filename Value="../../Units/PascalScript/uPSDebugger.pas"/>
@ -1035,7 +1037,7 @@
<Filename Value="../../../FPC/FPCCheckout/rtl/inc/system.inc"/> <Filename Value="../../../FPC/FPCCheckout/rtl/inc/system.inc"/>
<CursorPos X="38" Y="913"/> <CursorPos X="38" Y="913"/>
<TopLine Value="906"/> <TopLine Value="906"/>
<UsageCount Value="0"/> <UsageCount Value="10"/>
</Unit141> </Unit141>
<Unit142> <Unit142>
<Filename Value="../../../Compilertje/PascalScript/Samples/Lazarus/unit1.pas"/> <Filename Value="../../../Compilertje/PascalScript/Samples/Lazarus/unit1.pas"/>
@ -1427,9 +1429,9 @@
<ComponentName Value="ColourHistoryForm"/> <ComponentName Value="ColourHistoryForm"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="colourhistory"/> <UnitName Value="colourhistory"/>
<CursorPos X="16" Y="177"/> <CursorPos X="100" Y="72"/>
<TopLine Value="159"/> <TopLine Value="45"/>
<EditorIndex Value="3"/> <EditorIndex Value="6"/>
<UsageCount Value="200"/> <UsageCount Value="200"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit198> </Unit198>
@ -1704,7 +1706,7 @@
<UnitName Value="debugimageform"/> <UnitName Value="debugimageform"/>
<CursorPos X="20" Y="1"/> <CursorPos X="20" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="189"/> <UsageCount Value="194"/>
</Unit238> </Unit238>
<Unit239> <Unit239>
<Filename Value="debugimage.pas"/> <Filename Value="debugimage.pas"/>
@ -1714,7 +1716,7 @@
<UnitName Value="debugimage"/> <UnitName Value="debugimage"/>
<CursorPos X="66" Y="17"/> <CursorPos X="66" Y="17"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="188"/> <UsageCount Value="193"/>
</Unit239> </Unit239>
<Unit240> <Unit240>
<Filename Value="debugimage.lrs"/> <Filename Value="debugimage.lrs"/>
@ -1746,7 +1748,7 @@
<UnitName Value="Linux"/> <UnitName Value="Linux"/>
<CursorPos X="65" Y="26"/> <CursorPos X="65" Y="26"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="0"/> <UsageCount Value="10"/>
</Unit244> </Unit244>
<Unit245> <Unit245>
<Filename Value="../../../Documents/fpc/packages/libc/src/libc.pp"/> <Filename Value="../../../Documents/fpc/packages/libc/src/libc.pp"/>
@ -1836,7 +1838,7 @@
<UnitName Value="framefunctionlist"/> <UnitName Value="framefunctionlist"/>
<CursorPos X="117" Y="5"/> <CursorPos X="117" Y="5"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="109"/> <UsageCount Value="114"/>
</Unit257> </Unit257>
<Unit258> <Unit258>
<Filename Value="../../../usr/local/share/lazarus/lcl/comctrls.pp"/> <Filename Value="../../../usr/local/share/lazarus/lcl/comctrls.pp"/>
@ -1891,7 +1893,7 @@
<UnitName Value="simpleanalyzer"/> <UnitName Value="simpleanalyzer"/>
<CursorPos X="52" Y="104"/> <CursorPos X="52" Y="104"/>
<TopLine Value="193"/> <TopLine Value="193"/>
<UsageCount Value="96"/> <UsageCount Value="101"/>
</Unit265> </Unit265>
<Unit266> <Unit266>
<Filename Value="../../Units/Misc/mPasLex.pas"/> <Filename Value="../../Units/Misc/mPasLex.pas"/>
@ -1966,7 +1968,7 @@
<UnitName Value="updater"/> <UnitName Value="updater"/>
<CursorPos X="112" Y="106"/> <CursorPos X="112" Y="106"/>
<TopLine Value="68"/> <TopLine Value="68"/>
<UsageCount Value="69"/> <UsageCount Value="74"/>
</Unit276> </Unit276>
<Unit277> <Unit277>
<Filename Value="updateform.pas"/> <Filename Value="updateform.pas"/>
@ -1974,10 +1976,10 @@
<ComponentName Value="SimbaUpdateForm"/> <ComponentName Value="SimbaUpdateForm"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="updateform"/> <UnitName Value="updateform"/>
<CursorPos X="98" Y="127"/> <CursorPos X="84" Y="153"/>
<TopLine Value="122"/> <TopLine Value="162"/>
<EditorIndex Value="7"/> <EditorIndex Value="8"/>
<UsageCount Value="64"/> <UsageCount Value="69"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit277> </Unit277>
<Unit278> <Unit278>
@ -2097,19 +2099,19 @@
<ComponentName Value="SettingsForm"/> <ComponentName Value="SettingsForm"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="simbasettings"/> <UnitName Value="simbasettings"/>
<CursorPos X="100" Y="82"/> <CursorPos X="26" Y="9"/>
<TopLine Value="70"/> <TopLine Value="1"/>
<EditorIndex Value="6"/> <EditorIndex Value="2"/>
<UsageCount Value="27"/> <UsageCount Value="32"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit295> </Unit295>
<Unit296> <Unit296>
<Filename Value="../../Units/MMLAddon/settings.pas"/> <Filename Value="../../Units/MMLAddon/settings.pas"/>
<UnitName Value="settings"/> <UnitName Value="settings"/>
<CursorPos X="56" Y="347"/> <CursorPos X="56" Y="97"/>
<TopLine Value="315"/> <TopLine Value="69"/>
<EditorIndex Value="4"/> <EditorIndex Value="3"/>
<UsageCount Value="13"/> <UsageCount Value="15"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit296> </Unit296>
<Unit297> <Unit297>
@ -2129,124 +2131,124 @@
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="updateform.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="60" Column="38" TopLine="41"/> <Caret Line="279" Column="21" TopLine="261"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="42" Column="14" TopLine="23"/> <Caret Line="280" Column="21" TopLine="261"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="simbasettings.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="58" Column="72" TopLine="31"/> <Caret Line="281" Column="21" TopLine="261"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="simbasettings.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="65" Column="72" TopLine="31"/> <Caret Line="438" Column="59" TopLine="416"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="simbasettings.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="55" Column="52" TopLine="46"/> <Caret Line="461" Column="25" TopLine="432"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="simbasettings.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="57" Column="52" TopLine="46"/> <Caret Line="459" Column="65" TopLine="441"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="simbasettings.pas"/> <Filename Value="../../Units/MMLAddon/settings.pas"/>
<Caret Line="69" Column="17" TopLine="46"/> <Caret Line="52" Column="37" TopLine="35"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="simbasettings.pas"/> <Filename Value="../../Units/MMLAddon/settings.pas"/>
<Caret Line="77" Column="5" TopLine="62"/> <Caret Line="67" Column="79" TopLine="35"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="42" Column="24" TopLine="32"/> <Caret Line="406" Column="54" TopLine="379"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="simbasettings.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="1" Column="1" TopLine="1"/> <Caret Line="440" Column="31" TopLine="422"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="simbasettings.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="84" Column="32" TopLine="59"/> <Caret Line="441" Column="24" TopLine="422"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="51" Column="69" TopLine="32"/> <Caret Line="442" Column="36" TopLine="422"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="99" Column="11" TopLine="81"/> <Caret Line="454" Column="44" TopLine="422"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="101" Column="11" TopLine="81"/> <Caret Line="455" Column="30" TopLine="422"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="102" Column="11" TopLine="81"/> <Caret Line="456" Column="40" TopLine="422"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="testunit.pas"/> <Filename Value="updateform.pas"/>
<Caret Line="279" Column="21" TopLine="261"/> <Caret Line="160" Column="87" TopLine="133"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="280" Column="21" TopLine="261"/> <Caret Line="17" Column="94" TopLine="1"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/MMLAddon/settings.pas"/>
<Caret Line="281" Column="21" TopLine="261"/> <Caret Line="97" Column="56" TopLine="63"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="438" Column="59" TopLine="416"/> <Caret Line="23" Column="48" TopLine="17"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="461" Column="25" TopLine="432"/> <Caret Line="42" Column="30" TopLine="19"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="testunit.pas"/> <Filename Value="simbasettings.pas"/>
<Caret Line="459" Column="65" TopLine="441"/> <Caret Line="9" Column="26" TopLine="1"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="../../Units/MMLAddon/settings.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="52" Column="37" TopLine="35"/> <Caret Line="39" Column="16" TopLine="19"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="../../Units/MMLAddon/settings.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="67" Column="79" TopLine="35"/> <Caret Line="298" Column="14" TopLine="280"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="406" Column="54" TopLine="379"/> <Caret Line="557" Column="15" TopLine="531"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="440" Column="31" TopLine="422"/> <Caret Line="298" Column="17" TopLine="280"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="441" Column="24" TopLine="422"/> <Caret Line="40" Column="31" TopLine="19"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="442" Column="36" TopLine="422"/> <Caret Line="544" Column="14" TopLine="528"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/MMLAddon/settings.pas"/>
<Caret Line="454" Column="44" TopLine="422"/> <Caret Line="97" Column="56" TopLine="65"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/MMLAddon/settings.pas"/>
<Caret Line="455" Column="30" TopLine="422"/> <Caret Line="410" Column="22" TopLine="389"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/MMLAddon/settings.pas"/>
<Caret Line="456" Column="40" TopLine="422"/> <Caret Line="91" Column="37" TopLine="73"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>

14
Projects/SAMufasaGUI/simbasettings.pas
View File

@ -43,14 +43,14 @@ procedure TSettingsForm.FormCreate(Sender: TObject);
begin begin
Settings := TMMLSettings.Create(SettingsTreeView.Items); Settings := TMMLSettings.Create(SettingsTreeView.Items);
if not FileExists('settings.xml') then if not FileExists(SimbaSettingsFile) then
begin begin
SettingsTreeView.Items.Clear; SettingsTreeView.Items.Clear;
Settings.SaveToXML('settings.xml'); Settings.SaveToXML(SimbaSettingsFile);
end; end;
SettingsTreeView.Items.Clear; SettingsTreeView.Items.Clear;
Settings.LoadFromXML('settings.xml'); Settings.LoadFromXML(SimbaSettingsFile);
end; end;
procedure TSettingsForm.SettingsFormButtonOKClick(Sender: TObject); procedure TSettingsForm.SettingsFormButtonOKClick(Sender: TObject);
@ -98,19 +98,19 @@ end;
procedure TSettingsForm.SaveCurrent; procedure TSettingsForm.SaveCurrent;
begin begin
Settings.SaveToXML('settings.xml'); Settings.SaveToXML(SimbaSettingsFile);
end; end;
procedure TSettingsForm.Reload; procedure TSettingsForm.Reload;
begin begin
if not FileExists('settings.xml') then if not FileExists(SimbaSettingsFile) then
begin begin
SettingsTreeView.Items.Clear; SettingsTreeView.Items.Clear;
Settings.SaveToXML('settings.xml'); Settings.SaveToXML(SimbaSettingsFile);
end; end;
SettingsTreeView.Items.Clear; SettingsTreeView.Items.Clear;
Settings.LoadFromXML('settings.xml'); Settings.LoadFromXML(SimbaSettingsFile);
end; end;
initialization initialization

34
Projects/SAMufasaGUI/testunit.pas
View File

@ -539,21 +539,27 @@ begin
begin begin
Self.OCR_Fonts := TMOCR.Create(ScriptThread.Client); Self.OCR_Fonts := TMOCR.Create(ScriptThread.Client);
fontPath := SettingsForm.Settings.GetSetLoadSaveDefaultKeyValueIfNotExists( if lowercase(
'Settings/Fonts/Path', SettingsForm.Settings.GetSetLoadSaveDefaultKeyValueIfNotExists(
IncludeTrailingPathDelimiter(ExpandFileName(MainDir 'Settings/Fonts/LoadOnStartUp', 'True', SimbaSettingsFile)
+DS + '..' + DS + '..' + ds)) + 'Fonts' + DS, ) = 'true' then
SimbaSettingsFile begin
); fontPath := SettingsForm.Settings.GetSetLoadSaveDefaultKeyValueIfNotExists(
'Settings/Fonts/Path',
IncludeTrailingPathDelimiter(ExpandFileName(MainDir
+DS + '..' + DS + '..' + ds)) + 'Fonts' + DS,
SimbaSettingsFile
);
if DirectoryExists(fontPath) then if DirectoryExists(fontPath) then
begin begin
OCR_Fonts.InitTOCR(fontPath); OCR_Fonts.InitTOCR(fontPath);
end end
else else
begin begin
writeln('Warning: The Font directory in the Settings is not valid. Changing to default.'); writeln('Warning: The Font directory in the Settings is not valid. Changing to default.');
OCR_Fonts.InitTOCR(IncludeTrailingPathDelimiter(ExpandFileName(MainDir +DS + '..' + DS + '..' + ds)) + 'Fonts' + DS); OCR_Fonts.InitTOCR(IncludeTrailingPathDelimiter(ExpandFileName(MainDir +DS + '..' + DS + '..' + ds)) + 'Fonts' + DS);
end;
end; end;
end; end;
ScriptThread.Client.MOCR.SetFonts(OCR_Fonts.GetFonts); ScriptThread.Client.MOCR.SetFonts(OCR_Fonts.GetFonts);