moparisthebest
/
Simba
mirror of https://github.com/moparisthebest/Simba
1
0
Fork 0
Code Issues Releases Wiki Activity

Merge remote branch 'mcteo/master' into script-manager 

Conflicts:
	Projects/ScriptManager/scriptmanager.lfm
	Projects/ScriptManager/scriptmanager.pas
This commit is contained in:
Merlijn Wajer 2011-10-11 13:50:09 +02:00
parent 5e272475c5 a115d1b37b
commit 1d7101946d
8 changed files with 290 additions and 267 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

359
Projects/ScriptManager/project1.lpi
View File

@ -10,8 +10,10 @@
<VersionInfo> <VersionInfo>
<Language Value=""/> <Language Value=""/>
<CharSet Value=""/> <CharSet Value=""/>
<StringTable ProductVersion=""/>
</VersionInfo> </VersionInfo>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<IgnoreBinaries Value="False"/> <IgnoreBinaries Value="False"/>
@ -29,12 +31,15 @@
<PackageName Value="LCL"/> <PackageName Value="LCL"/>
</Item1> </Item1>
</RequiredPackages> </RequiredPackages>
<Units Count="23"> <Units Count="34">
<Unit0> <Unit0>
<Filename Value="project1.lpr"/> <Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="project1"/> <UnitName Value="project1"/>
<UsageCount Value="43"/> <WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="2" Y="2"/>
<UsageCount Value="83"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="scriptmanager.pas"/> <Filename Value="scriptmanager.pas"/>
@ -45,326 +50,280 @@
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="251"/> <TopLine Value="110"/>
<CursorPos X="3" Y="195"/> <CursorPos X="1" Y="123"/>
<UsageCount Value="43"/> <UsageCount Value="83"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="../../../lazarus/lcl/interfaces/gtk/gtkwidgetset.inc"/> <Filename Value="../../../lazarus/lcl/interfaces/gtk/gtkwidgetset.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="1276"/> <TopLine Value="1276"/>
<CursorPos X="1" Y="1294"/> <CursorPos X="1" Y="1294"/>
<UsageCount Value="7"/> <UsageCount Value="3"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="../../Units/MMLCore/bitmaps.pas"/> <Filename Value="../../Units/MMLCore/bitmaps.pas"/>
<UnitName Value="bitmaps"/> <UnitName Value="bitmaps"/>
<WindowIndex Value="0"/>
<TopLine Value="112"/> <TopLine Value="112"/>
<CursorPos X="79" Y="138"/> <CursorPos X="79" Y="138"/>
<UsageCount Value="8"/> <UsageCount Value="4"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="../../Units/MMLAddon/settings.pas"/> <Filename Value="../../Units/MMLAddon/settings.pas"/>
<UnitName Value="settings"/> <UnitName Value="settings"/>
<EditorIndex Value="13"/> <EditorIndex Value="2"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="132"/> <TopLine Value="564"/>
<CursorPos X="3" Y="169"/> <CursorPos X="1" Y="1"/>
<UsageCount Value="16"/> <UsageCount Value="12"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="../../Units/MMLCore/os_linux.pas"/> <Filename Value="../../Units/MMLCore/os_linux.pas"/>
<UnitName Value="os_linux"/> <UnitName Value="os_linux"/>
<WindowIndex Value="0"/>
<TopLine Value="11"/> <TopLine Value="11"/>
<CursorPos X="64" Y="29"/> <CursorPos X="64" Y="29"/>
<UsageCount Value="8"/> <UsageCount Value="4"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
<Filename Value="../../Units/MMLCore/mufasatypes.pas"/> <Filename Value="../../Units/MMLCore/mufasatypes.pas"/>
<UnitName Value="MufasaTypes"/> <UnitName Value="MufasaTypes"/>
<EditorIndex Value="16"/> <TopLine Value="1"/>
<WindowIndex Value="0"/> <CursorPos X="17" Y="15"/>
<TopLine Value="23"/> <UsageCount Value="12"/>
<CursorPos X="1" Y="1"/>
<UsageCount Value="16"/>
<Loaded Value="True"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
<Filename Value="../../Units/MMLCore/mufasabase.pas"/> <Filename Value="../../Units/MMLCore/mufasabase.pas"/>
<UnitName Value="mufasabase"/> <UnitName Value="mufasabase"/>
<EditorIndex Value="15"/> <TopLine Value="1"/>
<WindowIndex Value="0"/>
<TopLine Value="7"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<UsageCount Value="16"/> <UsageCount Value="12"/>
<Loaded Value="True"/>
</Unit7> </Unit7>
<Unit8> <Unit8>
<Filename Value="../../../lazarus/lcl/include/treeview.inc"/> <Filename Value="../../../lazarus/lcl/include/treeview.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="2214"/> <TopLine Value="2214"/>
<CursorPos X="1" Y="2232"/> <CursorPos X="1" Y="2232"/>
<UsageCount Value="9"/> <UsageCount Value="5"/>
</Unit8> </Unit8>
<Unit9> <Unit9>
<Filename Value="../../../fpc/rtl/inc/objpash.inc"/> <Filename Value="../../../fpc/rtl/inc/objpash.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="183"/> <TopLine Value="183"/>
<CursorPos X="21" Y="201"/> <CursorPos X="21" Y="201"/>
<UsageCount Value="9"/> <UsageCount Value="5"/>
</Unit9> </Unit9>
<Unit10> <Unit10>
<Filename Value="../../../FPC/FPCCheckout/packages/fcl-xml/src/xmlread.pp"/> <Filename Value="../../../FPC/FPCCheckout/packages/fcl-xml/src/xmlread.pp"/>
<UnitName Value="XMLRead"/> <UnitName Value="XMLRead"/>
<EditorIndex Value="14"/>
<WindowIndex Value="0"/>
<TopLine Value="21"/> <TopLine Value="21"/>
<CursorPos X="11" Y="47"/> <CursorPos X="11" Y="47"/>
<UsageCount Value="13"/> <UsageCount Value="9"/>
<Loaded Value="True"/>
</Unit10> </Unit10>
<Unit11> <Unit11>
<Filename Value="../../Units/MMLAddon/updater.pas"/> <Filename Value="../../Units/MMLAddon/updater.pas"/>
<UnitName Value="updater"/> <UnitName Value="updater"/>
<EditorIndex Value="10"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="97"/> <TopLine Value="97"/>
<CursorPos X="21" Y="102"/> <CursorPos X="1" Y="105"/>
<UsageCount Value="13"/> <UsageCount Value="25"/>
<Loaded Value="True"/>
</Unit11> </Unit11>
<Unit12> <Unit12>
<Filename Value="../Simba/psextension.pas"/> <Filename Value="../Simba/psextension.pas"/>
<UnitName Value="psextension"/> <UnitName Value="psextension"/>
<EditorIndex Value="11"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="168"/> <TopLine Value="168"/>
<CursorPos X="29" Y="178"/> <CursorPos X="29" Y="178"/>
<UsageCount Value="11"/> <UsageCount Value="22"/>
<Loaded Value="True"/>
</Unit12> </Unit12>
<Unit13> <Unit13>
<Filename Value="../../Units/MMLAddon/internets.pas"/> <Filename Value="../../Units/MMLAddon/internets.pas"/>
<UnitName Value="internets"/> <UnitName Value="internets"/>
<EditorIndex Value="12"/>
<WindowIndex Value="0"/>
<TopLine Value="56"/> <TopLine Value="56"/>
<CursorPos X="6" Y="61"/> <CursorPos X="6" Y="61"/>
<UsageCount Value="11"/> <UsageCount Value="7"/>
<Loaded Value="True"/>
</Unit13> </Unit13>
<Unit14> <Unit14>
<Filename Value="../Simba/updateform.pas"/> <Filename Value="../Simba/updateform.pas"/>
<ComponentName Value="SimbaUpdateForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="updateform"/> <UnitName Value="updateform"/>
<EditorIndex Value="9"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="66"/> <TopLine Value="69"/>
<CursorPos X="1" Y="93"/> <CursorPos X="24" Y="72"/>
<UsageCount Value="11"/> <ComponentState Value="1"/>
<Loaded Value="True"/> <UsageCount Value="22"/>
</Unit14> </Unit14>
<Unit15> <Unit15>
<Filename Value="../Simba/simbaunit.pas"/> <Filename Value="../Simba/simbaunit.pas"/>
<ComponentName Value="SimbaForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="SimbaUnit"/> <UnitName Value="SimbaUnit"/>
<EditorIndex Value="8"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="2898"/> <TopLine Value="65"/>
<CursorPos X="23" Y="2893"/> <CursorPos X="52" Y="78"/>
<UsageCount Value="11"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit15> </Unit15>
<Unit16> <Unit16>
<Filename Value="../../../FPC/FPCCheckout/packages/fcl-xml/src/dom.pp"/> <Filename Value="../../../FPC/FPCCheckout/packages/fcl-xml/src/dom.pp"/>
<UnitName Value="DOM"/> <UnitName Value="DOM"/>
<EditorIndex Value="7"/>
<WindowIndex Value="0"/>
<TopLine Value="178"/> <TopLine Value="178"/>
<CursorPos X="15" Y="204"/> <CursorPos X="15" Y="204"/>
<UsageCount Value="11"/> <UsageCount Value="7"/>
<Loaded Value="True"/>
</Unit16> </Unit16>
<Unit17> <Unit17>
<Filename Value="../../../FPC/FPCCheckout/rtl/objpas/sysutils/syswideh.inc"/> <Filename Value="../../../FPC/FPCCheckout/rtl/objpas/sysutils/syswideh.inc"/>
<EditorIndex Value="6"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="10" Y="21"/> <CursorPos X="10" Y="21"/>
<UsageCount Value="10"/> <UsageCount Value="6"/>
<Loaded Value="True"/>
</Unit17> </Unit17>
<Unit18> <Unit18>
<Filename Value="../../Units/MMLAddon/stringutil.pas"/> <Filename Value="../../Units/MMLAddon/stringutil.pas"/>
<UnitName Value="stringutil"/> <UnitName Value="stringutil"/>
<EditorIndex Value="5"/> <TopLine Value="131"/>
<WindowIndex Value="0"/>
<TopLine Value="118"/>
<CursorPos X="6" Y="156"/> <CursorPos X="6" Y="156"/>
<UsageCount Value="10"/> <UsageCount Value="6"/>
<Loaded Value="True"/>
</Unit18> </Unit18>
<Unit19> <Unit19>
<Filename Value="../../../FPC/FPCCheckout/rtl/objpas/sysutils/sysstrh.inc"/> <Filename Value="../../../FPC/FPCCheckout/rtl/objpas/sysutils/sysstrh.inc"/>
<EditorIndex Value="3"/>
<WindowIndex Value="0"/>
<TopLine Value="77"/> <TopLine Value="77"/>
<CursorPos X="10" Y="103"/> <CursorPos X="10" Y="103"/>
<UsageCount Value="10"/> <UsageCount Value="6"/>
<Loaded Value="True"/>
</Unit19> </Unit19>
<Unit20> <Unit20>
<Filename Value="../../../FPC/FPCCheckout/rtl/objpas/sysutils/sysstr.inc"/> <Filename Value="../../../FPC/FPCCheckout/rtl/objpas/sysutils/sysstr.inc"/>
<EditorIndex Value="4"/>
<WindowIndex Value="0"/>
<TopLine Value="501"/> <TopLine Value="501"/>
<CursorPos X="7" Y="527"/> <CursorPos X="7" Y="527"/>
<UsageCount Value="10"/> <UsageCount Value="6"/>
<Loaded Value="True"/>
</Unit20> </Unit20>
<Unit21> <Unit21>
<Filename Value="../../../FPC/FPCCheckout/rtl/objpas/sysutils/sysutilh.inc"/> <Filename Value="../../../FPC/FPCCheckout/rtl/objpas/sysutils/sysutilh.inc"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/>
<TopLine Value="223"/> <TopLine Value="223"/>
<CursorPos X="13" Y="249"/> <CursorPos X="13" Y="249"/>
<UsageCount Value="10"/> <UsageCount Value="6"/>
<Loaded Value="True"/>
</Unit21> </Unit21>
<Unit22> <Unit22>
<Filename Value="../../../FPC/FPCCheckout/rtl/objpas/sysutils/sysutils.inc"/> <Filename Value="../../../FPC/FPCCheckout/rtl/objpas/sysutils/sysutils.inc"/>
<EditorIndex Value="2"/>
<WindowIndex Value="0"/>
<TopLine Value="122"/> <TopLine Value="122"/>
<CursorPos X="9" Y="126"/> <CursorPos X="9" Y="126"/>
<UsageCount Value="10"/> <UsageCount Value="6"/>
<Loaded Value="True"/>
</Unit22> </Unit22>
<Unit23>
<Filename Value="../../Units/Misc/bzip2stream.pp"/>
<UnitName Value="bzip2stream"/>
<WindowIndex Value="0"/>
<TopLine Value="125"/>
<CursorPos X="1" Y="138"/>
<UsageCount Value="14"/>
</Unit23>
<Unit24>
<Filename Value="/usr/lib/lazarus/0.9.28.2/lcl/include/messagedialogs.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="217"/>
<CursorPos X="1" Y="230"/>
<UsageCount Value="9"/>
</Unit24>
<Unit25>
<Filename Value="/usr/lib/lazarus/0.9.28.2/lcl/include/lclintf.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="504"/>
<CursorPos X="15" Y="514"/>
<UsageCount Value="8"/>
</Unit25>
<Unit26>
<Filename Value="/usr/lib/lazarus/0.9.28.2/lcl/include/listitems.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="77"/>
<CursorPos X="1" Y="90"/>
<UsageCount Value="8"/>
</Unit26>
<Unit27>
<Filename Value="/usr/lib/lazarus/0.9.28.2/lcl/include/control.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="2215"/>
<CursorPos X="1" Y="2228"/>
<UsageCount Value="8"/>
</Unit27>
<Unit28>
<Filename Value="/usr/lib/lazarus/0.9.28.2/lcl/include/buttoncontrol.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="60"/>
<CursorPos X="1" Y="73"/>
<UsageCount Value="8"/>
</Unit28>
<Unit29>
<Filename Value="/usr/lib/lazarus/0.9.28.2/lcl/include/buttons.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="215"/>
<CursorPos X="15" Y="163"/>
<UsageCount Value="8"/>
</Unit29>
<Unit30>
<Filename Value="../../Units/MMLAddon/mmisc.pas"/>
<UnitName Value="mmisc"/>
<WindowIndex Value="0"/>
<TopLine Value="171"/>
<CursorPos X="1" Y="184"/>
<UsageCount Value="10"/>
</Unit30>
<Unit31>
<Filename Value="../Simba/about.pas"/>
<ComponentName Value="AboutForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="about"/>
<WindowIndex Value="0"/>
<TopLine Value="28"/>
<CursorPos X="30" Y="58"/>
<UsageCount Value="10"/>
</Unit31>
<Unit32>
<Filename Value="project1.lpi"/>
<WindowIndex Value="0"/>
<TopLine Value="154"/>
<CursorPos X="1" Y="1"/>
<UsageCount Value="10"/>
<DefaultSyntaxHighlighter Value="XML"/>
</Unit32>
<Unit33>
<Filename Value="../Simba/simbasettings.pas"/>
<IsPartOfProject Value="True"/>
<HasResources Value="True"/>
<UnitName Value="Simbasettings"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="1" Y="1"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit33>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="6" HistoryIndex="5">
<Position1> <Position1>
<Filename Value="../../Units/MMLAddon/settings.pas"/> <Filename Value="scriptmanager.pas"/>
<Caret Line="605" Column="7" TopLine="593"/> <Caret Line="377" Column="3" TopLine="363"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="../../../FPC/FPCCheckout/packages/fcl-xml/src/xmlread.pp"/> <Filename Value="scriptmanager.pas"/>
<Caret Line="3846" Column="12" TopLine="3839"/> <Caret Line="40" Column="15" TopLine="37"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="../../Units/MMLAddon/settings.pas"/> <Filename Value="scriptmanager.pas"/>
<Caret Line="606" Column="11" TopLine="593"/> <Caret Line="376" Column="135" TopLine="363"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="scriptmanager.pas"/> <Filename Value="scriptmanager.pas"/>
<Caret Line="32" Column="54" TopLine="1"/> <Caret Line="40" Column="13" TopLine="616"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="../../Units/MMLAddon/updater.pas"/> <Filename Value="scriptmanager.pas"/>
<Caret Line="118" Column="8" TopLine="69"/> <Caret Line="384" Column="21" TopLine="371"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="../../Units/MMLAddon/updater.pas"/> <Filename Value="scriptmanager.pas"/>
<Caret Line="14" Column="37" TopLine="1"/> <Caret Line="392" Column="36" TopLine="381"/>
</Position6> </Position6>
<Position7>
<Filename Value="../Simba/psextension.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position7>
<Position8>
<Filename Value="../../Units/MMLAddon/internets.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position8>
<Position9>
<Filename Value="../../Units/MMLAddon/updater.pas"/>
<Caret Line="117" Column="33" TopLine="106"/>
</Position9>
<Position10>
<Filename Value="scriptmanager.pas"/>
<Caret Line="32" Column="54" TopLine="1"/>
</Position10>
<Position11>
<Filename Value="../Simba/updateform.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position11>
<Position12>
<Filename Value="../Simba/simbaunit.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position12>
<Position13>
<Filename Value="../Simba/simbaunit.pas"/>
<Caret Line="2894" Column="10" TopLine="2879"/>
</Position13>
<Position14>
<Filename Value="scriptmanager.pas"/>
<Caret Line="218" Column="10" TopLine="173"/>
</Position14>
<Position15>
<Filename Value="scriptmanager.pas"/>
<Caret Line="203" Column="13" TopLine="177"/>
</Position15>
<Position16>
<Filename Value="scriptmanager.pas"/>
<Caret Line="101" Column="23" TopLine="84"/>
</Position16>
<Position17>
<Filename Value="scriptmanager.pas"/>
<Caret Line="218" Column="27" TopLine="178"/>
</Position17>
<Position18>
<Filename Value="scriptmanager.pas"/>
<Caret Line="141" Column="13" TopLine="126"/>
</Position18>
<Position19>
<Filename Value="scriptmanager.pas"/>
<Caret Line="240" Column="34" TopLine="203"/>
</Position19>
<Position20>
<Filename Value="../../../FPC/FPCCheckout/packages/fcl-xml/src/dom.pp"/>
<Caret Line="258" Column="48" TopLine="232"/>
</Position20>
<Position21>
<Filename Value="../../../FPC/FPCCheckout/packages/fcl-xml/src/dom.pp"/>
<Caret Line="1061" Column="16" TopLine="1053"/>
</Position21>
<Position22>
<Filename Value="../../../FPC/FPCCheckout/packages/fcl-xml/src/dom.pp"/>
<Caret Line="229" Column="46" TopLine="204"/>
</Position22>
<Position23>
<Filename Value="../Simba/simbaunit.pas"/>
<Caret Line="2867" Column="13" TopLine="2856"/>
</Position23>
<Position24>
<Filename Value="scriptmanager.pas"/>
<Caret Line="281" Column="1" TopLine="238"/>
</Position24>
<Position25>
<Filename Value="scriptmanager.pas"/>
<Caret Line="234" Column="22" TopLine="214"/>
</Position25>
<Position26>
<Filename Value="../../Units/MMLAddon/stringutil.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position26>
<Position27>
<Filename Value="scriptmanager.pas"/>
<Caret Line="212" Column="17" TopLine="187"/>
</Position27>
<Position28>
<Filename Value="../../../FPC/FPCCheckout/rtl/objpas/sysutils/sysstr.inc"/>
<Caret Line="533" Column="34" TopLine="520"/>
</Position28>
<Position29>
<Filename Value="scriptmanager.pas"/>
<Caret Line="191" Column="10" TopLine="189"/>
</Position29>
<Position30>
<Filename Value="scriptmanager.pas"/>
<Caret Line="70" Column="34" TopLine="52"/>
</Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
@ -373,10 +332,15 @@
<Filename Value="project1"/> <Filename Value="project1"/>
</Target> </Target>
<SearchPaths> <SearchPaths>
<IncludeFiles Value="$(ProjOutDir)/"/> <IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="$(ProjPath)../../Units/MMLCore/;$(ProjPath)../../Units/MMLAddon/;$(ProjPath)../../Units/PascalScript/;$(ProjPath)../../Units/Misc/;$(ProjPath)../../Units/MMLAddon/PSInc/;$(ProjPath)../../Units/Linux/;$(LazarusDir)/components/mouseandkeyinput/;$(ProjPath)../../Units/Synapse/"/> <OtherUnitFiles Value="$(ProjPath)../../Units/MMLCore;$(ProjPath)../../Units/MMLAddon;$(ProjPath)../../Units/PascalScript;$(ProjPath)../../Units/Misc;$(ProjPath)../../Units/MMLAddon/PSInc;$(ProjPath)../../Units/Linux;$(LazarusDir)/components/mouseandkeyinput;$(ProjPath)../../Units/Synapse;../Simba"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking> <Linking>
<Options> <Options>
<LinkerOptions Value="-L/home/merlijn/Programs/fpc/libcross/"/> <LinkerOptions Value="-L/home/merlijn/Programs/fpc/libcross/"/>
@ -390,6 +354,11 @@
</Other> </Other>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>
<Watches Count="1">
<Item1>
<Expression Value="FLScripts.Count()"/>
</Item1>
</Watches>
<Exceptions Count="3"> <Exceptions Count="3">
<Item1> <Item1>
<Name Value="EAbort"/> <Name Value="EAbort"/>

