diff --git a/Projects/SAMufasaGUI/project1.lpi b/Projects/SAMufasaGUI/project1.lpi index 657c18a..555a5a0 100644 --- a/Projects/SAMufasaGUI/project1.lpi +++ b/Projects/SAMufasaGUI/project1.lpi @@ -7,7 +7,7 @@ <UseXPManifest Value="True"/> - <ActiveEditorIndexAtStart Value="16"/> + <ActiveEditorIndexAtStart Value="1"/> </General> <VersionInfo> <ProjectVersion Value=""/> @@ -33,7 +33,7 @@ <PackageName Value="LCL"/> </Item2> </RequiredPackages> - <Units Count="194"> + <Units Count="195"> <Unit0> <Filename Value="project1.lpr"/> <IsPartOfProject Value="True"/> @@ -168,8 +168,8 @@ <HasResources Value="True"/> <ResourceBaseClass Value="Form"/> <UnitName Value="TestUnit"/> - <CursorPos X="45" Y="751"/> - <TopLine Value="739"/> + <CursorPos X="68" Y="770"/> + <TopLine Value="760"/> <EditorIndex Value="1"/> <UsageCount Value="202"/> <Loaded Value="True"/> @@ -227,9 +227,7 @@ <UnitName Value="Client"/> <CursorPos X="87" Y="4"/> <TopLine Value="1"/> - <EditorIndex Value="0"/> <UsageCount Value="201"/> - <Loaded Value="True"/> </Unit26> <Unit27> <Filename Value="../../Units/MMLCore/mufasatypes.pas"/> @@ -312,18 +310,14 @@ <UnitName Value="mmlpsthread"/> <CursorPos X="31" Y="188"/> <TopLine Value="188"/> - <EditorIndex Value="14"/> <UsageCount Value="202"/> - <Loaded Value="True"/> </Unit37> <Unit38> <Filename Value="../../Units/PascalScript/uPSComponent.pas"/> <UnitName Value="uPSComponent"/> <CursorPos X="12" Y="918"/> <TopLine Value="903"/> - <EditorIndex Value="17"/> <UsageCount Value="38"/> - <Loaded Value="True"/> </Unit38> <Unit39> <Filename Value="../../../FPC/FPCCheckout/rtl/objpas/classes/classesh.inc"/> @@ -383,9 +377,7 @@ <Filename Value="../../Units/MMLAddon/PSInc/pscompile.inc"/> <CursorPos X="24" Y="75"/> <TopLine Value="55"/> - <EditorIndex Value="15"/> <UsageCount Value="74"/> - <Loaded Value="True"/> </Unit47> <Unit48> <Filename Value="../../../FPC/FPCCheckout/rtl/win/tthread.inc"/> @@ -472,9 +464,7 @@ <UnitName Value="LCLIntf"/> <CursorPos X="26" Y="103"/> <TopLine Value="91"/> - <EditorIndex Value="24"/> <UsageCount Value="12"/> - <Loaded Value="True"/> </Unit60> <Unit61> <Filename Value="../../../lazarus/lcl/intfgraphics.pas"/> @@ -576,11 +566,9 @@ </Unit75> <Unit76> <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/other.inc"/> - <CursorPos X="24" Y="31"/> + <CursorPos X="52" Y="27"/> <TopLine Value="21"/> - <EditorIndex Value="16"/> <UsageCount Value="18"/> - <Loaded Value="True"/> </Unit76> <Unit77> <Filename Value="../../Units/PascalScript/uPSCompiler.pas"/> @@ -612,9 +600,7 @@ <UnitName Value="uPSRuntime"/> <CursorPos X="29" Y="27"/> <TopLine Value="15"/> - <EditorIndex Value="19"/> <UsageCount Value="17"/> - <Loaded Value="True"/> </Unit81> <Unit82> <Filename Value="../../Units/MMLAddon/plugins.pas"/> @@ -677,17 +663,17 @@ <Unit91> <Filename Value="../../../lazarus/lcl/controls.pp"/> <UnitName Value="Controls"/> - <CursorPos X="15" Y="1323"/> - <TopLine Value="1311"/> - <EditorIndex Value="5"/> + <CursorPos X="20" Y="463"/> + <TopLine Value="447"/> + <EditorIndex Value="2"/> <UsageCount Value="14"/> <Loaded Value="True"/> </Unit91> <Unit92> <Filename Value="../../../lazarus/lcl/include/control.inc"/> - <CursorPos X="3" Y="1025"/> - <TopLine Value="1017"/> - <EditorIndex Value="6"/> + <CursorPos X="31" Y="85"/> + <TopLine Value="80"/> + <EditorIndex Value="3"/> <UsageCount Value="11"/> <Loaded Value="True"/> </Unit92> @@ -733,7 +719,7 @@ <UnitName Value="colourpicker"/> <CursorPos X="26" Y="198"/> <TopLine Value="191"/> - <UsageCount Value="197"/> + <UsageCount Value="198"/> </Unit98> <Unit99> <Filename Value="../../../cogat/Units/CogatUnits/compdragger.pas"/> @@ -758,7 +744,7 @@ <UnitName Value="windowselector"/> <CursorPos X="32" Y="12"/> <TopLine Value="31"/> - <UsageCount Value="187"/> + <UsageCount Value="188"/> </Unit101> <Unit102> <Filename Value="../../../usr/lib64/fpc/2.2.4/source/rtl/objpas/classes/classesh.inc"/> @@ -792,7 +778,7 @@ <UnitName Value="dtmutil"/> <CursorPos X="32" Y="18"/> <TopLine Value="1"/> - <UsageCount Value="174"/> + <UsageCount Value="175"/> </Unit106> <Unit107> <Filename Value="../../../cogat/Units/CogatUnits/compmaths.pas"/> @@ -834,7 +820,7 @@ <UnitName Value="mmath"/> <CursorPos X="32" Y="42"/> <TopLine Value="16"/> - <UsageCount Value="154"/> + <UsageCount Value="155"/> </Unit112> <Unit113> <Filename Value="../../../Documents/fpc/rtl/objpas/types.pp"/> @@ -870,7 +856,7 @@ <UnitName Value="ocr"/> <CursorPos X="43" Y="42"/> <TopLine Value="5"/> - <UsageCount Value="124"/> + <UsageCount Value="125"/> </Unit117> <Unit118> <Filename Value="../../Units/PascalScript/uPSR_extctrls.pas"/> @@ -885,7 +871,7 @@ <UnitName Value="project"/> <CursorPos X="46" Y="15"/> <TopLine Value="1"/> - <UsageCount Value="121"/> + <UsageCount Value="122"/> </Unit119> <Unit120> <Filename Value="../../../FPC/FPCCheckout/rtl/inc/heap.inc"/> @@ -977,9 +963,7 @@ <UnitName Value="ComCtrls"/> <CursorPos X="22" Y="260"/> <TopLine Value="234"/> - <EditorIndex Value="7"/> <UsageCount Value="24"/> - <Loaded Value="True"/> </Unit134> <Unit135> <Filename Value="../../../lazarus/lcl/imglist.pp"/> @@ -993,9 +977,7 @@ <UnitName Value="uPSDebugger"/> <CursorPos X="13" Y="627"/> <TopLine Value="624"/> - <EditorIndex Value="18"/> <UsageCount Value="17"/> - <Loaded Value="True"/> </Unit136> <Unit137> <Filename Value="../../Units/MMLCore/web.pas"/> @@ -1003,7 +985,7 @@ <UnitName Value="web"/> <CursorPos X="90" Y="16"/> <TopLine Value="1"/> - <UsageCount Value="49"/> + <UsageCount Value="50"/> </Unit137> <Unit138> <Filename Value="../../../lazarus/lcl/lazhelphtml.pas"/> @@ -1204,9 +1186,7 @@ <UnitName Value="framescript"/> <CursorPos X="27" Y="61"/> <TopLine Value="49"/> - <EditorIndex Value="13"/> - <UsageCount Value="42"/> - <Loaded Value="True"/> + <UsageCount Value="43"/> </Unit162> <Unit163> <Filename Value="framesynedit.lrs"/> @@ -1225,17 +1205,13 @@ <UnitName Value="ExtCtrls"/> <CursorPos X="14" Y="207"/> <TopLine Value="195"/> - <EditorIndex Value="8"/> <UsageCount Value="15"/> - <Loaded Value="True"/> </Unit165> <Unit166> <Filename Value="../../../lazarus/lcl/include/customnotebook.inc"/> <CursorPos X="56" Y="307"/> <TopLine Value="296"/> - <EditorIndex Value="9"/> <UsageCount Value="15"/> - <Loaded Value="True"/> </Unit166> <Unit167> <Filename Value="../../../lazarus/components/synedit/syneditpointclasses.pas"/> @@ -1306,34 +1282,26 @@ <UnitName Value="LMessages"/> <CursorPos X="11" Y="429"/> <TopLine Value="429"/> - <EditorIndex Value="23"/> <UsageCount Value="12"/> - <Loaded Value="True"/> </Unit176> <Unit177> <Filename Value="../../../lazarus/lcl/include/customactionlist.inc"/> <CursorPos X="29" Y="151"/> <TopLine Value="136"/> - <EditorIndex Value="27"/> <UsageCount Value="12"/> - <Loaded Value="True"/> </Unit177> <Unit178> <Filename Value="../../../lazarus/lcl/actnlist.pas"/> <UnitName Value="ActnList"/> <CursorPos X="14" Y="188"/> <TopLine Value="166"/> - <EditorIndex Value="28"/> <UsageCount Value="12"/> - <Loaded Value="True"/> </Unit178> <Unit179> <Filename Value="../../../lazarus/lcl/include/customaction.inc"/> <CursorPos X="3" Y="247"/> <TopLine Value="245"/> - <EditorIndex Value="29"/> <UsageCount Value="12"/> - <Loaded Value="True"/> </Unit179> <Unit180> <Filename Value="../../../FPC/FPCCheckout/rtl/objpas/classes/lists.inc"/> @@ -1345,33 +1313,25 @@ <Filename Value="../../../lazarus/lcl/include/tabsheet.inc"/> <CursorPos X="11" Y="46"/> <TopLine Value="20"/> - <EditorIndex Value="12"/> <UsageCount Value="11"/> - <Loaded Value="True"/> </Unit181> <Unit182> <Filename Value="../../../lazarus/lcl/include/custompage.inc"/> <CursorPos X="34" Y="177"/> <TopLine Value="174"/> - <EditorIndex Value="11"/> <UsageCount Value="11"/> - <Loaded Value="True"/> </Unit182> <Unit183> <Filename Value="../../../fpc/rtl/inc/threadh.inc"/> <CursorPos X="11" Y="135"/> <TopLine Value="139"/> - <EditorIndex Value="3"/> <UsageCount Value="11"/> - <Loaded Value="True"/> </Unit183> <Unit184> <Filename Value="../../../fpc/rtl/inc/thread.inc"/> <CursorPos X="28" Y="155"/> <TopLine Value="152"/> - <EditorIndex Value="4"/> <UsageCount Value="11"/> - <Loaded Value="True"/> </Unit184> <Unit185> <Filename Value="../../../lazarus/lcl/widgetset/wsextctrls.pp"/> @@ -1392,181 +1352,96 @@ <UnitName Value="GtkWSExtCtrls"/> <CursorPos X="67" Y="557"/> <TopLine Value="569"/> - <EditorIndex Value="10"/> <UsageCount Value="11"/> - <Loaded Value="True"/> </Unit187> <Unit188> <Filename Value="../../../fpc/rtl/inc/objpash.inc"/> <CursorPos X="21" Y="184"/> <TopLine Value="172"/> - <EditorIndex Value="2"/> - <UsageCount Value="11"/> - <Loaded Value="True"/> + <UsageCount Value="10"/> </Unit188> <Unit189> <Filename Value="../../../fpc/rtl/objpas/sysutils/osutilsh.inc"/> <CursorPos X="11" Y="25"/> <TopLine Value="13"/> - <EditorIndex Value="20"/> <UsageCount Value="10"/> - <Loaded Value="True"/> </Unit189> <Unit190> <Filename Value="../../../fpc/rtl/unix/sysutils.pp"/> <UnitName Value="sysutils"/> <CursorPos X="3" Y="1075"/> <TopLine Value="1069"/> - <EditorIndex Value="21"/> <UsageCount Value="10"/> - <Loaded Value="True"/> </Unit190> <Unit191> <Filename Value="../../../fpc/rtl/unix/bunxh.inc"/> <CursorPos X="13" Y="81"/> <TopLine Value="78"/> - <EditorIndex Value="22"/> <UsageCount Value="10"/> - <Loaded Value="True"/> </Unit191> <Unit192> <Filename Value="../../../fpc/rtl/objpas/sysutils/datih.inc"/> <CursorPos X="11" Y="179"/> <TopLine Value="158"/> - <EditorIndex Value="25"/> <UsageCount Value="10"/> - <Loaded Value="True"/> </Unit192> <Unit193> <Filename Value="../../../fpc/rtl/objpas/sysutils/dati.inc"/> <CursorPos X="12" Y="258"/> <TopLine Value="254"/> - <EditorIndex Value="26"/> + <UsageCount Value="10"/> + </Unit193> + <Unit194> + <Filename Value="../../../lazarus/lcl/interfaces/wince/wincewsextctrls.pp"/> + <UnitName Value="WinCEWSExtCtrls"/> + <CursorPos X="56" Y="576"/> + <TopLine Value="560"/> + <EditorIndex Value="0"/> <UsageCount Value="10"/> <Loaded Value="True"/> - </Unit193> + </Unit194> </Units> - <JumpHistory Count="30" HistoryIndex="29"> + <JumpHistory Count="10" HistoryIndex="9"> <Position1> - <Filename Value="../../Units/PascalScript/uPSComponent.pas"/> - <Caret Line="877" Column="22" TopLine="865"/> + <Filename Value="../../../lazarus/lcl/interfaces/wince/wincewsextctrls.pp"/> + <Caret Line="1" Column="1" TopLine="1"/> </Position1> <Position2> - <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/other.inc"/> - <Caret Line="26" Column="37" TopLine="12"/> + <Filename Value="testunit.pas"/> + <Caret Line="751" Column="45" TopLine="739"/> </Position2> <Position3> - <Filename Value="../../Units/PascalScript/uPSRuntime.pas"/> - <Caret Line="744" Column="39" TopLine="732"/> + <Filename Value="testunit.pas"/> + <Caret Line="714" Column="3" TopLine="712"/> </Position3> <Position4> - <Filename Value="../../Units/PascalScript/uPSRuntime.pas"/> - <Caret Line="638" Column="21" TopLine="626"/> + <Filename Value="testunit.pas"/> + <Caret Line="770" Column="1" TopLine="767"/> </Position4> <Position5> - <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/other.inc"/> - <Caret Line="26" Column="27" TopLine="12"/> + <Filename Value="testunit.pas"/> + <Caret Line="736" Column="3" TopLine="733"/> </Position5> <Position6> - <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> - <Caret Line="68" Column="23" TopLine="56"/> + <Filename Value="testunit.pas"/> + <Caret Line="749" Column="3" TopLine="744"/> </Position6> <Position7> - <Filename Value="../../Units/PascalScript/uPSComponent.pas"/> - <Caret Line="103" Column="3" TopLine="91"/> + <Filename Value="testunit.pas"/> + <Caret Line="770" Column="23" TopLine="769"/> </Position7> <Position8> - <Filename Value="../../Units/PascalScript/uPSComponent.pas"/> - <Caret Line="918" Column="14" TopLine="915"/> + <Filename Value="../../../lazarus/lcl/include/control.inc"/> + <Caret Line="77" Column="21" TopLine="65"/> </Position8> <Position9> - <Filename Value="../../Units/PascalScript/uPSDebugger.pas"/> - <Caret Line="627" Column="15" TopLine="624"/> + <Filename Value="../../../lazarus/lcl/include/control.inc"/> + <Caret Line="83" Column="24" TopLine="74"/> </Position9> <Position10> - <Filename Value="../../Units/PascalScript/uPSRuntime.pas"/> - <Caret Line="6933" Column="20" TopLine="6930"/> + <Filename Value="../../../lazarus/lcl/include/control.inc"/> + <Caret Line="85" Column="31" TopLine="80"/> </Position10> - <Position11> - <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/other.inc"/> - <Caret Line="26" Column="32" TopLine="12"/> - </Position11> - <Position12> - <Filename Value="../../Units/PascalScript/uPSComponent.pas"/> - <Caret Line="205" Column="39" TopLine="193"/> - </Position12> - <Position13> - <Filename Value="../../Units/PascalScript/uPSComponent.pas"/> - <Caret Line="110" Column="5" TopLine="98"/> - </Position13> - <Position14> - <Filename Value="../../Units/PascalScript/uPSComponent.pas"/> - <Caret Line="918" Column="12" TopLine="903"/> - </Position14> - <Position15> - <Filename Value="../../Units/PascalScript/uPSDebugger.pas"/> - <Caret Line="627" Column="13" TopLine="624"/> - </Position15> - <Position16> - <Filename Value="../../Units/PascalScript/uPSRuntime.pas"/> - <Caret Line="6933" Column="21" TopLine="6930"/> - </Position16> - <Position17> - <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/other.inc"/> - <Caret Line="31" Column="4" TopLine="12"/> - </Position17> - <Position18> - <Filename Value="../../Units/MMLAddon/PSInc/pscompile.inc"/> - <Caret Line="76" Column="28" TopLine="64"/> - </Position18> - <Position19> - <Filename Value="../../../lazarus/lcl/lclintf.pas"/> - <Caret Line="103" Column="26" TopLine="91"/> - </Position19> - <Position20> - <Filename Value="../../../fpc/rtl/objpas/sysutils/dati.inc"/> - <Caret Line="258" Column="12" TopLine="254"/> - </Position20> - <Position21> - <Filename Value="../../Units/MMLAddon/PSInc/pscompile.inc"/> - <Caret Line="75" Column="24" TopLine="55"/> - </Position21> - <Position22> - <Filename Value="testunit.pas"/> - <Caret Line="313" Column="44" TopLine="305"/> - </Position22> - <Position23> - <Filename Value="testunit.pas"/> - <Caret Line="518" Column="15" TopLine="516"/> - </Position23> - <Position24> - <Filename Value="testunit.pas"/> - <Caret Line="321" Column="20" TopLine="305"/> - </Position24> - <Position25> - <Filename Value="testunit.pas"/> - <Caret Line="249" Column="93" TopLine="246"/> - </Position25> - <Position26> - <Filename Value="testunit.pas"/> - <Caret Line="765" Column="33" TopLine="807"/> - </Position26> - <Position27> - <Filename Value="testunit.pas"/> - <Caret Line="751" Column="45" TopLine="730"/> - </Position27> - <Position28> - <Filename Value="testunit.pas"/> - <Caret Line="7" Column="97" TopLine="1"/> - </Position28> - <Position29> - <Filename Value="testunit.pas"/> - <Caret Line="736" Column="47" TopLine="724"/> - </Position29> - <Position30> - <Filename Value="../../Units/MMLAddon/PSInc/pscompile.inc"/> - <Caret Line="75" Column="24" TopLine="55"/> - </Position30> </JumpHistory> </ProjectOptions> <CompilerOptions> diff --git a/Projects/SAMufasaGUI/testunit.pas b/Projects/SAMufasaGUI/testunit.pas index 199e89a..3acb1b7 100644 --- a/Projects/SAMufasaGUI/testunit.pas +++ b/Projects/SAMufasaGUI/testunit.pas @@ -767,7 +767,7 @@ end; procedure TForm1.PageControl1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin - PageControl1.BeginDrag(false); + PageControl1.BeginDrag({$ifdef linux}true{$else} false {$endif}); end;