moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-01-30 23:00:18 -05:00
Code Issues Releases Wiki Activity

Updated tha gui bish!

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@154 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Raymond 2009-10-24 15:37:00 +00:00
parent 86a67e64b2
commit e1dc236d90
8 changed files with 2097 additions and 1187 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Images/crosshair.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 510 B

After

Width:  |  Height:  |  Size: 879 B

5
Images/license.txt
View File

@ -1,4 +1,5 @@
pause,stop: From Lazarus (http://lazarus.freepascal.org) pause,stop: From Lazarus (http://lazarus.freepascal.org)
addtab,closetab,cut,new,open,paste,redo,run,save,undo: Mark James http://www.famfamfam.com/lab/icons/silk/ addtab,closetab,cut,new,open,paste,redo,run,save,undo: Mark James http://www.famfamfam.com/lab/icons/silk/
eraser: Yusuke Kamiyamane http://www.pinvoke.com/ eraser,terminate: Yusuke Kamiyamane http://www.pinvoke.com/
pickcolor: From the Crystal Clear Project (http://www.everaldo.com/crystal/) licensed under LGPL pickcolor: From the Crystal Clear Project (http://www.everaldo.com/crystal/) licensed under LGPL
crosshair: http://led24.de/iconset/ or http://led24.de/ would be appreciated. Follow us on twitter http://twitter.com/gasyoun or email leds24@gmail.com 512 icons 20/05/2009

BIN
Images/old_crosshair.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 510 B

BIN
Images/terminate.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 729 B

232
Projects/SAMufasaGUI/project1.lpi
View File

@ -7,7 +7,7 @@
<TargetFileExt Value=""/> <TargetFileExt Value=""/>
<Title Value="Mufasa Stand Alone"/> <Title Value="Mufasa Stand Alone"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<ActiveEditorIndexAtStart Value="16"/> <ActiveEditorIndexAtStart Value="14"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/> <ProjectVersion Value=""/>
@ -33,7 +33,7 @@
<PackageName Value="LCL"/> <PackageName Value="LCL"/>
</Item2> </Item2>
</RequiredPackages> </RequiredPackages>
<Units Count="132"> <Units Count="136">
<Unit0> <Unit0>
<Filename Value="project1.lpr"/> <Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -168,9 +168,9 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="TestUnit"/> <UnitName Value="TestUnit"/>
<CursorPos X="3" Y="280"/> <CursorPos X="73" Y="167"/>
<TopLine Value="278"/> <TopLine Value="135"/>
<EditorIndex Value="16"/> <EditorIndex Value="14"/>
<UsageCount Value="202"/> <UsageCount Value="202"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit18> </Unit18>
@ -284,7 +284,7 @@
<CursorPos X="91" Y="37"/> <CursorPos X="91" Y="37"/>
<TopLine Value="29"/> <TopLine Value="29"/>
<EditorIndex Value="4"/> <EditorIndex Value="4"/>
<UsageCount Value="52"/> <UsageCount Value="54"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit33> </Unit33>
<Unit34> <Unit34>
@ -314,24 +314,28 @@
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="mmlpsthread"/> <UnitName Value="mmlpsthread"/>
<CursorPos X="45" Y="112"/> <CursorPos X="5" Y="89"/>
<TopLine Value="112"/> <TopLine Value="80"/>
<EditorIndex Value="19"/>
<UsageCount Value="202"/> <UsageCount Value="202"/>
<Loaded Value="True"/>
</Unit37> </Unit37>
<Unit38> <Unit38>
<Filename Value="../../Units/PascalScript/uPSComponent.pas"/> <Filename Value="../../Units/PascalScript/uPSComponent.pas"/>
<UnitName Value="uPSComponent"/> <UnitName Value="uPSComponent"/>
<CursorPos X="76" Y="509"/> <CursorPos X="3" Y="917"/>
<TopLine Value="504"/> <TopLine Value="915"/>
<EditorIndex Value="12"/> <EditorIndex Value="10"/>
<UsageCount Value="29"/> <UsageCount Value="31"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit38> </Unit38>
<Unit39> <Unit39>
<Filename Value="../../../FPC/FPCCheckout/rtl/objpas/classes/classesh.inc"/> <Filename Value="../../../FPC/FPCCheckout/rtl/objpas/classes/classesh.inc"/>
<CursorPos X="21" Y="1436"/> <CursorPos X="15" Y="1433"/>
<TopLine Value="1422"/> <TopLine Value="1417"/>
<UsageCount Value="9"/> <EditorIndex Value="20"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit39> </Unit39>
<Unit40> <Unit40>
<Filename Value="../../../FPC/FPCCheckout/rtl/objpas/types.pp"/> <Filename Value="../../../FPC/FPCCheckout/rtl/objpas/types.pp"/>
@ -378,9 +382,9 @@
<Filename Value="../../../lazarus/components/synedit/synedit.pp"/> <Filename Value="../../../lazarus/components/synedit/synedit.pp"/>
<UnitName Value="SynEdit"/> <UnitName Value="SynEdit"/>
<CursorPos X="3" Y="2128"/> <CursorPos X="3" Y="2128"/>
<TopLine Value="2141"/> <TopLine Value="2128"/>
<EditorIndex Value="17"/> <EditorIndex Value="24"/>
<UsageCount Value="10"/> <UsageCount Value="12"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit46> </Unit46>
<Unit47> <Unit47>
@ -391,16 +395,18 @@
</Unit47> </Unit47>
<Unit48> <Unit48>
<Filename Value="../../../FPC/FPCCheckout/rtl/win/tthread.inc"/> <Filename Value="../../../FPC/FPCCheckout/rtl/win/tthread.inc"/>
<CursorPos X="15" Y="17"/> <CursorPos X="3" Y="92"/>
<TopLine Value="12"/> <TopLine Value="90"/>
<UsageCount Value="8"/> <EditorIndex Value="21"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit48> </Unit48>
<Unit49> <Unit49>
<Filename Value="../../../FPC/FPCCheckout/rtl/inc/objpash.inc"/> <Filename Value="../../../FPC/FPCCheckout/rtl/inc/objpash.inc"/>
<CursorPos X="23" Y="175"/> <CursorPos X="23" Y="175"/>
<TopLine Value="147"/> <TopLine Value="147"/>
<EditorIndex Value="7"/> <EditorIndex Value="7"/>
<UsageCount Value="31"/> <UsageCount Value="33"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit49> </Unit49>
<Unit50> <Unit50>
@ -410,7 +416,7 @@
<CursorPos X="75" Y="91"/> <CursorPos X="75" Y="91"/>
<TopLine Value="75"/> <TopLine Value="75"/>
<EditorIndex Value="5"/> <EditorIndex Value="5"/>
<UsageCount Value="197"/> <UsageCount Value="200"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit50> </Unit50>
<Unit51> <Unit51>
@ -424,17 +430,17 @@
<Filename Value="../../Units/MMLAddon/PSInc/Wrappers/colour.inc"/> <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/colour.inc"/>
<CursorPos X="34" Y="56"/> <CursorPos X="34" Y="56"/>
<TopLine Value="39"/> <TopLine Value="39"/>
<EditorIndex Value="14"/> <EditorIndex Value="12"/>
<UsageCount Value="33"/> <UsageCount Value="35"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit52> </Unit52>
<Unit53> <Unit53>
<Filename Value="../../Units/MMLAddon/PSInc/Wrappers/bitmap.inc"/> <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/bitmap.inc"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<CursorPos X="45" Y="254"/> <CursorPos X="45" Y="254"/>
<TopLine Value="223"/> <TopLine Value="221"/>
<EditorIndex Value="15"/> <EditorIndex Value="13"/>
<UsageCount Value="196"/> <UsageCount Value="199"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit53> </Unit53>
<Unit54> <Unit54>
@ -470,23 +476,21 @@
<CursorPos X="21" Y="239"/> <CursorPos X="21" Y="239"/>
<TopLine Value="214"/> <TopLine Value="214"/>
<EditorIndex Value="6"/> <EditorIndex Value="6"/>
<UsageCount Value="18"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit58> </Unit58>
<Unit59> <Unit59>
<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"/>
<EditorIndex Value="9"/>
<UsageCount Value="17"/> <UsageCount Value="17"/>
<Loaded Value="True"/>
</Unit59> </Unit59>
<Unit60> <Unit60>
<Filename Value="../../../lazarus/lcl/lclintf.pas"/> <Filename Value="../../../lazarus/lcl/lclintf.pas"/>
<UnitName Value="LCLIntf"/> <UnitName Value="LCLIntf"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="0"/> <UsageCount Value="10"/>
</Unit60> </Unit60>
<Unit61> <Unit61>
<Filename Value="../../../lazarus/lcl/intfgraphics.pas"/> <Filename Value="../../../lazarus/lcl/intfgraphics.pas"/>
@ -518,14 +522,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"/>
</Unit65> </Unit65>
<Unit66> <Unit66>
<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"/>
</Unit66> </Unit66>
<Unit67> <Unit67>
<Filename Value="../../../lazarus/lcl/include/rasterimage.inc"/> <Filename Value="../../../lazarus/lcl/include/rasterimage.inc"/>
@ -563,7 +567,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"/>
</Unit72> </Unit72>
<Unit73> <Unit73>
<Filename Value="../../Units/MMLCore/colour_conv.pas"/> <Filename Value="../../Units/MMLCore/colour_conv.pas"/>
@ -572,7 +576,7 @@
<CursorPos X="41" Y="76"/> <CursorPos X="41" Y="76"/>
<TopLine Value="76"/> <TopLine Value="76"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="179"/> <UsageCount Value="182"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit73> </Unit73>
<Unit74> <Unit74>
@ -599,34 +603,34 @@
<UnitName Value="uPSCompiler"/> <UnitName Value="uPSCompiler"/>
<CursorPos X="35" Y="11215"/> <CursorPos X="35" Y="11215"/>
<TopLine Value="11203"/> <TopLine Value="11203"/>
<EditorIndex Value="13"/> <EditorIndex Value="11"/>
<UsageCount Value="22"/> <UsageCount Value="24"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit77> </Unit77>
<Unit78> <Unit78>
<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"/>
</Unit78> </Unit78>
<Unit79> <Unit79>
<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"/>
</Unit79> </Unit79>
<Unit80> <Unit80>
<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"/>
</Unit80> </Unit80>
<Unit81> <Unit81>
<Filename Value="../../Units/PascalScript/uPSRuntime.pas"/> <Filename Value="../../Units/PascalScript/uPSRuntime.pas"/>
<UnitName Value="uPSRuntime"/> <UnitName Value="uPSRuntime"/>
<CursorPos X="54" Y="1887"/> <CursorPos X="54" Y="1887"/>
<TopLine Value="1875"/> <TopLine Value="1875"/>
<UsageCount Value="0"/> <UsageCount Value="10"/>
</Unit81> </Unit81>
<Unit82> <Unit82>
<Filename Value="../../Units/MMLAddon/plugins.pas"/> <Filename Value="../../Units/MMLAddon/plugins.pas"/>
@ -634,7 +638,7 @@
<UnitName Value="plugins"/> <UnitName Value="plugins"/>
<CursorPos X="86" Y="128"/> <CursorPos X="86" Y="128"/>
<TopLine Value="128"/> <TopLine Value="128"/>
<UsageCount Value="173"/> <UsageCount Value="176"/>
</Unit82> </Unit82>
<Unit83> <Unit83>
<Filename Value="../../../Compilertje/Units/CogatUnits/compfiles.pas"/> <Filename Value="../../../Compilertje/Units/CogatUnits/compfiles.pas"/>
@ -726,9 +730,7 @@
<UnitName Value="dtm"/> <UnitName Value="dtm"/>
<CursorPos X="34" Y="141"/> <CursorPos X="34" Y="141"/>
<TopLine Value="113"/> <TopLine Value="113"/>
<EditorIndex Value="10"/> <UsageCount Value="157"/>
<UsageCount Value="154"/>
<Loaded Value="True"/>
</Unit96> </Unit96>
<Unit97> <Unit97>
<Filename Value="../../../cogat/Units/CogatUnits/comppicker.pas"/> <Filename Value="../../../cogat/Units/CogatUnits/comppicker.pas"/>
@ -743,8 +745,8 @@
<UnitName Value="colourpicker"/> <UnitName Value="colourpicker"/>
<CursorPos X="20" Y="56"/> <CursorPos X="20" Y="56"/>
<TopLine Value="46"/> <TopLine Value="46"/>
<EditorIndex Value="18"/> <EditorIndex Value="25"/>
<UsageCount Value="150"/> <UsageCount Value="153"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit98> </Unit98>
<Unit99> <Unit99>
@ -770,7 +772,7 @@
<UnitName Value="windowselector"/> <UnitName Value="windowselector"/>
<CursorPos X="32" Y="12"/> <CursorPos X="32" Y="12"/>
<TopLine Value="31"/> <TopLine Value="31"/>
<UsageCount Value="140"/> <UsageCount Value="143"/>
</Unit101> </Unit101>
<Unit102> <Unit102>
<Filename Value="../../../usr/lib64/fpc/2.2.4/source/rtl/objpas/classes/classesh.inc"/> <Filename Value="../../../usr/lib64/fpc/2.2.4/source/rtl/objpas/classes/classesh.inc"/>
@ -781,9 +783,11 @@
<Unit103> <Unit103>
<Filename Value="../../../lazarus/lcl/forms.pp"/> <Filename Value="../../../lazarus/lcl/forms.pp"/>
<UnitName Value="Forms"/> <UnitName Value="Forms"/>
<CursorPos X="15" Y="1206"/> <CursorPos X="15" Y="539"/>
<TopLine Value="1192"/> <TopLine Value="523"/>
<UsageCount Value="10"/> <EditorIndex Value="22"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit103> </Unit103>
<Unit104> <Unit104>
<Filename Value="../../../usr/lib64/fpc/2.2.4/source/rtl/unix/cthreads.pp"/> <Filename Value="../../../usr/lib64/fpc/2.2.4/source/rtl/unix/cthreads.pp"/>
@ -804,7 +808,7 @@
<UnitName Value="dtmutil"/> <UnitName Value="dtmutil"/>
<CursorPos X="32" Y="18"/> <CursorPos X="32" Y="18"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="127"/> <UsageCount Value="130"/>
</Unit106> </Unit106>
<Unit107> <Unit107>
<Filename Value="../../../cogat/Units/CogatUnits/compmaths.pas"/> <Filename Value="../../../cogat/Units/CogatUnits/compmaths.pas"/>
@ -844,10 +848,10 @@
<Filename Value="../../Units/MMLCore/mmath.pas"/> <Filename Value="../../Units/MMLCore/mmath.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="mmath"/> <UnitName Value="mmath"/>
<CursorPos X="133" Y="45"/> <CursorPos X="32" Y="42"/>
<TopLine Value="16"/> <TopLine Value="39"/>
<EditorIndex Value="11"/> <EditorIndex Value="9"/>
<UsageCount Value="107"/> <UsageCount Value="110"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit112> </Unit112>
<Unit113> <Unit113>
@ -885,7 +889,7 @@
<CursorPos X="43" Y="42"/> <CursorPos X="43" Y="42"/>
<TopLine Value="10"/> <TopLine Value="10"/>
<EditorIndex Value="3"/> <EditorIndex Value="3"/>
<UsageCount Value="77"/> <UsageCount Value="80"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit117> </Unit117>
<Unit118> <Unit118>
@ -901,7 +905,7 @@
<UnitName Value="project"/> <UnitName Value="project"/>
<CursorPos X="46" Y="15"/> <CursorPos X="46" Y="15"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="74"/> <UsageCount Value="77"/>
</Unit119> </Unit119>
<Unit120> <Unit120>
<Filename Value="../../../FPC/FPCCheckout/rtl/inc/heap.inc"/> <Filename Value="../../../FPC/FPCCheckout/rtl/inc/heap.inc"/>
@ -917,9 +921,11 @@
</Unit121> </Unit121>
<Unit122> <Unit122>
<Filename Value="../../../lazarus/lcl/include/customform.inc"/> <Filename Value="../../../lazarus/lcl/include/customform.inc"/>
<CursorPos X="79" Y="1534"/> <CursorPos X="17" Y="1643"/>
<TopLine Value="1523"/> <TopLine Value="1630"/>
<UsageCount Value="13"/> <EditorIndex Value="23"/>
<UsageCount Value="14"/>
<Loaded Value="True"/>
</Unit122> </Unit122>
<Unit123> <Unit123>
<Filename Value="../../../lazarus/lcl/include/winapih.inc"/> <Filename Value="../../../lazarus/lcl/include/winapih.inc"/>
@ -975,130 +981,164 @@
<CursorPos X="9" Y="152"/> <CursorPos X="9" Y="152"/>
<TopLine Value="147"/> <TopLine Value="147"/>
<EditorIndex Value="8"/> <EditorIndex Value="8"/>
<UsageCount Value="17"/> <UsageCount Value="19"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit131> </Unit131>
<Unit132>
<Filename Value="../../../FPC/FPCCheckout/rtl/inc/threadh.inc"/>
<CursorPos X="11" Y="135"/>
<TopLine Value="119"/>
<EditorIndex Value="17"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit132>
<Unit133>
<Filename Value="../../../FPC/FPCCheckout/rtl/inc/thread.inc"/>
<CursorPos X="21" Y="152"/>
<TopLine Value="152"/>
<EditorIndex Value="18"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit133>
<Unit134>
<Filename Value="../../../lazarus/lcl/comctrls.pp"/>
<UnitName Value="ComCtrls"/>
<CursorPos X="39" Y="1495"/>
<TopLine Value="1478"/>
<EditorIndex Value="15"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit134>
<Unit135>
<Filename Value="../../../lazarus/lcl/imglist.pp"/>
<UnitName Value="ImgList"/>
<CursorPos X="3" Y="58"/>
<TopLine Value="41"/>
<EditorIndex Value="16"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit135>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="278" Column="9" TopLine="276"/> <Caret Line="249" Column="14" TopLine="239"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="109" Column="59" TopLine="77"/> <Caret Line="360" Column="12" TopLine="332"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="205" Column="8" TopLine="203"/> <Caret Line="453" Column="10" TopLine="425"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="250" Column="3" TopLine="248"/> <Caret Line="472" Column="1" TopLine="468"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="206" Column="19" TopLine="203"/> <Caret Line="119" Column="95" TopLine="99"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="217" Column="18" TopLine="209"/> <Caret Line="242" Column="12" TopLine="240"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="207" Column="25" TopLine="205"/> <Caret Line="175" Column="10" TopLine="174"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="228" Column="3" TopLine="220"/> <Caret Line="274" Column="12" TopLine="272"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="218" Column="3" TopLine="216"/> <Caret Line="217" Column="9" TopLine="205"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="179" Column="18" TopLine="163"/> <Caret Line="449" Column="14" TopLine="447"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="181" Column="3" TopLine="179"/> <Caret Line="6" Column="115" TopLine="1"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="102" Column="27" TopLine="82"/> <Caret Line="159" Column="24" TopLine="143"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="9" Column="135" TopLine="1"/> <Caret Line="516" Column="42" TopLine="499"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="354" Column="13" TopLine="343"/> <Caret Line="557" Column="40" TopLine="540"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="333" Column="10" TopLine="305"/> <Caret Line="142" Column="80" TopLine="125"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="344" Column="15" TopLine="312"/> <Caret Line="137" Column="41" TopLine="119"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="254" Column="3" TopLine="249"/> <Caret Line="495" Column="35" TopLine="487"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="255" Column="3" TopLine="249"/> <Caret Line="473" Column="14" TopLine="471"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="257" Column="3" TopLine="249"/> <Caret Line="220" Column="10" TopLine="204"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="134" Column="19" TopLine="98"/> <Caret Line="142" Column="70" TopLine="126"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="199" Column="27" TopLine="196"/> <Caret Line="493" Column="65" TopLine="481"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="289" Column="14" TopLine="287"/> <Caret Line="473" Column="14" TopLine="471"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="136" Column="21" TopLine="111"/> <Caret Line="158" Column="22" TopLine="150"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="5" Column="130" TopLine="1"/> <Caret Line="443" Column="1" TopLine="427"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="183" Column="3" TopLine="139"/> <Caret Line="482" Column="109" TopLine="466"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="216" Column="12" TopLine="198"/> <Caret Line="483" Column="107" TopLine="466"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="439" Column="18" TopLine="431"/> <Caret Line="484" Column="110" TopLine="466"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="../../../lazarus/components/synedit/synedit.pp"/> <Filename Value="testunit.pas"/>
<Caret Line="6453" Column="13" TopLine="6449"/> <Caret Line="485" Column="130" TopLine="466"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="../../../lazarus/components/synedit/synedit.pp"/> <Filename Value="../../../lazarus/lcl/comctrls.pp"/>
<Caret Line="2120" Column="17" TopLine="2118"/> <Caret Line="1561" Column="66" TopLine="1544"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="testunit.pas"/> <Filename Value="../../../lazarus/lcl/comctrls.pp"/>
<Caret Line="131" Column="14" TopLine="112"/> <Caret Line="1495" Column="39" TopLine="1478"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>

413
Projects/SAMufasaGUI/testunit.lfm
View File

@ -1,7 +1,7 @@
object Form1: TForm1 object Form1: TForm1
Left = 569 Left = 436
Height = 553 Height = 553
Top = 162 Top = 152
Width = 723 Width = 723
ActiveControl = SynEdit1 ActiveControl = SynEdit1
Caption = 'Mufasa v2' Caption = 'Mufasa v2'
@ -27,7 +27,6 @@ object Form1: TForm1
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
BookMarkOptions.OnChange = nil
Gutter.Width = 57 Gutter.Width = 57
Gutter.MouseActions = < Gutter.MouseActions = <
item item
@ -721,7 +720,6 @@ object Form1: TForm1
Caption = 'ToolBar1' Caption = 'ToolBar1'
Images = Mufasa_Image_List Images = Mufasa_Image_List
TabOrder = 2 TabOrder = 2
OnClick = ToolBar1Click
object TB_Run: TToolButton object TB_Run: TToolButton
Left = 73 Left = 73
Top = 2 Top = 2
@ -735,6 +733,7 @@ object Form1: TForm1
Caption = 'ToolButton1' Caption = 'ToolButton1'
Enabled = False Enabled = False
ImageIndex = 5 ImageIndex = 5
OnClick = ButtonPauseClick
end end
object TB_Stop: TToolButton object TB_Stop: TToolButton
Left = 119 Left = 119
@ -742,6 +741,7 @@ object Form1: TForm1
Caption = 'ToolButton1' Caption = 'ToolButton1'
Enabled = False Enabled = False
ImageIndex = 7 ImageIndex = 7
OnClick = ButtonStopClick
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 142 Left = 142
@ -864,6 +864,9 @@ object Form1: TForm1
Top = 510 Top = 510
Width = 723 Width = 723
Panels = < Panels = <
item
Width = 75
end
item item
Text = 'Untitled' Text = 'Untitled'
Width = 150 Width = 150
@ -874,13 +877,49 @@ object Form1: TForm1
SimplePanel = False SimplePanel = False
end end
object MainMenu1: TMainMenu object MainMenu1: TMainMenu
left = 608 left = 560
object MenuFile: TMenuItem object MenuFile: TMenuItem
Caption = 'File' Caption = 'File'
SubMenuImages = Mufasa_Image_List SubMenuImages = Mufasa_Image_List
OnClick = MenuFileClick OnClick = MenuFileClick
object MenuItemNew: TMenuItem object MenuItemNew: TMenuItem
Caption = 'New' Caption = 'New'
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000FFFFFF00BB6A
346BBA6530BCBB6631EDBA6630F7BA6630F7BA6630F7BA6530F7BA652FF7B965
2EF7B9652EF7B9642EF7B9642EEFB7622CBDB7622E63FFFFFF00FFFFFF00BC69
33DEF8F1EAF2F7ECDFFDF6EBDEFFF6EADEFFF6EADCFFF6EADCFFFAF3EBFFFAF3
EBFFFAF2EAFFFCF7F3FFFCF8F4FDFEFEFDF0B7602AD5FFFFFF00FFFFFF00BF71
38F5F5EBDFFEFDBF68FFFCBD67FFFBBE65FFFCBE64FFFCBE64FFFCBD62FFFBBD
63FFFBBC61FFFCBE60FFFCBC62FFFDFBF8FDB9642DF3FFFFFF00FFFFFF00C178
3CF7F7EDE3FFFDC26EFFFFD8A0FFFFD79EFFFFD69BFFFFD798FFFFD696FFFFD6
95FFFFD594FFFFD493FFFBBE65FFFBF7F4FFBB6731F7FFFFFF00FFFFFF00C47C
40F7F7F0E6FFF8B455FFF7B456FFF7B554FFF8B453FFF8B253FFF7B352FFF7B3
52FFF7B251FFF7B24FFFF7B24FFFFCF9F5FFBF6F36F7FFFFFF00FFFFFF00C580
42F7F8F1E8FFFEE5D5FFFDE5D3FFFDE5D3FFFCE5D3FFFCE5D3FFFCE4D1FFFCE2
CEFFFCE2CCFFFBE0C9FFFBE1C8FFFDFAF7FFC1763BF7FFFFFF00FFFFFF00C582
45F7F8F2EBFFFEE7D6FFFDE7D6FFFDE7D6FFFDE7D6FFFDE6D5FFFDE5D3FFFCE4
D1FFFCE2CDFFFBE1CBFFFBE1C9FFFBF7F2FFC57C3FF7FFFFFF00FFFFFF00C684
47F7F9F3ECFFFEE8D6FFFEE8D7FFFDE7D6FFFDE7D6FFFDE7D5FFFDE5D3FFFBE4
D0FFFBE3CCFFFADFC7FFFADFC6FFFAF2EAFFC68042F7FFFFFF00FFFFFF00C688
49F7F9F4EDFFFEE8D8FFFEE8D8FFFEE8D7FFFEE7D6FFFDE5D3FFFCE4D1FFFBE1
CCFFFAE0C7FFF9DDC3FFF8DCC2FFFAF4EDFFC68245F7FFFFFF00FFFFFF00C688
4AF7F9F4EFFFFEE7D7FFFDE7D6FFFDE7D5FFFDE6D4FFFCE6D2FFFBE1CCFFFADF
C7FFF8DCC2FFF6DABDFFF6D8BBFFFAF4EFFFC68346F7FFFFFF00FFFFFF00C689
4BF7F9F4F0FFFCE6D3FFFCE6D4FFFDE7D3FFFCE4D1FFFBE3CDFFFAE0C8FFF8DC
C2FFF5D6BBFFF3D4B5FFF1D2B3FFF8F4F0FFC48246F7FFFFFF00FFFFFF00C689
4BF7F9F5F1FFFCE3CFFFFBE4D0FFFCE4CFFFFCE3CDFFFAE1CAFFF9DDC4FFF6D9
BCFFF4E9DFFFF7F2ECFFFBF7F3FFF5EFE9FFC27E45FBFFFFFF00FFFFFF00C689
4CF6F9F5F1FFFCE3CDFFFBE3CEFFFBE3CDFFFBE2CBFFF9E0C8FFF8DCC2FFF5D6
BAFFFDFBF8FFFCE6CDFFFAE5C9FFE2B684FFBF7942A6FFFFFF00FFFFFF00C588
4BEAFAF6F2FCFAE0C7FFFBE1C9FFFBE2C9FFFBE0C8FFF9DFC5FFF8DBC1FFF4D6
B8FFFFFBF8FFF6D8B4FFE1B07DFFDB9264F6B46B3E07FFFFFF00FFFFFF00C485
49C3F7F2ECECF8F4EEFCF8F4EDFFF8F3EDFFF8F3EDFFF8F3EDFFF8F2ECFFF7F2
ECFFF2E6D7FFE2B27DFFDB9465F5B3683B07FFFFFF00FFFFFF00FFFFFF00C17D
4460C88B4DBBC88C4FEEC88C4FF6C88C4FF7C88C4FF7C88D4FF7C98C4FF7C78B
4FF7C5894BD4C4763B91B3683C06FFFFFF00FFFFFF00FFFFFF00
}
ImageIndex = 9 ImageIndex = 9
ShortCut = 16462 ShortCut = 16462
SubMenuImages = Mufasa_Image_List SubMenuImages = Mufasa_Image_List
@ -888,12 +927,84 @@ object Form1: TForm1
end end
object MenuItemOpen: TMenuItem object MenuItemOpen: TMenuItem
Caption = 'Open' Caption = 'Open'
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
20000000000000040000640000006400000000000000000000002C86D8D12D88
D8F72D87D8F72D88D8F72D88D8F72D88D8F72D88D8F72D88D8F72D88D8F72D88
D8F72D88D8F72D87D8F72D88D8F72C86D8D1FFFFFF00FFFFFF00338ED9FBDCF0
FAFF98E1F6FF95E0F6FF92DFF6FF8EDEF5FF89DCF5FF85DAF4FF80D9F4FF7AD7
F3FF74D5F3FF70D3F2FFC2EAF8FF3594DAFFFFFFFF00FFFFFF003594DAF7EFFA
FEFF93E5F8FF8FE4F8FF89E3F8FF82E1F7FF7ADFF7FF71DEF6FF67DBF5FF5BD8
F4FF4DD4F3FF40D1F2FFCAF2FBFF3594DAFFFFFFFF00FFFFFF00369ADAF8F2FA
FDFF94E6F8FF92E5F8FF90E5F8FF8BE3F8FF86E2F7FF7FE1F7FF77DEF6FF6CDC
F6FF5ED9F4FF4FD5F3FFCCF2FBFF3594DAFFFFFFFF00FFFFFF0036A1DAF9F6FC
FEFF94E5F8FF93E5F8FF93E5F8FF91E5F8FF93DBE9FF93D7E3FF93D2DCFF90CE
D7FF8CC8CFFF86C1C6FFC9D8D6FF3594DAFFC57444E8CA7F53F137A6DAFAFEFF
FFFFF8FDFFFFF6FDFFFFF5FCFFFFF3FCFEFF9AE4F4FF9AE6F7FF9BE6F6FF9DE5
F5FF9EE5F5FF9FE5F4FFDAF3F8FF3594DAFFFDF4EEFFCA8054F935ABDAFAE8F6
FBFF70BCE7FF55AAE2FF4DA5E0FF91C9EBFFFAF3EFFFFDFEFDFFFFFDFCFFFFFD
FCFFFEFDFCFFFEFCFBFFFEFEFDFF3594DAFFEFF2E8FFCE8156FF36AADAF2F1FA
FDFF94DEF5FF93DCF4FF64BCE9FF3594DAFF3594DAFF3594DAFF3594DAFF3594
DAFF3594DAFF3594DAFF3594DAFF3594DAFFFBF6EFFFCC8355FE35AFDAF0F7FC
FEFF8EE4F8FF91DEF5FF9FE0F5FFACE1F6FFCA8452FFFFF7F1FFFFE9D9FFFFEA
DBFFFFE9D9FFFFE7D7FFFFE5D2FFFFE2CBFFFFF7F1FFCB8555FE36B3DAF8FDFE
FEFFFEFFFFFFFEFEFFFFFDFEFFFFFEFFFFFFE4BA91FFFFF7F0FFFFE7D5FFFDE7
D6FFFDE6D4FFFCE4D0FFFBE3CBFFFADCC2FFFEF3E8FFCC8656FE34B4D9D05EC2
E1FA60C3E2FA60C3E2FA60C3E2FA5FC3E2FAE4BB91FFFFF7F2FFFEE7D5FFFEE7
D5FFFDE5D1FFFAE0CAFFF9DEC4FFF7D9BCFFFDF2E7FFCC8757FEFFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E4BB92FFFEF7F1FFFCE5D2FFFCE4
D1FFFBE2CCFFF9DDC4FFF6D7BBFFF3D1AFFFFAEFE4FFCC8758FEFFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E4BB92FFFEF6F0FFFCE2CDFFFCE3
CDFFFADFC8FFF7D9BCFFF5E9DDFFFAF3EBFFFBF8F3FFCA8353FEFFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E4BB93FFFEF5EDFFFCDEC5FFFBE0
C7FFF9DCC2FFF5D3B4FFFEF9F3FFFAE2C4FFECC193FFC37D4893FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E5BE96FFFFFFFEFFFDF3E9FFFDF3
EAFFFCF2E8FFFAEFE3FFFAF2E7FFEABB88FFCF8555B3B4693D0CFFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EAC39DFFE6BF96FFE4BB92FFE4BB
92FFD1A06CF5D09E6DF6CC965FDAC479427EB2673C09FFFFFF00
}
ImageIndex = 10 ImageIndex = 10
ShortCut = 16463 ShortCut = 16463
OnClick = MenuItemOpenClick OnClick = MenuItemOpenClick
end end
object MenuItemSave: TMenuItem object MenuItemSave: TMenuItem
Caption = 'Save' Caption = 'Save'
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000BA6A368FB969
35B5B86935EEB76835FFB56835FFB46734FFB26634FFB06533FFAE6433FFAC63
32FFAA6232FFA96132FFA86031FFA76031FEA66031F1A86131C4BA6A35DEEBC6
ADFFEAC5ADFFFEFBF8FFFEFBF8FFFEFBF8FFFEFBF8FFFEFBF8FFFEFBF8FFFEFB
F8FFFEFBF8FFFEFBF8FFFEFBF8FFC89A7CFFC79879FFA76031EDBA6B37FEEDCA
B3FFE0A27AFFFEFAF7FF62C088FF62C088FF62C088FF62C088FF62C088FF62C0
88FF62C088FF62C088FFFDF9F6FFCA8D65FFC99B7CFFA76031FEBB6C38FFEECC
B6FFE1A27AFFFEFAF7FFBFDCC2FFBFDCC2FFBFDCC2FFBFDCC2FFBFDCC2FFBFDC
C2FFBFDCC2FFBFDCC2FFFDF9F6FFCD9068FFCC9E81FFA86132FFBB6B38FFEFCE
B8FFE1A279FFFEFAF7FF62C088FF62C088FF62C088FF62C088FF62C088FF62C0
88FF62C088FF62C088FFFDF9F6FFCF936AFFCEA384FFAA6132FFBA6A36FFEFD0
BBFFE2A27AFFFEFBF8FFFEFBF8FFFEFBF8FFFEFBF8FFFEFBF8FFFEFBF8FFFEFB
F8FFFEFBF8FFFEFBF8FFFEFBF8FFD3966DFFD2A78AFFAB6232FFBB6A36FFF0D2
BEFFE2A37AFFE2A37AFFE1A37AFFE2A37BFFE1A37BFFE0A178FFDE9F77FFDD9F
76FFDC9D74FFD99B72FFD89971FFD69970FFD5AB8EFFAD6333FFBB6A36FFF2D5
C2FFE3A37AFFE3A37AFFE2A37BFFE2A37BFFE2A47BFFE1A279FFE0A178FFDEA0
77FFDE9E75FFDC9D74FFDA9B73FFD99B73FFDAB095FFAF6433FFBB6A36FFF2D8
C5FFE3A47BFFE3A37AFFE3A47AFFE2A47BFFE2A37BFFE1A37BFFE1A279FFDFA0
77FFDE9F76FFDD9E74FFDB9C72FFDC9D74FFDDB59AFFB16534FFBB6B36FFF4D9
C7FFE6A67DFFC88C64FFC98D65FFC98E67FFCB926CFFCB926DFFCA9069FFC88C
65FFC88C64FFC88C64FFC88C64FFDA9C74FFE1BA9FFFB36634FFBB6B36FEF4DC
C9FFE7A77DFFF9ECE1FFF9ECE1FFF9EDE3FFFCF4EEFFFDFAF7FFFDF7F3FFFAED
E5FFF7E7DBFFF7E5D9FFF6E5D8FFDEA077FFE4BEA4FFB46734FFBC6B36FAF5DD
CCFFE7A87EFFFAF0E8FFFAF0E8FFC98D66FFFAF0E9FFFDF8F3FFFEFAF8FFFCF4
EFFFF9E9DFFFF7E7DBFFF7E5D9FFE0A278FFE7C2A9FFB66835FFBC6B36F0F6DF
D0FFE8A87EFFFCF6F1FFFCF6F1FFC88C64FFFAF1E9FFFBF4EEFFFDFAF7FFFDF9
F6FFFAF0E8FFF8E8DDFFF7E6DBFFE1A37AFFEFD5C3FFB76935FEBC6B36D8F6DF
D1FFE9AA80FFFEFAF6FFFDFAF6FFC88C64FFFBF3EEFFFBF1EAFFFCF6F2FFFEFB
F8FFFCF6F1FFF9ECE2FFF8E7DBFFEED0BAFFECD0BDFFBB703EF8BC6B369BF6E0
D1FFF7E0D1FFFEFBF8FFFEFBF7FFFDF9F6FFFCF5F0FFFAF0EAFFFBF2EDFFFDF9
F6FFFDFAF7FFFBF1EBFFF8E9DFFEECD0BDFBC9895EECB5693563BC6B3671BC6B
3690BC6B36CCBC6B36EEBC6B36FABB6B36FEBB6B36FFBB6A36FFBB6A36FFBC6C
39FFBD6E3BFFBB6D3AFFBB6B38EFBB703ECBB6693554FFFFFF00
}
ImageIndex = 14 ImageIndex = 14
ShortCut = 16467 ShortCut = 16467
OnClick = MenuItemSaveClick OnClick = MenuItemSaveClick
@ -909,24 +1020,168 @@ object Form1: TForm1
OnClick = MenuEditClick OnClick = MenuEditClick
object MenuItemUndo: TMenuItem object MenuItemUndo: TMenuItem
Caption = 'Undo' Caption = 'Undo'
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000018A6C3691AA7C46900A0C4180000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000A0C45D66DBEAB211A6C2AE0000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000A0C42243C4DBFC43C5D8FE23A6C07F00000000000000000000
00000000000000000000000000000000000000A0C4FF00000000000000000000
000000000000000000000EAACBFE5DDAE9FE23A6C0EF00000000000000000000
000000000000000000000000000000A0C4FF00A0C4FF00000000000000000000
000000000000009EC11A02ACC8FF88E7F2FE11A2C2FF00000000000000000000
00000000000005797D1100A0C4FF76EDFBFF00A0C4FF000000000000000000A0
C4300099B95000A0C4C96DE6F5FF76E2EFFF19A3C1FF00000000000000000000
000005797D1100A0C4FF76EDFBFF76EDFBFF00A0C4FF00A0C4FF00A0C4FF00A0
C4FF01A9C4FF6EE1EEFF0FC9DFFF69E4F2FF1AA4C0F800000000000000000579
7D1100A0C4FF76EDFBFF04C3DAFF76EDFBFF69EAF9FF69EAF9FF69EAF9FF69EA
F9FF05DDF7FF0AC8DFFF07C2D8FF6FDCEBFF1BA3BFF40000000005797E1100A0
C4FF79EDFBFF32E2F8FF2CDFF4FF04C0D6FF04C0D6FF04C0D6FF1DD2E8FF1DD2
E8FF1DD2E8FF0BC8DFFF6AE5F3FF1BABC5F815A0BCCB0000000000A0C4FFADF3
FBFF2FE0F6FF32E2F8FF32E2F7FF32E2F7FF2FE0F5FF29DBF1FF1DD2E8FF1DD2
E8FF1DD2E8FF36D9ECFF40CDE1FF16A1BDCA05797D0A0000000005797D0A00A0
C4FFADF3FBFF2FE0F6FF32E2F7FF29DBF1FF2FE0F5FF29DBF1FF16CDE3FF36D9
ECFF69E7F6FF41CEE3FE13A3C1E405797D320000000000000000000000000579
7D1100A0C4FFADF3FBFF31E1F6FF20E3FAFF73ECFAFF6FEBFAFF6EE8F7FF6CE8
F7F814A1BCD414A3C1D505797D1C000000000000000000000000000000000000
000005797D1100A0C4FFADF3FBFF25E4FBFF00A0C4FF00A0C4FF13A1BEE7159F
BBCF1BA1BBA4067A7C0B00000000000000000000000000000000000000000000
00000000000005797D1100A0C4FFADF3FBFF00A0C4FF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000009DBF1400A0C4FF00A0C4FF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000A0C4FF00000000000000000000
0000000000000000000000000000000000000000000000000000
}
ImageIndex = 18 ImageIndex = 18
ShortCut = 16474 ShortCut = 16474
OnClick = MenuItemUndoClick OnClick = MenuItemUndoClick
end end
object MenuItemRedo: TMenuItem object MenuItemRedo: TMenuItem
Caption = 'Redo' Caption = 'Redo'
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000FFFFFF000000
000000A0C4181AA7C46918A6C369000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000FFFFFF000000
000011A6C2AE66DBEAB200A0C45D000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000FFFFFF0023A6
C07F43C5D8FE43C4DBFC00A0C422000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000FFFFFF0023A6
C0EF5DDAE9FE0EAACBFE000000000000000000000000000000000000000000A0
C4FF000000000000000000000000000000000000000000000000FFFFFF0011A2
C2FF88E7F2FE02ACC8FF009EC11A0000000000000000000000000000000000A0
C4FF00A0C4FF0000000000000000000000000000000000000000FFFFFF0019A3
C1FF76E2EFFF6DE6F5FF00A0C4C90099B95000A0C430000000000000000000A0
C4FF76EDFBFF00A0C4FF05797D11000000000000000000000000FFFFFF001AA4
C0F869E4F2FF0FC9DFFF6EE1EEFF01A9C4FF00A0C4FF00A0C4FF00A0C4FF00A0
C4FF76EDFBFF76EDFBFF00A0C4FF05797D110000000000000000FFFFFF001BA3
BFF46FDCEBFF07C2D8FF0AC8DFFF05DDF7FF69EAF9FF69EAF9FF69EAF9FF69EA
F9FF76EDFBFF04C3DAFF76EDFBFF00A0C4FF05797D1100000000FFFFFF0015A0
BCCB1BABC5F86AE5F3FF0BC8DFFF1DD2E8FF1DD2E8FF1DD2E8FF04C0D6FF04C0
D6FF04C0D6FF2CDFF4FF32E2F8FF79EDFBFF00A0C4FF05797E11FFFFFF000579
7D0A16A1BDCA40CDE1FF36D9ECFF1DD2E8FF1DD2E8FF1DD2E8FF29DBF1FF2FE0
F5FF32E2F7FF32E2F7FF32E2F8FF2FE0F6FFADF3FBFF00A0C4FFFFFFFF000000
000005797D3213A3C1E441CEE3FE69E7F6FF36D9ECFF16CDE3FF29DBF1FF2FE0
F5FF29DBF1FF32E2F7FF2FE0F6FFADF3FBFF00A0C4FF05797D0AFFFFFF000000
00000000000005797D1C14A3C1D514A1BCD46CE8F7F86EE8F7FF6FEBFAFF73EC
FAFF20E3FAFF31E1F6FFADF3FBFF00A0C4FF05797D1100000000FFFFFF000000
00000000000000000000067A7C0B1BA1BBA4159FBBCF13A1BEE700A0C4FF00A0
C4FF25E4FBFFADF3FBFF00A0C4FF05797D110000000000000000FFFFFF000000
00000000000000000000000000000000000000000000000000000000000000A0
C4FFADF3FBFF00A0C4FF05797D11000000000000000000000000FFFFFF000000
00000000000000000000000000000000000000000000000000000000000000A0
C4FF00A0C4FF009DBF1400000000000000000000000000000000FFFFFF000000
00000000000000000000000000000000000000000000000000000000000000A0
C4FF000000000000000000000000000000000000000000000000
}
ImageIndex = 12 ImageIndex = 12
ShortCut = 24666 ShortCut = 24666
OnClick = MenuItemRedoClick OnClick = MenuItemRedoClick
end end
object MenuItemCut: TMenuItem object MenuItemCut: TMenuItem
Caption = 'Cut' Caption = 'Cut'
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00020D8C0A1C27A69F353F
C9F7222DAFB9030D8C1CFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00050F8D1F06108E26010B8A03FFFFFF00121C9B70404BD9FF2C35
BFDD3D47D1FF1D27A9A4FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF000F199763323DC7F83741CFFF1F29ABB0000A8618232DB4AF3540CCFD0009
85181C27A895343EC5F8040E8C14FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF002F3ABDDE353FC9E52530B3C23F4ADDFF1F2AACC22430B2CB323CC6F2000A
8603111B9D773741C8FF08128E20FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00323CC3EC232EADAFFFFFFF001A25A8994250D2FFCBA375FE414FD6FF1621
A39D2F39C0D42E38BEDF020D8B0AFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF001D28A99C3B46CCFF0812903A071190533B48D4FFDBBD9CFFEECCA6FF404C
DEFF3A43D1FF0F199869FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00030D8C1F2C35B9D73C46CFFF333ECAF23F4CD7FFD8BC9AFFF6EAE1FFBB92
5ABF9462183B91611A01FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00030D8C1F1B26A7992A34BACC111C9D89BB9869CCF0E0D0FFB791
5FC58F5D140BFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00000B8802FFFFFF00B48E5A90F6EADDFFE1CD
B4FFB18D5DBFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00B38C5789F1E2D4FFCEB2
8EF4F5EBE0FFA67F4A9DFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00B1895384EEDFCEFF9766
2065C2A37CDAE9D8C5FDA9824E7BFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00AF87507CE7D5C1FF9565
1F2B8F5C121BC5A783E7D5BC9DE1B5936462FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00AC834B75DEC9AFFF9564
1D1FFFFFFF0092601726C3A47CEBB59063CBFFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00AA81476FD6BD9FF79361
1910FFFFFF00FFFFFF009666202CA9804BCBFFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A87D4269CCB08BE0915D
1409FFFFFF00FFFFFF00FFFFFF0092601706FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF009A6B2731AA7E43A19260
1805FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
}
ImageIndex = 3 ImageIndex = 3
ShortCut = 16472 ShortCut = 16472
OnClick = MenuItemCutClick OnClick = MenuItemCutClick
end end
object MenuItemPaste: TMenuItem object MenuItemPaste: TMenuItem
Caption = 'Paste' Caption = 'Paste'
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF005E5E5E025B5B5B775858588A5555558A5252
528A4F4F4F8A4C4C4C8A4A4A4A8A4848488A4646468A444444662063984A2063
98CF206398FF206398FF206398FF246395FF587388FFF7F7F7FFF0F0F0FFF0F0
F0FFF0F0F0FFF0F0F0FFF0F0F0FFF0F0F0FFF3F3F3FA46464684206398C262A5
D7FF65A8DAFF64A6D9FF62A4D8FF629FD1FF758EA4FFEFEFEFFFE7E7E7FFE7E7
E7FFE7E7E7FFE7E7E7FFE6E6E6FFE6E6E6FFECECECFA49494984206398FF68AB
DCFF488ECFFF468BCEFF4387CDFF4484C6FF6885A1FFF0F0F0FFB4B4B4FFB4B4
B4FFB4B4B4FFB4B4B4FFB4B4B4FFB3B3B3FFEDEDEDFA4C4C4C84206398FF69AE
DCFF4A93D1FF488FD0FF468BCEFF4788C7FF6C88A3FFF0F0F0FFE8E8E8FFE8E8
E8FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FFEDEDEDFA4F4F4F84206398FF6BB1
DEFF4D97D3FF4B93D2FF488FD0FF4A8CC9FF6F8BA5FFF1F1F1FFB6B6B6FFB5B5
B5FFB5B5B5FFB4B4B4FFB4B4B4FFB4B4B4FFEDEDEDFA53535384206398FF6DB3
DFFF509CD5FF4E98D3FF4B94D1FF4C91CBFF708EA7FFF1F1F1FFE9E9E9FFE9E9
E9FFE8E8E8FFE8E8E8FFE8E8E8FFE7E7E7FFEDEDEDFA56565684206398FF70B5
E0FF529FD7FF509CD6FF4E98D4FF4F95CDFF7391AAFFF1F1F1FFB7B7B7FFB6B6
B6FFB6B6B6FFB6B6B6FFB5B5B5FFB5B5B5FFEEEEEEFA5A5A5A84206398FF73B7
E1FF57A3D7FF53A0D7FF509DD5FF5299CFFF7594ACFFF8F8F8FFF2F2F2FFF2F2
F2FFF2F2F2FFF2F2F2FFF2F2F2FFF1F1F1FFF4F4F4FA5E5E5E84206398FF76B9
E2FF5CA7D9FF58A4D8FF53A0D7FF539ED5FF618BA9FF6488A1FF6487A1FF6386
A0FF69879FFF4A6881FF6A6A6A8A6868688A6565658A62626263206398FF7ABB
E3FF61AADBFF5AA5D9FF53A0D7FF529FD7FF529FD7FF529FD7FF529FD7FF529F
D7FF62A3D8FF206398FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00206398FF7CBD
E4FF65AEDDFF62ABDCFF5EA8DAFF5CA7D9FF5CA7D9FF5CA7D9FF5CA7D9FF529F
D7FF62A3D8FF206398FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00206398FF7FBF
E4FF69B2DEFF4A9BDAFF4497DCFF4396DCFF4296DCFF4295DCFF4195DBFF519E
D6FF6CB2DEFF206398FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00206398E071B3
DBFE7EBFE4FF4E9DDFFFB5EEFDFF75D4F0FF75D4F0FFB5EEFDFF4B9BDEFF6EB4
E0FF6DB3DFF9206398F3FFFFFF00FFFFFF00FFFFFF00FFFFFF00206398322063
98B2206398FF3775A4FFB6EFFEFF80DBF3FF80DBF3FFB6EFFEFF2E6EA1FF2063
98FF206398A520639853FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF002063982A206398FF206398FF206398FF206398FF206398FF206398F0FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
}
ImageIndex = 11 ImageIndex = 11
ShortCut = 16470 ShortCut = 16470
OnClick = MenuItemPasteClick OnClick = MenuItemPasteClick
@ -937,6 +1192,42 @@ object Form1: TForm1
SubMenuImages = Mufasa_Image_List SubMenuImages = Mufasa_Image_List
object MenuItemRun: TMenuItem object MenuItemRun: TMenuItem
Caption = 'Run' Caption = 'Run'
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
000004733AFF21824FFF638272FF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000004733AFF7ACFA4FF2C8C5AFF3D7659FFAEAEAEFF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000004733AFF82D8ACFF76D6A6FF3C9D6AFF27744CFFACAEADFF000000000000
0000000000000000000000000000000000000000000000000000000000000000
000009773FFF83DBAEFF1FC671FF72DEA7FF4BB27FFF177445FFA8ADAAFF0000
0000000000000000000000000000000000000000000000000000000000000000
000004733AFF83DCAFFF11C369FF1ACC73FF69DFA3FF5AC28DFF137643FF9EA7
A3FF000000000000000000000000000000000000000000000000000000000000
000004733AFFA9DCC1FF10BD65FF11C167FF13C269FF59D395FF67C998FF167C
47FF889C92FF0000000000000000000000000000000000000000000000000000
000004733AFFA9DCC1FF0DB35EFF0EB660FF0EB660FF0DB45FFF47C484FF70CA
9CFF1D824DFF678C79FF00000000000000000000000000000000000000000000
000004733AFFA9DCC1FF0CAA58FF12AE5EFF15AF60FF16AD61FF13AA5DFF3AB6
77FF75C79DFF288957FF4E8367FF000000000000000000000000000000000000
000004733AFFA9DCC1FF2EAD6BFF2BAD6AFF27AB68FF22A964FF1CA55FFF41B2
78FF78C69FFF298858FF678C79FF000000000000000000000000000000000000
000004733AFFA9DCC1FF36AD70FF32AC6DFF2DAA6AFF28A866FF58BC89FF78C5
9DFF1F804EFF839A8EFF00000000000000000000000000000000000000000000
000004733AFFA9DCC1FF3EB176FF3AAF73FF36AE70FF6FC598FF71BF97FF187B
49FFA6B0ABFF0000000000000000000000000000000000000000000000000000
000004733AFFA9DCC1FF45B47BFF47B47CFF82CCA6FF67B68CFF177745FFC1C5
C3FF000000000000000000000000000000000000000000000000000000000000
000004733AFFA5DABFFF57BB87FF90D2B0FF5BAB82FF23774CFFD4D5D4FF0000
0000000000000000000000000000000000000000000000000000000000000000
000004733AFFA9DCC1FF9BD5B7FF4C9F73FF3D7D5CFF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000004733AFFA4D9BEFF3D9366FF5F8873FF0000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000004733AFF2D8859FF859C90FF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
}
ImageIndex = 6 ImageIndex = 6
ShortCut = 120 ShortCut = 120
OnClick = MenuItemRunClick OnClick = MenuItemRunClick
@ -946,7 +1237,7 @@ object Form1: TForm1
object Mufasa_Image_List: TImageList object Mufasa_Image_List: TImageList
left = 512 left = 512
Bitmap = { Bitmap = {
4C69130000001000000010000000424242004242420042424200424242004242 4C69140000001000000010000000424242004242420042424200424242004242
420042424200424242004242420042424200424242004242420042424200A155 420042424200424242004242420042424200424242004242420042424200A155
42FFA15542FFA15542FF4242420E424242004242420042424200424242004242 42FFA15542FFA15542FF4242420E424242004242420042424200424242004242
4200424242004242420042424200424242004242420042424200A15542FFFFDA 4200424242004242420042424200424242004242420042424200A15542FFFFDA
@ -1010,38 +1301,38 @@ object Form1: TForm1
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF003737 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
37081D1D1DFF0D0D0DADFFFFFF00FFFFFF000E0E0EAD202020FF3A3A3A02FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00242424520202 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0059AA
02D7000000FF000000DFFFFFFF00FFFFFF00000000DF000000FF030303D32C2C 834859AA83AB59AA83D259AA83FF59AA83D559AA83AE59AA8351FFFFFF00FFFF
2C46FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0012121297000000DF0000 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0056A7801856A780C36CB3
00FF000000FF000000DFFFFFFF00FFFFFF00000000DF000000FF000000FF0000 92FFA8D5C3FFC5E6DBFF71B797FFC6E6DCFFA9D6C4FF6FB594FF56A780C656A7
00DF1C1C1C8BFFFFFF00FFFFFF00FFFFFF001C1C1C70000000DF000000FF0000 801EFFFFFF00FFFFFF00FFFFFF00FFFFFF0052A27D1B53A37EE48FC6AEFFC8E8
00FF000000FF000000DFFFFFFF00FFFFFF00000000DF000000FF000000FF0000 DFFFDFF2ECFFF9FDFBFF77B899FFF8FCFBFFDCF1EBFFC7E7DEFF93C8B2FF55A4
00FF000000DF30303062FFFFFF003636360E010101DD000000FF000000FF0000 80E852A27D1EFFFFFF00FFFFFF00FFFFFF004D9D78C08CC3ABFFC3E6DCFFF5FB
00FF000000FF000000DF000000DF000000DF000000DF000000FF000000FF0000 F9FFC5E6DCFF9DD5C5FF5CAA87FF9FD6C5FFC9E8DFFFF4FAF9FFC0E4D9FF93C7
00FF000000FF030303D9636363021D1D1DFF000000FF000000FF000000FF0000 B2FF4D9D78CCFFFFFF00FFFFFF004898735160A787FFADDACBFFEFF8F5FF9BD2
00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 C1FF82C7B2FF82C7B2FF56A482FF82C7B2FF82C7B2FF9CD3C2FFF0F8F6FFA9D8
00FF000000FF000000FF454545FF0A0A0AB9000000DF000000DF000000DF0000 CAFF65AA8BFF48987354FFFFFF0042916EAE90C5B0FFCDE8DFFFB6DDD0FF78C1
00DF000000FF000000FF000000FF000000FF000000FF000000FF000000DF0000 A9FF8DCAB6FFE4F3EEFF69A98DFFE2F2EDFF8BCAB5FF78C1A9FFB9DFD2FFC8E5
00DF000000DF000000DF232323A9FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 DCFF95C8B5FF42916EB4FFFFFF003C8B68DB81C2AAFFF1F9F6FF7CC1A9FF6EBB
00DF000000FF000000FF000000FF000000FF000000FF000000FF000000DFFFFF A0FFE5F3EEFFABD8C8FF75BEA4FFB1DACCFFDDEFE9FF6EBBA0FF81C4ACFFF0F8
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 F5FF81C2ACFF3C8B68E7FFFFFF00368462F0418F6FFF5E9C82FF3F8E6DFF408E
00DF000000FF000000FF000000FF000000FF000000FF000000FF000000DFFFFF 6EFF5E9C82FF64B497FF64B497FF68B699FF5D9C82FF408E6EFF408E6EFF5D9C
FF00FFFFFF00FFFFFF00FFFFFF000A0A0ABB000000DF000000DF000000DF0000 82FF408E6EFF3B8766F9FFFFFF002F7D5DDE55A888FFF1F8F6FF6EB79CFF59AC
00DF000000FF000000FF000000FF000000FF000000FF000000FF000000DF0000 8DFFE0EFEAFF99CCB9FF59AC8DFFA1D0BFFFD8EBE4FF59AC8DFF6EB79CFFEDF6
00DF000000DF000000DF2B2B2BA9202020FF000000FF000000FF000000FF0000 F3FF58AA8BFF2F7D5DE7FFFFFF00297657AB489879FFBDDDD1FFA8D3C2FF4FA5
00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 84FF68B295FFD8EBE4FF539177FFD1E8DFFF66B194FF4FA584FFAED6C7FFB7DA
00FF000000FF000000FF626262FF3E3E3E0E010101DD000000FF000000FF0000 CCFF469978FF297657B4FFFFFF0023705151358163FF57A887FFEDF6F3FF6CB3
00FF000000FF000000DF000000DF000000DF000000DF000000FF000000FF0000 97FF459F7BFF459F7BFF287758FF459F7BFF459F7BFF73B79CFFF2F8F6FF5DAB
00FF000000FF050505D9ACACAC02FFFFFF0025252574000000DF000000FF0000 8CFF388465FF23705157FFFFFF00FFFFFF001D694CCC308764FF72B69AFFF3F9
00FF000000FF000000DFFFFFFF00FFFFFF00000000DF000000FF000000FF0000 F7FFA3CFBDFF60AC8DFF217051FF65AF90FFA7D1C0FFF3F9F7FF70B598FF318A
00FF000000DF69696964FFFFFF00FFFFFF00FFFFFF001D1D1D9B000000DF0000 66FF1D694CB4FFFFFF00FFFFFF00FFFFFF00186447211A6649EA29815DFF50A2
00FF000000FF000000DFFFFFFF00FFFFFF00000000DF000000FF000000FF0000 80FFB0D5C6FFEEF6F3FF438069FFECF5F1FFADD4C4FF4DA17EFF2A845FFF1B67
00DF4C4C4C8BFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00484848520606 49EB1864471BFFFFFF00FFFFFF00FFFFFF00FFFFFF00135F4215135F42AE1A6C
06D7000000FF000000DFFFFFFF00FFFFFF00000000DF000000FF0B0B0BD38B8B 4CFF25805BFF2B8D64FF166547FF2C8D65FF25815BFF1B6E4DFF135F42B7135F
8B46FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008181 421BFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000F5A
81084E4E4EFF252525AFFFFFFF00FFFFFF002C2C2CAD646464FFBEBEBE02FFFF 3F570F5A3FB70F5A3FF60F5A3FFF0F5A3FF60F5A3FBA0F5A3F5DFFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF009A6B2731AA7E43A192601805FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF009A6B2731AA7E43A192601805FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
@ -1554,10 +1845,43 @@ object Form1: TForm1
000000000000000000000000000000000000000000000000000000A0C45D66DB 000000000000000000000000000000000000000000000000000000A0C45D66DB
EAB211A6C2AE0000000000000000000000000000000000000000000000000000 EAB211A6C2AE0000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000018A6C3691AA7 000000000000000000000000000000000000000000000000000018A6C3691AA7
C46900A0C4180000000000000000 C46900A0C4180000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000A2000000A5000000A8000000
A91A0000AA6C0000AAA60000AAC40000AAC40000AAA60000AA6C0000A91A0000
A8000000A5000000A200FFFFFF00FFFFFF000000A2000000A5000000A84D0909
AEBF3737D0E35C5CEAF56A6AF3FD6969F2FD5B5BE9F53636CFE30909AEBF0000
A84D0000A5000000A200FFFFFF00FFFFFF000000A2000000A54D1010B1CD5B5B
E8F65F5FE7FF5B5BE3FF5B5BE3FF5B5BE3FF5B5BE3FF5F5FE7FF5858E4F60F0F
B0CD0000A54D0000A200FFFFFF00FFFFFF000000A11A0808A8BF5656E2F65151
D9FFFFFFFFFF4F4FD7FF4F4FD7FF4F4FD7FF4F4FD7FFFFFFFFFF5050D8FF4F4F
DCF60707A7BF0000A11AFFFFFF00FFFFFF0000009E6C3232C6E34949D1FFFFFF
FFFFFFFFFFFFFFFFFFFF4242CAFF4242CAFFFFFFFFFFFFFFFFFFFFFFFFFF4747
CFFF2A2ABDE300009E6CFFFFFF00FFFFFF0000009AA74747D3F53737BFFF2323
ABFFFFFFFFFFF7F7F7FFE8E8E8FFDEDEDEFFDBDBDBFFDDDDDDFF11119BFF1616
A0FF2727B4F500009AA7FFFFFF00FFFFFF00000096C44949D1FD3333BBFF2E2E
B8FF13139FFFCECECEFFD1D1D1FFD6D6D6FFDCDCDCFF11119EFF1111A1FF1111
A1FF1D1DACFD000096C4FFFFFF00FFFFFF00000092C44444CDFD2626B5FF1414
ABFF1111AAFFD1D1D1FFD6D6D6FFDCDCDCFFE2E2E2FF1111AAFF1111AAFF1111
AAFF1818AFFD000092C4FFFFFF00FFFFFF0000008DA72E2EC0F51212B4FF1111
B4FFD1D1D1FFD6D6D6FFDCDCDCFFE2E2E2FFE6E6E6FFEAEAEAFF1111B4FF1111
B4FF1212AFF500008DA7FFFFFF00FFFFFF000000896C1616AAE21616C1FFD1D1
D1FFD6D6D6FFDCDCDCFF1111ADFF1111ADFFEAEAEAFFEEEEEEFFEEEEEEFF1111
BEFF0909A1E30000896CFFFFFF00FFFFFF000000851A03038ABF1818C1F61212
B2FFDCDCDCFF1111B2FF1111C8FF1111C8FF1111B2FFEEEEEEFF1111B2FF0F0F
BCF6020289BF0000851AFFFFFF00FFFFFF000000830000007F4D040488CD1212
C4F61212B6FF1111D1FF1111D1FF1111D1FF1111D1FF1111B6FF0F0FC2F60303
88CD00007F4D00008300FFFFFF00FFFFFF000000000000001F000000534D0202
74BF08089DE30E0EC4F51111D4FD1111D4FD0E0EC4F508089DE3020274BF0000
534D00001F0000000000FFFFFF00FFFFFF0000000004000000170000002B0000
1A430000448000005AAB00005DC400005DC400005AAB0000448000001A430000
002D0000001800000004FFFFFF00FFFFFF00000000020000000C000000160000
001A0000001A0000001A0000001A0000001A0000001A0000001A0000001A0000
00170000000C00000002FFFFFF00
} }
end end
object MTrayIcon: TTrayIcon object MTrayIcon: TTrayIcon
PopUpMenu = TrayPopup
Icon.Data = { Icon.Data = {
F6030000000001000100100E000001002000E003000016000000280000001000 F6030000000001000100100E000001002000E003000016000000280000001000
00001C0000000100200000000000000000000000000000000000000000000000 00001C0000000100200000000000000000000000000000000000000000000000
@ -1610,4 +1934,15 @@ object Form1: TForm1
NestedComments = True NestedComments = True
left = 424 left = 424
end end
object TrayPopup: TPopupMenu
left = 600
object MenuItemShow: TMenuItem
Caption = 'Show'
OnClick = MenuItemShowClick
end
object MenuItemExit: TMenuItem
Caption = 'Exit'
OnClick = MenuItemExitClick
end
end
end end

2480
Projects/SAMufasaGUI/testunit.lrs
View File

File diff suppressed because it is too large Load Diff

154
Projects/SAMufasaGUI/testunit.pas
View File

@ -41,13 +41,21 @@ uses
, SynEditKeyCmds; , SynEditKeyCmds;
type type
TScriptState = (ss_None,ss_Running,ss_Paused,ss_Stopping);
{
ss_None: Means the script either hasn't been run yet, or it has ended (Succesfully or terminated)
ss_Running: Means the script is running as we speak :-)
ss_Paused: Means the script is currently in pause modus.
ss_Stopping: Means we've asked PS-Script politely to stop the script (next time we press the stop button we won't be that nice).
}
{ TForm1 } { TForm1 }
TForm1 = class(TForm) TForm1 = class(TForm)
Memo1: TMemo; Memo1: TMemo;
MenuFile: TMenuItem; MenuFile: TMenuItem;
MenuEdit: TMenuItem; MenuEdit: TMenuItem;
MenuItemShow: TMenuItem;
MenuItemExit: TMenuItem;
MenuItemCut: TMenuItem; MenuItemCut: TMenuItem;
MenuItemPaste: TMenuItem; MenuItemPaste: TMenuItem;
MenuItemNew: TMenuItem; MenuItemNew: TMenuItem;
@ -60,6 +68,7 @@ type
MainMenu1: TMainMenu; MainMenu1: TMainMenu;
MenuItemScript: TMenuItem; MenuItemScript: TMenuItem;
MenuItemRun: TMenuItem; MenuItemRun: TMenuItem;
TrayPopup: TPopupMenu;
StatusBar: TStatusBar; StatusBar: TStatusBar;
SynEdit1: TSynEdit; SynEdit1: TSynEdit;
SynFreePascalSyn1: TSynFreePascalSyn; SynFreePascalSyn1: TSynFreePascalSyn;
@ -86,6 +95,7 @@ type
procedure ButtonDragClick(Sender: TObject); procedure ButtonDragClick(Sender: TObject);
procedure ButtonNewClick(Sender: TObject); procedure ButtonNewClick(Sender: TObject);
procedure ButtonOpenClick(Sender: TObject); procedure ButtonOpenClick(Sender: TObject);
procedure ButtonPauseClick(Sender: TObject);
procedure ButtonRunClick(Sender: TObject); procedure ButtonRunClick(Sender: TObject);
procedure ButtonSaveClick(Sender: TObject); procedure ButtonSaveClick(Sender: TObject);
procedure ButtonClearClick(Sender: TObject); procedure ButtonClearClick(Sender: TObject);
@ -95,12 +105,14 @@ type
procedure MenuEditClick(Sender: TObject); procedure MenuEditClick(Sender: TObject);
procedure MenuFileClick(Sender: TObject); procedure MenuFileClick(Sender: TObject);
procedure MenuItemCutClick(Sender: TObject); procedure MenuItemCutClick(Sender: TObject);
procedure MenuItemExitClick(Sender: TObject);
procedure MenuItemNewClick(Sender: TObject); procedure MenuItemNewClick(Sender: TObject);
procedure MenuItemOpenClick(Sender: TObject); procedure MenuItemOpenClick(Sender: TObject);
procedure MenuItemPasteClick(Sender: TObject); procedure MenuItemPasteClick(Sender: TObject);
procedure MenuItemRunClick(Sender: TObject); procedure MenuItemRunClick(Sender: TObject);
procedure MenuItemSaveAsClick(Sender: TObject); procedure MenuItemSaveAsClick(Sender: TObject);
procedure MenuItemSaveClick(Sender: TObject); procedure MenuItemSaveClick(Sender: TObject);
procedure MenuItemShowClick(Sender: TObject);
procedure OnLinePSScript(Sender: TObject); procedure OnLinePSScript(Sender: TObject);
procedure OnSyneditChange(Sender: TObject); procedure OnSyneditChange(Sender: TObject);
procedure ButtonPickClick(Sender: TObject); procedure ButtonPickClick(Sender: TObject);
@ -108,9 +120,10 @@ type
procedure ButtonSelectorDown(Sender: TObject; Button: TMouseButton; procedure ButtonSelectorDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); Shift: TShiftState; X, Y: Integer);
procedure NoTray(Sender: TObject); procedure NoTray(Sender: TObject);
procedure ScriptThreadTerminate(Sender: TObject);
procedure SynEditProcessCommand(Sender: TObject; procedure SynEditProcessCommand(Sender: TObject;
var Command: TSynEditorCommand; var AChar: TUTF8Char; Data: pointer); var Command: TSynEditorCommand; var AChar: TUTF8Char; Data: pointer);
procedure ToolBar1Click(Sender: TObject); procedure ButtonStopClick(Sender: TObject);
procedure ButtonTrayClick(Sender: TObject); procedure ButtonTrayClick(Sender: TObject);
procedure MenuItemUndoClick(Sender: TObject); procedure MenuItemUndoClick(Sender: TObject);
private private
@ -119,17 +132,23 @@ type
ScriptName : string;//The name of the currently opened/saved file. ScriptName : string;//The name of the currently opened/saved file.
ScriptDefault : string;//The default script e.g. program new; begin end. ScriptDefault : string;//The default script e.g. program new; begin end.
ScriptChanged : boolean;//We need this for that little * (edited star). ScriptChanged : boolean;//We need this for that little * (edited star).
ScriptThread : TMMLPSThread;//Just one thread for now..
FScriptState : TScriptState;//Defines the "state" of the current script. (Acces through property for form updates).
procedure SetScriptState(const State: TScriptState);
public public
Window: TMWindow; Window: TMWindow;
Picker: TMColorPicker; Picker: TMColorPicker;
Selector: TMWindowSelector; Selector: TMWindowSelector;
property ScriptState : TScriptState read FScriptState write SetScriptState;
procedure SafeCallThread; procedure SafeCallThread;
function OpenScript : boolean; function OpenScript : boolean;
function SaveCurrentScript : boolean; function SaveCurrentScript : boolean;
function SaveCurrentScriptAs : boolean; function SaveCurrentScriptAs : boolean;
function CanExitOrOpen : boolean; function CanExitOrOpen : boolean;
function ClearScript : boolean; function ClearScript : boolean;
procedure run; procedure RunScript;
procedure PauseScript;
procedure StopScript;
procedure undo; procedure undo;
procedure redo; procedure redo;
procedure Cut; procedure Cut;
@ -137,6 +156,11 @@ type
end; end;
const const
WindowTitle = 'Mufasa v2 - %s';//Title, where %s = the place of the filename. WindowTitle = 'Mufasa v2 - %s';//Title, where %s = the place of the filename.
Panel_State = 0;
Panel_ScriptName = 1;
Panel_ScriptPath = 2;
Image_Stop = 7;
Image_Terminate = 19;
var var
Form1: TForm1; Form1: TForm1;
MainDir : string; MainDir : string;
@ -148,29 +172,73 @@ uses
procedure TForm1.Run; procedure TForm1.RunScript;
Var
MMLPSThread : TMMLPSThread;
begin begin
if ScriptState = ss_Paused then
begin;
ScriptThread.Resume;
ScriptState := ss_Running;
Exit;
end else
if ScriptState <> ss_None then
begin;
Writeln('The script hasn''t stopped yet, so we cannot start a new one.');
exit;
end;
CurrentSyncInfo.SyncMethod:= @Self.SafeCallThread; CurrentSyncInfo.SyncMethod:= @Self.SafeCallThread;
MMLPSThread := TMMLPSThread.Create(True,@CurrentSyncInfo); ScriptThread := TMMLPSThread.Create(True,@CurrentSyncInfo);
MMLPSThread.SetPSScript(Self.SynEdit1.Lines.Text); ScriptThread.SetPSScript(Self.SynEdit1.Lines.Text);
MMLPSThread.SetDebug(Self.Memo1); ScriptThread.SetDebug(Self.Memo1);
if ScriptFile <> '' then if ScriptFile <> '' then
MMLPSThread.SetPaths( ExtractFileDir(ScriptFile) + DS,IncludeTrailingPathDelimiter(ExpandFileName(MainDir +DS + '..' + DS + '..' + ds))) ScriptThread.SetPaths( ExtractFileDir(ScriptFile) + DS,IncludeTrailingPathDelimiter(ExpandFileName(MainDir +DS + '..' + DS + '..' + ds)))
else else
MMLPSThread.SetPaths('', IncludeTrailingPathDelimiter(ExpandFileName(MainDir +DS + '..' + DS + '..' + ds))); ScriptThread.SetPaths('', IncludeTrailingPathDelimiter(ExpandFileName(MainDir +DS + '..' + DS + '..' + ds)));
// This doesn't actually set the Client's MWindow to the passed window, it // This doesn't actually set the Client's MWindow to the passed window, it
// only copies the current set window handle. // only copies the current set window handle.
MMLPSThread.Client.MWindow.SetWindow(Self.Window); ScriptThread.Client.MWindow.SetWindow(Self.Window);
MMLPSThread.Resume; ScriptThread.OnTerminate:=@ScriptThreadTerminate;
ScriptState:= ss_Running;
//Lets run it!
ScriptThread.Resume;
end;
// sleep(500); procedure TForm1.PauseScript;
// MMLPSThread.PSScript.Stop; begin
if ScriptState = ss_Running then
begin;
ScriptThread.Suspended:= True;
ScriptState:= ss_Paused;
end else if ScriptState = ss_Paused then
begin;
ScriptThread.Resume;
ScriptState := ss_Running;
end;
end;
procedure TForm1.StopScript;
begin
case ScriptState of
ss_Stopping:
begin //Terminate the thread the tough way.
writeln('Terminating the Scriptthread');
KillThread(ScriptThread.Handle);
ScriptThread.Free;
ScriptState := ss_None;
end;
ss_Running:
begin
ScriptThread.PSScript.Stop;
ScriptState := ss_Stopping;
end;
ss_Paused:
begin
ScriptThread.Resume;
ScriptThread.PSScript.Stop;
ScriptState:= ss_Stopping;
end;
end;
end; end;
procedure TForm1.Undo; procedure TForm1.Undo;
@ -207,7 +275,7 @@ end;
procedure TForm1.ButtonRunClick(Sender: TObject); procedure TForm1.ButtonRunClick(Sender: TObject);
begin; begin;
Run; Self.RunScript;
end; end;
procedure TForm1.ButtonSaveClick(Sender: TObject); procedure TForm1.ButtonSaveClick(Sender: TObject);
@ -230,6 +298,11 @@ begin
Self.OpenScript; Self.OpenScript;
end; end;
procedure TForm1.ButtonPauseClick(Sender: TObject);
begin
Self.PauseScript;
end;
procedure TForm1.ButtonClearClick(Sender: TObject); procedure TForm1.ButtonClearClick(Sender: TObject);
begin begin
Memo1.Clear; Memo1.Clear;
@ -251,6 +324,7 @@ begin
Caption := Format(WindowTitle,['Untitled']); Caption := Format(WindowTitle,['Untitled']);
ScriptName:= 'Untitled'; ScriptName:= 'Untitled';
ScriptChanged := false; ScriptChanged := false;
ScriptState:= ss_None;
MainDir:= ExtractFileDir(Application.ExeName); MainDir:= ExtractFileDir(Application.ExeName);
PluginsGlob := TMPlugins.Create; PluginsGlob := TMPlugins.Create;
PluginsGlob.PluginDirs.Add(ExpandFileName(MainDir + DS + '..' + DS + '..'+ DS + 'Plugins'+ DS)); PluginsGlob.PluginDirs.Add(ExpandFileName(MainDir + DS + '..' + DS + '..'+ DS + 'Plugins'+ DS));
@ -280,6 +354,11 @@ begin
Self.cut; Self.cut;
end; end;
procedure TForm1.MenuItemExitClick(Sender: TObject);
begin
Self.Close;
end;
procedure TForm1.MenuItemNewClick(Sender: TObject); procedure TForm1.MenuItemNewClick(Sender: TObject);
begin begin
ClearScript; ClearScript;
@ -297,7 +376,7 @@ end;
procedure TForm1.MenuItemRunClick(Sender: TObject); procedure TForm1.MenuItemRunClick(Sender: TObject);
begin begin
Run; RunScript;
end; end;
procedure TForm1.MenuItemSaveAsClick(Sender: TObject); procedure TForm1.MenuItemSaveAsClick(Sender: TObject);
@ -310,6 +389,11 @@ begin
SaveCurrentScript; SaveCurrentScript;
end; end;
procedure TForm1.MenuItemShowClick(Sender: TObject);
begin
Self.Show;
end;
procedure TForm1.OnLinePSScript(Sender: TObject); procedure TForm1.OnLinePSScript(Sender: TObject);
begin begin
//Writeln('We just completed a line!!'); //Writeln('We just completed a line!!');
@ -356,6 +440,11 @@ begin
Form1.Hide; Form1.Hide;
end; end;
procedure TForm1.ScriptThreadTerminate(Sender: TObject);
begin
ScriptState:= ss_None;
end;
procedure TForm1.SynEditProcessCommand(Sender: TObject; procedure TForm1.SynEditProcessCommand(Sender: TObject;
var Command: TSynEditorCommand; var AChar: TUTF8Char; Data: pointer); var Command: TSynEditorCommand; var AChar: TUTF8Char; Data: pointer);
begin begin
@ -371,11 +460,12 @@ begin
end; end;
end; end;
procedure TForm1.ToolBar1Click(Sender: TObject); procedure TForm1.ButtonStopClick(Sender: TObject);
begin begin
Self.StopScript;
end; end;
procedure TForm1.ButtonTrayClick(Sender: TObject); procedure TForm1.ButtonTrayClick(Sender: TObject);
begin begin
Form1.Hide; Form1.Hide;
@ -386,6 +476,18 @@ begin
Self.Undo; Self.Undo;
end; end;
procedure TForm1.SetScriptState(const State: TScriptState);
begin
FScriptState:= State;
with Self.StatusBar.panels[Panel_State] do
case FScriptState of
ss_Running : begin Text := 'Running'; TB_Run.Enabled:= False; TB_Pause.Enabled:= True; TB_Stop.Enabled:= True; end;
ss_Paused : begin Text := 'Paused'; TB_Run.Enabled:= True; TB_Pause.Enabled:= True; TB_Stop.Enabled:= True; end;
ss_Stopping: begin Text := 'Stopping';TB_Run.Enabled:= False; TB_Pause.Enabled:= False; TB_Stop.Enabled:= True; TB_Stop.ImageIndex := Image_Terminate end;
ss_None : begin Text := 'Done'; TB_Run.Enabled:= True; TB_Pause.Enabled:= False; TB_Stop.Enabled:= False; TB_Stop.ImageIndex := Image_Stop end;
end;
end;
procedure TForm1.SafeCallThread; procedure TForm1.SafeCallThread;
begin begin
@ -416,8 +518,8 @@ begin;
ScriptName:= ExtractFileNameOnly(FileName); ScriptName:= ExtractFileNameOnly(FileName);
WriteLn('Script name will be: ' + ScriptName); WriteLn('Script name will be: ' + ScriptName);
ScriptFile:= FileName; ScriptFile:= FileName;
StatusBar.Panels[0].Text:= ScriptName; StatusBar.Panels[Panel_ScriptName].Text:= ScriptName;
StatusBar.Panels[1].text:= FileName; StatusBar.Panels[Panel_ScriptPath].text:= FileName;
Self.Caption:= Format(WindowTitle,[ScriptName]); Self.Caption:= Format(WindowTitle,[ScriptName]);
ScriptChanged := false; ScriptChanged := false;
Result := True; Result := True;
@ -457,8 +559,8 @@ begin
ScriptFile := FileName; ScriptFile := FileName;
SynEdit1.Lines.SaveToFile(ScriptFile); SynEdit1.Lines.SaveToFile(ScriptFile);
ScriptName:= ExtractFileNameOnly(ScriptFile); ScriptName:= ExtractFileNameOnly(ScriptFile);
StatusBar.Panels[0].Text:= ScriptName; StatusBar.Panels[Panel_ScriptName].Text:= ScriptName;
StatusBar.Panels[1].text := ScriptFile; StatusBar.Panels[Panel_ScriptPath].text := ScriptFile;
Self.Caption:= Format(WindowTitle,[ScriptName]); Self.Caption:= Format(WindowTitle,[ScriptName]);
WriteLn('Script name will be: ' + ScriptName); WriteLn('Script name will be: ' + ScriptName);
Result := True; Result := True;
@ -496,8 +598,8 @@ begin
ScriptName:= 'Untitled'; ScriptName:= 'Untitled';
StartText:= ScriptDefault; StartText:= ScriptDefault;
SynEdit1.Lines.Text:= ScriptDefault; SynEdit1.Lines.Text:= ScriptDefault;
StatusBar.Panels[0].Text:= 'Untitled'; StatusBar.Panels[Panel_ScriptName].Text:= 'Untitled';
StatusBar.Panels[1].Text:= ''; StatusBar.Panels[Panel_ScriptPath].Text:= '';
Self.Caption := Format(WindowTitle,['Untitled']); Self.Caption := Format(WindowTitle,['Untitled']);
ScriptChanged:= false; ScriptChanged:= false;
end; end;