3
Projects/ScriptManager/project1.lpr
View File

@ -7,8 +7,7 @@ uses
cthreads, cmem, cthreads, cmem,
{$ENDIF} {$ENDIF}
Interfaces, // this includes the LCL widgetset Interfaces, // this includes the LCL widgetset
Forms, scriptmanager Forms, scriptmanager;
{ you can add units after this };
{$R *.res} {$R *.res}

17
Projects/ScriptManager/project1.manifest Normal file
View File

@ -0,0 +1,17 @@
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity version="1.0.0.0" processorArchitecture="*" name="CompanyName.ProductName.YourApp" type="win32"/>
<description>Your application description here.</description>
<dependency>
<dependentAssembly>
<assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" processorArchitecture="*" publicKeyToken="6595b64144ccf1df" language="*"/>
</dependentAssembly>
</dependency>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
<security>
<requestedPrivileges>
<requestedExecutionLevel level="asInvoker" uiAccess="false"/>
</requestedPrivileges>
</security>
</trustInfo>
</assembly>

6
Projects/ScriptManager/project1.rc Normal file
View File

@ -0,0 +1,6 @@
#define RT_MANIFEST 24
#define CREATEPROCESS_MANIFEST_RESOURCE_ID 1
#define ISOLATIONAWARE_MANIFEST_RESOURCE_ID 2
#define ISOLATIONAWARE_NOSTATICIMPORT_MANIFEST_RESOURCE_ID 3
CREATEPROCESS_MANIFEST_RESOURCE_ID RT_MANIFEST "project1.manifest"

