moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-02-16 15:20:09 -05:00
Code Issues Releases Wiki Activity

More changes

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@382 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2010-01-07 20:25:10 +00:00
parent 96b83db57d
commit ef804714c4
7 changed files with 883 additions and 807 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

185
Projects/SAMufasaGUI/project1.lpi
View File

@ -36,7 +36,7 @@
<PackageName Value="LCL"/> <PackageName Value="LCL"/>
</Item2> </Item2>
</RequiredPackages> </RequiredPackages>
<Units Count="297"> <Units Count="298">
<Unit0> <Unit0>
<Filename Value="project1.lpr"/> <Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -137,8 +137,8 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="TestUnit"/> <UnitName Value="TestUnit"/>
<CursorPos X="55" Y="41"/> <CursorPos X="78" Y="1459"/>
<TopLine Value="23"/> <TopLine Value="1435"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="202"/> <UsageCount Value="202"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -1705,7 +1705,7 @@
<UnitName Value="internets"/> <UnitName Value="internets"/>
<CursorPos X="5" Y="14"/> <CursorPos X="5" Y="14"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="196"/> <UsageCount Value="197"/>
</Unit237> </Unit237>
<Unit238> <Unit238>
<Filename Value="debugimageform.pas"/> <Filename Value="debugimageform.pas"/>
@ -1714,7 +1714,7 @@
<UnitName Value="debugimageform"/> <UnitName Value="debugimageform"/>
<CursorPos X="20" Y="1"/> <CursorPos X="20" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="183"/> <UsageCount Value="184"/>
</Unit238> </Unit238>
<Unit239> <Unit239>
<Filename Value="debugimage.pas"/> <Filename Value="debugimage.pas"/>
@ -1724,7 +1724,7 @@
<UnitName Value="debugimage"/> <UnitName Value="debugimage"/>
<CursorPos X="66" Y="17"/> <CursorPos X="66" Y="17"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="182"/> <UsageCount Value="183"/>
</Unit239> </Unit239>
<Unit240> <Unit240>
<Filename Value="debugimage.lrs"/> <Filename Value="debugimage.lrs"/>
@ -1846,7 +1846,7 @@
<UnitName Value="framefunctionlist"/> <UnitName Value="framefunctionlist"/>
<CursorPos X="117" Y="5"/> <CursorPos X="117" Y="5"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="103"/> <UsageCount Value="104"/>
</Unit257> </Unit257>
<Unit258> <Unit258>
<Filename Value="../../../usr/local/share/lazarus/lcl/comctrls.pp"/> <Filename Value="../../../usr/local/share/lazarus/lcl/comctrls.pp"/>
@ -1901,7 +1901,7 @@
<UnitName Value="simpleanalyzer"/> <UnitName Value="simpleanalyzer"/>
<CursorPos X="52" Y="104"/> <CursorPos X="52" Y="104"/>
<TopLine Value="193"/> <TopLine Value="193"/>
<UsageCount Value="90"/> <UsageCount Value="91"/>
</Unit265> </Unit265>
<Unit266> <Unit266>
<Filename Value="../../Units/Misc/mPasLex.pas"/> <Filename Value="../../Units/Misc/mPasLex.pas"/>
@ -1974,9 +1974,9 @@
<Filename Value="../../Units/MMLAddon/updater.pas"/> <Filename Value="../../Units/MMLAddon/updater.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="updater"/> <UnitName Value="updater"/>
<CursorPos X="10" Y="201"/> <CursorPos X="112" Y="106"/>
<TopLine Value="190"/> <TopLine Value="68"/>
<UsageCount Value="63"/> <UsageCount Value="64"/>
</Unit276> </Unit276>
<Unit277> <Unit277>
<Filename Value="updateform.pas"/> <Filename Value="updateform.pas"/>
@ -1984,9 +1984,11 @@
<ComponentName Value="SimbaUpdateForm"/> <ComponentName Value="SimbaUpdateForm"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="updateform"/> <UnitName Value="updateform"/>
<CursorPos X="77" Y="74"/> <CursorPos X="98" Y="127"/>
<TopLine Value="47"/> <TopLine Value="122"/>
<UsageCount Value="58"/> <EditorIndex Value="12"/>
<UsageCount Value="59"/>
<Loaded Value="True"/>
</Unit277> </Unit277>
<Unit278> <Unit278>
<Filename Value="../../../Documents/lazarus/lcl/fileutil.pas"/> <Filename Value="../../../Documents/lazarus/lcl/fileutil.pas"/>
@ -2105,10 +2107,10 @@
<ComponentName Value="SettingsForm"/> <ComponentName Value="SettingsForm"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="simbasettings"/> <UnitName Value="simbasettings"/>
<CursorPos X="40" Y="67"/> <CursorPos X="44" Y="26"/>
<TopLine Value="31"/> <TopLine Value="8"/>
<EditorIndex Value="9"/> <EditorIndex Value="9"/>
<UsageCount Value="21"/> <UsageCount Value="22"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit295> </Unit295>
<Unit296> <Unit296>
@ -2120,6 +2122,13 @@
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit296> </Unit296>
<Unit297>
<Filename Value="../../../fpc/packages/unixutil/src/unixutils.pp"/>
<UnitName Value="UnixUtils"/>
<CursorPos X="97" Y="17"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
</Unit297>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
@ -2127,120 +2136,120 @@
<Caret Line="451" Column="25" TopLine="434"/> <Caret Line="451" Column="25" TopLine="434"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="../../Units/MMLCore/dtmutil.pas"/>
<Caret Line="34" Column="20" TopLine="21"/>
</Position2>
<Position3>
<Filename Value="../../Units/MMLCore/dtmutil.pas"/>
<Caret Line="127" Column="22" TopLine="108"/>
</Position3>
<Position4>
<Filename Value="../../Units/MMLCore/dtmutil.pas"/>
<Caret Line="36" Column="22" TopLine="22"/>
</Position4>
<Position5>
<Filename Value="../../Units/MMLCore/dtmutil.pas"/>
<Caret Line="87" Column="7" TopLine="74"/>
</Position5>
<Position6>
<Filename Value="../../Units/MMLCore/dtmutil.pas"/>
<Caret Line="87" Column="7" TopLine="74"/>
</Position6>
<Position7>
<Filename Value="../../Units/MMLCore/dtmutil.pas"/>
<Caret Line="123" Column="7" TopLine="100"/>
</Position7>
<Position8>
<Filename Value="testunit.pas"/>
<Caret Line="425" Column="68" TopLine="411"/>
</Position8>
<Position9>
<Filename Value="../../Units/MMLAddon/colourpicker.pas"/>
<Caret Line="115" Column="76" TopLine="101"/>
</Position9>
<Position10>
<Filename Value="../../Units/MMLAddon/colourpicker.pas"/>
<Caret Line="102" Column="18" TopLine="84"/>
</Position10>
<Position11>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="451" Column="25" TopLine="434"/>
</Position11>
<Position12>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="82" Column="47" TopLine="63"/> <Caret Line="82" Column="47" TopLine="63"/>
</Position12> </Position2>
<Position13> <Position3>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="316" Column="1" TopLine="299"/> <Caret Line="316" Column="1" TopLine="299"/>
</Position13> </Position3>
<Position14> <Position4>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="79" Column="51" TopLine="61"/> <Caret Line="79" Column="51" TopLine="61"/>
</Position14> </Position4>
<Position15> <Position5>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="68" Column="52" TopLine="50"/> <Caret Line="68" Column="52" TopLine="50"/>
</Position15> </Position5>
<Position16> <Position6>
<Filename Value="../../Units/MMLCore/window.pas"/> <Filename Value="../../Units/MMLCore/window.pas"/>
<Caret Line="297" Column="49" TopLine="287"/> <Caret Line="297" Column="49" TopLine="287"/>
</Position16> </Position6>
<Position17> <Position7>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="219" Column="24" TopLine="215"/> <Caret Line="219" Column="24" TopLine="215"/>
</Position17> </Position7>
<Position18> <Position8>
<Filename Value="../../Units/MMLCore/window.pas"/> <Filename Value="../../Units/MMLCore/window.pas"/>
<Caret Line="52" Column="39" TopLine="33"/> <Caret Line="52" Column="39" TopLine="33"/>
</Position18> </Position8>
<Position19> <Position9>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="310" Column="52" TopLine="291"/> <Caret Line="310" Column="52" TopLine="291"/>
</Position19> </Position9>
<Position20> <Position10>
<Filename Value="colourhistory.pas"/> <Filename Value="colourhistory.pas"/>
<Caret Line="142" Column="3" TopLine="123"/> <Caret Line="142" Column="3" TopLine="123"/>
</Position20> </Position10>
<Position21> <Position11>
<Filename Value="colourhistory.pas"/> <Filename Value="colourhistory.pas"/>
<Caret Line="141" Column="22" TopLine="123"/> <Caret Line="141" Column="22" TopLine="123"/>
</Position21> </Position11>
<Position22> <Position12>
<Filename Value="simbasettings.pas"/> <Filename Value="simbasettings.pas"/>
<Caret Line="20" Column="33" TopLine="1"/> <Caret Line="20" Column="33" TopLine="1"/>
</Position22> </Position12>
<Position23> <Position13>
<Filename Value="simbasettings.pas"/> <Filename Value="simbasettings.pas"/>
<Caret Line="43" Column="8" TopLine="7"/> <Caret Line="43" Column="8" TopLine="7"/>
</Position23> </Position13>
<Position24> <Position14>
<Filename Value="simbasettings.pas"/> <Filename Value="simbasettings.pas"/>
<Caret Line="42" Column="36" TopLine="13"/> <Caret Line="42" Column="36" TopLine="13"/>
</Position14>
<Position15>
<Filename Value="simbasettings.pas"/>
<Caret Line="3" Column="16" TopLine="1"/>
</Position15>
<Position16>
<Filename Value="simbasettings.pas"/>
<Caret Line="4" Column="27" TopLine="1"/>
</Position16>
<Position17>
<Filename Value="simbasettings.pas"/>
<Caret Line="27" Column="119" TopLine="1"/>
</Position17>
<Position18>
<Filename Value="simbasettings.pas"/>
<Caret Line="3" Column="19" TopLine="1"/>
</Position18>
<Position19>
<Filename Value="simbasettings.pas"/>
<Caret Line="9" Column="18" TopLine="1"/>
</Position19>
<Position20>
<Filename Value="simbasettings.pas"/>
<Caret Line="41" Column="3" TopLine="9"/>
</Position20>
<Position21>
<Filename Value="testunit.pas"/>
<Caret Line="42" Column="14" TopLine="23"/>
</Position21>
<Position22>
<Filename Value="updateform.pas"/>
<Caret Line="21" Column="38" TopLine="1"/>
</Position22>
<Position23>
<Filename Value="updateform.pas"/>
<Caret Line="60" Column="38" TopLine="41"/>
</Position23>
<Position24>
<Filename Value="testunit.pas"/>
<Caret Line="42" Column="14" TopLine="23"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="simbasettings.pas"/> <Filename Value="simbasettings.pas"/>
<Caret Line="3" Column="16" TopLine="1"/> <Caret Line="58" Column="72" TopLine="31"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="simbasettings.pas"/> <Filename Value="simbasettings.pas"/>
<Caret Line="4" Column="27" TopLine="1"/> <Caret Line="65" Column="72" TopLine="31"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="simbasettings.pas"/> <Filename Value="simbasettings.pas"/>
<Caret Line="27" Column="119" TopLine="1"/> <Caret Line="55" Column="52" TopLine="46"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="simbasettings.pas"/> <Filename Value="simbasettings.pas"/>
<Caret Line="3" Column="19" TopLine="1"/> <Caret Line="57" Column="52" TopLine="46"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="simbasettings.pas"/> <Filename Value="simbasettings.pas"/>
<Caret Line="9" Column="18" TopLine="1"/> <Caret Line="69" Column="17" TopLine="46"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="simbasettings.pas"/> <Filename Value="simbasettings.pas"/>
<Caret Line="41" Column="3" TopLine="9"/> <Caret Line="77" Column="5" TopLine="62"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
@ -2251,7 +2260,7 @@
</Target> </Target>
<SearchPaths> <SearchPaths>
<IncludeFiles Value="$(ProjOutDir)/;$(ProjPath)../../Units/MMLAddon/PSInc/"/> <IncludeFiles Value="$(ProjOutDir)/;$(ProjPath)../../Units/MMLAddon/PSInc/"/>
<OtherUnitFiles Value="$(ProjPath)../../Units/MMLCore/;$(ProjPath)../../Units/MMLAddon/;$(ProjPath)../../Units/PascalScript/;$(ProjPath)../../Units/Misc/;$(ProjPath)../../Units/MMLAddon/PSInc/;$(ProjPath)../../Units/Linux/;$(ProjPath)../../Units/Synapse/;$(LazarusDir)/components/mouseandkeyinput/"/> <OtherUnitFiles Value="$(ProjPath)../../Units/MMLCore/;../../../fpc/packages/unixutil/src/;$(ProjPath)../../Units/MMLAddon/;$(ProjPath)../../Units/PascalScript/;$(ProjPath)../../Units/Misc/;$(ProjPath)../../Units/MMLAddon/PSInc/;$(ProjPath)../../Units/Linux/;$(ProjPath)../../Units/Synapse/;$(LazarusDir)/components/mouseandkeyinput/;../../../fpc/packages/libc/src/"/>
</SearchPaths> </SearchPaths>
<CodeGeneration> <CodeGeneration>
<Optimizations> <Optimizations>

