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

Updater changes.

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@355 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2009-12-31 22:37:09 +00:00
parent 4eba136b9c
commit b9fedf3d0b
8 changed files with 2122 additions and 1922 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

262
Projects/SAMufasaGUI/project1.lpi
View File

@ -10,7 +10,7 @@
<TargetFileExt Value=""/> <TargetFileExt Value=""/>
<Title Value="Mufasa Stand Alone"/> <Title Value="Mufasa Stand Alone"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<ActiveEditorIndexAtStart Value="9"/> <ActiveEditorIndexAtStart Value="12"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/> <ProjectVersion Value=""/>
@ -36,7 +36,7 @@
<PackageName Value="LCL"/> <PackageName Value="LCL"/>
</Item2> </Item2>
</RequiredPackages> </RequiredPackages>
<Units Count="278"> <Units Count="288">
<Unit0> <Unit0>
<Filename Value="project1.lpr"/> <Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -94,7 +94,7 @@
<UnitName Value="CompInput"/> <UnitName Value="CompInput"/>
<CursorPos X="43" Y="250"/> <CursorPos X="43" Y="250"/>
<TopLine Value="236"/> <TopLine Value="236"/>
<UsageCount Value="0"/> <UsageCount Value="10"/>
</Unit7> </Unit7>
<Unit8> <Unit8>
<Filename Value="Units/MMLCore/windowutil.pas"/> <Filename Value="Units/MMLCore/windowutil.pas"/>
@ -137,9 +137,11 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="TestUnit"/> <UnitName Value="TestUnit"/>
<CursorPos X="14" Y="285"/> <CursorPos X="50" Y="417"/>
<TopLine Value="278"/> <TopLine Value="404"/>
<EditorIndex Value="11"/>
<UsageCount Value="202"/> <UsageCount Value="202"/>
<Loaded Value="True"/>
</Unit13> </Unit13>
<Unit14> <Unit14>
<Filename Value="../cogat/Units/CogatUnits/compcolors.pas"/> <Filename Value="../cogat/Units/CogatUnits/compcolors.pas"/>
@ -324,7 +326,7 @@
<Filename Value="project1.lrs"/> <Filename Value="project1.lrs"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="0"/> <UsageCount Value="10"/>
</Unit38> </Unit38>
<Unit39> <Unit39>
<Filename Value="../../../lazarus/lcl/lresources.pp"/> <Filename Value="../../../lazarus/lcl/lresources.pp"/>
@ -426,7 +428,7 @@
<Filename Value="../../../FPC/FPCCheckout/packages/fcl-image/src/fpimage.inc"/> <Filename Value="../../../FPC/FPCCheckout/packages/fcl-image/src/fpimage.inc"/>
<CursorPos X="14" Y="88"/> <CursorPos X="14" Y="88"/>
<TopLine Value="74"/> <TopLine Value="74"/>
<UsageCount Value="0"/> <UsageCount Value="10"/>
</Unit53> </Unit53>
<Unit54> <Unit54>
<Filename Value="../../../lazarus/lcl/lclintf.pas"/> <Filename Value="../../../lazarus/lcl/lclintf.pas"/>
@ -622,7 +624,7 @@
<Filename Value="../../../lazarus/lcl/include/control.inc"/> <Filename Value="../../../lazarus/lcl/include/control.inc"/>
<CursorPos X="31" Y="85"/> <CursorPos X="31" Y="85"/>
<TopLine Value="80"/> <TopLine Value="80"/>
<UsageCount Value="0"/> <UsageCount Value="10"/>
</Unit83> </Unit83>
<Unit84> <Unit84>
<Filename Value="../../../lazarus/lcl/menus.pp"/> <Filename Value="../../../lazarus/lcl/menus.pp"/>
@ -824,13 +826,13 @@
<Filename Value="../../../FPC/FPCCheckout/rtl/win/wininc/struct.inc"/> <Filename Value="../../../FPC/FPCCheckout/rtl/win/wininc/struct.inc"/>
<CursorPos X="6" Y="217"/> <CursorPos X="6" Y="217"/>
<TopLine Value="196"/> <TopLine Value="196"/>
<UsageCount Value="0"/> <UsageCount Value="10"/>
</Unit111> </Unit111>
<Unit112> <Unit112>
<Filename Value="../../../lazarus/lcl/include/customform.inc"/> <Filename Value="../../../lazarus/lcl/include/customform.inc"/>
<CursorPos X="17" Y="1643"/> <CursorPos X="17" Y="1643"/>
<TopLine Value="1630"/> <TopLine Value="1630"/>
<UsageCount Value="0"/> <UsageCount Value="10"/>
</Unit112> </Unit112>
<Unit113> <Unit113>
<Filename Value="../../../lazarus/lcl/include/winapih.inc"/> <Filename Value="../../../lazarus/lcl/include/winapih.inc"/>
@ -861,7 +863,7 @@
<Filename Value="../../../FPC/FPCCheckout/rtl/objpas/sysutils/sysutils.inc"/> <Filename Value="../../../FPC/FPCCheckout/rtl/objpas/sysutils/sysutils.inc"/>
<CursorPos X="9" Y="126"/> <CursorPos X="9" Y="126"/>
<TopLine Value="122"/> <TopLine Value="122"/>
<UsageCount Value="0"/> <UsageCount Value="10"/>
</Unit117> </Unit117>
<Unit118> <Unit118>
<Filename Value="../../Units/MMLAddon/PSInc/Wrappers/window.inc"/> <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/window.inc"/>
@ -1131,7 +1133,7 @@
<Filename Value="../../../lazarus/lcl/include/pagecontrol.inc"/> <Filename Value="../../../lazarus/lcl/include/pagecontrol.inc"/>
<CursorPos X="15" Y="58"/> <CursorPos X="15" Y="58"/>
<TopLine Value="56"/> <TopLine Value="56"/>
<UsageCount Value="0"/> <UsageCount Value="10"/>
</Unit153> </Unit153>
<Unit154> <Unit154>
<Filename Value="../../../lazarus/lcl/extctrls.pp"/> <Filename Value="../../../lazarus/lcl/extctrls.pp"/>
@ -1442,7 +1444,7 @@
<UnitName Value="ComCtrls"/> <UnitName Value="ComCtrls"/>
<CursorPos X="36" Y="2004"/> <CursorPos X="36" Y="2004"/>
<TopLine Value="1989"/> <TopLine Value="1989"/>
<UsageCount Value="0"/> <UsageCount Value="10"/>
</Unit199> </Unit199>
<Unit200> <Unit200>
<Filename Value="../../../Documents/fpc/rtl/objpas/classes/classesh.inc"/> <Filename Value="../../../Documents/fpc/rtl/objpas/classes/classesh.inc"/>
@ -1460,7 +1462,7 @@
<Filename Value="../../../Documents/lazarus/lcl/include/listitems.inc"/> <Filename Value="../../../Documents/lazarus/lcl/include/listitems.inc"/>
<CursorPos X="60" Y="10"/> <CursorPos X="60" Y="10"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="0"/> <UsageCount Value="10"/>
</Unit202> </Unit202>
<Unit203> <Unit203>
<Filename Value="../../../Documents/lazarus/lcl/include/listitem.inc"/> <Filename Value="../../../Documents/lazarus/lcl/include/listitem.inc"/>
@ -1515,7 +1517,7 @@
<UnitName Value="SynEditTextTrimmer"/> <UnitName Value="SynEditTextTrimmer"/>
<CursorPos X="54" Y="35"/> <CursorPos X="54" Y="35"/>
<TopLine Value="24"/> <TopLine Value="24"/>
<UsageCount Value="0"/> <UsageCount Value="10"/>
</Unit210> </Unit210>
<Unit211> <Unit211>
<Filename Value="../../../lazarus/ide/compileroptions.pp"/> <Filename Value="../../../lazarus/ide/compileroptions.pp"/>
@ -1592,7 +1594,7 @@
<UnitName Value="LCLType"/> <UnitName Value="LCLType"/>
<CursorPos X="67" Y="522"/> <CursorPos X="67" Y="522"/>
<TopLine Value="507"/> <TopLine Value="507"/>
<UsageCount Value="0"/> <UsageCount Value="10"/>
</Unit221> </Unit221>
<Unit222> <Unit222>
<Filename Value="../../../Documents/fpc/rtl/inc/objpash.inc"/> <Filename Value="../../../Documents/fpc/rtl/inc/objpash.inc"/>
@ -1617,7 +1619,7 @@
<Filename Value="../../../Documents/lazarus/lcl/include/winapih.inc"/> <Filename Value="../../../Documents/lazarus/lcl/include/winapih.inc"/>
<CursorPos X="1" Y="312"/> <CursorPos X="1" Y="312"/>
<TopLine Value="100"/> <TopLine Value="100"/>
<UsageCount Value="0"/> <UsageCount Value="10"/>
</Unit225> </Unit225>
<Unit226> <Unit226>
<Filename Value="../../../Documents/lazarus/lcl/interfaces/gtk2/gtk2winapi.inc"/> <Filename Value="../../../Documents/lazarus/lcl/interfaces/gtk2/gtk2winapi.inc"/>
@ -1649,7 +1651,7 @@
<UnitName Value="keysym"/> <UnitName Value="keysym"/>
<CursorPos X="3" Y="501"/> <CursorPos X="3" Y="501"/>
<TopLine Value="486"/> <TopLine Value="486"/>
<UsageCount Value="0"/> <UsageCount Value="10"/>
</Unit230> </Unit230>
<Unit231> <Unit231>
<Filename Value="../../../Documents/lazarus/lcl/interfaces/gtk/gtkproc.inc"/> <Filename Value="../../../Documents/lazarus/lcl/interfaces/gtk/gtkproc.inc"/>
@ -1685,7 +1687,7 @@
<UnitName Value="about"/> <UnitName Value="about"/>
<CursorPos X="44" Y="21"/> <CursorPos X="44" Y="21"/>
<TopLine Value="4"/> <TopLine Value="4"/>
<UsageCount Value="164"/> <UsageCount Value="168"/>
</Unit235> </Unit235>
<Unit236> <Unit236>
<Filename Value="../../Units/MMLAddon/PSInc/Wrappers/file.inc"/> <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/file.inc"/>
@ -1700,7 +1702,7 @@
<CursorPos X="5" Y="14"/> <CursorPos X="5" Y="14"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="8"/> <EditorIndex Value="8"/>
<UsageCount Value="158"/> <UsageCount Value="162"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit237> </Unit237>
<Unit238> <Unit238>
@ -1710,7 +1712,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="145"/> <UsageCount Value="149"/>
</Unit238> </Unit238>
<Unit239> <Unit239>
<Filename Value="debugimage.pas"/> <Filename Value="debugimage.pas"/>
@ -1720,7 +1722,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="144"/> <UsageCount Value="148"/>
</Unit239> </Unit239>
<Unit240> <Unit240>
<Filename Value="debugimage.lrs"/> <Filename Value="debugimage.lrs"/>
@ -1842,7 +1844,7 @@
<UnitName Value="framefunctionlist"/> <UnitName Value="framefunctionlist"/>
<CursorPos X="56" Y="9"/> <CursorPos X="56" Y="9"/>
<TopLine Value="54"/> <TopLine Value="54"/>
<UsageCount Value="65"/> <UsageCount Value="69"/>
</Unit257> </Unit257>
<Unit258> <Unit258>
<Filename Value="../../../usr/local/share/lazarus/lcl/comctrls.pp"/> <Filename Value="../../../usr/local/share/lazarus/lcl/comctrls.pp"/>
@ -1897,7 +1899,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="52"/> <UsageCount Value="56"/>
</Unit265> </Unit265>
<Unit266> <Unit266>
<Filename Value="../../Units/Misc/mPasLex.pas"/> <Filename Value="../../Units/Misc/mPasLex.pas"/>
@ -1952,16 +1954,16 @@
<UnitName Value="httpsend"/> <UnitName Value="httpsend"/>
<CursorPos X="59" Y="19"/> <CursorPos X="59" Y="19"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="11"/> <EditorIndex Value="10"/>
<UsageCount Value="13"/> <UsageCount Value="15"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit273> </Unit273>
<Unit274> <Unit274>
<Filename Value="../../Units/MMLAddon/PSInc/Wrappers/internets.inc"/> <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/internets.inc"/>
<CursorPos X="39" Y="4"/> <CursorPos X="39" Y="4"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="10"/> <EditorIndex Value="9"/>
<UsageCount Value="13"/> <UsageCount Value="15"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit274> </Unit274>
<Unit275> <Unit275>
@ -1969,7 +1971,7 @@
<CursorPos X="87" Y="133"/> <CursorPos X="87" Y="133"/>
<TopLine Value="111"/> <TopLine Value="111"/>
<EditorIndex Value="7"/> <EditorIndex Value="7"/>
<UsageCount Value="13"/> <UsageCount Value="15"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit275> </Unit275>
<Unit276> <Unit276>
@ -1983,130 +1985,122 @@
<Filename Value="../../Units/MMLAddon/updater.pas"/> <Filename Value="../../Units/MMLAddon/updater.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="updater"/> <UnitName Value="updater"/>
<CursorPos X="24" Y="72"/> <CursorPos X="88" Y="194"/>
<TopLine Value="52"/> <TopLine Value="165"/>
<EditorIndex Value="9"/> <EditorIndex Value="14"/>
<UsageCount Value="25"/> <UsageCount Value="29"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit277> </Unit277>
<Unit278>
<Filename Value="updateform.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="SimbaUpdateForm"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="updateform"/>
<CursorPos X="6" Y="82"/>
<TopLine Value="69"/>
<EditorIndex Value="12"/>
<UsageCount Value="24"/>
<Loaded Value="True"/>
</Unit278>
<Unit279>
<Filename Value="../../../../Documents/lazarus/lcl/fileutil.pas"/>
<UnitName Value="FileUtil"/>
<CursorPos X="53" Y="95"/>
<TopLine Value="67"/>
<EditorIndex Value="13"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit279>
<Unit280>
<Filename Value="../../../../Documents/lazarus/lcl/filectrl.pp"/>
<UnitName Value="FileCtrl"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
</Unit280>
<Unit281>
<Filename Value="../../../../Documents/fpc/rtl/objpas/sysutils/filutilh.inc"/>
<CursorPos X="21" Y="95"/>
<TopLine Value="66"/>
<UsageCount Value="10"/>
</Unit281>
<Unit282>
<Filename Value="../../../../Documents/fpc/rtl/linux/linux.pp"/>
<UnitName Value="Linux"/>
<CursorPos X="1" Y="494"/>
<TopLine Value="477"/>
<UsageCount Value="10"/>
</Unit282>
<Unit283>
<Filename Value="../../../../Documents/fpc/rtl/unix/unix.pp"/>
<UnitName Value="Unix"/>
<CursorPos X="91" Y="135"/>
<TopLine Value="1310"/>
<UsageCount Value="10"/>
</Unit283>
<Unit284>
<Filename Value="../../../../Documents/fpc/rtl/unix/unixutil.pp"/>
<UnitName Value="unixutil"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="12"/>
<UsageCount Value="10"/>
</Unit284>
<Unit285>
<Filename Value="../../../../Documents/fpc/packages/unixutil/src/unixutils.pp"/>
<UnitName Value="UnixUtils"/>
<CursorPos X="17" Y="62"/>
<TopLine Value="56"/>
<EditorIndex Value="15"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit285>
<Unit286>
<Filename Value="../../../../Documents/fpc/packages/libc/src/typesh.inc"/>
<CursorPos X="16" Y="8"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
</Unit286>
<Unit287>
<Filename Value="../../../../Documents/fpc/rtl/inc/systemh.inc"/>
<CursorPos X="20" Y="96"/>
<TopLine Value="78"/>
<UsageCount Value="10"/>
</Unit287>
</Units> </Units>
<JumpHistory Count="29" HistoryIndex="28"> <JumpHistory Count="8" HistoryIndex="7">
<Position1> <Position1>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="updateform.pas"/>
<Caret Line="409" Column="17" TopLine="388"/> <Caret Line="37" Column="29" TopLine="19"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/updater.pas"/>
<Caret Line="92" Column="63" TopLine="74"/> <Caret Line="8" Column="54" TopLine="1"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/updater.pas"/>
<Caret Line="190" Column="10" TopLine="172"/> <Caret Line="190" Column="9" TopLine="165"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/updater.pas"/>
<Caret Line="388" Column="17" TopLine="370"/> <Caret Line="9" Column="21" TopLine="1"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/updater.pas"/>
<Caret Line="390" Column="18" TopLine="370"/> <Caret Line="9" Column="29" TopLine="1"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../../../Documents/fpc/packages/unixutil/src/unixutils.pp"/>
<Caret Line="408" Column="21" TopLine="390"/> <Caret Line="82" Column="111" TopLine="12"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../../../Documents/fpc/packages/unixutil/src/unixutils.pp"/>
<Caret Line="100" Column="25" TopLine="67"/> <Caret Line="93" Column="45" TopLine="75"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/updater.pas"/>
<Caret Line="161" Column="73" TopLine="154"/> <Caret Line="194" Column="89" TopLine="177"/>
</Position8> </Position8>
<Position9>
<Filename Value="../../Units/MMLAddon/internets.pas"/>
<Caret Line="8" Column="25" TopLine="1"/>
</Position9>
<Position10>
<Filename Value="../../Units/Synapse/httpsend.pas"/>
<Caret Line="99" Column="97" TopLine="89"/>
</Position10>
<Position11>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="229" Column="28" TopLine="199"/>
</Position11>
<Position12>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="477" Column="24" TopLine="444"/>
</Position12>
<Position13>
<Filename Value="../../Units/MMLAddon/internets.pas"/>
<Caret Line="4" Column="69" TopLine="1"/>
</Position13>
<Position14>
<Filename Value="../../Units/MMLAddon/updater.pas"/>
<Caret Line="33" Column="3" TopLine="1"/>
</Position14>
<Position15>
<Filename Value="../../Units/MMLAddon/internets.pas"/>
<Caret Line="14" Column="8" TopLine="1"/>
</Position15>
<Position16>
<Filename Value="../../Units/Synapse/httpsend.pas"/>
<Caret Line="145" Column="45" TopLine="122"/>
</Position16>
<Position17>
<Filename Value="../../Units/MMLAddon/internets.pas"/>
<Caret Line="14" Column="5" TopLine="1"/>
</Position17>
<Position18>
<Filename Value="../../Units/MMLAddon/updater.pas"/>
<Caret Line="22" Column="93" TopLine="1"/>
</Position18>
<Position19>
<Filename Value="../../Units/MMLAddon/updater.pas"/>
<Caret Line="21" Column="34" TopLine="3"/>
</Position19>
<Position20>
<Filename Value="../../Units/MMLAddon/updater.pas"/>
<Caret Line="17" Column="33" TopLine="2"/>
</Position20>
<Position21>
<Filename Value="../../Units/Synapse/httpsend.pas"/>
<Caret Line="755" Column="26" TopLine="732"/>
</Position21>
<Position22>
<Filename Value="../../Units/Synapse/httpsend.pas"/>
<Caret Line="125" Column="24" TopLine="107"/>
</Position22>
<Position23>
<Filename Value="../../Units/Synapse/httpsend.pas"/>
<Caret Line="175" Column="33" TopLine="157"/>
</Position23>
<Position24>
<Filename Value="../../Units/Synapse/httpsend.pas"/>
<Caret Line="182" Column="16" TopLine="157"/>
</Position24>
<Position25>
<Filename Value="../../Units/Synapse/httpsend.pas"/>
<Caret Line="186" Column="16" TopLine="157"/>
</Position25>
<Position26>
<Filename Value="../../Units/Synapse/httpsend.pas"/>
<Caret Line="193" Column="40" TopLine="175"/>
</Position26>
<Position27>
<Filename Value="../../Units/Synapse/httpsend.pas"/>
<Caret Line="197" Column="40" TopLine="175"/>
</Position27>
<Position28>
<Filename Value="../../Units/MMLAddon/updater.pas"/>
<Caret Line="11" Column="38" TopLine="1"/>
</Position28>
<Position29>
<Filename Value="../../Units/MMLAddon/updater.pas"/>
<Caret Line="46" Column="5" TopLine="23"/>
</Position29>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