8
Projects/ScriptManager/scriptmanager.lfm
View File

@ -1,5 +1,5 @@
object Form1: TForm1 object Form1: TForm1
Left = 466 Left = 515
Height = 434 Height = 434
Top = 179 Top = 179
Width = 702 Width = 702
@ -32,9 +32,9 @@ object Form1: TForm1
TabOrder = 1 TabOrder = 1
object Memo1: TMemo object Memo1: TMemo
Left = 14 Left = 14
Height = 280 Height = 288
Top = 8 Top = 15
Width = 376 Width = 384
BorderStyle = bsNone BorderStyle = bsNone
Color = clBtnFace Color = clBtnFace
ReadOnly = True ReadOnly = True

98
Projects/ScriptManager/scriptmanager.pas
View File

@ -51,7 +51,8 @@ type
Name, Version, Author, Description, URL: String; Name, Version, Author, Description, URL: String;
Tags, Files: TStringList; Tags, Files: TStringList;
LocalScript : TSimbaScript; LocalScript : TSimbaScript;
property Installed : boolean read IsInstalled; // property Installed : boolean read IsInstalled;
Installed : boolean;
procedure Dbg; procedure Dbg;
constructor Create; constructor Create;
destructor Destroy; override; destructor Destroy; override;
@ -76,16 +77,16 @@ type
private private
FMaindir: string; FMaindir: string;
FRScripts : TList; //Array of the online scripts FRScripts : TList; //Array of the online scripts
FLScripts: TList; //Array of the local scripts FLScripts : TList; //Array of the local scripts
FRVersion : String; FRVersion : String;
FUpdating : boolean; FUpdating : boolean;
function GetLScriptCount: integer; function GetLScriptCount: integer;
function GetMainDir: string; function GetMainDir: string;
function GetScript(index : integer): TSimbaScript; function GetScript(index : integer): TSimbaScript;
function GetRScriptCount: integer; function GetRScriptCount: integer;
procedure MatchLocalOnline;
function GetLScriptByName(name: string): TLSimbaScript; function GetLScriptByName(name: string): TLSimbaScript;
function isNewerVersion(ver1, ver2: string): boolean; function isNewerVersion(ver1, ver2: string): boolean;
procedure AppendRemoteDB(url: string);
public public
function FindRScriptByName(name : string) : Integer; function FindRScriptByName(name : string) : Integer;
function FindLScriptByName(name : string) : Integer; function FindLScriptByName(name : string) : Integer;
@ -126,8 +127,6 @@ type
end; end;
var var
Form1: TForm1; Form1: TForm1;
@ -156,7 +155,7 @@ begin
Memo1.Lines.add('Name: ' + Script.Name); Memo1.Lines.add('Name: ' + Script.Name);
Memo1.lines.add('Author: ' + Script.Author); Memo1.lines.add('Author: ' + Script.Author);
Memo1.Lines.add('Version: ' + Script.Version); Memo1.Lines.add('Version: ' + Script.Version);
Memo1.Lines.add('Installed: '+ BoolToStr(Script.Installed,true)); Memo1.Lines.add('Installed: '+ BoolToStr(Script.IsInstalled, true));
Memo1.Lines.add('Description: ' + Script.Description); Memo1.Lines.add('Description: ' + Script.Description);
end; end;
end; end;
@ -212,10 +211,17 @@ begin
if (ListView1.Selected <> nil) and (ListView1.Selected.Data <> nil) then if (ListView1.Selected <> nil) and (ListView1.Selected.Data <> nil) then
begin begin
Script := TSimbaScript(ListView1.Selected.Data); Script := TSimbaScript(ListView1.Selected.Data);
// if Script.IsInstalled then if Script.IsInstalled then
// Mng.UpdateLScript(mng.FindRScriptByName(Script.Name)) begin
// else // ShowMessage('Updating Script "' + Script.Name + '"');
Mng.UpdateLScript(mng.FindRScriptByName(Script.Name));
ShowMessage('Finished Updating Script "' + Script.Name + '"');
end else
begin
// ShowMessage('Installing Script "' + Script.Name + '"');
Mng.InstallNewRScript(mng.FindRScriptByName(Script.Name)); Mng.InstallNewRScript(mng.FindRScriptByName(Script.Name));
ShowMessage('Finished Installing Script "' + Script.Name + '"');
end;
end; end;
end; end;
@ -223,7 +229,7 @@ end;
function TSimbaScript.IsInstalled: boolean; function TSimbaScript.IsInstalled: boolean;
begin begin
Result := (LocalScript <> nil); Result := Self.Installed;
end; end;
procedure TSimbaScript.LoadFromNode(Script: TDOMNode); procedure TSimbaScript.LoadFromNode(Script: TDOMNode);
@ -289,6 +295,7 @@ end;
constructor TSimbaScript.Create; constructor TSimbaScript.Create;
begin begin
inherited; inherited;
Installed := False;
{stuff here} {stuff here}
end; end;
@ -358,26 +365,35 @@ begin
result := FRScripts.Count; result := FRScripts.Count;
end; end;
procedure TScriptManager.MatchLocalOnline; procedure TScriptManager.RUpdate;
var var
Scrpt : TLSimbaScript; Databs : TStringList;
I,II : integer; X : integer;
begin begin
for ii := 0 to LScriptCount - 1 do Databs := TStringList.Create;
Databs.Add('http://tootoot222.hopto.org:8080/~mcteo/scriptman/scripts.xml');
Databs.Add('http://tootoot222.hopto.org:8080/~mcteo/scriptman2/scripts.xml');
Databs.Add('http://tootoot222.hopto.org:8080/~mcteo/secretrepo/scripts.cgi?user=user&pass=pass');
//TODO: Load list of repositories
// ShowMessage(SettingsForm.Settings.GetKeyValueDefLoad('Settings/SourceEditor/DefScriptPath', ,SimbaSettingsFile));
// ShowMessage(LoadSettingDef('Settings/SourceEditor/DefScriptPath', ExpandFileName(MainDir+DS+'default.simba')));
FRScripts.Clear();
Form1.Memo1.Clear;
Form1.Memo1.Lines.Add('Updating from Repos');
for X := 0 to Databs.Count-1 do
begin begin
Scrpt := TLSimbaScript(FLScripts[ii]); Form1.Memo1.Lines.Add('Updating from Repos ' + inttostr(X+1) +
if Scrpt.OnlineScript = nil then '/' + inttostr(Databs.Count));
for i := 0 to RScriptCount-1 do AppendRemoteDB(Databs[X]);
if TSimbaScript(FRScripts[i]).Name = Scrpt.Name then
begin
Scrpt.OnlineScript := TSimbaScript(FRScripts[i]);
Break;
end;
Scrpt.OnlineScript.LocalScript := Scrpt;
end; end;
Databs.Free;
Form1.Memo1.Lines.Add('Finished updating from Repos');
end; end;
procedure TScriptManager.RUpdate; { Downloads online scripts.xml and parses it, populating FRScripts }
procedure TScriptManager.AppendRemoteDB(url: string);
var var
XMLFile : string; XMLFile : string;
Stream : TStringStream; Stream : TStringStream;
@ -393,7 +409,8 @@ begin
exit; exit;
FUpdating := True; FUpdating := True;
// Down := TDownloadThread.Create('http://old.villavu.com/sm',@XMLFile); // Down := TDownloadThread.Create('http://old.villavu.com/sm',@XMLFile);
Down := TDownloadThread.Create('http://tootoot222.hopto.org:8080/~mcteo/scriptman/scripts.xml',@XMLFile); Down := TDownloadThread.Create(url, @XMLFile);
// Down := TDownloadThread.Create('http://tootoot222.hopto.org:8080/~mcteo/scriptman/scripts.xml',@XMLFile);
down.Execute; down.Execute;
while down.Done = false do while down.Done = false do
begin begin
@ -410,11 +427,11 @@ begin
if node <> nil then if node <> nil then
begin begin
script := Node.FirstChild; script := Node.FirstChild;
WriteLn('loading remote script from online db');
while Script <> nil do while Script <> nil do
begin begin
SScript := TSimbaScript.Create; SScript := TSimbaScript.Create;
SScript.LoadFromNode(Script); SScript.LoadFromNode(Script);
SScript.Dbg;
i := FindRScriptByName(SScript.Name); i := FindRScriptByName(SScript.Name);
if (i = -1) then // if no remote scripts with same name if (i = -1) then // if no remote scripts with same name
begin begin
@ -429,7 +446,8 @@ begin
begin begin
if isNewerVersion(SScript.Version, LScr.Version) then // if local script is older if isNewerVersion(SScript.Version, LScr.Version) then // if local script is older
begin begin
FRScripts.Add(SScript); // add version of script SScript.Installed := True;
FRScripts.Add(SScript); // add newer version of script
end; end;
end; end;
end; end;
@ -440,12 +458,14 @@ begin
end; end;
Script := Script.NextSibling; Script := Script.NextSibling;
end; end;
WriteLn('finished loading remote script from online db');
end; end;
XMLDoc.Free; XMLDoc.Free;
FUpdating := false; FUpdating := false;
// MatchLocalOnline; // MatchLocalOnline;
end; end;
{ Opens local scripts.xml and parses it, populating FLScripts }
procedure TScriptManager.LUpdate; procedure TScriptManager.LUpdate;
var var
XMLDoc : TXMLDocument; XMLDoc : TXMLDocument;
@ -457,14 +477,17 @@ var
begin begin
if DirectoryExists(MainDir) = false then if DirectoryExists(MainDir) = false then
exit; exit;
WriteLn('Reading XML Config file from "' + maindir + 'General' + DirectorySeparator+ 'scripts.xml"');
if FileExists(maindir + 'General' + DirectorySeparator+ 'scripts.xml') then if FileExists(maindir + 'General' + DirectorySeparator+ 'scripts.xml') then
begin begin
ReadXMLFile(XMLDoc,maindir + 'General' + DirectorySeparator+ 'scripts.xml'); ReadXMLFile(XMLDoc,maindir + 'General' + DirectorySeparator+ 'scripts.xml');
Node := XMLDoc.FirstChild.FindNode('ScriptList'); // Node := XMLDoc.FirstChild.FindNode('ScriptList');
// Node := XMLDoc.FindNode('ScriptList'); Node := XMLDoc.FindNode('ScriptList');
if node <> nil then if node <> nil then
begin begin
FLScripts.Clear();
script := Node.FirstChild; script := Node.FirstChild;
WriteLn('loading local script from local db');
while script <> nil do while script <> nil do
begin begin
SScript := TLSimbaScript.Create; SScript := TLSimbaScript.Create;
@ -473,7 +496,6 @@ begin
begin begin
SScript.LoadFromName(Trim(tmpNode.TextContent), maindir); SScript.LoadFromName(Trim(tmpNode.TextContent), maindir);
i := FindLScriptByName(SScript.Name); i := FindLScriptByName(SScript.Name);
// SScript.Dbg;
if (i = -1) then if (i = -1) then
begin begin
FLScripts.Add(SScript); FLScripts.Add(SScript);
@ -486,12 +508,13 @@ begin
end; end;
script := script.NextSibling; script := script.NextSibling;
end; end;
WriteLn('finished loading local scripts from local db');
end; end;
XMLDoc.Free; XMLDoc.Free;
end; end;
// MatchLocalOnline;
end; end;
{ Compares versions and returns true if ver1 > ver2 }
function TScriptManager.isNewerVersion(ver1, ver2: string): boolean; function TScriptManager.isNewerVersion(ver1, ver2: string): boolean;
var var
v1, v2: Extended; v1, v2: Extended;
@ -503,11 +526,12 @@ end;
function TScriptManager.NewVersion(Script: integer): boolean; function TScriptManager.NewVersion(Script: integer): boolean;
begin begin
MatchLocalOnline; // MatchLocalOnline;
with TLSimbaScript(FLScripts[Script]) do with TLSimbaScript(FLScripts[Script]) do
result := OnlineScript.Version <> Version; result := OnlineScript.Version <> Version;
end; end;
{ Sets up some vars/dirs and hands installation to update script func }
procedure TScriptManager.InstallNewRScript(Script: integer); procedure TScriptManager.InstallNewRScript(Script: integer);
var var
Scrpt : TSimbaScript; Scrpt : TSimbaScript;
@ -519,7 +543,6 @@ begin
FUpdating := true; FUpdating := true;
Scrpt := TSimbaScript(FRScripts[Script]); Scrpt := TSimbaScript(FRScripts[Script]);
LScrpt := TLSimbaScript.create; LScrpt := TLSimbaScript.create;
FLScripts.Add(LScrpt);
LScrpt.Name:= Scrpt.Name; LScrpt.Name:= Scrpt.Name;
LScrpt.OnlineScript := Scrpt; LScrpt.OnlineScript := Scrpt;
Dir := MainDir + LScrpt.Name + DirectorySeparator; Dir := MainDir + LScrpt.Name + DirectorySeparator;
@ -527,9 +550,12 @@ begin
Writeln('Directory already exists, yet continue?'); Writeln('Directory already exists, yet continue?');
if not CreateDir(Dir) then if not CreateDir(Dir) then
Writeln('Failed to create dir..'); Writeln('Failed to create dir..');
UpdateLScript(FLScripts.Count - 1,true); FLScripts.Add(LScrpt);
UpdateLScript(FLScripts.Count - 1, true);
end; end;
{ Downloads script files and puts them in their own directory,
then triggers updating of local scripts.xml to match FLScripts }
function TScriptManager.UpdateLScript(Script: integer; ignoreupdating : boolean = false) : boolean; function TScriptManager.UpdateLScript(Script: integer; ignoreupdating : boolean = false) : boolean;
var var
LScrpt : TLSimbaScript; LScrpt : TLSimbaScript;
@ -569,6 +595,7 @@ begin
FUPdating := false; FUPdating := false;
end; end;
{ Updates local scripts.xml to match FLScripts }
procedure TScriptManager.LSave; procedure TScriptManager.LSave;
var var
XMLDoc : TXMLDocument; XMLDoc : TXMLDocument;
@ -590,9 +617,12 @@ begin
Node := XMLDoc.CreateElement('ScriptList'); Node := XMLDoc.CreateElement('ScriptList');
XMLDoc.AppendChild(node); XMLDoc.AppendChild(node);
for i := 0 to FLScripts.Count - 1 do for i := 0 to FLScripts.Count - 1 do
begin
TLSimbaScript(FLScripts[i]).Dbg;
ChildNode := XMLDoc.CreateElement('Script'); ChildNode := XMLDoc.CreateElement('Script');
AddTextElement(childnode,'Name', TLSimbaScript(FLScripts[i]).Name); AddTextElement(childnode,'Name', TLSimbaScript(FLScripts[i]).Name);
Node.AppendChild(ChildNode); Node.AppendChild(ChildNode);
end;
WriteXMLFile(XMLDoc,maindir + 'General' + DirectorySeparator+ 'scripts.xml'); WriteXMLFile(XMLDoc,maindir + 'General' + DirectorySeparator+ 'scripts.xml');
XMLDoc.Free; XMLDoc.Free;
end; end;