38
Projects/SAMufasaGUI/simbasettings.lfm
View File

@ -1,21 +1,43 @@
object SettingsForm: TSettingsForm object SettingsForm: TSettingsForm
Left = 747 Left = 600
Height = 438 Height = 559
Top = 283 Top = 138
Width = 333 Width = 342
ActiveControl = SettingsTreeView
Caption = 'Simba Settings' Caption = 'Simba Settings'
ClientHeight = 438 ClientHeight = 559
ClientWidth = 333 ClientWidth = 342
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
LCLVersion = '0.9.29' LCLVersion = '0.9.29'
object SettingsTreeView: TTreeView object SettingsTreeView: TTreeView
Left = 16 Left = 16
Height = 401 Height = 474
Top = 16 Top = 16
Width = 297 Width = 306
Anchors = [akTop, akLeft, akRight, akBottom]
DefaultItemHeight = 19 DefaultItemHeight = 19
ReadOnly = True
ScrollBars = ssAutoBoth ScrollBars = ssAutoBoth
TabOrder = 0 TabOrder = 0
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips]
end
object SettingsFormButtonOK: TButton
Left = 247
Height = 25
Top = 512
Width = 75
Caption = 'OK'
OnClick = SettingsFormButtonOKClick
TabOrder = 1
end
object SettingsFormButtonCancel: TButton
Left = 16
Height = 25
Top = 512
Width = 75
Caption = 'Cancel'
OnClick = SettingsFormButtonCancelClick
TabOrder = 2
end end
end end

