From d24c9294439dfd2ce8e84351a1a20ecf90ec6bc8 Mon Sep 17 00:00:00 2001 From: Raymond Date: Sun, 20 Sep 2009 02:08:02 +0000 Subject: [PATCH] Added some math functions to PascalScript, changed the GUI a bit (You can now run scripts with F9). git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@72 3f818213-9676-44b0-a9b4-5e4c4e03d09d --- Projects/SAMufasaGUI/project1.lpi | 549 +++++++++++-------- Projects/SAMufasaGUI/project1.lpr | 2 +- Projects/SAMufasaGUI/testunit.lfm | 726 +------------------------ Projects/SAMufasaGUI/testunit.lrs | 402 +++++--------- Projects/SAMufasaGUI/testunit.pas | 34 +- Units/MMLAddon/PSInc/Wrappers/math.inc | 4 + Units/MMLAddon/PSInc/pscompile.inc | 6 + Units/MMLAddon/mmlpsthread.pas | 13 +- 8 files changed, 530 insertions(+), 1206 deletions(-) create mode 100644 Units/MMLAddon/PSInc/Wrappers/math.inc diff --git a/Projects/SAMufasaGUI/project1.lpi b/Projects/SAMufasaGUI/project1.lpi index 82db3e5..c329bdc 100644 --- a/Projects/SAMufasaGUI/project1.lpi +++ b/Projects/SAMufasaGUI/project1.lpi @@ -7,7 +7,7 @@ <UseXPManifest Value="True"/> - <ActiveEditorIndexAtStart Value="1"/> + <ActiveEditorIndexAtStart Value="5"/> </General> <VersionInfo> <ProjectVersion Value=""/> @@ -33,15 +33,15 @@ <PackageName Value="LCL"/> </Item2> </RequiredPackages> - <Units Count="101"> + <Units Count="114"> <Unit0> <Filename Value="project1.lpr"/> <IsPartOfProject Value="True"/> <UnitName Value="project1"/> - <CursorPos X="47" Y="11"/> + <CursorPos X="56" Y="11"/> <TopLine Value="1"/> <EditorIndex Value="0"/> - <UsageCount Value="99"/> + <UsageCount Value="119"/> <Loaded Value="True"/> </Unit0> <Unit1> @@ -51,117 +51,117 @@ <UnitName Value="TestUnit"/> <CursorPos X="33" Y="57"/> <TopLine Value="32"/> - <UsageCount Value="52"/> + <UsageCount Value="51"/> </Unit1> <Unit2> <Filename Value="client.pas"/> <UnitName Value="Client"/> <CursorPos X="18" Y="34"/> <TopLine Value="10"/> - <UsageCount Value="52"/> + <UsageCount Value="51"/> </Unit2> <Unit3> <Filename Value="../cogat/Units/CogatUnits/comptypes.pas"/> <UnitName Value="CompTypes"/> <CursorPos X="13" Y="531"/> <TopLine Value="523"/> - <UsageCount Value="19"/> + <UsageCount Value="18"/> </Unit3> <Unit4> <Filename Value="mufasatypes.pas"/> <UnitName Value="MufasaTypes"/> <CursorPos X="52" Y="20"/> <TopLine Value="1"/> - <UsageCount Value="52"/> + <UsageCount Value="51"/> </Unit4> <Unit5> <Filename Value="window.pas"/> <UnitName Value="Window"/> <CursorPos X="4" Y="100"/> <TopLine Value="85"/> - <UsageCount Value="52"/> + <UsageCount Value="51"/> </Unit5> <Unit6> <Filename Value="../Documents/fpc/rtl/inc/systemh.inc"/> <CursorPos X="3" Y="261"/> <TopLine Value="246"/> - <UsageCount Value="5"/> + <UsageCount Value="4"/> </Unit6> <Unit7> <Filename Value="input.pas"/> <UnitName Value="Input"/> <CursorPos X="5" Y="20"/> <TopLine Value="15"/> - <UsageCount Value="51"/> + <UsageCount Value="50"/> </Unit7> <Unit8> <Filename Value="../cogat/Units/CogatUnits/compinput.pas"/> <UnitName Value="CompInput"/> <CursorPos X="43" Y="250"/> <TopLine Value="236"/> - <UsageCount Value="17"/> + <UsageCount Value="16"/> </Unit8> <Unit9> <Filename Value="Units/MMLCore/client.pas"/> <UnitName Value="Client"/> <CursorPos X="46" Y="8"/> <TopLine Value="1"/> - <UsageCount Value="21"/> + <UsageCount Value="20"/> </Unit9> <Unit10> <Filename Value="Units/MMLCore/input.pas"/> <UnitName Value="Input"/> <CursorPos X="1" Y="1"/> <TopLine Value="1"/> - <UsageCount Value="21"/> + <UsageCount Value="20"/> </Unit10> <Unit11> <Filename Value="Units/MMLCore/mufasatypes.pas"/> <UnitName Value="MufasaTypes"/> <CursorPos X="1" Y="1"/> <TopLine Value="1"/> - <UsageCount Value="21"/> + <UsageCount Value="20"/> </Unit11> <Unit12> <Filename Value="Units/MMLCore/window.pas"/> <UnitName Value="Window"/> <CursorPos X="69" Y="254"/> <TopLine Value="251"/> - <UsageCount Value="21"/> + <UsageCount Value="20"/> </Unit12> <Unit13> <Filename Value="Units/MMLCore/windowutil.pas"/> <UnitName Value="windowutil"/> <CursorPos X="54" Y="20"/> <TopLine Value="20"/> - <UsageCount Value="44"/> + <UsageCount Value="43"/> </Unit13> <Unit14> <Filename Value="../Documents/lazarus/lcl/graphics.pp"/> <UnitName Value="Graphics"/> <CursorPos X="15" Y="1287"/> <TopLine Value="1272"/> - <UsageCount Value="14"/> + <UsageCount Value="13"/> </Unit14> <Unit15> <Filename Value="../cogat/Units/CogatUnits/compbitmaps.pas"/> <UnitName Value="CompBitmaps"/> <CursorPos X="1" Y="109"/> <TopLine Value="92"/> - <UsageCount Value="14"/> + <UsageCount Value="13"/> </Unit15> <Unit16> <Filename Value="../Documents/lazarus/lcl/include/rasterimage.inc"/> <CursorPos X="1" Y="1"/> <TopLine Value="691"/> - <UsageCount Value="6"/> + <UsageCount Value="5"/> </Unit16> <Unit17> <Filename Value="../Documents/fpc/packages/x11/src/xlib.pp"/> <UnitName Value="xlib"/> <CursorPos X="47" Y="1272"/> <TopLine Value="1257"/> - <UsageCount Value="9"/> + <UsageCount Value="8"/> </Unit17> <Unit18> <Filename Value="testunit.pas"/> @@ -170,10 +170,10 @@ <HasResources Value="True"/> <ResourceBaseClass Value="Form"/> <UnitName Value="TestUnit"/> - <CursorPos X="24" Y="264"/> - <TopLine Value="250"/> - <EditorIndex Value="7"/> - <UsageCount Value="65"/> + <CursorPos X="30" Y="270"/> + <TopLine Value="255"/> + <EditorIndex Value="5"/> + <UsageCount Value="85"/> <Loaded Value="True"/> </Unit18> <Unit19> @@ -181,40 +181,40 @@ <UnitName Value="CompColors"/> <CursorPos X="44" Y="914"/> <TopLine Value="897"/> - <UsageCount Value="12"/> + <UsageCount Value="11"/> </Unit19> <Unit20> <Filename Value="../Documents/fpc/packages/x11/src/x.pp"/> <UnitName Value="x"/> <CursorPos X="4" Y="179"/> <TopLine Value="164"/> - <UsageCount Value="7"/> + <UsageCount Value="6"/> </Unit20> <Unit21> <Filename Value="../Documents/fpc/rtl/unix/aliasctp.inc"/> <CursorPos X="63" Y="45"/> <TopLine Value="30"/> - <UsageCount Value="7"/> + <UsageCount Value="6"/> </Unit21> <Unit22> <Filename Value="../cogat/Units/CogatUnits/compdragger.pas"/> <UnitName Value="CompDragger"/> <CursorPos X="33" Y="14"/> <TopLine Value="6"/> - <UsageCount Value="7"/> + <UsageCount Value="6"/> </Unit22> <Unit23> <Filename Value="../Documents/lazarus/lcl/lcltype.pp"/> <UnitName Value="LCLType"/> <CursorPos X="9" Y="99"/> <TopLine Value="83"/> - <UsageCount Value="7"/> + <UsageCount Value="6"/> </Unit23> <Unit24> <Filename Value="testunit.lfm"/> <CursorPos X="1" Y="1"/> <TopLine Value="1"/> - <UsageCount Value="7"/> + <UsageCount Value="6"/> <SyntaxHighlighter Value="LFM"/> </Unit24> <Unit25> @@ -222,100 +222,100 @@ <UnitName Value="Unix"/> <CursorPos X="63" Y="63"/> <TopLine Value="56"/> - <UsageCount Value="7"/> + <UsageCount Value="6"/> </Unit25> <Unit26> <Filename Value="../Compilertje/Units/CogatUnits/compinput.pas"/> <UnitName Value="CompInput"/> <CursorPos X="6" Y="462"/> <TopLine Value="449"/> - <UsageCount Value="9"/> + <UsageCount Value="8"/> </Unit26> <Unit27> <Filename Value="../FPC/FPCCheckout/rtl/win/wininc/func.inc"/> <CursorPos X="10" Y="663"/> <TopLine Value="635"/> - <UsageCount Value="8"/> + <UsageCount Value="7"/> </Unit27> <Unit28> <Filename Value="../Compilertje/Units/CogatUnits/comptypes.pas"/> <UnitName Value="CompTypes"/> <CursorPos X="13" Y="418"/> <TopLine Value="402"/> - <UsageCount Value="8"/> + <UsageCount Value="7"/> </Unit28> <Unit29> <Filename Value="../Compilertje/Units/CogatUnits/compcolors.pas"/> <UnitName Value="CompColors"/> <CursorPos X="12" Y="603"/> <TopLine Value="573"/> - <UsageCount Value="8"/> + <UsageCount Value="7"/> </Unit29> <Unit30> <Filename Value="../lazarus/lcl/graphics.pp"/> <UnitName Value="Graphics"/> <CursorPos X="15" Y="1283"/> <TopLine Value="1270"/> - <UsageCount Value="8"/> + <UsageCount Value="7"/> </Unit30> <Unit31> <Filename Value="../lazarus/lcl/include/rasterimage.inc"/> <CursorPos X="20" Y="351"/> <TopLine Value="339"/> - <UsageCount Value="8"/> + <UsageCount Value="7"/> </Unit31> <Unit32> <Filename Value="../lazarus/lcl/intfgraphics.pas"/> <UnitName Value="IntfGraphics"/> <CursorPos X="3" Y="3251"/> <TopLine Value="3245"/> - <UsageCount Value="7"/> + <UsageCount Value="6"/> </Unit32> <Unit33> <Filename Value="../../Documents/fpc/packages/fcl-image/src/fpcanvas.pp"/> <UnitName Value="FPCanvas"/> <CursorPos X="23" Y="257"/> <TopLine Value="142"/> - <UsageCount Value="7"/> + <UsageCount Value="6"/> </Unit33> <Unit34> <Filename Value="../../Documents/fpc/packages/fcl-image/src/fpimage.pp"/> <UnitName Value="FPimage"/> <CursorPos X="3" Y="58"/> <TopLine Value="43"/> - <UsageCount Value="7"/> + <UsageCount Value="6"/> </Unit34> <Unit35> <Filename Value="../../Documents/fpc/packages/fcl-image/src/fpimage.inc"/> <CursorPos X="24" Y="25"/> <TopLine Value="1"/> - <UsageCount Value="7"/> + <UsageCount Value="6"/> </Unit35> <Unit36> <Filename Value="../../Documents/lazarus/lcl/graphics.pp"/> <UnitName Value="Graphics"/> <CursorPos X="88" Y="2395"/> <TopLine Value="2388"/> - <UsageCount Value="7"/> + <UsageCount Value="6"/> </Unit36> <Unit37> <Filename Value="../../Units/MMLCore/client.pas"/> <IsPartOfProject Value="True"/> <UnitName Value="Client"/> - <CursorPos X="2" Y="35"/> - <TopLine Value="20"/> - <EditorIndex Value="6"/> - <UsageCount Value="64"/> + <CursorPos X="25" Y="16"/> + <TopLine Value="1"/> + <EditorIndex Value="4"/> + <UsageCount Value="84"/> <Loaded Value="True"/> </Unit37> <Unit38> <Filename Value="../../Units/MMLCore/mufasatypes.pas"/> <IsPartOfProject Value="True"/> <UnitName Value="MufasaTypes"/> - <CursorPos X="1" Y="1"/> + <CursorPos X="3" Y="15"/> <TopLine Value="1"/> - <EditorIndex Value="5"/> - <UsageCount Value="64"/> + <EditorIndex Value="3"/> + <UsageCount Value="84"/> <Loaded Value="True"/> </Unit38> <Unit39> @@ -323,7 +323,7 @@ <UnitName Value="compFiles"/> <CursorPos X="18" Y="8"/> <TopLine Value="1"/> - <UsageCount Value="22"/> + <UsageCount Value="21"/> </Unit39> <Unit40> <Filename Value="../../Units/MMLCore/files.pas"/> @@ -331,16 +331,16 @@ <UnitName Value="files"/> <CursorPos X="37" Y="42"/> <TopLine Value="271"/> - <UsageCount Value="65"/> + <UsageCount Value="85"/> </Unit40> <Unit41> <Filename Value="../../Units/MMLCore/window.pas"/> <IsPartOfProject Value="True"/> <UnitName Value="Window"/> - <CursorPos X="53" Y="226"/> - <TopLine Value="208"/> - <EditorIndex Value="11"/> - <UsageCount Value="64"/> + <CursorPos X="3" Y="189"/> + <TopLine Value="187"/> + <EditorIndex Value="24"/> + <UsageCount Value="84"/> <Loaded Value="True"/> </Unit41> <Unit42> @@ -348,47 +348,45 @@ <UnitName Value="Forms"/> <CursorPos X="15" Y="1236"/> <TopLine Value="981"/> - <UsageCount Value="7"/> + <UsageCount Value="6"/> </Unit42> <Unit43> <Filename Value="../../../cogat/Units/CogatUnits/comptypes.pas"/> <UnitName Value="CompTypes"/> <CursorPos X="80" Y="9"/> <TopLine Value="1"/> - <UsageCount Value="12"/> + <UsageCount Value="11"/> </Unit43> <Unit44> <Filename Value="../../Units/MMLCore/windowutil.pas"/> <UnitName Value="windowutil"/> - <CursorPos X="96" Y="86"/> - <TopLine Value="75"/> - <EditorIndex Value="12"/> - <UsageCount Value="22"/> - <Loaded Value="True"/> + <CursorPos X="49" Y="126"/> + <TopLine Value="97"/> + <UsageCount Value="29"/> </Unit44> <Unit45> <Filename Value="../../Units/MMLCore/input.pas"/> <UnitName Value="Input"/> - <CursorPos X="3" Y="90"/> - <TopLine Value="59"/> - <UsageCount Value="15"/> + <CursorPos X="55" Y="59"/> + <TopLine Value="55"/> + <UsageCount Value="14"/> </Unit45> <Unit46> <Filename Value="../../Units/MMLCore/finder.pas"/> <IsPartOfProject Value="True"/> <UnitName Value="finder"/> - <CursorPos X="3" Y="289"/> - <TopLine Value="269"/> + <CursorPos X="19" Y="152"/> + <TopLine Value="138"/> <EditorIndex Value="1"/> - <UsageCount Value="57"/> + <UsageCount Value="77"/> <Loaded Value="True"/> </Unit46> <Unit47> <Filename Value="../../../lazarus/lcl/graphics.pp"/> <UnitName Value="Graphics"/> - <CursorPos X="17" Y="1353"/> - <TopLine Value="1341"/> - <UsageCount Value="14"/> + <CursorPos X="15" Y="1287"/> + <TopLine Value="1272"/> + <UsageCount Value="16"/> </Unit47> <Unit48> <Filename Value="../../Units/MMLAddon/mmlthread.pas"/> @@ -396,155 +394,165 @@ <UnitName Value="MMLThread"/> <CursorPos X="132" Y="5"/> <TopLine Value="1"/> - <UsageCount Value="55"/> + <UsageCount Value="75"/> </Unit48> <Unit49> <Filename Value="../../../Documents/fpc/rtl/objpas/classes/classesh.inc"/> <CursorPos X="27" Y="1430"/> <TopLine Value="1422"/> - <UsageCount Value="7"/> + <UsageCount Value="6"/> </Unit49> <Unit50> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <IsPartOfProject Value="True"/> <UnitName Value="mmlpsthread"/> - <CursorPos X="65" Y="139"/> - <TopLine Value="139"/> - <EditorIndex Value="8"/> - <UsageCount Value="53"/> + <CursorPos X="17" Y="34"/> + <TopLine Value="10"/> + <EditorIndex Value="13"/> + <UsageCount Value="73"/> <Loaded Value="True"/> </Unit50> <Unit51> <Filename Value="../../Units/PascalScript/uPSComponent.pas"/> <UnitName Value="uPSComponent"/> - <CursorPos X="21" Y="193"/> - <TopLine Value="183"/> - <UsageCount Value="17"/> + <CursorPos X="23" Y="510"/> + <TopLine Value="504"/> + <EditorIndex Value="18"/> + <UsageCount Value="23"/> + <Loaded Value="True"/> </Unit51> <Unit52> <Filename Value="../../../FPC/FPCCheckout/rtl/objpas/classes/classesh.inc"/> - <CursorPos X="30" Y="260"/> - <TopLine Value="244"/> - <UsageCount Value="14"/> + <CursorPos X="12" Y="116"/> + <TopLine Value="101"/> + <EditorIndex Value="7"/> + <UsageCount Value="13"/> + <Loaded Value="True"/> </Unit52> <Unit53> <Filename Value="../../../FPC/FPCCheckout/rtl/objpas/types.pp"/> <UnitName Value="types"/> <CursorPos X="1" Y="1"/> <TopLine Value="1"/> - <UsageCount Value="9"/> + <UsageCount Value="8"/> </Unit53> <Unit54> <Filename Value="../../../FPC/FPCCheckout/rtl/objpas/typinfo.pp"/> <UnitName Value="typinfo"/> <CursorPos X="1" Y="1"/> <TopLine Value="1"/> - <UsageCount Value="9"/> + <UsageCount Value="8"/> </Unit54> <Unit55> <Filename Value="../../Units/PascalScript/uPSC_forms.pas"/> <UnitName Value="uPSC_forms"/> <CursorPos X="1" Y="1"/> <TopLine Value="1"/> - <UsageCount Value="16"/> + <UsageCount Value="15"/> </Unit55> <Unit56> <Filename Value="project1.lrs"/> <CursorPos X="70" Y="41"/> <TopLine Value="11"/> - <UsageCount Value="25"/> + <UsageCount Value="24"/> </Unit56> <Unit57> <Filename Value="../../../lazarus/lcl/lresources.pp"/> <UnitName Value="LResources"/> <CursorPos X="3" Y="1396"/> <TopLine Value="1396"/> - <UsageCount Value="9"/> + <UsageCount Value="8"/> </Unit57> <Unit58> <Filename Value="../../../lazarus/components/synedit/synmemo.pas"/> <UnitName Value="SynMemo"/> - <CursorPos X="16" Y="150"/> - <TopLine Value="31"/> - <UsageCount Value="7"/> + <CursorPos X="19" Y="161"/> + <TopLine Value="146"/> + <EditorIndex Value="10"/> + <UsageCount Value="10"/> + <Loaded Value="True"/> </Unit58> <Unit59> <Filename Value="../../../lazarus/components/synedit/syneditmiscclasses.pp"/> <UnitName Value="SynEditMiscClasses"/> <CursorPos X="29" Y="100"/> <TopLine Value="92"/> - <UsageCount Value="7"/> + <UsageCount Value="6"/> </Unit59> <Unit60> <Filename Value="../../../lazarus/components/synedit/synedit.pp"/> <UnitName Value="SynEdit"/> - <CursorPos X="22" Y="1531"/> - <TopLine Value="1523"/> - <UsageCount Value="7"/> + <CursorPos X="3" Y="4078"/> + <TopLine Value="4064"/> + <EditorIndex Value="11"/> + <UsageCount Value="10"/> + <Loaded Value="True"/> </Unit60> <Unit61> <Filename Value="../../../lazarus/components/synedit/syngutterchanges.pas"/> <UnitName Value="SynGutterChanges"/> <CursorPos X="34" Y="126"/> <TopLine Value="118"/> - <UsageCount Value="7"/> + <UsageCount Value="6"/> </Unit61> <Unit62> <Filename Value="../../../lazarus/components/synedit/syneditlines.pas"/> <UnitName Value="SynEditLines"/> <CursorPos X="21" Y="48"/> <TopLine Value="40"/> - <UsageCount Value="7"/> + <UsageCount Value="6"/> </Unit62> <Unit63> <Filename Value="../../../lazarus/components/synedit/synedittextbase.pas"/> <UnitName Value="SynEditTextBase"/> <CursorPos X="3" Y="75"/> <TopLine Value="124"/> - <UsageCount Value="7"/> + <UsageCount Value="6"/> </Unit63> <Unit64> <Filename Value="../../Units/PascalScript/uPSC_std.pas"/> <UnitName Value="uPSC_std"/> <CursorPos X="35" Y="8"/> <TopLine Value="1"/> - <UsageCount Value="7"/> + <UsageCount Value="6"/> </Unit64> <Unit65> <Filename Value="../../Units/PascalScript/uPSC_controls.pas"/> <UnitName Value="uPSC_controls"/> <CursorPos X="1" Y="1"/> <TopLine Value="11"/> - <UsageCount Value="7"/> + <UsageCount Value="6"/> </Unit65> <Unit66> <Filename Value="../../Units/MMLAddon/PSInc/pscompile.inc"/> - <CursorPos X="1" Y="11"/> + <CursorPos X="23" Y="15"/> <TopLine Value="1"/> - <EditorIndex Value="9"/> - <UsageCount Value="20"/> + <EditorIndex Value="19"/> + <UsageCount Value="29"/> <Loaded Value="True"/> </Unit66> <Unit67> <Filename Value="../../../FPC/FPCCheckout/rtl/win/tthread.inc"/> <CursorPos X="15" Y="17"/> <TopLine Value="12"/> - <UsageCount Value="8"/> + <UsageCount Value="7"/> </Unit67> <Unit68> <Filename Value="../../../FPC/FPCCheckout/rtl/inc/objpash.inc"/> <CursorPos X="21" Y="184"/> - <TopLine Value="167"/> - <UsageCount Value="13"/> + <TopLine Value="169"/> + <EditorIndex Value="17"/> + <UsageCount Value="18"/> + <Loaded Value="True"/> </Unit68> <Unit69> <Filename Value="../../Units/MMLCore/bitmaps.pas"/> <IsPartOfProject Value="True"/> <UnitName Value="bitmaps"/> - <CursorPos X="1" Y="83"/> - <TopLine Value="69"/> - <EditorIndex Value="13"/> - <UsageCount Value="43"/> + <CursorPos X="72" Y="420"/> + <TopLine Value="408"/> + <EditorIndex Value="25"/> + <UsageCount Value="63"/> <Loaded Value="True"/> </Unit69> <Unit70> @@ -552,146 +560,150 @@ <UnitName Value="FPCanvas"/> <CursorPos X="96" Y="409"/> <TopLine Value="188"/> - <UsageCount Value="9"/> + <UsageCount Value="8"/> </Unit70> <Unit71> <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/colour.inc"/> - <CursorPos X="77" Y="13"/> - <TopLine Value="1"/> - <EditorIndex Value="10"/> - <UsageCount Value="10"/> + <CursorPos X="86" Y="33"/> + <TopLine Value="4"/> + <EditorIndex Value="23"/> + <UsageCount Value="19"/> <Loaded Value="True"/> </Unit71> <Unit72> <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/bitmap.inc"/> <IsPartOfProject Value="True"/> - <CursorPos X="13" Y="43"/> - <TopLine Value="1"/> - <UsageCount Value="42"/> + <CursorPos X="30" Y="34"/> + <TopLine Value="22"/> + <UsageCount Value="62"/> </Unit72> <Unit73> <Filename Value="../../../FPC/FPCCheckout/packages/fcl-image/src/fpcanvas.inc"/> <CursorPos X="16" Y="20"/> <TopLine Value="18"/> - <UsageCount Value="8"/> + <UsageCount Value="7"/> </Unit73> <Unit74> <Filename Value="../../../FPC/FPCCheckout/packages/fcl-image/examples/drawing.pp"/> <UnitName Value="Drawing"/> <CursorPos X="20" Y="19"/> <TopLine Value="1"/> - <UsageCount Value="8"/> + <UsageCount Value="7"/> </Unit74> <Unit75> <Filename Value="../../../FPC/FPCCheckout/packages/fcl-image/src/fpimgcanv.pp"/> <UnitName Value="FPImgCanv"/> <CursorPos X="32" Y="23"/> <TopLine Value="13"/> - <UsageCount Value="8"/> + <UsageCount Value="7"/> </Unit75> <Unit76> <Filename Value="../../../FPC/FPCCheckout/packages/fcl-image/src/fppixlcanv.pp"/> <UnitName Value="FPPixlCanv"/> <CursorPos X="3" Y="31"/> <TopLine Value="32"/> - <UsageCount Value="8"/> + <UsageCount Value="7"/> </Unit76> <Unit77> <Filename Value="../../../FPC/FPCCheckout/packages/fcl-image/src/fpimage.pp"/> <UnitName Value="FPimage"/> <CursorPos X="17" Y="129"/> <TopLine Value="112"/> - <UsageCount Value="13"/> + <UsageCount Value="12"/> </Unit77> <Unit78> <Filename Value="../../../FPC/FPCCheckout/packages/fcl-image/src/fpimage.inc"/> <CursorPos X="3" Y="44"/> <TopLine Value="40"/> - <UsageCount Value="13"/> + <UsageCount Value="12"/> </Unit78> <Unit79> <Filename Value="../../../lazarus/lcl/lclintf.pas"/> <UnitName Value="LCLIntf"/> <CursorPos X="1" Y="1"/> <TopLine Value="1"/> - <UsageCount Value="10"/> + <UsageCount Value="9"/> </Unit79> <Unit80> <Filename Value="../../../lazarus/lcl/intfgraphics.pas"/> <UnitName Value="IntfGraphics"/> <CursorPos X="84" Y="1334"/> <TopLine Value="1334"/> - <UsageCount Value="13"/> + <UsageCount Value="12"/> </Unit80> <Unit81> <Filename Value="../../../lazarus/lcl/graphtype.pp"/> <UnitName Value="GraphType"/> <CursorPos X="19" Y="634"/> <TopLine Value="630"/> - <UsageCount Value="14"/> + <UsageCount Value="13"/> </Unit81> <Unit82> <Filename Value="../../../FPC/FPCCheckout/packages/fcl-image/src/fpcolors.inc"/> <CursorPos X="24" Y="21"/> <TopLine Value="12"/> - <UsageCount Value="8"/> + <UsageCount Value="7"/> </Unit82> <Unit83> <Filename Value="../../../FPC/FPCCheckout/packages/fcl-image/src/fppalette.inc"/> <CursorPos X="3" Y="19"/> <TopLine Value="4"/> - <UsageCount Value="8"/> + <UsageCount Value="7"/> </Unit83> <Unit84> <Filename Value="../../../FPC/FPCCheckout/packages/fcl-image/src/fphandler.inc"/> <CursorPos X="18" Y="268"/> <TopLine Value="241"/> - <UsageCount Value="10"/> + <UsageCount Value="9"/> </Unit84> <Unit85> <Filename Value="../../../FPC/FPCCheckout/packages/fcl-image/src/fpwritebmp.pp"/> <UnitName Value="FPWriteBMP"/> <CursorPos X="28" Y="722"/> <TopLine Value="698"/> - <UsageCount Value="10"/> + <UsageCount Value="9"/> </Unit85> <Unit86> <Filename Value="../../../lazarus/lcl/include/rasterimage.inc"/> - <CursorPos X="3" Y="571"/> - <TopLine Value="567"/> + <CursorPos X="42" Y="594"/> + <TopLine Value="573"/> <UsageCount Value="10"/> </Unit86> <Unit87> <Filename Value="../../../lazarus/lcl/include/custombitmap.inc"/> <CursorPos X="3" Y="98"/> <TopLine Value="96"/> - <UsageCount Value="12"/> + <UsageCount Value="11"/> </Unit87> <Unit88> <Filename Value="../../../Compilertje/Units/CogatUnits/compmaths.pas"/> <UnitName Value="CompMaths"/> <CursorPos X="26" Y="43"/> <TopLine Value="14"/> - <UsageCount Value="9"/> + <UsageCount Value="8"/> </Unit88> <Unit89> <Filename Value="../../../FPC/FPCCheckout/rtl/objpas/math.pp"/> <UnitName Value="math"/> - <CursorPos X="1" Y="1"/> - <TopLine Value="1"/> - <UsageCount Value="12"/> + <CursorPos X="10" Y="314"/> + <TopLine Value="299"/> + <EditorIndex Value="22"/> + <UsageCount Value="11"/> + <Loaded Value="True"/> </Unit89> <Unit90> <Filename Value="../../../FPC/FPCCheckout/rtl/inc/systemh.inc"/> - <CursorPos X="11" Y="513"/> - <TopLine Value="496"/> - <UsageCount Value="10"/> + <CursorPos X="5" Y="121"/> + <TopLine Value="106"/> + <EditorIndex Value="21"/> + <UsageCount Value="11"/> + <Loaded Value="True"/> </Unit90> <Unit91> <Filename Value="../../../FPC/FPCCheckout/rtl/i386/fastmove.inc"/> <CursorPos X="44" Y="836"/> <TopLine Value="817"/> - <UsageCount Value="10"/> + <UsageCount Value="9"/> </Unit91> <Unit92> <Filename Value="../../Units/MMLCore/colour_conv.pas"/> @@ -699,8 +711,8 @@ <UnitName Value="colour_conv"/> <CursorPos X="49" Y="141"/> <TopLine Value="141"/> - <EditorIndex Value="3"/> - <UsageCount Value="25"/> + <EditorIndex Value="2"/> + <UsageCount Value="45"/> <Loaded Value="True"/> </Unit92> <Unit93> @@ -708,177 +720,276 @@ <UnitName Value="CompColors"/> <CursorPos X="19" Y="80"/> <TopLine Value="75"/> - <EditorIndex Value="4"/> - <UsageCount Value="12"/> - <Loaded Value="True"/> + <UsageCount Value="11"/> </Unit93> <Unit94> <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/mouse.inc"/> <CursorPos X="65" Y="9"/> <TopLine Value="1"/> - <UsageCount Value="10"/> + <UsageCount Value="9"/> </Unit94> <Unit95> <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/other.inc"/> <CursorPos X="1" Y="1"/> <TopLine Value="1"/> + <EditorIndex Value="16"/> <UsageCount Value="10"/> + <Loaded Value="True"/> </Unit95> <Unit96> <Filename Value="../../Units/PascalScript/uPSCompiler.pas"/> <UnitName Value="uPSCompiler"/> - <CursorPos X="1" Y="13147"/> - <TopLine Value="13132"/> - <UsageCount Value="10"/> + <CursorPos X="3" Y="13143"/> + <TopLine Value="13134"/> + <UsageCount Value="14"/> </Unit96> <Unit97> <Filename Value="../../Units/MMLCore/macro/ColorSame.inc"/> <CursorPos X="37" Y="5"/> <TopLine Value="1"/> - <UsageCount Value="10"/> + <UsageCount Value="9"/> </Unit97> <Unit98> - <Filename Value="../../../../Documents/fpc/rtl/inc/mathh.inc"/> + <Filename Value="../../../Documents/fpc/rtl/inc/mathh.inc"/> <CursorPos X="19" Y="58"/> <TopLine Value="56"/> - <UsageCount Value="10"/> + <UsageCount Value="9"/> </Unit98> <Unit99> - <Filename Value="../../../../Documents/fpc/rtl/objpas/sysutils/sysutilh.inc"/> + <Filename Value="../../../Documents/fpc/rtl/objpas/sysutils/sysutilh.inc"/> <CursorPos X="19" Y="72"/> <TopLine Value="57"/> - <UsageCount Value="10"/> + <UsageCount Value="9"/> </Unit99> <Unit100> <Filename Value="../../Units/PascalScript/uPSRuntime.pas"/> <UnitName Value="uPSRuntime"/> <CursorPos X="54" Y="1887"/> <TopLine Value="1875"/> - <EditorIndex Value="2"/> + <UsageCount Value="9"/> + </Unit100> + <Unit101> + <Filename Value="../../Units/MMLAddon/plugins.pas"/> + <IsPartOfProject Value="True"/> + <UnitName Value="plugins"/> + <CursorPos X="86" Y="128"/> + <TopLine Value="128"/> + <EditorIndex Value="26"/> + <UsageCount Value="39"/> + <Loaded Value="True"/> + </Unit101> + <Unit102> + <Filename Value="../../../Compilertje/Units/CogatUnits/compfiles.pas"/> + <UnitName Value="compFiles"/> + <CursorPos X="19" Y="510"/> + <TopLine Value="495"/> + <UsageCount Value="11"/> + </Unit102> + <Unit103> + <Filename Value="../../../FPC/FPCCheckout/rtl/objpas/sysutils/filutilh.inc"/> + <CursorPos X="3" Y="17"/> + <TopLine Value="2"/> + <UsageCount Value="11"/> + </Unit103> + <Unit104> + <Filename Value="../../../lazarus/lcl/fileutil.pas"/> + <UnitName Value="FileUtil"/> + <CursorPos X="10" Y="81"/> + <TopLine Value="66"/> + <UsageCount Value="11"/> + </Unit104> + <Unit105> + <Filename Value="../../../lazarus/lcl/include/fileutil.inc"/> + <CursorPos X="35" Y="611"/> + <TopLine Value="582"/> + <UsageCount Value="11"/> + </Unit105> + <Unit106> + <Filename Value="../../Units/MMLAddon/PSInc/psdefines.inc"/> + <CursorPos X="57" Y="4"/> + <TopLine Value="1"/> + <UsageCount Value="15"/> + </Unit106> + <Unit107> + <Filename Value="../../Units/PascalScript/x86.inc"/> + <CursorPos X="1" Y="32"/> + <TopLine Value="17"/> + <EditorIndex Value="15"/> <UsageCount Value="10"/> <Loaded Value="True"/> - </Unit100> + </Unit107> + <Unit108> + <Filename Value="../../../FPC/FPCCheckout/rtl/inc/mathh.inc"/> + <CursorPos X="14" Y="71"/> + <TopLine Value="56"/> + <EditorIndex Value="20"/> + <UsageCount Value="10"/> + <Loaded Value="True"/> + </Unit108> + <Unit109> + <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/math.inc"/> + <CursorPos X="20" Y="3"/> + <TopLine Value="1"/> + <EditorIndex Value="14"/> + <UsageCount Value="10"/> + <Loaded Value="True"/> + </Unit109> + <Unit110> + <Filename Value="../../../lazarus/lcl/controls.pp"/> + <UnitName Value="Controls"/> + <CursorPos X="14" Y="1371"/> + <TopLine Value="1356"/> + <EditorIndex Value="8"/> + <UsageCount Value="10"/> + <Loaded Value="True"/> + </Unit110> + <Unit111> + <Filename Value="../../../lazarus/lcl/include/control.inc"/> + <CursorPos X="28" Y="1022"/> + <TopLine Value="1010"/> + <EditorIndex Value="9"/> + <UsageCount Value="10"/> + <Loaded Value="True"/> + </Unit111> + <Unit112> + <Filename Value="../../../lazarus/lcl/stdctrls.pp"/> + <UnitName Value="StdCtrls"/> + <CursorPos X="3" Y="894"/> + <TopLine Value="879"/> + <EditorIndex Value="12"/> + <UsageCount Value="10"/> + <Loaded Value="True"/> + </Unit112> + <Unit113> + <Filename Value="../../../lazarus/lcl/menus.pp"/> + <UnitName Value="Menus"/> + <CursorPos X="50" Y="542"/> + <TopLine Value="522"/> + <EditorIndex Value="6"/> + <UsageCount Value="10"/> + <Loaded Value="True"/> + </Unit113> </Units> <JumpHistory Count="30" HistoryIndex="29"> <Position1> - <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> - <Caret Line="134" Column="23" TopLine="121"/> + <Filename Value="testunit.pas"/> + <Caret Line="307" Column="24" TopLine="291"/> </Position1> <Position2> - <Filename Value="../../Units/MMLCore/finder.pas"/> - <Caret Line="37" Column="22" TopLine="18"/> + <Filename Value="testunit.pas"/> + <Caret Line="18" Column="15" TopLine="9"/> </Position2> <Position3> - <Filename Value="../../Units/MMLCore/window.pas"/> - <Caret Line="314" Column="49" TopLine="285"/> + <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> + <Caret Line="8" Column="75" TopLine="4"/> </Position3> <Position4> - <Filename Value="../../Units/MMLCore/finder.pas"/> - <Caret Line="183" Column="20" TopLine="163"/> + <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> + <Caret Line="20" Column="22" TopLine="5"/> </Position4> <Position5> - <Filename Value="../../Units/MMLCore/finder.pas"/> - <Caret Line="199" Column="63" TopLine="172"/> + <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> + <Caret Line="63" Column="24" TopLine="51"/> </Position5> <Position6> - <Filename Value="../../Units/MMLCore/finder.pas"/> - <Caret Line="202" Column="7" TopLine="174"/> + <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> + <Caret Line="268" Column="29" TopLine="253"/> </Position6> <Position7> - <Filename Value="../../Units/MMLCore/finder.pas"/> - <Caret Line="179" Column="8" TopLine="164"/> + <Filename Value="testunit.pas"/> + <Caret Line="18" Column="26" TopLine="9"/> </Position7> <Position8> - <Filename Value="../../Units/MMLCore/finder.pas"/> - <Caret Line="207" Column="3" TopLine="183"/> + <Filename Value="testunit.pas"/> + <Caret Line="20" Column="26" TopLine="9"/> </Position8> <Position9> - <Filename Value="../../Units/MMLCore/finder.pas"/> - <Caret Line="204" Column="1" TopLine="181"/> + <Filename Value="testunit.pas"/> + <Caret Line="21" Column="26" TopLine="9"/> </Position9> <Position10> - <Filename Value="../../Units/MMLCore/finder.pas"/> - <Caret Line="185" Column="12" TopLine="172"/> + <Filename Value="testunit.pas"/> + <Caret Line="20" Column="26" TopLine="9"/> </Position10> <Position11> - <Filename Value="../../Units/MMLCore/finder.pas"/> - <Caret Line="216" Column="23" TopLine="195"/> + <Filename Value="testunit.pas"/> + <Caret Line="28" Column="47" TopLine="9"/> </Position11> <Position12> - <Filename Value="../../Units/MMLCore/finder.pas"/> - <Caret Line="203" Column="6" TopLine="184"/> + <Filename Value="testunit.pas"/> + <Caret Line="21" Column="16" TopLine="20"/> </Position12> <Position13> - <Filename Value="../../Units/MMLCore/finder.pas"/> - <Caret Line="195" Column="10" TopLine="184"/> + <Filename Value="testunit.pas"/> + <Caret Line="27" Column="49" TopLine="12"/> </Position13> <Position14> - <Filename Value="../../Units/MMLCore/finder.pas"/> - <Caret Line="198" Column="21" TopLine="183"/> + <Filename Value="testunit.pas"/> + <Caret Line="20" Column="24" TopLine="4"/> </Position14> <Position15> - <Filename Value="../../Units/MMLCore/finder.pas"/> - <Caret Line="152" Column="24" TopLine="143"/> + <Filename Value="../../../lazarus/lcl/menus.pp"/> + <Caret Line="106" Column="3" TopLine="91"/> </Position15> <Position16> - <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> - <Caret Line="138" Column="25" TopLine="114"/> + <Filename Value="../../../lazarus/lcl/menus.pp"/> + <Caret Line="125" Column="22" TopLine="110"/> </Position16> <Position17> - <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> - <Caret Line="104" Column="62" TopLine="86"/> + <Filename Value="testunit.pas"/> + <Caret Line="20" Column="26" TopLine="4"/> </Position17> <Position18> - <Filename Value="../../Units/MMLCore/finder.pas"/> - <Caret Line="38" Column="56" TopLine="22"/> + <Filename Value="../../../lazarus/lcl/menus.pp"/> + <Caret Line="106" Column="3" TopLine="91"/> </Position18> <Position19> - <Filename Value="../../Units/MMLCore/finder.pas"/> - <Caret Line="185" Column="13" TopLine="170"/> + <Filename Value="../../../lazarus/lcl/menus.pp"/> + <Caret Line="125" Column="25" TopLine="110"/> </Position19> <Position20> - <Filename Value="../../Units/MMLCore/finder.pas"/> - <Caret Line="206" Column="16" TopLine="198"/> + <Filename Value="../../../lazarus/lcl/menus.pp"/> + <Caret Line="165" Column="64" TopLine="150"/> </Position20> <Position21> - <Filename Value="../../Units/MMLCore/colour_conv.pas"/> - <Caret Line="19" Column="19" TopLine="4"/> + <Filename Value="../../../lazarus/lcl/menus.pp"/> + <Caret Line="193" Column="51" TopLine="178"/> </Position21> <Position22> - <Filename Value="../../Units/MMLCore/bitmaps.pas"/> - <Caret Line="11" Column="58" TopLine="1"/> + <Filename Value="../../../lazarus/lcl/menus.pp"/> + <Caret Line="272" Column="66" TopLine="257"/> </Position22> <Position23> - <Filename Value="../../Units/MMLCore/finder.pas"/> - <Caret Line="79" Column="67" TopLine="61"/> + <Filename Value="../../../lazarus/lcl/menus.pp"/> + <Caret Line="394" Column="74" TopLine="379"/> </Position23> <Position24> - <Filename Value="../../Units/MMLCore/finder.pas"/> - <Caret Line="69" Column="24" TopLine="54"/> + <Filename Value="../../../lazarus/lcl/menus.pp"/> + <Caret Line="395" Column="51" TopLine="379"/> </Position24> <Position25> - <Filename Value="../../Units/MMLCore/finder.pas"/> - <Caret Line="33" Column="52" TopLine="11"/> + <Filename Value="../../../lazarus/lcl/menus.pp"/> + <Caret Line="411" Column="62" TopLine="396"/> </Position25> <Position26> - <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> - <Caret Line="137" Column="24" TopLine="118"/> + <Filename Value="../../../lazarus/lcl/menus.pp"/> + <Caret Line="503" Column="62" TopLine="488"/> </Position26> <Position27> - <Filename Value="../../Units/MMLCore/finder.pas"/> - <Caret Line="33" Column="30" TopLine="6"/> + <Filename Value="../../../lazarus/lcl/menus.pp"/> + <Caret Line="537" Column="74" TopLine="522"/> </Position27> <Position28> - <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> - <Caret Line="150" Column="19" TopLine="131"/> + <Filename Value="testunit.pas"/> + <Caret Line="27" Column="49" TopLine="4"/> </Position28> <Position29> - <Filename Value="../../Units/MMLCore/finder.pas"/> - <Caret Line="290" Column="3" TopLine="269"/> + <Filename Value="testunit.pas"/> + <Caret Line="272" Column="1" TopLine="259"/> </Position29> <Position30> - <Filename Value="../../Units/PascalScript/uPSRuntime.pas"/> - <Caret Line="11914" Column="16" TopLine="11899"/> + <Filename Value="testunit.pas"/> + <Caret Line="269" Column="33" TopLine="254"/> </Position30> </JumpHistory> </ProjectOptions> diff --git a/Projects/SAMufasaGUI/project1.lpr b/Projects/SAMufasaGUI/project1.lpr index 022891e..734b80f 100644 --- a/Projects/SAMufasaGUI/project1.lpr +++ b/Projects/SAMufasaGUI/project1.lpr @@ -8,7 +8,7 @@ uses {$ENDIF}{$ENDIF} Interfaces, // this includes the LCL widgetset Forms, LResources, Window, files, MufasaTypes, Client, TestUnit, finder, - MMLThread, mmlpsthread, bitmaps, colour_conv; + MMLThread, mmlpsthread, bitmaps, colour_conv, plugins; {$IFDEF WINDOWS}{$R project1.rc}{$ENDIF} diff --git a/Projects/SAMufasaGUI/testunit.lfm b/Projects/SAMufasaGUI/testunit.lfm index acd3199..eefa15c 100644 --- a/Projects/SAMufasaGUI/testunit.lfm +++ b/Projects/SAMufasaGUI/testunit.lfm @@ -5,8 +5,9 @@ object Form1: TForm1 Width = 779 ActiveControl = Button1 Caption = 'Form1' - ClientHeight = 527 + ClientHeight = 507 ClientWidth = 779 + Menu = MainMenu1 OnCreate = FormCreate OnDestroy = FormDestroy Position = poScreenCenter @@ -14,7 +15,7 @@ object Form1: TForm1 object Button1: TButton Left = 8 Height = 25 - Top = 16 + Top = 8 Width = 75 Caption = 'Run' OnClick = Button1Click @@ -22,9 +23,9 @@ object Form1: TForm1 end object SynEdit1: TSynEdit Left = 8 - Height = 296 - Top = 64 - Width = 728 + Height = 320 + Top = 40 + Width = 744 Align = alCustom Font.Height = -13 Font.Name = 'Courier New' @@ -717,705 +718,34 @@ object Form1: TForm1 end end end - object SynMemo1: TSynMemo - Cursor = crIBeam - Left = 20 - Height = 125 - Top = 387 - Width = 654 - Font.Height = -13 - Font.Name = 'Courier New' - Font.Pitch = fpFixed - Font.Quality = fqNonAntialiased - ParentColor = False - ParentFont = False - TabOrder = 2 - BookMarkOptions.OnChange = nil - Gutter.Width = 57 - Gutter.MouseActions = < - item - Shift = [] - ShiftMask = [] - Button = mbLeft - ClickCount = ccAny - ClickDir = cdDown - Command = 13 - MoveCaret = False - Option = 0 - Priority = 0 - end - item - Shift = [] - ShiftMask = [] - Button = mbRight - ClickCount = ccSingle - ClickDir = cdUp - Command = 12 - MoveCaret = False - Option = 0 - Priority = 0 - end> - Keystrokes = < - item - Command = ecUp - ShortCut = 38 - end - item - Command = ecSelUp - ShortCut = 8230 - end - item - Command = ecScrollUp - ShortCut = 16422 - end - item - Command = ecDown - ShortCut = 40 - end - item - Command = ecSelDown - ShortCut = 8232 - end - item - Command = ecScrollDown - ShortCut = 16424 - end - item - Command = ecLeft - ShortCut = 37 - end - item - Command = ecSelLeft - ShortCut = 8229 - end - item - Command = ecWordLeft - ShortCut = 16421 - end - item - Command = ecSelWordLeft - ShortCut = 24613 - end - item - Command = ecRight - ShortCut = 39 - end - item - Command = ecSelRight - ShortCut = 8231 - end - item - Command = ecWordRight - ShortCut = 16423 - end - item - Command = ecSelWordRight - ShortCut = 24615 - end - item - Command = ecPageDown - ShortCut = 34 - end - item - Command = ecSelPageDown - ShortCut = 8226 - end - item - Command = ecPageBottom - ShortCut = 16418 - end - item - Command = ecSelPageBottom - ShortCut = 24610 - end - item - Command = ecPageUp - ShortCut = 33 - end - item - Command = ecSelPageUp - ShortCut = 8225 - end - item - Command = ecPageTop - ShortCut = 16417 - end - item - Command = ecSelPageTop - ShortCut = 24609 - end - item - Command = ecLineStart - ShortCut = 36 - end - item - Command = ecSelLineStart - ShortCut = 8228 - end - item - Command = ecEditorTop - ShortCut = 16420 - end - item - Command = ecSelEditorTop - ShortCut = 24612 - end - item - Command = ecLineEnd - ShortCut = 35 - end - item - Command = ecSelLineEnd - ShortCut = 8227 - end - item - Command = ecEditorBottom - ShortCut = 16419 - end - item - Command = ecSelEditorBottom - ShortCut = 24611 - end - item - Command = ecToggleMode - ShortCut = 45 - end - item - Command = ecCopy - ShortCut = 16429 - end - item - Command = ecPaste - ShortCut = 8237 - end - item - Command = ecDeleteChar - ShortCut = 46 - end - item - Command = ecCut - ShortCut = 8238 - end - item - Command = ecDeleteLastChar - ShortCut = 8 - end - item - Command = ecDeleteLastChar - ShortCut = 8200 - end - item - Command = ecDeleteLastWord - ShortCut = 16392 - end - item - Command = ecUndo - ShortCut = 32776 - end - item - Command = ecRedo - ShortCut = 40968 - end - item - Command = ecLineBreak - ShortCut = 13 - end - item - Command = ecSelectAll - ShortCut = 16449 - end - item - Command = ecCopy - ShortCut = 16451 - end - item - Command = ecBlockIndent - ShortCut = 24649 - end - item - Command = ecLineBreak - ShortCut = 16461 - end - item - Command = ecInsertLine - ShortCut = 16462 - end - item - Command = ecDeleteWord - ShortCut = 16468 - end - item - Command = ecBlockUnindent - ShortCut = 24661 - end - item - Command = ecPaste - ShortCut = 16470 - end - item - Command = ecCut - ShortCut = 16472 - end - item - Command = ecDeleteLine - ShortCut = 16473 - end - item - Command = ecDeleteEOL - ShortCut = 24665 - end - item - Command = ecUndo - ShortCut = 16474 - end - item - Command = ecRedo - ShortCut = 24666 - end - item - Command = ecGotoMarker0 - ShortCut = 16432 - end - item - Command = ecGotoMarker1 - ShortCut = 16433 - end - item - Command = ecGotoMarker2 - ShortCut = 16434 - end - item - Command = ecGotoMarker3 - ShortCut = 16435 - end - item - Command = ecGotoMarker4 - ShortCut = 16436 - end - item - Command = ecGotoMarker5 - ShortCut = 16437 - end - item - Command = ecGotoMarker6 - ShortCut = 16438 - end - item - Command = ecGotoMarker7 - ShortCut = 16439 - end - item - Command = ecGotoMarker8 - ShortCut = 16440 - end - item - Command = ecGotoMarker9 - ShortCut = 16441 - end - item - Command = ecSetMarker0 - ShortCut = 24624 - end - item - Command = ecSetMarker1 - ShortCut = 24625 - end - item - Command = ecSetMarker2 - ShortCut = 24626 - end - item - Command = ecSetMarker3 - ShortCut = 24627 - end - item - Command = ecSetMarker4 - ShortCut = 24628 - end - item - Command = ecSetMarker5 - ShortCut = 24629 - end - item - Command = ecSetMarker6 - ShortCut = 24630 - end - item - Command = ecSetMarker7 - ShortCut = 24631 - end - item - Command = ecSetMarker8 - ShortCut = 24632 - end - item - Command = ecSetMarker9 - ShortCut = 24633 - end - item - Command = EcFoldLevel1 - ShortCut = 41009 - end - item - Command = EcFoldLevel2 - ShortCut = 41010 - end - item - Command = EcFoldLevel1 - ShortCut = 41011 - end - item - Command = EcFoldLevel1 - ShortCut = 41012 - end - item - Command = EcFoldLevel1 - ShortCut = 41013 - end - item - Command = EcFoldLevel6 - ShortCut = 41014 - end - item - Command = EcFoldLevel7 - ShortCut = 41015 - end - item - Command = EcFoldLevel8 - ShortCut = 41016 - end - item - Command = EcFoldLevel9 - ShortCut = 41017 - end - item - Command = EcFoldLevel0 - ShortCut = 41008 - end - item - Command = EcFoldCurrent - ShortCut = 41005 - end - item - Command = EcUnFoldCurrent - ShortCut = 41003 - end - item - Command = EcToggleMarkupWord - ShortCut = 32845 - end - item - Command = ecNormalSelect - ShortCut = 24654 - end - item - Command = ecColumnSelect - ShortCut = 24643 - end - item - Command = ecLineSelect - ShortCut = 24652 - end - item - Command = ecTab - ShortCut = 9 - end - item - Command = ecShiftTab - ShortCut = 8201 - end - item - Command = ecMatchBracket - ShortCut = 24642 - end - item - Command = ecColSelUp - ShortCut = 40998 - end - item - Command = ecColSelDown - ShortCut = 41000 - end - item - Command = ecColSelLeft - ShortCut = 40997 - end - item - Command = ecColSelRight - ShortCut = 40999 - end - item - Command = ecColSelPageDown - ShortCut = 40994 - end - item - Command = ecColSelPageBottom - ShortCut = 57378 - end - item - Command = ecColSelPageUp - ShortCut = 40993 - end - item - Command = ecColSelPageTop - ShortCut = 57377 - end - item - Command = ecColSelLineStart - ShortCut = 40996 - end - item - Command = ecColSelLineEnd - ShortCut = 40995 - end - item - Command = ecColSelEditorTop - ShortCut = 57380 - end - item - Command = ecColSelEditorBottom - ShortCut = 57379 - end> - MouseActions = < - item - Shift = [] - ShiftMask = [ssShift, ssAlt] - Button = mbLeft - ClickCount = ccSingle - ClickDir = cdDown - Command = 1 - MoveCaret = True - Option = 0 - Priority = 0 - end - item - Shift = [ssShift] - ShiftMask = [ssShift, ssAlt] - Button = mbLeft - ClickCount = ccSingle - ClickDir = cdDown - Command = 1 - MoveCaret = True - Option = 1 - Priority = 0 - end - item - Shift = [ssAlt] - ShiftMask = [ssShift, ssAlt] - Button = mbLeft - ClickCount = ccSingle - ClickDir = cdDown - Command = 3 - MoveCaret = True - Option = 0 - Priority = 0 - end - item - Shift = [ssShift, ssAlt] - ShiftMask = [ssShift, ssAlt] - Button = mbLeft - ClickCount = ccSingle - ClickDir = cdDown - Command = 3 - MoveCaret = True - Option = 1 - Priority = 0 - end - item - Shift = [] - ShiftMask = [] - Button = mbRight - ClickCount = ccSingle - ClickDir = cdUp - Command = 12 - MoveCaret = False - Option = 0 - Priority = 0 - end - item - Shift = [] - ShiftMask = [] - Button = mbLeft - ClickCount = ccDouble - ClickDir = cdDown - Command = 6 - MoveCaret = True - Option = 0 - Priority = 0 - end - item - Shift = [] - ShiftMask = [] - Button = mbLeft - ClickCount = ccTriple - ClickDir = cdDown - Command = 7 - MoveCaret = True - Option = 0 - Priority = 0 - end - item - Shift = [] - ShiftMask = [] - Button = mbLeft - ClickCount = ccQuad - ClickDir = cdDown - Command = 8 - MoveCaret = True - Option = 0 - Priority = 0 - end - item - Shift = [] - ShiftMask = [] - Button = mbMiddle - ClickCount = ccSingle - ClickDir = cdDown - Command = 10 - MoveCaret = True - Option = 0 - Priority = 0 - end - item - Shift = [ssCtrl] - ShiftMask = [ssShift, ssAlt, ssCtrl] - Button = mbLeft - ClickCount = ccSingle - ClickDir = cdUp - Command = 11 - MoveCaret = False - Option = 0 - Priority = 0 - end> - MouseSelActions = < - item - Shift = [] - ShiftMask = [] - Button = mbLeft - ClickCount = ccSingle - ClickDir = cdDown - Command = 9 - MoveCaret = False - Option = 0 - Priority = 0 - end> + object Memo1: TMemo + Left = 8 + Height = 120 + Top = 368 + Width = 728 Lines.Strings = ( - 'SynMemo1' + 'Memo1' ) - OnChange = SynMemo1Change - object TSynGutterPartList - object TSynGutterMarks - Width = 23 - end - object TSynGutterLineNumber - Width = 17 - MouseActions = <> - MarkupInfo.Background = clBtnFace - MarkupInfo.Foreground = clNone - DigitCount = 2 - ShowOnlyLineNumbersMultiplesOf = 1 - ZeroStart = False - LeadingZeros = False - end - object TSynGutterChanges - Width = 4 - ModifiedColor = 59900 - SavedColor = clGreen - end - object TSynGutterSeparator - Width = 2 - end - object TSynGutterCodeFolding - MouseActions = < - item - Shift = [] - ShiftMask = [] - Button = mbRight - ClickCount = ccSingle - ClickDir = cdUp - Command = 16 - MoveCaret = False - Option = 0 - Priority = 0 - end - item - Shift = [] - ShiftMask = [ssShift] - Button = mbMiddle - ClickCount = ccAny - ClickDir = cdDown - Command = 14 - MoveCaret = False - Option = 0 - Priority = 0 - end - item - Shift = [ssShift] - ShiftMask = [ssShift] - Button = mbMiddle - ClickCount = ccAny - ClickDir = cdDown - Command = 14 - MoveCaret = False - Option = 1 - Priority = 0 - end - item - Shift = [] - ShiftMask = [] - Button = mbLeft - ClickCount = ccAny - ClickDir = cdDown - Command = 0 - MoveCaret = False - Option = 0 - Priority = 0 - end> - MarkupInfo.Background = clNone - MarkupInfo.Foreground = clGray - MouseActionsExpanded = < - item - Shift = [] - ShiftMask = [] - Button = mbLeft - ClickCount = ccAny - ClickDir = cdDown - Command = 14 - MoveCaret = False - Option = 0 - Priority = 0 - end> - MouseActionsCollapsed = < - item - Shift = [ssCtrl] - ShiftMask = [ssCtrl] - Button = mbLeft - ClickCount = ccAny - ClickDir = cdDown - Command = 15 - MoveCaret = False - Option = 0 - Priority = 0 - end - item - Shift = [] - ShiftMask = [ssCtrl] - Button = mbLeft - ClickCount = ccAny - ClickDir = cdDown - Command = 15 - MoveCaret = False - Option = 1 - Priority = 0 - end> - end - end + ScrollBars = ssAutoBoth + TabOrder = 2 end object SynFreePascalSyn1: TSynFreePascalSyn Enabled = False CompilerMode = pcmObjFPC NestedComments = True - left = 498 - top = 89 + left = 288 + top = 8 + end + object MainMenu1: TMainMenu + left = 191 + top = 8 + object MenuItemScript: TMenuItem + Caption = 'Script' + object MenuItemRun: TMenuItem + Caption = 'Run' + ShortCut = 120 + OnClick = MenuItemRunClick + end + end end end diff --git a/Projects/SAMufasaGUI/testunit.lrs b/Projects/SAMufasaGUI/testunit.lrs index abdd46a..36a9865 100644 --- a/Projects/SAMufasaGUI/testunit.lrs +++ b/Projects/SAMufasaGUI/testunit.lrs @@ -1,271 +1,136 @@ +{ This is an automatically generated lazarus resource file } + LazarusResources.Add('TForm1','FORMDATA',[ 'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'q'#1#6'Height'#3#15#2#3'Top'#3#223#0#5'Wi' +'dth'#3#11#3#13'ActiveControl'#7#7'Button1'#7'Caption'#6#5'Form1'#12'ClientH' - +'eight'#3#15#2#11'ClientWidth'#3#11#3#8'OnCreate'#7#10'FormCreate'#9'OnDestr' - +'oy'#7#11'FormDestroy'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0' - +'.9.29'#0#7'TButton'#7'Button1'#4'Left'#2#8#6'Height'#2#25#3'Top'#2#16#5'Wid' - +'th'#2'K'#7'Caption'#6#3'Run'#7'OnClick'#7#12'Button1Click'#8'TabOrder'#2#0#0 - +#0#8'TSynEdit'#8'SynEdit1'#4'Left'#2#8#6'Height'#3'('#1#3'Top'#2'@'#5'Width' - +#3#216#2#5'Align'#7#8'alCustom'#11'Font.Height'#2#243#9'Font.Name'#6#11'Cour' - +'ier New'#10'Font.Pitch'#7#7'fpFixed'#12'Font.Quality'#7#16'fqNonAntialiased' - +#11'ParentColor'#8#10'ParentFont'#8#8'TabOrder'#2#1#24'BookMarkOptions.OnCha' - +'nge'#13#12'Gutter.Width'#2'9'#19'Gutter.MouseActions'#14#1#5'Shift'#11#0#9 - +'ShiftMask'#11#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#5'ccAny'#8'ClickDir' - +#7#6'cdDown'#7'Command'#2#13#9'MoveCaret'#8#6'Option'#2#0#8'Priority'#2#0#0#1 - +#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#7'mbRight'#10'ClickCount'#7#8'c' - +'cSingle'#8'ClickDir'#7#4'cdUp'#7'Command'#2#12#9'MoveCaret'#8#6'Option'#2#0 - +#8'Priority'#2#0#0#0#11'Highlighter'#7#17'SynFreePascalSyn1'#10'Keystrokes' - +#14#1#7'Command'#7#4'ecUp'#8'ShortCut'#2'&'#0#1#7'Command'#7#7'ecSelUp'#8'Sh' - +'ortCut'#3'& '#0#1#7'Command'#7#10'ecScrollUp'#8'ShortCut'#3'&@'#0#1#7'Comma' - +'nd'#7#6'ecDown'#8'ShortCut'#2'('#0#1#7'Command'#7#9'ecSelDown'#8'ShortCut'#3 - +'( '#0#1#7'Command'#7#12'ecScrollDown'#8'ShortCut'#3'(@'#0#1#7'Command'#7#6 - +'ecLeft'#8'ShortCut'#2'%'#0#1#7'Command'#7#9'ecSelLeft'#8'ShortCut'#3'% '#0#1 - +#7'Command'#7#10'ecWordLeft'#8'ShortCut'#3'%@'#0#1#7'Command'#7#13'ecSelWord' - +'Left'#8'ShortCut'#3'%`'#0#1#7'Command'#7#7'ecRight'#8'ShortCut'#2''''#0#1#7 - +'Command'#7#10'ecSelRight'#8'ShortCut'#3''' '#0#1#7'Command'#7#11'ecWordRigh' - +'t'#8'ShortCut'#3'''@'#0#1#7'Command'#7#14'ecSelWordRight'#8'ShortCut'#3'''`' - +#0#1#7'Command'#7#10'ecPageDown'#8'ShortCut'#2'"'#0#1#7'Command'#7#13'ecSelP' - +'ageDown'#8'ShortCut'#3'" '#0#1#7'Command'#7#12'ecPageBottom'#8'ShortCut'#3 - +'"@'#0#1#7'Command'#7#15'ecSelPageBottom'#8'ShortCut'#3'"`'#0#1#7'Command'#7 - +#8'ecPageUp'#8'ShortCut'#2'!'#0#1#7'Command'#7#11'ecSelPageUp'#8'ShortCut'#3 - +'! '#0#1#7'Command'#7#9'ecPageTop'#8'ShortCut'#3'!@'#0#1#7'Command'#7#12'ecS' - +'elPageTop'#8'ShortCut'#3'!`'#0#1#7'Command'#7#11'ecLineStart'#8'ShortCut'#2 - +'$'#0#1#7'Command'#7#14'ecSelLineStart'#8'ShortCut'#3'$ '#0#1#7'Command'#7#11 - +'ecEditorTop'#8'ShortCut'#3'$@'#0#1#7'Command'#7#14'ecSelEditorTop'#8'ShortC' - +'ut'#3'$`'#0#1#7'Command'#7#9'ecLineEnd'#8'ShortCut'#2'#'#0#1#7'Command'#7#12 - +'ecSelLineEnd'#8'ShortCut'#3'# '#0#1#7'Command'#7#14'ecEditorBottom'#8'Short' - +'Cut'#3'#@'#0#1#7'Command'#7#17'ecSelEditorBottom'#8'ShortCut'#3'#`'#0#1#7'C' - +'ommand'#7#12'ecToggleMode'#8'ShortCut'#2'-'#0#1#7'Command'#7#6'ecCopy'#8'Sh' - +'ortCut'#3'-@'#0#1#7'Command'#7#7'ecPaste'#8'ShortCut'#3'- '#0#1#7'Command'#7 - +#12'ecDeleteChar'#8'ShortCut'#2'.'#0#1#7'Command'#7#5'ecCut'#8'ShortCut'#3'.' - +' '#0#1#7'Command'#7#16'ecDeleteLastChar'#8'ShortCut'#2#8#0#1#7'Command'#7#16 - +'ecDeleteLastChar'#8'ShortCut'#3#8' '#0#1#7'Command'#7#16'ecDeleteLastWord'#8 - +'ShortCut'#3#8'@'#0#1#7'Command'#7#6'ecUndo'#8'ShortCut'#4#8#128#0#0#0#1#7'C' - +'ommand'#7#6'ecRedo'#8'ShortCut'#4#8#160#0#0#0#1#7'Command'#7#11'ecLineBreak' - +#8'ShortCut'#2#13#0#1#7'Command'#7#11'ecSelectAll'#8'ShortCut'#3'A@'#0#1#7'C' - +'ommand'#7#6'ecCopy'#8'ShortCut'#3'C@'#0#1#7'Command'#7#13'ecBlockIndent'#8 - +'ShortCut'#3'I`'#0#1#7'Command'#7#11'ecLineBreak'#8'ShortCut'#3'M@'#0#1#7'Co' - +'mmand'#7#12'ecInsertLine'#8'ShortCut'#3'N@'#0#1#7'Command'#7#12'ecDeleteWor' - +'d'#8'ShortCut'#3'T@'#0#1#7'Command'#7#15'ecBlockUnindent'#8'ShortCut'#3'U`' - +#0#1#7'Command'#7#7'ecPaste'#8'ShortCut'#3'V@'#0#1#7'Command'#7#5'ecCut'#8'S' - +'hortCut'#3'X@'#0#1#7'Command'#7#12'ecDeleteLine'#8'ShortCut'#3'Y@'#0#1#7'Co' - +'mmand'#7#11'ecDeleteEOL'#8'ShortCut'#3'Y`'#0#1#7'Command'#7#6'ecUndo'#8'Sho' - +'rtCut'#3'Z@'#0#1#7'Command'#7#6'ecRedo'#8'ShortCut'#3'Z`'#0#1#7'Command'#7 - +#13'ecGotoMarker0'#8'ShortCut'#3'0@'#0#1#7'Command'#7#13'ecGotoMarker1'#8'Sh' - +'ortCut'#3'1@'#0#1#7'Command'#7#13'ecGotoMarker2'#8'ShortCut'#3'2@'#0#1#7'Co' - +'mmand'#7#13'ecGotoMarker3'#8'ShortCut'#3'3@'#0#1#7'Command'#7#13'ecGotoMark' - +'er4'#8'ShortCut'#3'4@'#0#1#7'Command'#7#13'ecGotoMarker5'#8'ShortCut'#3'5@' - +#0#1#7'Command'#7#13'ecGotoMarker6'#8'ShortCut'#3'6@'#0#1#7'Command'#7#13'ec' - +'GotoMarker7'#8'ShortCut'#3'7@'#0#1#7'Command'#7#13'ecGotoMarker8'#8'ShortCu' - +'t'#3'8@'#0#1#7'Command'#7#13'ecGotoMarker9'#8'ShortCut'#3'9@'#0#1#7'Command' - +#7#12'ecSetMarker0'#8'ShortCut'#3'0`'#0#1#7'Command'#7#12'ecSetMarker1'#8'Sh' - +'ortCut'#3'1`'#0#1#7'Command'#7#12'ecSetMarker2'#8'ShortCut'#3'2`'#0#1#7'Com' - +'mand'#7#12'ecSetMarker3'#8'ShortCut'#3'3`'#0#1#7'Command'#7#12'ecSetMarker4' - +#8'ShortCut'#3'4`'#0#1#7'Command'#7#12'ecSetMarker5'#8'ShortCut'#3'5`'#0#1#7 - +'Command'#7#12'ecSetMarker6'#8'ShortCut'#3'6`'#0#1#7'Command'#7#12'ecSetMark' - ,'er7'#8'ShortCut'#3'7`'#0#1#7'Command'#7#12'ecSetMarker8'#8'ShortCut'#3'8`'#0 - +#1#7'Command'#7#12'ecSetMarker9'#8'ShortCut'#3'9`'#0#1#7'Command'#7#12'EcFol' - +'dLevel1'#8'ShortCut'#4'1'#160#0#0#0#1#7'Command'#7#12'EcFoldLevel2'#8'Short' - +'Cut'#4'2'#160#0#0#0#1#7'Command'#7#12'EcFoldLevel1'#8'ShortCut'#4'3'#160#0#0 - +#0#1#7'Command'#7#12'EcFoldLevel1'#8'ShortCut'#4'4'#160#0#0#0#1#7'Command'#7 - +#12'EcFoldLevel1'#8'ShortCut'#4'5'#160#0#0#0#1#7'Command'#7#12'EcFoldLevel6' - +#8'ShortCut'#4'6'#160#0#0#0#1#7'Command'#7#12'EcFoldLevel7'#8'ShortCut'#4'7' - +#160#0#0#0#1#7'Command'#7#12'EcFoldLevel8'#8'ShortCut'#4'8'#160#0#0#0#1#7'Co' - +'mmand'#7#12'EcFoldLevel9'#8'ShortCut'#4'9'#160#0#0#0#1#7'Command'#7#12'EcFo' - +'ldLevel0'#8'ShortCut'#4'0'#160#0#0#0#1#7'Command'#7#13'EcFoldCurrent'#8'Sho' - +'rtCut'#4'-'#160#0#0#0#1#7'Command'#7#15'EcUnFoldCurrent'#8'ShortCut'#4'+' - +#160#0#0#0#1#7'Command'#7#18'EcToggleMarkupWord'#8'ShortCut'#4'M'#128#0#0#0#1 - +#7'Command'#7#14'ecNormalSelect'#8'ShortCut'#3'N`'#0#1#7'Command'#7#14'ecCol' - +'umnSelect'#8'ShortCut'#3'C`'#0#1#7'Command'#7#12'ecLineSelect'#8'ShortCut'#3 - +'L`'#0#1#7'Command'#7#5'ecTab'#8'ShortCut'#2#9#0#1#7'Command'#7#10'ecShiftTa' - +'b'#8'ShortCut'#3#9' '#0#1#7'Command'#7#14'ecMatchBracket'#8'ShortCut'#3'B`' - +#0#1#7'Command'#7#10'ecColSelUp'#8'ShortCut'#4'&'#160#0#0#0#1#7'Command'#7#12 - +'ecColSelDown'#8'ShortCut'#4'('#160#0#0#0#1#7'Command'#7#12'ecColSelLeft'#8 - +'ShortCut'#4'%'#160#0#0#0#1#7'Command'#7#13'ecColSelRight'#8'ShortCut'#4'''' - +#160#0#0#0#1#7'Command'#7#16'ecColSelPageDown'#8'ShortCut'#4'"'#160#0#0#0#1#7 - +'Command'#7#18'ecColSelPageBottom'#8'ShortCut'#4'"'#224#0#0#0#1#7'Command'#7 - +#14'ecColSelPageUp'#8'ShortCut'#4'!'#160#0#0#0#1#7'Command'#7#15'ecColSelPag' - +'eTop'#8'ShortCut'#4'!'#224#0#0#0#1#7'Command'#7#17'ecColSelLineStart'#8'Sho' - +'rtCut'#4'$'#160#0#0#0#1#7'Command'#7#15'ecColSelLineEnd'#8'ShortCut'#4'#' - +#160#0#0#0#1#7'Command'#7#17'ecColSelEditorTop'#8'ShortCut'#4'$'#224#0#0#0#1 - +#7'Command'#7#20'ecColSelEditorBottom'#8'ShortCut'#4'#'#224#0#0#0#0#12'Mouse' - +'Actions'#14#1#5'Shift'#11#0#9'ShiftMask'#11#7'ssShift'#5'ssAlt'#0#6'Button' - +#7#6'mbLeft'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#6'cdDown'#7'Command' - +#2#1#9'MoveCaret'#9#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#7'ssShift' - +#0#9'ShiftMask'#11#7'ssShift'#5'ssAlt'#0#6'Button'#7#6'mbLeft'#10'ClickCount' - +#7#8'ccSingle'#8'ClickDir'#7#6'cdDown'#7'Command'#2#1#9'MoveCaret'#9#6'Optio' - +'n'#2#1#8'Priority'#2#0#0#1#5'Shift'#11#5'ssAlt'#0#9'ShiftMask'#11#7'ssShift' - +#5'ssAlt'#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7 - +#6'cdDown'#7'Command'#2#3#9'MoveCaret'#9#6'Option'#2#0#8'Priority'#2#0#0#1#5 - +'Shift'#11#7'ssShift'#5'ssAlt'#0#9'ShiftMask'#11#7'ssShift'#5'ssAlt'#0#6'But' - +'ton'#7#6'mbLeft'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#6'cdDown'#7'Com' - +'mand'#2#3#9'MoveCaret'#9#6'Option'#2#1#8'Priority'#2#0#0#1#5'Shift'#11#0#9 - +'ShiftMask'#11#0#6'Button'#7#7'mbRight'#10'ClickCount'#7#8'ccSingle'#8'Click' - +'Dir'#7#4'cdUp'#7'Command'#2#12#9'MoveCaret'#8#6'Option'#2#0#8'Priority'#2#0 - +#0#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#8 - +'ccDouble'#8'ClickDir'#7#6'cdDown'#7'Command'#2#6#9'MoveCaret'#9#6'Option'#2 - +#0#8'Priority'#2#0#0#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#6'mbLeft' - +#10'ClickCount'#7#8'ccTriple'#8'ClickDir'#7#6'cdDown'#7'Command'#2#7#9'MoveC' - +'aret'#9#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#0#9'ShiftMask'#11#0#6 - +'Button'#7#6'mbLeft'#10'ClickCount'#7#6'ccQuad'#8'ClickDir'#7#6'cdDown'#7'Co' - +'mmand'#2#8#9'MoveCaret'#9#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#0#9 - +'ShiftMask'#11#0#6'Button'#7#8'mbMiddle'#10'ClickCount'#7#8'ccSingle'#8'Clic' - +'kDir'#7#6'cdDown'#7'Command'#2#10#9'MoveCaret'#9#6'Option'#2#0#8'Priority'#2 - +#0#0#1#5'Shift'#11#6'ssCtrl'#0#9'ShiftMask'#11#7'ssShift'#5'ssAlt'#6'ssCtrl' - +#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#4'cdUp'#7 - +'Command'#2#11#9'MoveCaret'#8#6'Option'#2#0#8'Priority'#2#0#0#0#15'MouseSelA' - +'ctions'#14#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#6'mbLeft'#10'Click' - +'Count'#7#8'ccSingle'#8'ClickDir'#7#6'cdDown'#7'Command'#2#9#9'MoveCaret'#8#6 - +'Option'#2#0#8'Priority'#2#0#0#0#13'Lines.Strings'#1#6#12'program new;'#6#5 - +'begin'#6#4'end.'#0#21'BracketHighlightStyle'#7#8'sbhsBoth'#0#18'TSynGutterP' - +'artList'#0#0#15'TSynGutterMarks'#0#5'Width'#2#23#0#0#20'TSynGutterLineNumbe' - +'r'#0#5'Width'#2#17#12'MouseActions'#14#0#21'MarkupInfo.Background'#7#9'clBt' - +'nFace'#21'MarkupInfo.Foreground'#7#6'clNone'#10'DigitCount'#2#2#30'ShowOnly' - +'LineNumbersMultiplesOf'#2#1#9'ZeroStart'#8#12'LeadingZeros'#8#0#0#17'TSynGu' - +'tterChanges'#0#5'Width'#2#4#13'ModifiedColor'#4#252#233#0#0#10'SavedColor'#7 - +#7'clGreen'#0#0#19'TSynGutterSeparator'#0#5'Width'#2#2#0#0#21'TSynGutterCode' - +'Folding'#0#12'MouseActions'#14#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7 - +#7'mbRight'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#4'cdUp'#7'Command'#2 - +#16#9'MoveCaret'#8#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#0#9'ShiftMa' - ,'sk'#11#7'ssShift'#0#6'Button'#7#8'mbMiddle'#10'ClickCount'#7#5'ccAny'#8'Cli' - +'ckDir'#7#6'cdDown'#7'Command'#2#14#9'MoveCaret'#8#6'Option'#2#0#8'Priority' - +#2#0#0#1#5'Shift'#11#7'ssShift'#0#9'ShiftMask'#11#7'ssShift'#0#6'Button'#7#8 - +'mbMiddle'#10'ClickCount'#7#5'ccAny'#8'ClickDir'#7#6'cdDown'#7'Command'#2#14 - +#9'MoveCaret'#8#6'Option'#2#1#8'Priority'#2#0#0#1#5'Shift'#11#0#9'ShiftMask' - +#11#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#5'ccAny'#8'ClickDir'#7#6'cdDown' - +#7'Command'#2#0#9'MoveCaret'#8#6'Option'#2#0#8'Priority'#2#0#0#0#21'MarkupIn' - +'fo.Background'#7#6'clNone'#21'MarkupInfo.Foreground'#7#6'clGray'#20'MouseAc' - +'tionsExpanded'#14#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#6'mbLeft'#10 - +'ClickCount'#7#5'ccAny'#8'ClickDir'#7#6'cdDown'#7'Command'#2#14#9'MoveCaret' - +#8#6'Option'#2#0#8'Priority'#2#0#0#0#21'MouseActionsCollapsed'#14#1#5'Shift' - +#11#6'ssCtrl'#0#9'ShiftMask'#11#6'ssCtrl'#0#6'Button'#7#6'mbLeft'#10'ClickCo' - +'unt'#7#5'ccAny'#8'ClickDir'#7#6'cdDown'#7'Command'#2#15#9'MoveCaret'#8#6'Op' - +'tion'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#0#9'ShiftMask'#11#6'ssCtrl'#0#6'B' - +'utton'#7#6'mbLeft'#10'ClickCount'#7#5'ccAny'#8'ClickDir'#7#6'cdDown'#7'Comm' - +'and'#2#15#9'MoveCaret'#8#6'Option'#2#1#8'Priority'#2#0#0#0#0#0#0#0#8'TSynMe' - +'mo'#8'SynMemo1'#6'Cursor'#7#7'crIBeam'#4'Left'#2#20#6'Height'#2'}'#3'Top'#3 - +#131#1#5'Width'#3#142#2#11'Font.Height'#2#243#9'Font.Name'#6#11'Courier New' - +#10'Font.Pitch'#7#7'fpFixed'#12'Font.Quality'#7#16'fqNonAntialiased'#11'Pare' - +'ntColor'#8#10'ParentFont'#8#8'TabOrder'#2#2#24'BookMarkOptions.OnChange'#13 - +#12'Gutter.Width'#2'9'#19'Gutter.MouseActions'#14#1#5'Shift'#11#0#9'ShiftMas' - +'k'#11#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#5'ccAny'#8'ClickDir'#7#6'cdD' - +'own'#7'Command'#2#13#9'MoveCaret'#8#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shi' - +'ft'#11#0#9'ShiftMask'#11#0#6'Button'#7#7'mbRight'#10'ClickCount'#7#8'ccSing' - +'le'#8'ClickDir'#7#4'cdUp'#7'Command'#2#12#9'MoveCaret'#8#6'Option'#2#0#8'Pr' - +'iority'#2#0#0#0#10'Keystrokes'#14#1#7'Command'#7#4'ecUp'#8'ShortCut'#2'&'#0 - +#1#7'Command'#7#7'ecSelUp'#8'ShortCut'#3'& '#0#1#7'Command'#7#10'ecScrollUp' - +#8'ShortCut'#3'&@'#0#1#7'Command'#7#6'ecDown'#8'ShortCut'#2'('#0#1#7'Command' - +#7#9'ecSelDown'#8'ShortCut'#3'( '#0#1#7'Command'#7#12'ecScrollDown'#8'ShortC' - +'ut'#3'(@'#0#1#7'Command'#7#6'ecLeft'#8'ShortCut'#2'%'#0#1#7'Command'#7#9'ec' - +'SelLeft'#8'ShortCut'#3'% '#0#1#7'Command'#7#10'ecWordLeft'#8'ShortCut'#3'%@' - +#0#1#7'Command'#7#13'ecSelWordLeft'#8'ShortCut'#3'%`'#0#1#7'Command'#7#7'ecR' - +'ight'#8'ShortCut'#2''''#0#1#7'Command'#7#10'ecSelRight'#8'ShortCut'#3''' '#0 - +#1#7'Command'#7#11'ecWordRight'#8'ShortCut'#3'''@'#0#1#7'Command'#7#14'ecSel' - +'WordRight'#8'ShortCut'#3'''`'#0#1#7'Command'#7#10'ecPageDown'#8'ShortCut'#2 - +'"'#0#1#7'Command'#7#13'ecSelPageDown'#8'ShortCut'#3'" '#0#1#7'Command'#7#12 - +'ecPageBottom'#8'ShortCut'#3'"@'#0#1#7'Command'#7#15'ecSelPageBottom'#8'Shor' - +'tCut'#3'"`'#0#1#7'Command'#7#8'ecPageUp'#8'ShortCut'#2'!'#0#1#7'Command'#7 - +#11'ecSelPageUp'#8'ShortCut'#3'! '#0#1#7'Command'#7#9'ecPageTop'#8'ShortCut' - +#3'!@'#0#1#7'Command'#7#12'ecSelPageTop'#8'ShortCut'#3'!`'#0#1#7'Command'#7 - +#11'ecLineStart'#8'ShortCut'#2'$'#0#1#7'Command'#7#14'ecSelLineStart'#8'Shor' - +'tCut'#3'$ '#0#1#7'Command'#7#11'ecEditorTop'#8'ShortCut'#3'$@'#0#1#7'Comman' - +'d'#7#14'ecSelEditorTop'#8'ShortCut'#3'$`'#0#1#7'Command'#7#9'ecLineEnd'#8'S' - +'hortCut'#2'#'#0#1#7'Command'#7#12'ecSelLineEnd'#8'ShortCut'#3'# '#0#1#7'Com' - +'mand'#7#14'ecEditorBottom'#8'ShortCut'#3'#@'#0#1#7'Command'#7#17'ecSelEdito' - +'rBottom'#8'ShortCut'#3'#`'#0#1#7'Command'#7#12'ecToggleMode'#8'ShortCut'#2 - +'-'#0#1#7'Command'#7#6'ecCopy'#8'ShortCut'#3'-@'#0#1#7'Command'#7#7'ecPaste' - +#8'ShortCut'#3'- '#0#1#7'Command'#7#12'ecDeleteChar'#8'ShortCut'#2'.'#0#1#7 - +'Command'#7#5'ecCut'#8'ShortCut'#3'. '#0#1#7'Command'#7#16'ecDeleteLastChar' - +#8'ShortCut'#2#8#0#1#7'Command'#7#16'ecDeleteLastChar'#8'ShortCut'#3#8' '#0#1 - +#7'Command'#7#16'ecDeleteLastWord'#8'ShortCut'#3#8'@'#0#1#7'Command'#7#6'ecU' - +'ndo'#8'ShortCut'#4#8#128#0#0#0#1#7'Command'#7#6'ecRedo'#8'ShortCut'#4#8#160 - +#0#0#0#1#7'Command'#7#11'ecLineBreak'#8'ShortCut'#2#13#0#1#7'Command'#7#11'e' - +'cSelectAll'#8'ShortCut'#3'A@'#0#1#7'Command'#7#6'ecCopy'#8'ShortCut'#3'C@'#0 - +#1#7'Command'#7#13'ecBlockIndent'#8'ShortCut'#3'I`'#0#1#7'Command'#7#11'ecLi' - +'neBreak'#8'ShortCut'#3'M@'#0#1#7'Command'#7#12'ecInsertLine'#8'ShortCut'#3 - +'N@'#0#1#7'Command'#7#12'ecDeleteWord'#8'ShortCut'#3'T@'#0#1#7'Command'#7#15 - +'ecBlockUnindent'#8'ShortCut'#3'U`'#0#1#7'Command'#7#7'ecPaste'#8'ShortCut'#3 - +'V@'#0#1#7'Command'#7#5'ecCut'#8'ShortCut'#3'X@'#0#1#7'Command'#7#12'ecDelet' - +'eLine'#8'ShortCut'#3'Y@'#0#1#7'Command'#7#11'ecDeleteEOL'#8'ShortCut'#3'Y`' - +#0#1#7'Command'#7#6'ecUndo'#8'ShortCut'#3'Z@'#0#1#7'Command'#7#6'ecRedo'#8'S' - +'hortCut'#3'Z`'#0#1#7'Command'#7#13'ecGotoMarker0'#8'ShortCut'#3'0@'#0#1#7'C' - +'ommand'#7#13'ecGotoMarker1'#8'ShortCut'#3'1@'#0#1#7'Command'#7#13'ecGotoMar' - +'ker2'#8'ShortCut'#3'2@'#0#1#7'Command'#7#13'ecGotoMarker3'#8'ShortCut'#3'3@' - ,#0#1#7'Command'#7#13'ecGotoMarker4'#8'ShortCut'#3'4@'#0#1#7'Command'#7#13'ec' - +'GotoMarker5'#8'ShortCut'#3'5@'#0#1#7'Command'#7#13'ecGotoMarker6'#8'ShortCu' - +'t'#3'6@'#0#1#7'Command'#7#13'ecGotoMarker7'#8'ShortCut'#3'7@'#0#1#7'Command' - +#7#13'ecGotoMarker8'#8'ShortCut'#3'8@'#0#1#7'Command'#7#13'ecGotoMarker9'#8 - +'ShortCut'#3'9@'#0#1#7'Command'#7#12'ecSetMarker0'#8'ShortCut'#3'0`'#0#1#7'C' - +'ommand'#7#12'ecSetMarker1'#8'ShortCut'#3'1`'#0#1#7'Command'#7#12'ecSetMarke' - +'r2'#8'ShortCut'#3'2`'#0#1#7'Command'#7#12'ecSetMarker3'#8'ShortCut'#3'3`'#0 - +#1#7'Command'#7#12'ecSetMarker4'#8'ShortCut'#3'4`'#0#1#7'Command'#7#12'ecSet' - +'Marker5'#8'ShortCut'#3'5`'#0#1#7'Command'#7#12'ecSetMarker6'#8'ShortCut'#3 - +'6`'#0#1#7'Command'#7#12'ecSetMarker7'#8'ShortCut'#3'7`'#0#1#7'Command'#7#12 - +'ecSetMarker8'#8'ShortCut'#3'8`'#0#1#7'Command'#7#12'ecSetMarker9'#8'ShortCu' - +'t'#3'9`'#0#1#7'Command'#7#12'EcFoldLevel1'#8'ShortCut'#4'1'#160#0#0#0#1#7'C' - +'ommand'#7#12'EcFoldLevel2'#8'ShortCut'#4'2'#160#0#0#0#1#7'Command'#7#12'EcF' - +'oldLevel1'#8'ShortCut'#4'3'#160#0#0#0#1#7'Command'#7#12'EcFoldLevel1'#8'Sho' - +'rtCut'#4'4'#160#0#0#0#1#7'Command'#7#12'EcFoldLevel1'#8'ShortCut'#4'5'#160#0 - +#0#0#1#7'Command'#7#12'EcFoldLevel6'#8'ShortCut'#4'6'#160#0#0#0#1#7'Command' - +#7#12'EcFoldLevel7'#8'ShortCut'#4'7'#160#0#0#0#1#7'Command'#7#12'EcFoldLevel' - +'8'#8'ShortCut'#4'8'#160#0#0#0#1#7'Command'#7#12'EcFoldLevel9'#8'ShortCut'#4 - +'9'#160#0#0#0#1#7'Command'#7#12'EcFoldLevel0'#8'ShortCut'#4'0'#160#0#0#0#1#7 - +'Command'#7#13'EcFoldCurrent'#8'ShortCut'#4'-'#160#0#0#0#1#7'Command'#7#15'E' - +'cUnFoldCurrent'#8'ShortCut'#4'+'#160#0#0#0#1#7'Command'#7#18'EcToggleMarkup' - +'Word'#8'ShortCut'#4'M'#128#0#0#0#1#7'Command'#7#14'ecNormalSelect'#8'ShortC' - +'ut'#3'N`'#0#1#7'Command'#7#14'ecColumnSelect'#8'ShortCut'#3'C`'#0#1#7'Comma' - +'nd'#7#12'ecLineSelect'#8'ShortCut'#3'L`'#0#1#7'Command'#7#5'ecTab'#8'ShortC' - +'ut'#2#9#0#1#7'Command'#7#10'ecShiftTab'#8'ShortCut'#3#9' '#0#1#7'Command'#7 - +#14'ecMatchBracket'#8'ShortCut'#3'B`'#0#1#7'Command'#7#10'ecColSelUp'#8'Shor' - +'tCut'#4'&'#160#0#0#0#1#7'Command'#7#12'ecColSelDown'#8'ShortCut'#4'('#160#0 - +#0#0#1#7'Command'#7#12'ecColSelLeft'#8'ShortCut'#4'%'#160#0#0#0#1#7'Command' - +#7#13'ecColSelRight'#8'ShortCut'#4''''#160#0#0#0#1#7'Command'#7#16'ecColSelP' - +'ageDown'#8'ShortCut'#4'"'#160#0#0#0#1#7'Command'#7#18'ecColSelPageBottom'#8 - +'ShortCut'#4'"'#224#0#0#0#1#7'Command'#7#14'ecColSelPageUp'#8'ShortCut'#4'!' - +#160#0#0#0#1#7'Command'#7#15'ecColSelPageTop'#8'ShortCut'#4'!'#224#0#0#0#1#7 - +'Command'#7#17'ecColSelLineStart'#8'ShortCut'#4'$'#160#0#0#0#1#7'Command'#7 - +#15'ecColSelLineEnd'#8'ShortCut'#4'#'#160#0#0#0#1#7'Command'#7#17'ecColSelEd' - +'itorTop'#8'ShortCut'#4'$'#224#0#0#0#1#7'Command'#7#20'ecColSelEditorBottom' - +#8'ShortCut'#4'#'#224#0#0#0#0#12'MouseActions'#14#1#5'Shift'#11#0#9'ShiftMas' - +'k'#11#7'ssShift'#5'ssAlt'#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#8'ccSing' - +'le'#8'ClickDir'#7#6'cdDown'#7'Command'#2#1#9'MoveCaret'#9#6'Option'#2#0#8'P' - +'riority'#2#0#0#1#5'Shift'#11#7'ssShift'#0#9'ShiftMask'#11#7'ssShift'#5'ssAl' + +'eight'#3#251#1#11'ClientWidth'#3#11#3#4'Menu'#7#9'MainMenu1'#8'OnCreate'#7 + +#10'FormCreate'#9'OnDestroy'#7#11'FormDestroy'#8'Position'#7#14'poScreenCent' + +'er'#10'LCLVersion'#6#6'0.9.29'#0#7'TButton'#7'Button1'#4'Left'#2#8#6'Height' + +#2#25#3'Top'#2#8#5'Width'#2'K'#7'Caption'#6#3'Run'#7'OnClick'#7#12'Button1Cl' + +'ick'#8'TabOrder'#2#0#0#0#8'TSynEdit'#8'SynEdit1'#4'Left'#2#8#6'Height'#3'@' + +#1#3'Top'#2'('#5'Width'#3#232#2#5'Align'#7#8'alCustom'#11'Font.Height'#2#243 + +#9'Font.Name'#6#11'Courier New'#10'Font.Pitch'#7#7'fpFixed'#12'Font.Quality' + +#7#16'fqNonAntialiased'#11'ParentColor'#8#10'ParentFont'#8#8'TabOrder'#2#1#24 + +'BookMarkOptions.OnChange'#13#12'Gutter.Width'#2'9'#19'Gutter.MouseActions' + +#14#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7 + +#5'ccAny'#8'ClickDir'#7#6'cdDown'#7'Command'#2#13#9'MoveCaret'#8#6'Option'#2 + +#0#8'Priority'#2#0#0#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#7'mbRight' + +#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#4'cdUp'#7'Command'#2#12#9'MoveCa' + +'ret'#8#6'Option'#2#0#8'Priority'#2#0#0#0#11'Highlighter'#7#17'SynFreePascal' + +'Syn1'#10'Keystrokes'#14#1#7'Command'#7#4'ecUp'#8'ShortCut'#2'&'#0#1#7'Comma' + +'nd'#7#7'ecSelUp'#8'ShortCut'#3'& '#0#1#7'Command'#7#10'ecScrollUp'#8'ShortC' + +'ut'#3'&@'#0#1#7'Command'#7#6'ecDown'#8'ShortCut'#2'('#0#1#7'Command'#7#9'ec' + +'SelDown'#8'ShortCut'#3'( '#0#1#7'Command'#7#12'ecScrollDown'#8'ShortCut'#3 + +'(@'#0#1#7'Command'#7#6'ecLeft'#8'ShortCut'#2'%'#0#1#7'Command'#7#9'ecSelLef' + +'t'#8'ShortCut'#3'% '#0#1#7'Command'#7#10'ecWordLeft'#8'ShortCut'#3'%@'#0#1#7 + +'Command'#7#13'ecSelWordLeft'#8'ShortCut'#3'%`'#0#1#7'Command'#7#7'ecRight'#8 + +'ShortCut'#2''''#0#1#7'Command'#7#10'ecSelRight'#8'ShortCut'#3''' '#0#1#7'Co' + +'mmand'#7#11'ecWordRight'#8'ShortCut'#3'''@'#0#1#7'Command'#7#14'ecSelWordRi' + +'ght'#8'ShortCut'#3'''`'#0#1#7'Command'#7#10'ecPageDown'#8'ShortCut'#2'"'#0#1 + +#7'Command'#7#13'ecSelPageDown'#8'ShortCut'#3'" '#0#1#7'Command'#7#12'ecPage' + +'Bottom'#8'ShortCut'#3'"@'#0#1#7'Command'#7#15'ecSelPageBottom'#8'ShortCut'#3 + +'"`'#0#1#7'Command'#7#8'ecPageUp'#8'ShortCut'#2'!'#0#1#7'Command'#7#11'ecSel' + +'PageUp'#8'ShortCut'#3'! '#0#1#7'Command'#7#9'ecPageTop'#8'ShortCut'#3'!@'#0 + +#1#7'Command'#7#12'ecSelPageTop'#8'ShortCut'#3'!`'#0#1#7'Command'#7#11'ecLin' + +'eStart'#8'ShortCut'#2'$'#0#1#7'Command'#7#14'ecSelLineStart'#8'ShortCut'#3 + +'$ '#0#1#7'Command'#7#11'ecEditorTop'#8'ShortCut'#3'$@'#0#1#7'Command'#7#14 + +'ecSelEditorTop'#8'ShortCut'#3'$`'#0#1#7'Command'#7#9'ecLineEnd'#8'ShortCut' + +#2'#'#0#1#7'Command'#7#12'ecSelLineEnd'#8'ShortCut'#3'# '#0#1#7'Command'#7#14 + +'ecEditorBottom'#8'ShortCut'#3'#@'#0#1#7'Command'#7#17'ecSelEditorBottom'#8 + +'ShortCut'#3'#`'#0#1#7'Command'#7#12'ecToggleMode'#8'ShortCut'#2'-'#0#1#7'Co' + +'mmand'#7#6'ecCopy'#8'ShortCut'#3'-@'#0#1#7'Command'#7#7'ecPaste'#8'ShortCut' + +#3'- '#0#1#7'Command'#7#12'ecDeleteChar'#8'ShortCut'#2'.'#0#1#7'Command'#7#5 + +'ecCut'#8'ShortCut'#3'. '#0#1#7'Command'#7#16'ecDeleteLastChar'#8'ShortCut'#2 + +#8#0#1#7'Command'#7#16'ecDeleteLastChar'#8'ShortCut'#3#8' '#0#1#7'Command'#7 + +#16'ecDeleteLastWord'#8'ShortCut'#3#8'@'#0#1#7'Command'#7#6'ecUndo'#8'ShortC' + +'ut'#4#8#128#0#0#0#1#7'Command'#7#6'ecRedo'#8'ShortCut'#4#8#160#0#0#0#1#7'Co' + +'mmand'#7#11'ecLineBreak'#8'ShortCut'#2#13#0#1#7'Command'#7#11'ecSelectAll'#8 + +'ShortCut'#3'A@'#0#1#7'Command'#7#6'ecCopy'#8'ShortCut'#3'C@'#0#1#7'Command' + +#7#13'ecBlockIndent'#8'ShortCut'#3'I`'#0#1#7'Command'#7#11'ecLineBreak'#8'Sh' + +'ortCut'#3'M@'#0#1#7'Command'#7#12'ecInsertLine'#8'ShortCut'#3'N@'#0#1#7'Com' + +'mand'#7#12'ecDeleteWord'#8'ShortCut'#3'T@'#0#1#7'Command'#7#15'ecBlockUnind' + +'ent'#8'ShortCut'#3'U`'#0#1#7'Command'#7#7'ecPaste'#8'ShortCut'#3'V@'#0#1#7 + +'Command'#7#5'ecCut'#8'ShortCut'#3'X@'#0#1#7'Command'#7#12'ecDeleteLine'#8'S' + +'hortCut'#3'Y@'#0#1#7'Command'#7#11'ecDeleteEOL'#8'ShortCut'#3'Y`'#0#1#7'Com' + +'mand'#7#6'ecUndo'#8'ShortCut'#3'Z@'#0#1#7'Command'#7#6'ecRedo'#8'ShortCut'#3 + +'Z`'#0#1#7'Command'#7#13'ecGotoMarker0'#8'ShortCut'#3'0@'#0#1#7'Command'#7#13 + +'ecGotoMarker1'#8'ShortCut'#3'1@'#0#1#7'Command'#7#13'ecGotoMarker2'#8'Short' + +'Cut'#3'2@'#0#1#7'Command'#7#13'ecGotoMarker3'#8'ShortCut'#3'3@'#0#1#7'Comma' + +'nd'#7#13'ecGotoMarker4'#8'ShortCut'#3'4@'#0#1#7'Command'#7#13'ecGotoMarker5' + +#8'ShortCut'#3'5@'#0#1#7'Command'#7#13'ecGotoMarker6'#8'ShortCut'#3'6@'#0#1#7 + +'Command'#7#13'ecGotoMarker7'#8'ShortCut'#3'7@'#0#1#7'Command'#7#13'ecGotoMa' + +'rker8'#8'ShortCut'#3'8@'#0#1#7'Command'#7#13'ecGotoMarker9'#8'ShortCut'#3'9' + +'@'#0#1#7'Command'#7#12'ecSetMarker0'#8'ShortCut'#3'0`'#0#1#7'Command'#7#12 + +'ecSetMarker1'#8'ShortCut'#3'1`'#0#1#7'Command'#7#12'ecSetMarker2'#8'ShortCu' + +'t'#3'2`'#0#1#7'Command'#7#12'ecSetMarker3'#8'ShortCut'#3'3`'#0#1#7'Command' + +#7#12'ecSetMarker4'#8'ShortCut'#3'4`'#0#1#7'Command'#7#12'ecSetMarker5'#8'Sh' + +'ortCut'#3'5`'#0#1#7'Command'#7#12'ecSetMarker6'#8'ShortCut'#3'6`'#0#1#7'Com' + ,'mand'#7#12'ecSetMarker7'#8'ShortCut'#3'7`'#0#1#7'Command'#7#12'ecSetMarker8' + +#8'ShortCut'#3'8`'#0#1#7'Command'#7#12'ecSetMarker9'#8'ShortCut'#3'9`'#0#1#7 + +'Command'#7#12'EcFoldLevel1'#8'ShortCut'#4'1'#160#0#0#0#1#7'Command'#7#12'Ec' + +'FoldLevel2'#8'ShortCut'#4'2'#160#0#0#0#1#7'Command'#7#12'EcFoldLevel1'#8'Sh' + +'ortCut'#4'3'#160#0#0#0#1#7'Command'#7#12'EcFoldLevel1'#8'ShortCut'#4'4'#160 + +#0#0#0#1#7'Command'#7#12'EcFoldLevel1'#8'ShortCut'#4'5'#160#0#0#0#1#7'Comman' + +'d'#7#12'EcFoldLevel6'#8'ShortCut'#4'6'#160#0#0#0#1#7'Command'#7#12'EcFoldLe' + +'vel7'#8'ShortCut'#4'7'#160#0#0#0#1#7'Command'#7#12'EcFoldLevel8'#8'ShortCut' + +#4'8'#160#0#0#0#1#7'Command'#7#12'EcFoldLevel9'#8'ShortCut'#4'9'#160#0#0#0#1 + +#7'Command'#7#12'EcFoldLevel0'#8'ShortCut'#4'0'#160#0#0#0#1#7'Command'#7#13 + +'EcFoldCurrent'#8'ShortCut'#4'-'#160#0#0#0#1#7'Command'#7#15'EcUnFoldCurrent' + +#8'ShortCut'#4'+'#160#0#0#0#1#7'Command'#7#18'EcToggleMarkupWord'#8'ShortCut' + +#4'M'#128#0#0#0#1#7'Command'#7#14'ecNormalSelect'#8'ShortCut'#3'N`'#0#1#7'Co' + +'mmand'#7#14'ecColumnSelect'#8'ShortCut'#3'C`'#0#1#7'Command'#7#12'ecLineSel' + +'ect'#8'ShortCut'#3'L`'#0#1#7'Command'#7#5'ecTab'#8'ShortCut'#2#9#0#1#7'Comm' + +'and'#7#10'ecShiftTab'#8'ShortCut'#3#9' '#0#1#7'Command'#7#14'ecMatchBracket' + +#8'ShortCut'#3'B`'#0#1#7'Command'#7#10'ecColSelUp'#8'ShortCut'#4'&'#160#0#0#0 + +#1#7'Command'#7#12'ecColSelDown'#8'ShortCut'#4'('#160#0#0#0#1#7'Command'#7#12 + +'ecColSelLeft'#8'ShortCut'#4'%'#160#0#0#0#1#7'Command'#7#13'ecColSelRight'#8 + +'ShortCut'#4''''#160#0#0#0#1#7'Command'#7#16'ecColSelPageDown'#8'ShortCut'#4 + +'"'#160#0#0#0#1#7'Command'#7#18'ecColSelPageBottom'#8'ShortCut'#4'"'#224#0#0 + +#0#1#7'Command'#7#14'ecColSelPageUp'#8'ShortCut'#4'!'#160#0#0#0#1#7'Command' + +#7#15'ecColSelPageTop'#8'ShortCut'#4'!'#224#0#0#0#1#7'Command'#7#17'ecColSel' + +'LineStart'#8'ShortCut'#4'$'#160#0#0#0#1#7'Command'#7#15'ecColSelLineEnd'#8 + +'ShortCut'#4'#'#160#0#0#0#1#7'Command'#7#17'ecColSelEditorTop'#8'ShortCut'#4 + +'$'#224#0#0#0#1#7'Command'#7#20'ecColSelEditorBottom'#8'ShortCut'#4'#'#224#0 + +#0#0#0#12'MouseActions'#14#1#5'Shift'#11#0#9'ShiftMask'#11#7'ssShift'#5'ssAl' +'t'#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#6'cdD' - +'own'#7'Command'#2#1#9'MoveCaret'#9#6'Option'#2#1#8'Priority'#2#0#0#1#5'Shif' - +'t'#11#5'ssAlt'#0#9'ShiftMask'#11#7'ssShift'#5'ssAlt'#0#6'Button'#7#6'mbLeft' - +#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#6'cdDown'#7'Command'#2#3#9'MoveC' - +'aret'#9#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#7'ssShift'#5'ssAlt'#0 - +#9'ShiftMask'#11#7'ssShift'#5'ssAlt'#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7 - +#8'ccSingle'#8'ClickDir'#7#6'cdDown'#7'Command'#2#3#9'MoveCaret'#9#6'Option' - +#2#1#8'Priority'#2#0#0#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#7'mbRig' - +'ht'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#4'cdUp'#7'Command'#2#12#9'Mo' - +'veCaret'#8#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#0#9'ShiftMask'#11#0 - +#6'Button'#7#6'mbLeft'#10'ClickCount'#7#8'ccDouble'#8'ClickDir'#7#6'cdDown'#7 - +'Command'#2#6#9'MoveCaret'#9#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#0 - +#9'ShiftMask'#11#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#8'ccTriple'#8'Clic' - +'kDir'#7#6'cdDown'#7'Command'#2#7#9'MoveCaret'#9#6'Option'#2#0#8'Priority'#2 - +#0#0#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7 - +#6'ccQuad'#8'ClickDir'#7#6'cdDown'#7'Command'#2#8#9'MoveCaret'#9#6'Option'#2 - +#0#8'Priority'#2#0#0#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#8'mbMiddl' - +'e'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#6'cdDown'#7'Command'#2#10#9'M' - +'oveCaret'#9#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#6'ssCtrl'#0#9'Shi' - +'ftMask'#11#7'ssShift'#5'ssAlt'#6'ssCtrl'#0#6'Button'#7#6'mbLeft'#10'ClickCo' - +'unt'#7#8'ccSingle'#8'ClickDir'#7#4'cdUp'#7'Command'#2#11#9'MoveCaret'#8#6'O' - +'ption'#2#0#8'Priority'#2#0#0#0#15'MouseSelActions'#14#1#5'Shift'#11#0#9'Shi' - +'ftMask'#11#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#8'ccSingle'#8'ClickDir' - +#7#6'cdDown'#7'Command'#2#9#9'MoveCaret'#8#6'Option'#2#0#8'Priority'#2#0#0#0 - +#13'Lines.Strings'#1#6#8'SynMemo1'#0#8'OnChange'#7#14'SynMemo1Change'#0#18'T' - ,'SynGutterPartList'#0#0#15'TSynGutterMarks'#0#5'Width'#2#23#0#0#20'TSynGutte' - +'rLineNumber'#0#5'Width'#2#17#12'MouseActions'#14#0#21'MarkupInfo.Background' - +#7#9'clBtnFace'#21'MarkupInfo.Foreground'#7#6'clNone'#10'DigitCount'#2#2#30 - +'ShowOnlyLineNumbersMultiplesOf'#2#1#9'ZeroStart'#8#12'LeadingZeros'#8#0#0#17 - +'TSynGutterChanges'#0#5'Width'#2#4#13'ModifiedColor'#4#252#233#0#0#10'SavedC' - +'olor'#7#7'clGreen'#0#0#19'TSynGutterSeparator'#0#5'Width'#2#2#0#0#21'TSynGu' - +'tterCodeFolding'#0#12'MouseActions'#14#1#5'Shift'#11#0#9'ShiftMask'#11#0#6 - +'Button'#7#7'mbRight'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#4'cdUp'#7'C' - +'ommand'#2#16#9'MoveCaret'#8#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#0 - +#9'ShiftMask'#11#7'ssShift'#0#6'Button'#7#8'mbMiddle'#10'ClickCount'#7#5'ccA' - +'ny'#8'ClickDir'#7#6'cdDown'#7'Command'#2#14#9'MoveCaret'#8#6'Option'#2#0#8 + +'own'#7'Command'#2#1#9'MoveCaret'#9#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shif' + +'t'#11#7'ssShift'#0#9'ShiftMask'#11#7'ssShift'#5'ssAlt'#0#6'Button'#7#6'mbLe' + +'ft'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#6'cdDown'#7'Command'#2#1#9'M' + +'oveCaret'#9#6'Option'#2#1#8'Priority'#2#0#0#1#5'Shift'#11#5'ssAlt'#0#9'Shif' + +'tMask'#11#7'ssShift'#5'ssAlt'#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#8'cc' + +'Single'#8'ClickDir'#7#6'cdDown'#7'Command'#2#3#9'MoveCaret'#9#6'Option'#2#0 + +#8'Priority'#2#0#0#1#5'Shift'#11#7'ssShift'#5'ssAlt'#0#9'ShiftMask'#11#7'ssS' + +'hift'#5'ssAlt'#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#8'ccSingle'#8'Click' + +'Dir'#7#6'cdDown'#7'Command'#2#3#9'MoveCaret'#9#6'Option'#2#1#8'Priority'#2#0 + +#0#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#7'mbRight'#10'ClickCount'#7 + +#8'ccSingle'#8'ClickDir'#7#4'cdUp'#7'Command'#2#12#9'MoveCaret'#8#6'Option'#2 + +#0#8'Priority'#2#0#0#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#6'mbLeft' + +#10'ClickCount'#7#8'ccDouble'#8'ClickDir'#7#6'cdDown'#7'Command'#2#6#9'MoveC' + +'aret'#9#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#0#9'ShiftMask'#11#0#6 + +'Button'#7#6'mbLeft'#10'ClickCount'#7#8'ccTriple'#8'ClickDir'#7#6'cdDown'#7 + +'Command'#2#7#9'MoveCaret'#9#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#0 + +#9'ShiftMask'#11#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#6'ccQuad'#8'ClickD' + +'ir'#7#6'cdDown'#7'Command'#2#8#9'MoveCaret'#9#6'Option'#2#0#8'Priority'#2#0 + +#0#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#8'mbMiddle'#10'ClickCount'#7 + +#8'ccSingle'#8'ClickDir'#7#6'cdDown'#7'Command'#2#10#9'MoveCaret'#9#6'Option' + +#2#0#8'Priority'#2#0#0#1#5'Shift'#11#6'ssCtrl'#0#9'ShiftMask'#11#7'ssShift'#5 + +'ssAlt'#6'ssCtrl'#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#8'ccSingle'#8'Cli' + +'ckDir'#7#4'cdUp'#7'Command'#2#11#9'MoveCaret'#8#6'Option'#2#0#8'Priority'#2 + +#0#0#0#15'MouseSelActions'#14#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#6 + +'mbLeft'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#6'cdDown'#7'Command'#2#9 + +#9'MoveCaret'#8#6'Option'#2#0#8'Priority'#2#0#0#0#13'Lines.Strings'#1#6#12'p' + +'rogram new;'#6#5'begin'#6#4'end.'#0#21'BracketHighlightStyle'#7#8'sbhsBoth' + +#0#18'TSynGutterPartList'#0#0#15'TSynGutterMarks'#0#5'Width'#2#23#0#0#20'TSy' + +'nGutterLineNumber'#0#5'Width'#2#17#12'MouseActions'#14#0#21'MarkupInfo.Back' + +'ground'#7#9'clBtnFace'#21'MarkupInfo.Foreground'#7#6'clNone'#10'DigitCount' + +#2#2#30'ShowOnlyLineNumbersMultiplesOf'#2#1#9'ZeroStart'#8#12'LeadingZeros'#8 + +#0#0#17'TSynGutterChanges'#0#5'Width'#2#4#13'ModifiedColor'#4#252#233#0#0#10 + +'SavedColor'#7#7'clGreen'#0#0#19'TSynGutterSeparator'#0#5'Width'#2#2#0#0#21 + +'TSynGutterCodeFolding'#0#12'MouseActions'#14#1#5'Shift'#11#0#9'ShiftMask'#11 + +#0#6'Button'#7#7'mbRight'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#4'cdUp' + +#7'Command'#2#16#9'MoveCaret'#8#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11 + ,#0#9'ShiftMask'#11#7'ssShift'#0#6'Button'#7#8'mbMiddle'#10'ClickCount'#7#5'c' + +'cAny'#8'ClickDir'#7#6'cdDown'#7'Command'#2#14#9'MoveCaret'#8#6'Option'#2#0#8 +'Priority'#2#0#0#1#5'Shift'#11#7'ssShift'#0#9'ShiftMask'#11#7'ssShift'#0#6'B' +'utton'#7#8'mbMiddle'#10'ClickCount'#7#5'ccAny'#8'ClickDir'#7#6'cdDown'#7'Co' +'mmand'#2#14#9'MoveCaret'#8#6'Option'#2#1#8'Priority'#2#0#0#1#5'Shift'#11#0#9 @@ -280,6 +145,11 @@ LazarusResources.Add('TForm1','FORMDATA',[ +'et'#8#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#0#9'ShiftMask'#11#6'ssC' +'trl'#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#5'ccAny'#8'ClickDir'#7#6'cdDo' +'wn'#7'Command'#2#15#9'MoveCaret'#8#6'Option'#2#1#8'Priority'#2#0#0#0#0#0#0#0 - +#17'TSynFreePascalSyn'#17'SynFreePascalSyn1'#7'Enabled'#8#12'CompilerMode'#7 - +#9'pcmObjFPC'#14'NestedComments'#9#4'left'#3#242#1#3'top'#2'Y'#0#0#0 + +#5'TMemo'#5'Memo1'#4'Left'#2#8#6'Height'#2'x'#3'Top'#3'p'#1#5'Width'#3#216#2 + +#13'Lines.Strings'#1#6#5'Memo1'#0#10'ScrollBars'#7#10'ssAutoBoth'#8'TabOrder' + +#2#2#0#0#17'TSynFreePascalSyn'#17'SynFreePascalSyn1'#7'Enabled'#8#12'Compile' + +'rMode'#7#9'pcmObjFPC'#14'NestedComments'#9#4'left'#3' '#1#3'top'#2#8#0#0#9 + +'TMainMenu'#9'MainMenu1'#4'left'#3#191#0#3'top'#2#8#0#9'TMenuItem'#14'MenuIt' + +'emScript'#7'Caption'#6#6'Script'#0#9'TMenuItem'#11'MenuItemRun'#7'Caption'#6 + +#3'Run'#8'ShortCut'#2'x'#7'OnClick'#7#16'MenuItemRunClick'#0#0#0#0#0 ]); diff --git a/Projects/SAMufasaGUI/testunit.pas b/Projects/SAMufasaGUI/testunit.pas index 173cd05..d7f519a 100644 --- a/Projects/SAMufasaGUI/testunit.pas +++ b/Projects/SAMufasaGUI/testunit.pas @@ -6,7 +6,7 @@ interface uses Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, - StdCtrls, SynEdit, SynHighlighterPas, SynMemo, Client, MufasaTypes, + StdCtrls, Menus, SynEdit, SynHighlighterPas, SynMemo, Client, MufasaTypes, mmlpsthread, mmlthread; type @@ -15,13 +15,16 @@ type TForm1 = class(TForm) Button1: TButton; + MainMenu1: TMainMenu; + Memo1: TMemo; + MenuItemScript: TMenuItem; + MenuItemRun: TMenuItem; SynEdit1: TSynEdit; SynFreePascalSyn1: TSynFreePascalSyn; - SynMemo1: TSynMemo; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); - procedure SynMemo1Change(Sender: TObject); + procedure MenuItemRunClick(Sender: TObject); private { private declarations } public @@ -257,25 +260,20 @@ end; { TForm1 } - -procedure TForm1.Button1Click(Sender: TObject); +procedure Run; Var - //MyThread: TMyThread; -// MMLThread: TMMLThread; MMLPSThread : TMMLPSThread; begin -{ MyThread := TMyThread.Create(True); - MyThread.Resume; } -{ MMLThread := TMMLThread.Create(True); - MMLThread.Resume;} MMLPSThread := TMMLPSThread.Create(True); -// MMLPSThread.Client.MWindow.SetTarget(); - MMLPSThread.SetPSScript(SynEdit1.Lines.Text); - MMLPSThread.SetDebug(SynMemo1); - MMLPSThread.Client.MWindow.SetTarget(67786,w_Window); + MMLPSThread.SetPSScript(Form1.SynEdit1.Lines.Text); + MMLPSThread.SetDebug(Form1.Memo1); MMLPSThread.Resume; +end; +procedure TForm1.Button1Click(Sender: TObject); +begin; + Run; end; procedure TForm1.FormCreate(Sender: TObject); @@ -283,6 +281,7 @@ begin MainDir:= ExtractFileDir(Application.ExeName); PluginsGlob := TMPlugins.Create; PluginsGlob.PluginDirs.Add(ExpandFileName(MainDir + DS + '..' + DS + '..'+ DS + 'Plugins'+ DS)); +// SynMemo1.sc end; procedure TForm1.FormDestroy(Sender: TObject); @@ -290,11 +289,12 @@ begin PluginsGlob.Free; end; -procedure TForm1.SynMemo1Change(Sender: TObject); +procedure TForm1.MenuItemRunClick(Sender: TObject); begin - + Run; end; + initialization {$I testunit.lrs} diff --git a/Units/MMLAddon/PSInc/Wrappers/math.inc b/Units/MMLAddon/PSInc/Wrappers/math.inc new file mode 100644 index 0000000..c8cee3c --- /dev/null +++ b/Units/MMLAddon/PSInc/Wrappers/math.inc @@ -0,0 +1,4 @@ +function psSqr( e : extended) : extended; +begin; + result := sqr(e); +end; diff --git a/Units/MMLAddon/PSInc/pscompile.inc b/Units/MMLAddon/PSInc/pscompile.inc index 3dad2dd..d63d2ee 100644 --- a/Units/MMLAddon/PSInc/pscompile.inc +++ b/Units/MMLAddon/PSInc/pscompile.inc @@ -8,6 +8,12 @@ Sender.AddFunction(@ThreadSafeCall,'function ThreadSafeCall(ProcName: string; va Sender.AddFunction(@psWriteln,'procedure writeln(s : string);'); +{maths} +sender.AddFunction(@power,'function pow(base,exponent : extended) : extended'); +Sender.AddFunction(@max,'function Max(a, b: Integer): Integer;'); +Sender.AddFunction(@min,'function Min(a, b: Integer): Integer;'); +Sender.AddFunction(@pssqr,'function Sqr(e : extended) : extended;'); + Sender.AddFunction(@GetColor,'function GetColor(x, y: Integer): Integer;'); Sender.AddFunction(@FindColor, 'function findcolor(var x, y: integer; color, x1, y1, x2, y2: integer): boolean;'); Sender.AddFunction(@FindColorTolerance, 'function findcolortolerance(var x, y: integer; color, x1, y1, x2, y2, tol: integer): boolean;'); diff --git a/Units/MMLAddon/mmlpsthread.pas b/Units/MMLAddon/mmlpsthread.pas index fb1e2f4..775a65b 100644 --- a/Units/MMLAddon/mmlpsthread.pas +++ b/Units/MMLAddon/mmlpsthread.pas @@ -5,7 +5,7 @@ unit mmlpsthread; interface uses - Classes, SysUtils, client, uPSComponent,uPSCompiler,uPSRuntime,SynMemo,Plugins,uPSPreProcessor; + Classes, SysUtils, client, uPSComponent,uPSCompiler,uPSRuntime,stdCtrls, Plugins,uPSPreProcessor; type @@ -17,7 +17,7 @@ type const DirectiveName, DirectiveParam: string; var Continue: Boolean); protected PSScript : TPSScript; - DebugTo : TSynMemo; + DebugTo : TMemo; PluginsToload : Array of integer; procedure OnCompile(Sender: TPSScript); procedure AfterExecute(Sender : TPSScript); @@ -31,7 +31,7 @@ type public Client : TClient; procedure SetPSScript(Script : string); - procedure SetDebug( Strings : TSynMemo ); + procedure SetDebug( Strings : TMemo ); constructor Create(CreateSuspended: Boolean); destructor Destroy; override; end; @@ -46,6 +46,7 @@ uses uPSR_std, uPSR_controls,uPSR_classes,uPSR_graphics,uPSR_stdctrls,uPSR_forms, uPSR_extctrls, //Runtime-libs Graphics, //For Graphics types + math, //Maths! lclintf; // for GetTickCount and others. @@ -59,7 +60,8 @@ begin writeln(str); {$ELSE} if CurrThread.DebugTo <> nil then - CurrThread.DebugTo.Lines.Add(Str); + CurrThread.DebugTo.lines.add(str); + {$ENDIF} //Just overwriting itz.. soz. end; @@ -134,6 +136,7 @@ end; {$I PSInc/Wrappers/other.inc} {$I PSInc/Wrappers/bitmap.inc} {$I PSInc/Wrappers/colour.inc} +{$I PSInc/Wrappers/math.inc} {$I PSInc/Wrappers/mouse.inc} @@ -262,7 +265,7 @@ begin PSScript.Script.Text:= Script; end; -procedure TMMLPSThread.SetDebug(Strings: TSynMemo); +procedure TMMLPSThread.SetDebug(Strings: TMemo); begin DebugTo := Strings; end;