56
Projects/Simba/simbaunit.lfm
View File

@ -1,8 +1,9 @@
object SimbaForm: TSimbaForm object SimbaForm: TSimbaForm
Left = 531 Left = 423
Height = 623 Height = 623
Top = 290 Top = 179
Width = 660 Width = 660
ActiveControl = ScriptPanel
AllowDropFiles = True AllowDropFiles = True
Caption = 'THA FUKING Simba' Caption = 'THA FUKING Simba'
ClientHeight = 603 ClientHeight = 603
@ -15,7 +16,7 @@ object SimbaForm: TSimbaForm
OnDropFiles = FormDropFiles OnDropFiles = FormDropFiles
OnHide = doOnHide OnHide = doOnHide
OnShortCut = FormShortCuts OnShortCut = FormShortCuts
LCLVersion = '0.9.31' LCLVersion = '0.9.28.2'
Visible = True Visible = True
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
@ -305,6 +306,7 @@ object SimbaForm: TSimbaForm
Height = 19 Height = 19
Top = 7 Top = 7
Width = 16 Width = 16
Color = clBtnFace
Flat = True Flat = True
Glyph.Data = { Glyph.Data = {
36090000424D3609000000000000360000002800000018000000180000000100 36090000424D3609000000000000360000002800000018000000180000000100
@ -395,10 +397,17 @@ object SimbaForm: TSimbaForm
EditLabel.AnchorSideTop.Side = asrCenter EditLabel.AnchorSideTop.Side = asrCenter
EditLabel.AnchorSideRight.Control = LabeledEditSearch EditLabel.AnchorSideRight.Control = LabeledEditSearch
EditLabel.AnchorSideBottom.Control = LabeledEditSearch EditLabel.AnchorSideBottom.Control = LabeledEditSearch
<<<<<<< HEAD
EditLabel.Left = 64
EditLabel.Height = 18
EditLabel.Top = 10
EditLabel.Width = 37
=======
EditLabel.Left = 71 EditLabel.Left = 71
EditLabel.Height = 16 EditLabel.Height = 16
EditLabel.Top = 9 EditLabel.Top = 9
EditLabel.Width = 30 EditLabel.Width = 30
>>>>>>> upstream/master
EditLabel.Caption = 'Find: ' EditLabel.Caption = 'Find: '
EditLabel.ParentColor = False EditLabel.ParentColor = False
LabelPosition = lpLeft LabelPosition = lpLeft
@ -411,9 +420,13 @@ object SimbaForm: TSimbaForm
end end
object CheckBoxMatchCase: TCheckBox object CheckBoxMatchCase: TCheckBox
Left = 320 Left = 320
Height = 19 Height = 24
Top = 7 Top = 7
<<<<<<< HEAD
Width = 101
=======
Width = 80 Width = 80
>>>>>>> upstream/master
Caption = 'Match case' Caption = 'Match case'
OnClick = CheckBoxMatchCaseClick OnClick = CheckBoxMatchCaseClick
TabOrder = 1 TabOrder = 1
@ -434,6 +447,10 @@ object SimbaForm: TSimbaForm
ClientWidth = 150 ClientWidth = 150
OnEndDock = nil OnEndDock = nil
TabOrder = 3 TabOrder = 3
inherited FunctionListLabel: TLabel
Height = 18
Width = 146
end
inherited FunctionList: TTreeView inherited FunctionList: TTreeView
Height = 319 Height = 319
Top = 20 Top = 20
@ -451,10 +468,13 @@ object SimbaForm: TSimbaForm
OnKeyDown = editSearchListKeyDown OnKeyDown = editSearchListKeyDown
OnKeyPress = editSearchListKeyPress OnKeyPress = editSearchListKeyPress
end end
<<<<<<< HEAD
=======
inherited FunctionListLabel: TLabel inherited FunctionListLabel: TLabel
Height = 16 Height = 16
Width = 146 Width = 146
end end
>>>>>>> upstream/master
end end
end end
object MainMenu: TMainMenu object MainMenu: TMainMenu
@ -1119,6 +1139,7 @@ object SimbaForm: TSimbaForm
end end
object MenuItemGoto: TMenuItem object MenuItemGoto: TMenuItem
Action = ActionGoto Action = ActionGoto
OnClick = ActionGotoExecute
end end
end end
object MenuItemScript: TMenuItem object MenuItemScript: TMenuItem
@ -1260,14 +1281,17 @@ object SimbaForm: TSimbaForm
object MenuItemPascalScript: TMenuItem object MenuItemPascalScript: TMenuItem
Action = ActionPascalScript Action = ActionPascalScript
RadioItem = True RadioItem = True
OnClick = ActionPascalScriptExecute
end end
object MenuItemRUTIS: TMenuItem object MenuItemRUTIS: TMenuItem
Action = ActionRUTIS Action = ActionRUTIS
RadioItem = True RadioItem = True
OnClick = ActionRUTISExecute
end end
object MenuItemCPascal: TMenuItem object MenuItemCPascal: TMenuItem
Action = ActionCPascal Action = ActionCPascal
RadioItem = True RadioItem = True
OnClick = ActionCPascalExecute
end end
end end
end end
@ -1287,6 +1311,7 @@ object SimbaForm: TSimbaForm
end end
object MenuItemExtensions: TMenuItem object MenuItemExtensions: TMenuItem
Action = ActionExtensions Action = ActionExtensions
OnClick = ActionExtensionsExecute
end end
end end
object MenuTools: TMenuItem object MenuTools: TMenuItem
@ -3332,21 +3357,10 @@ object SimbaForm: TSimbaForm
end end
object SCARHighlighter: TSynPasSyn object SCARHighlighter: TSynPasSyn
Enabled = False Enabled = False
AsmAttri.FrameEdges = sfeAround
CommentAttri.Foreground = clGreen CommentAttri.Foreground = clGreen
CommentAttri.FrameEdges = sfeAround
CommentAttri.Style = [] CommentAttri.Style = []
IDEDirectiveAttri.FrameEdges = sfeAround
IdentifierAttri.FrameEdges = sfeAround
KeyAttri.FrameEdges = sfeAround
NumberAttri.Foreground = clNavy NumberAttri.Foreground = clNavy
NumberAttri.FrameEdges = sfeAround
SpaceAttri.FrameEdges = sfeAround
StringAttri.Foreground = clFuchsia StringAttri.Foreground = clFuchsia
StringAttri.FrameEdges = sfeAround
SymbolAttri.FrameEdges = sfeAround
CaseLabelAttri.FrameEdges = sfeAround
DirectiveAttri.FrameEdges = sfeAround
CompilerMode = pcmObjFPC CompilerMode = pcmObjFPC
NestedComments = False NestedComments = False
left = 568 left = 568
@ -3354,25 +3368,13 @@ object SimbaForm: TSimbaForm
end end
object LazHighlighter: TSynPasSyn object LazHighlighter: TSynPasSyn
Enabled = False Enabled = False
AsmAttri.FrameEdges = sfeAround
CommentAttri.Foreground = clBlue CommentAttri.Foreground = clBlue
CommentAttri.FrameEdges = sfeAround
CommentAttri.Style = [fsBold] CommentAttri.Style = [fsBold]
IDEDirectiveAttri.FrameEdges = sfeAround
IdentifierAttri.Foreground = clDefault IdentifierAttri.Foreground = clDefault
IdentifierAttri.FrameEdges = sfeAround
KeyAttri.FrameEdges = sfeAround
NumberAttri.Foreground = clNavy NumberAttri.Foreground = clNavy
NumberAttri.FrameEdges = sfeAround
SpaceAttri.FrameEdges = sfeAround
StringAttri.Foreground = clBlue StringAttri.Foreground = clBlue
StringAttri.FrameEdges = sfeAround
SymbolAttri.Foreground = clRed SymbolAttri.Foreground = clRed
SymbolAttri.FrameEdges = sfeAround
CaseLabelAttri.FrameEdges = sfeAround
CaseLabelAttri.Style = [fsItalic]
DirectiveAttri.Foreground = clRed DirectiveAttri.Foreground = clRed
DirectiveAttri.FrameEdges = sfeAround
DirectiveAttri.Style = [fsBold] DirectiveAttri.Style = [fsBold]
CompilerMode = pcmObjFPC CompilerMode = pcmObjFPC
NestedComments = False NestedComments = False

10
Projects/Simba/updateform.lfm
View File

@ -1,5 +1,5 @@
object SimbaUpdateForm: TSimbaUpdateForm object SimbaUpdateForm: TSimbaUpdateForm
Left = 262 Left = 276
Height = 331 Height = 331
Top = 219 Top = 219
Width = 473 Width = 473
@ -9,7 +9,7 @@ object SimbaUpdateForm: TSimbaUpdateForm
ClientWidth = 473 ClientWidth = 473
OnCreate = FormCreate OnCreate = FormCreate
OnShow = CleanUpdateForm OnShow = CleanUpdateForm
LCLVersion = '0.9.29' LCLVersion = '0.9.30.1'
object DownloadProgress: TProgressBar object DownloadProgress: TProgressBar
Left = 8 Left = 8
Height = 29 Height = 29
@ -49,9 +49,9 @@ object SimbaUpdateForm: TSimbaUpdateForm
end end
object DownloadSpeed: TLabel object DownloadSpeed: TLabel
Left = 96 Left = 96
Height = 14 Height = 18
Top = 306 Top = 302
Width = 78 Width = 111
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
Caption = 'DownloadSpeed' Caption = 'DownloadSpeed'
ParentColor = False ParentColor = False