21
Projects/SAMufasaGUI/simbasettings.lrs
View File

@ -1,10 +1,19 @@
{ This is an automatically generated lazarus resource file } { This is an automatically generated lazarus resource file }
LazarusResources.Add('TSettingsForm','FORMDATA',[ LazarusResources.Add('TSettingsForm','FORMDATA',[
'TPF0'#13'TSettingsForm'#12'SettingsForm'#4'Left'#3#235#2#6'Height'#3#182#1#3 'TPF0'#13'TSettingsForm'#12'SettingsForm'#4'Left'#3'X'#2#6'Height'#3'/'#2#3'T'
+'Top'#3#27#1#5'Width'#3'M'#1#7'Caption'#6#14'Simba Settings'#12'ClientHeight' +'op'#3#138#0#5'Width'#3'V'#1#13'ActiveControl'#7#16'SettingsTreeView'#7'Capt'
+#3#182#1#11'ClientWidth'#3'M'#1#8'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7 +'ion'#6#14'Simba Settings'#12'ClientHeight'#3'/'#2#11'ClientWidth'#3'V'#1#8
+#11'FormDestroy'#10'LCLVersion'#6#6'0.9.29'#0#9'TTreeView'#16'SettingsTreeVi' +'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7#11'FormDestroy'#10'LCLVersion'#6#6
+'ew'#4'Left'#2#16#6'Height'#3#145#1#3'Top'#2#16#5'Width'#3')'#1#17'DefaultIt' +'0.9.29'#0#9'TTreeView'#16'SettingsTreeView'#4'Left'#2#16#6'Height'#3#218#1#3
+'emHeight'#2#19#10'ScrollBars'#7#10'ssAutoBoth'#8'TabOrder'#2#0#0#0#0 +'Top'#2#16#5'Width'#3'2'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akB'
+'ottom'#0#17'DefaultItemHeight'#2#19#8'ReadOnly'#9#10'ScrollBars'#7#10'ssAut'
+'oBoth'#8'TabOrder'#2#0#7'Options'#11#17'tvoAutoItemHeight'#16'tvoHideSelect'
+'ion'#21'tvoKeepCollapsedNodes'#11'tvoReadOnly'#14'tvoShowButtons'#12'tvoSho'
+'wLines'#11'tvoShowRoot'#11'tvoToolTips'#0#0#0#7'TButton'#20'SettingsFormBut'
+'tonOK'#4'Left'#3#247#0#6'Height'#2#25#3'Top'#3#0#2#5'Width'#2'K'#7'Caption'
+#6#2'OK'#7'OnClick'#7#25'SettingsFormButtonOKClick'#8'TabOrder'#2#1#0#0#7'TB'
+'utton'#24'SettingsFormButtonCancel'#4'Left'#2#16#6'Height'#2#25#3'Top'#3#0#2
+#5'Width'#2'K'#7'Caption'#6#6'Cancel'#7'OnClick'#7#29'SettingsFormButtonCanc'
+'elClick'#8'TabOrder'#2#2#0#0#0
]); ]);