3
Projects/SAMufasaGUI/project1.lpr
View File

@ -31,7 +31,7 @@ uses
{$ENDIF}{$ENDIF} {$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset Interfaces, // this includes the LCL widgetset
Forms, LResources, testunit, colourhistory, About, internets, debugimage, Forms, LResources, testunit, colourhistory, About, internets, debugimage,
framefunctionlist, simpleanalyzer, updater; framefunctionlist, simpleanalyzer, updater, updateform;
{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF} {$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}
@ -44,6 +44,7 @@ begin
Application.CreateForm(TColourHistoryForm, ColourHistoryForm); Application.CreateForm(TColourHistoryForm, ColourHistoryForm);
Application.CreateForm(TAboutForm, AboutForm); Application.CreateForm(TAboutForm, AboutForm);
Application.CreateForm(TDebugImgForm, DebugImgForm); Application.CreateForm(TDebugImgForm, DebugImgForm);
Application.CreateForm(TSimbaUpdateForm, SimbaUpdateForm);
Application.Run; Application.Run;
end. end.

8
Projects/SAMufasaGUI/testunit.lfm
View File

@ -1,7 +1,7 @@
object Form1: TForm1 object Form1: TForm1
Left = 395 Left = 273
Height = 557 Height = 557
Top = 267 Top = 233
Width = 734 Width = 734
ActiveControl = ScriptPanel ActiveControl = ScriptPanel
Caption = 'THA FUKING MUFASA' Caption = 'THA FUKING MUFASA'
@ -1202,6 +1202,10 @@ object Form1: TForm1
Caption = 'Fill Function List' Caption = 'Fill Function List'
OnClick = MenuitemFillFunctionListClick OnClick = MenuitemFillFunctionListClick
end end
object UpdateMenuButton: TMenuItem
Caption = 'Update'
OnClick = UpdateMenuButtonClick
end
end end
object MenuHelp: TMenuItem object MenuHelp: TMenuItem
Caption = '&Help' Caption = '&Help'

3570
Projects/SAMufasaGUI/testunit.lrs
View File

File diff suppressed because it is too large Load Diff

9
Projects/SAMufasaGUI/testunit.pas
View File

@ -38,7 +38,7 @@ uses
colourpicker, framescript, windowselector, lcltype, ActnList, StdActns, colourpicker, framescript, windowselector, lcltype, ActnList, StdActns,
SynEditKeyCmds, SynEditHighlighter, SynEditMarkupSpecialLine,SynEditMarkupHighAll, SynEditKeyCmds, SynEditHighlighter, SynEditMarkupSpecialLine,SynEditMarkupHighAll,
SynEditMiscClasses, LMessages, Buttons, PairSplitter,about, framefunctionlist, SynEditMiscClasses, LMessages, Buttons, PairSplitter,about, framefunctionlist,
ocr; ocr, updateform;
type type
@ -92,6 +92,7 @@ type
MenuEdit: TMenuItem; MenuEdit: TMenuItem;
MenuHelp: TMenuItem; MenuHelp: TMenuItem;
MenuExtra: TMenuItem; MenuExtra: TMenuItem;
UpdateMenuButton: TMenuItem;
MenuitemFillFunctionList: TMenuItem; MenuitemFillFunctionList: TMenuItem;
MenuItemFunctionList: TMenuItem; MenuItemFunctionList: TMenuItem;
MenuItemHide: TMenuItem; MenuItemHide: TMenuItem;
@ -265,6 +266,7 @@ type
procedure SpeedButtonSearchClick(Sender: TObject); procedure SpeedButtonSearchClick(Sender: TObject);
procedure Splitter1CanResize(Sender: TObject; var NewSize: Integer; procedure Splitter1CanResize(Sender: TObject; var NewSize: Integer;
var Accept: Boolean); var Accept: Boolean);
procedure UpdateMenuButtonClick(Sender: TObject);
private private
PopupTab : integer; PopupTab : integer;
SearchStart : TPoint; SearchStart : TPoint;
@ -410,6 +412,11 @@ begin
NewSize := ScriptPanel.Width div 2 NewSize := ScriptPanel.Width div 2
end; end;
procedure TForm1.UpdateMenuButtonClick(Sender: TObject);
begin
SimbaUpdateForm.Show; { I don't see why Modal }
end;
procedure formWriteln( S : String); procedure formWriteln( S : String);
begin begin
writeln('formWriteln: ' + s); writeln('formWriteln: ' + s);

57
Projects/SAMufasaGUI/updateform.lfm Normal file
View File

@ -0,0 +1,57 @@
object SimbaUpdateForm: TSimbaUpdateForm
Left = 387
Height = 391
Top = 242
Width = 467
Caption = 'SimbaUpdateForm'
ClientHeight = 391
ClientWidth = 467
LCLVersion = '0.9.29'
object DownloadProgress: TProgressBar
Left = 24
Height = 28
Top = 72
Width = 413
Anchors = [akTop, akLeft, akRight]
Smooth = True
TabOrder = 0
end
object UpdateButton: TButton
Left = 24
Height = 25
Top = 32
Width = 413
Anchors = [akTop, akLeft, akRight]
Caption = 'Update!'
OnClick = UpdateButtonClick
TabOrder = 1
end
object OkButton: TButton
Left = 362
Height = 25
Top = 344
Width = 75
Anchors = [akRight, akBottom]
Caption = 'Ok'
OnClick = OkButtonClick
TabOrder = 2
end
object CancelButton: TButton
Left = 24
Height = 25
Top = 344
Width = 75
Anchors = [akLeft, akBottom]
Caption = 'Cancel'
OnClick = CancelButtonClick
TabOrder = 3
end
object UpdateLog: TMemo
Left = 24
Height = 199
Top = 128
Width = 413
Anchors = [akTop, akLeft, akRight, akBottom]
TabOrder = 4
end
end

20
Projects/SAMufasaGUI/updateform.lrs Normal file
View File

@ -0,0 +1,20 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TSimbaUpdateForm','FORMDATA',[
'TPF0'#16'TSimbaUpdateForm'#15'SimbaUpdateForm'#4'Left'#3#131#1#6'Height'#3
+#135#1#3'Top'#3#242#0#5'Width'#3#211#1#7'Caption'#6#15'SimbaUpdateForm'#12'C'
+'lientHeight'#3#135#1#11'ClientWidth'#3#211#1#10'LCLVersion'#6#6'0.9.29'#0#12
+'TProgressBar'#16'DownloadProgress'#4'Left'#2#24#6'Height'#2#28#3'Top'#2'H'#5
+'Width'#3#157#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#6'Smooth'#9#8
+'TabOrder'#2#0#0#0#7'TButton'#12'UpdateButton'#4'Left'#2#24#6'Height'#2#25#3
+'Top'#2' '#5'Width'#3#157#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7
+'Caption'#6#7'Update!'#7'OnClick'#7#17'UpdateButtonClick'#8'TabOrder'#2#1#0#0
+#7'TButton'#8'OkButton'#4'Left'#3'j'#1#6'Height'#2#25#3'Top'#3'X'#1#5'Width'
+#2'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0#7'Caption'#6#2'Ok'#7'OnClick'#7
+#13'OkButtonClick'#8'TabOrder'#2#2#0#0#7'TButton'#12'CancelButton'#4'Left'#2
+#24#6'Height'#2#25#3'Top'#3'X'#1#5'Width'#2'K'#7'Anchors'#11#6'akLeft'#8'akB'
+'ottom'#0#7'Caption'#6#6'Cancel'#7'OnClick'#7#17'CancelButtonClick'#8'TabOrd'
+'er'#2#3#0#0#5'TMemo'#9'UpdateLog'#4'Left'#2#24#6'Height'#3#199#0#3'Top'#3
+#128#0#5'Width'#3#157#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBott'
+'om'#0#8'TabOrder'#2#4#0#0#0
]);