24
Projects/SAMufasaGUI/simbasettings.pas
View File

@ -6,7 +6,7 @@ interface
uses uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
ComCtrls, settings; ComCtrls, StdCtrls, settings;
const const
SimbaSettingsFile = 'settings.xml'; SimbaSettingsFile = 'settings.xml';
@ -16,8 +16,12 @@ type
{ TSettingsForm } { TSettingsForm }
TSettingsForm = class(TForm) TSettingsForm = class(TForm)
SettingsFormButtonCancel: TButton;
SettingsFormButtonOK: TButton;
SettingsTreeView: TTreeView; SettingsTreeView: TTreeView;
Settings: TMMLSettings; Settings: TMMLSettings;
procedure SettingsFormButtonCancelClick(Sender: TObject);
procedure SettingsFormButtonOKClick(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
{ private declarations } { private declarations }
@ -48,6 +52,24 @@ begin
Settings.LoadFromXML('settings.xml'); Settings.LoadFromXML('settings.xml');
end; end;
procedure TSettingsForm.SettingsFormButtonOKClick(Sender: TObject);
begin
SettingsForm.Settings.SaveToXML(SimbaSettingsFile);
SettingsForm.ModalResult:=mrOK;
end;
procedure TSettingsForm.SettingsFormButtonCancelClick(Sender: TObject);
begin
if not FileExists(SimbaSettingsFile) then
begin
SettingsForm.SettingsTreeView.Items.Clear;
SettingsForm.Settings.SaveToXML(SimbaSettingsFile);
SettingsForm.SettingsTreeView.Items.Clear;
SettingsForm.Settings.LoadFromXML(SimbaSettingsFile);
end;
SettingsForm.ModalResult:=mrOK;
end;
procedure TSettingsForm.FormDestroy(Sender: TObject); procedure TSettingsForm.FormDestroy(Sender: TObject);
begin begin
Settings.Free; Settings.Free;

56
Projects/SAMufasaGUI/testunit.lfm
View File

@ -1,11 +1,11 @@
object Form1: TForm1 object Form1: TForm1
Left = 272 Left = 593
Height = 557 Height = 557
Top = 172 Top = 261
Width = 734 Width = 734
ActiveControl = ScriptPanel ActiveControl = ScriptPanel
Caption = 'THA FUKING MUFASA' Caption = 'THA FUKING MUFASA'
ClientHeight = 538 ClientHeight = 532
ClientWidth = 734 ClientWidth = 734
KeyPreview = True KeyPreview = True
Menu = MainMenu1 Menu = MainMenu1
@ -175,8 +175,8 @@ object Form1: TForm1
end end
object StatusBar: TStatusBar object StatusBar: TStatusBar
Left = 0 Left = 0
Height = 20 Height = 21
Top = 518 Top = 511
Width = 734 Width = 734
Panels = < Panels = <
item item
@ -194,7 +194,7 @@ object Form1: TForm1
object PanelMemo: TPanel object PanelMemo: TPanel
Left = 0 Left = 0
Height = 154 Height = 154
Top = 364 Top = 357
Width = 734 Width = 734
Align = alBottom Align = alBottom
ClientHeight = 154 ClientHeight = 154
@ -214,19 +214,19 @@ object Form1: TForm1
Cursor = crVSplit Cursor = crVSplit
Left = 0 Left = 0
Height = 5 Height = 5
Top = 359 Top = 352
Width = 734 Width = 734
Align = alBottom Align = alBottom
ResizeAnchor = akBottom ResizeAnchor = akBottom
end end
object ScriptPanel: TPanel object ScriptPanel: TPanel
Left = 0 Left = 0
Height = 335 Height = 328
Top = 24 Top = 24
Width = 734 Width = 734
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 335 ClientHeight = 328
ClientWidth = 734 ClientWidth = 734
DockSite = True DockSite = True
TabOrder = 4 TabOrder = 4
@ -234,7 +234,7 @@ object Form1: TForm1
OnDockOver = ScriptPanelDockOver OnDockOver = ScriptPanelDockOver
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 155 Left = 155
Height = 300 Height = 293
Top = 0 Top = 0
Width = 579 Width = 579
Align = alClient Align = alClient
@ -253,7 +253,7 @@ object Form1: TForm1
object SearchPanel: TPanel object SearchPanel: TPanel
Left = 0 Left = 0
Height = 35 Height = 35
Top = 300 Top = 293
Width = 734 Width = 734
Align = alBottom Align = alBottom
BevelOuter = bvSpace BevelOuter = bvSpace
@ -349,7 +349,7 @@ object Form1: TForm1
end end
object LabeledEditSearch: TLabeledEdit object LabeledEditSearch: TLabeledEdit
Left = 104 Left = 104
Height = 21 Height = 27
Top = 6 Top = 6
Width = 174 Width = 174
EditLabel.AnchorSideLeft.Control = LabeledEditSearch EditLabel.AnchorSideLeft.Control = LabeledEditSearch
@ -357,10 +357,10 @@ object Form1: TForm1
EditLabel.AnchorSideTop.Side = asrCenter EditLabel.AnchorSideTop.Side = asrCenter
EditLabel.AnchorSideRight.Control = LabeledEditSearch EditLabel.AnchorSideRight.Control = LabeledEditSearch
EditLabel.AnchorSideBottom.Control = LabeledEditSearch EditLabel.AnchorSideBottom.Control = LabeledEditSearch
EditLabel.Left = 73 EditLabel.Left = 65
EditLabel.Height = 14 EditLabel.Height = 18
EditLabel.Top = 9 EditLabel.Top = 10
EditLabel.Width = 28 EditLabel.Width = 36
EditLabel.Caption = 'Find: ' EditLabel.Caption = 'Find: '
EditLabel.ParentColor = False EditLabel.ParentColor = False
LabelPosition = lpLeft LabelPosition = lpLeft
@ -373,9 +373,9 @@ object Form1: TForm1
end end
object CheckBoxMatchCase: TCheckBox object CheckBoxMatchCase: TCheckBox
Left = 320 Left = 320
Height = 17 Height = 22
Top = 7 Top = 7
Width = 74 Width = 97
Caption = 'Match case' Caption = 'Match case'
OnClick = CheckBoxMatchCaseClick OnClick = CheckBoxMatchCaseClick
TabOrder = 1 TabOrder = 1
@ -383,37 +383,39 @@ object Form1: TForm1
end end
object SplitterFunctionList: TSplitter object SplitterFunctionList: TSplitter
Left = 150 Left = 150
Height = 300 Height = 293
Top = 0 Top = 0
Width = 5 Width = 5
OnCanResize = SplitterFunctionListCanResize OnCanResize = SplitterFunctionListCanResize
Visible = False Visible = False
end end
inline frmFunctionList: TFunctionListFrame inline frmFunctionList: TFunctionListFrame
Height = 300 Height = 293
Width = 150 Width = 150
ClientHeight = 300 ClientHeight = 293
ClientWidth = 150 ClientWidth = 150
OnEndDock = nil OnEndDock = nil
TabOrder = 3 TabOrder = 3
DesignLeft = 401
DesignTop = 219
inherited FunctionList: TTreeView inherited FunctionList: TTreeView
Height = 261 Height = 244
Top = 22
Width = 150 Width = 150
DefaultItemHeight = 19
OnChange = FunctionListChange OnChange = FunctionListChange
OnDeletion = nil OnDeletion = nil
OnEnter = FunctionListEnter OnEnter = FunctionListEnter
OnExit = FunctionListExit OnExit = FunctionListExit
end end
inherited editSearchList: TEdit inherited editSearchList: TEdit
Top = 279 Height = 27
Top = 266
Width = 150 Width = 150
OnExit = editSearchListExit OnExit = editSearchListExit
OnKeyDown = editSearchListKeyDown OnKeyDown = editSearchListKeyDown
OnKeyPress = editSearchListKeyPress OnKeyPress = editSearchListKeyPress
end end
inherited FunctionListLabel: TLabel inherited FunctionListLabel: TLabel
Height = 18
Width = 146 Width = 146
end end
end end
@ -1209,6 +1211,10 @@ object Form1: TForm1
Caption = 'View &Function List' Caption = 'View &Function List'
OnClick = MenuItemFunctionListClick OnClick = MenuItemFunctionListClick
end end
object MenuViewSettings: TMenuItem
Caption = 'View Settings'
OnClick = MenuViewSettingsClick
end
end end
object MenuExtra: TMenuItem object MenuExtra: TMenuItem
Caption = 'Extra' Caption = 'Extra'

1357
Projects/SAMufasaGUI/testunit.lrs
View File

File diff suppressed because it is too large Load Diff

7
Projects/SAMufasaGUI/testunit.pas
View File

@ -93,6 +93,7 @@ type
MenuEdit: TMenuItem; MenuEdit: TMenuItem;
MenuHelp: TMenuItem; MenuHelp: TMenuItem;
MenuExtra: TMenuItem; MenuExtra: TMenuItem;
MenuViewSettings: TMenuItem;
MenuItemExportHTML: TMenuItem; MenuItemExportHTML: TMenuItem;
MenuItemDivider9: TMenuItem; MenuItemDivider9: TMenuItem;
UpdateTimer: TTimer; UpdateTimer: TTimer;
@ -248,6 +249,7 @@ type
procedure MenuItemTabCloseClick(Sender: TObject); procedure MenuItemTabCloseClick(Sender: TObject);
procedure MenuItemTabCloseOthersClick(Sender: TObject); procedure MenuItemTabCloseOthersClick(Sender: TObject);
procedure MenuItemFunctionListClick(Sender: TObject); procedure MenuItemFunctionListClick(Sender: TObject);
procedure MenuViewSettingsClick(Sender: TObject);
procedure OnLinePSScript(Sender: TObject); procedure OnLinePSScript(Sender: TObject);
procedure ButtonPickClick(Sender: TObject); procedure ButtonPickClick(Sender: TObject);
procedure ButtonSelectorDown(Sender: TObject; Button: TMouseButton; procedure ButtonSelectorDown(Sender: TObject; Button: TMouseButton;
@ -1430,6 +1432,11 @@ begin
FunctionListShown(not MenuItemFunctionList.Checked); FunctionListShown(not MenuItemFunctionList.Checked);
end; end;
procedure TForm1.MenuViewSettingsClick(Sender: TObject);
begin
SettingsForm.ShowModal;
end;
procedure TForm1.OnLinePSScript(Sender: TObject); procedure TForm1.OnLinePSScript(Sender: TObject);
begin begin
//Writeln('We just completed a line!!'); //Writeln('We just completed a line!!');