115
Projects/SAMufasaGUI/updateform.pas Normal file
View File

@ -0,0 +1,115 @@
unit updateform;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
ComCtrls, StdCtrls, updater;
type
{ TSimbaUpdateForm }
TSimbaUpdateForm = class(TForm)
UpdateLog: TMemo;
UpdateButton: TButton;
OkButton: TButton;
CancelButton: TButton;
DownloadProgress: TProgressBar;
procedure CancelButtonClick(Sender: TObject);
procedure OkButtonClick(Sender: TObject);
procedure UpdateButtonClick(Sender: TObject);
private
{ private declarations }
Updater: TMMLFileDownloader;
FCancelling: Boolean;
private
function OnUpdateBeat: Boolean;
public
{ public declarations }
procedure PerformUpdate;
protected
FCancelled: Boolean;
end;
var
SimbaUpdateForm: TSimbaUpdateForm;
implementation
procedure TSimbaUpdateForm.UpdateButtonClick(Sender: TObject);
begin
Self.PerformUpdate;
end;
procedure TSimbaUpdateForm.CancelButtonClick(Sender: TObject);
begin
if FCancelled then
begin
Self.ModalResult:=mrCancel;
Self.Hide;
end else
begin
FCancelling := True;
end;
end;
procedure TSimbaUpdateForm.OkButtonClick(Sender: TObject);
begin
Self.ModalResult:=mrOK;
Self.Hide;
end;
{ Return true if we have to cancel }
function TSimbaUpdateForm.OnUpdateBeat: Boolean;
var
Percentage: Integer;
begin
Application.ProcessMessages;
Percentage := Updater.GetPercentage();
if Percentage <> -1 then
DownloadProgress.Position:=Percentage;
Result := FCancelling;
end;
procedure TSimbaUpdateForm.PerformUpdate;
begin
Updater := TMMLFileDownloader.Create;
// Make this a setting later
Updater.FileURL := 'http://old.villavu.com/merlijn/Simba';
// Dynamic
Updater.ReplacementFile := 'Simba';
Updater.OnBeat:=@Self.OnUpdateBeat;
Self.UpdateLog.Lines.Add('Starting download of ' + Updater.FileURL + ' ...');
try
Updater.DownloadAndSave;
Self.UpdateLog.Lines.Add('Downloaded to ' + Updater.ReplacementFile + '_ ...');
Updater.Replace;
Self.UpdateLog.Lines.Add('Renaming ' + Updater.ReplacementFile + ' to ' + Updater.ReplacementFile + '_old_');
Self.UpdateLog.Lines.Add('Renaming ' + Updater.ReplacementFile + '_ to ' + Updater.ReplacementFile);
Self.UpdateLog.Lines.Add('Deleting ' + Updater.ReplacementFile + '_old_');
Updater.Free;
except
FCancelling := False;
FCancelled := True;
Self.UpdateLog.Lines.Add('Download stopped ...');
writeln('EXCEPTION IN UPDATEFORM: We either hit Cancel, or something went wrong with files');
end;
Self.UpdateLog.Lines.Add('Done ...');
end;
initialization
{$I updateform.lrs}
end.