mirror of
https://github.com/moparisthebest/Simba
synced 2024-12-24 16:28:53 -05:00
First few bits of ScriptManager.
Nothing much, just committing from my other computer so I can resume work on it here.
This commit is contained in:
Merlijn Wajer
parent
8265555e82
commit
535d6f63d7
183
Projects/ScriptManager/project1.lpi
Normal file
183
Projects/ScriptManager/project1.lpi
Normal file
@ -0,0 +1,183 @@
|
|||||||
|
<?xml version="1.0"?>
|
||||||
|
<CONFIG>
|
||||||
|
<ProjectOptions>
|
||||||
|
<Version Value="7"/>
|
||||||
|
<General>
|
||||||
|
<Flags>
|
||||||
|
<UseDefaultCompilerOptions Value="True"/>
|
||||||
|
</Flags>
|
||||||
|
<MainUnit Value="0"/>
|
||||||
|
<TargetFileExt Value=""/>
|
||||||
|
<ResourceType Value="res"/>
|
||||||
|
<UseXPManifest Value="True"/>
|
||||||
|
<Icon Value="0"/>
|
||||||
|
<ActiveWindowIndexAtStart Value="0"/>
|
||||||
|
</General>
|
||||||
|
<VersionInfo>
|
||||||
|
<Language Value=""/>
|
||||||
|
<CharSet Value=""/>
|
||||||
|
<StringTable Comments="" CompanyName="" FileDescription="" FileVersion="" InternalName="" LegalCopyright="" LegalTrademarks="" OriginalFilename="" ProductName="" ProductVersion=""/>
|
||||||
|
</VersionInfo>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
<IgnoreBinaries Value="False"/>
|
||||||
|
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
|
||||||
|
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
|
||||||
|
</PublishOptions>
|
||||||
|
<RunParams>
|
||||||
|
<local>
|
||||||
|
<FormatVersion Value="1"/>
|
||||||
|
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
|
||||||
|
</local>
|
||||||
|
</RunParams>
|
||||||
|
<RequiredPackages Count="1">
|
||||||
|
<Item1>
|
||||||
|
<PackageName Value="LCL"/>
|
||||||
|
</Item1>
|
||||||
|
</RequiredPackages>
|
||||||
|
<Units Count="3">
|
||||||
|
<Unit0>
|
||||||
|
<Filename Value="project1.lpr"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<UnitName Value="project1"/>
|
||||||
|
<UsageCount Value="24"/>
|
||||||
|
</Unit0>
|
||||||
|
<Unit1>
|
||||||
|
<Filename Value="scriptmanager.pas"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<ComponentName Value="Form1"/>
|
||||||
|
<ResourceBaseClass Value="Form"/>
|
||||||
|
<UnitName Value="scriptmanager"/>
|
||||||
|
<IsVisibleTab Value="True"/>
|
||||||
|
<EditorIndex Value="0"/>
|
||||||
|
<WindowIndex Value="0"/>
|
||||||
|
<TopLine Value="1"/>
|
||||||
|
<CursorPos X="77" Y="17"/>
|
||||||
|
<UsageCount Value="24"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit1>
|
||||||
|
<Unit2>
|
||||||
|
<Filename Value="../../../lazarus/lcl/interfaces/gtk/gtkwidgetset.inc"/>
|
||||||
|
<WindowIndex Value="0"/>
|
||||||
|
<TopLine Value="1276"/>
|
||||||
|
<CursorPos X="1" Y="1294"/>
|
||||||
|
<SyntaxHighlighter Value="FreePascal"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
<DefaultSyntaxHighlighter Value="Text"/>
|
||||||
|
</Unit2>
|
||||||
|
</Units>
|
||||||
|
<JumpHistory Count="16" HistoryIndex="15">
|
||||||
|
<Position1>
|
||||||
|
<Filename Value="scriptmanager.pas"/>
|
||||||
|
<Caret Line="15" Column="32" TopLine="1"/>
|
||||||
|
</Position1>
|
||||||
|
<Position2>
|
||||||
|
<Filename Value="scriptmanager.pas"/>
|
||||||
|
<Caret Line="19" Column="32" TopLine="1"/>
|
||||||
|
</Position2>
|
||||||
|
<Position3>
|
||||||
|
<Filename Value="scriptmanager.pas"/>
|
||||||
|
<Caret Line="13" Column="32" TopLine="1"/>
|
||||||
|
</Position3>
|
||||||
|
<Position4>
|
||||||
|
<Filename Value="scriptmanager.pas"/>
|
||||||
|
<Caret Line="35" Column="29" TopLine="4"/>
|
||||||
|
</Position4>
|
||||||
|
<Position5>
|
||||||
|
<Filename Value="scriptmanager.pas"/>
|
||||||
|
<Caret Line="37" Column="29" TopLine="4"/>
|
||||||
|
</Position5>
|
||||||
|
<Position6>
|
||||||
|
<Filename Value="scriptmanager.pas"/>
|
||||||
|
<Caret Line="36" Column="29" TopLine="4"/>
|
||||||
|
</Position6>
|
||||||
|
<Position7>
|
||||||
|
<Filename Value="scriptmanager.pas"/>
|
||||||
|
<Caret Line="37" Column="29" TopLine="4"/>
|
||||||
|
</Position7>
|
||||||
|
<Position8>
|
||||||
|
<Filename Value="scriptmanager.pas"/>
|
||||||
|
<Caret Line="36" Column="29" TopLine="4"/>
|
||||||
|
</Position8>
|
||||||
|
<Position9>
|
||||||
|
<Filename Value="scriptmanager.pas"/>
|
||||||
|
<Caret Line="37" Column="29" TopLine="4"/>
|
||||||
|
</Position9>
|
||||||
|
<Position10>
|
||||||
|
<Filename Value="scriptmanager.pas"/>
|
||||||
|
<Caret Line="36" Column="29" TopLine="4"/>
|
||||||
|
</Position10>
|
||||||
|
<Position11>
|
||||||
|
<Filename Value="scriptmanager.pas"/>
|
||||||
|
<Caret Line="37" Column="29" TopLine="4"/>
|
||||||
|
</Position11>
|
||||||
|
<Position12>
|
||||||
|
<Filename Value="scriptmanager.pas"/>
|
||||||
|
<Caret Line="38" Column="37" TopLine="7"/>
|
||||||
|
</Position12>
|
||||||
|
<Position13>
|
||||||
|
<Filename Value="scriptmanager.pas"/>
|
||||||
|
<Caret Line="37" Column="37" TopLine="6"/>
|
||||||
|
</Position13>
|
||||||
|
<Position14>
|
||||||
|
<Filename Value="scriptmanager.pas"/>
|
||||||
|
<Caret Line="36" Column="37" TopLine="5"/>
|
||||||
|
</Position14>
|
||||||
|
<Position15>
|
||||||
|
<Filename Value="scriptmanager.pas"/>
|
||||||
|
<Caret Line="11" Column="52" TopLine="1"/>
|
||||||
|
</Position15>
|
||||||
|
<Position16>
|
||||||
|
<Filename Value="scriptmanager.pas"/>
|
||||||
|
<Caret Line="24" Column="86" TopLine="1"/>
|
||||||
|
</Position16>
|
||||||
|
</JumpHistory>
|
||||||
|
</ProjectOptions>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="8"/>
|
||||||
|
<Target>
|
||||||
|
<Filename Value="project1"/>
|
||||||
|
</Target>
|
||||||
|
<SearchPaths>
|
||||||
|
<IncludeFiles Value="$(ProjOutDir)/"/>
|
||||||
|
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
|
||||||
|
</SearchPaths>
|
||||||
|
<Parsing>
|
||||||
|
<SyntaxOptions>
|
||||||
|
<UseAnsiStrings Value="True"/>
|
||||||
|
</SyntaxOptions>
|
||||||
|
</Parsing>
|
||||||
|
<CodeGeneration>
|
||||||
|
<TargetCPU Value="arm"/>
|
||||||
|
<TargetOS Value="Linux"/>
|
||||||
|
</CodeGeneration>
|
||||||
|
<Linking>
|
||||||
|
<Options>
|
||||||
|
<PassLinkerOptions Value="True"/>
|
||||||
|
<LinkerOptions Value="-L/home/merlijn/Programs/fpc/libcross/"/>
|
||||||
|
<Win32>
|
||||||
|
<GraphicApplication Value="True"/>
|
||||||
|
</Win32>
|
||||||
|
</Options>
|
||||||
|
</Linking>
|
||||||
|
<Other>
|
||||||
|
<CompilerMessages>
|
||||||
|
<UseMsgFile Value="True"/>
|
||||||
|
</CompilerMessages>
|
||||||
|
<CompilerPath Value="$(CompPath)"/>
|
||||||
|
</Other>
|
||||||
|
</CompilerOptions>
|
||||||
|
<Debugging>
|
||||||
|
<Exceptions Count="3">
|
||||||
|
<Item1>
|
||||||
|
<Name Value="EAbort"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<Name Value="ECodetoolError"/>
|
||||||
|
</Item2>
|
||||||
|
<Item3>
|
||||||
|
<Name Value="EFOpenError"/>
|
||||||
|
</Item3>
|
||||||
|
</Exceptions>
|
||||||
|
</Debugging>
|
||||||
|
</CONFIG>
|
||||||
20
Projects/ScriptManager/project1.lpr
Normal file
20
Projects/ScriptManager/project1.lpr
Normal file
@ -0,0 +1,20 @@
|
|||||||
|
program project1;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
uses
|
||||||
|
{$IFDEF UNIX}{$IFDEF UseCThreads}
|
||||||
|
cthreads,
|
||||||
|
{$ENDIF}{$ENDIF}
|
||||||
|
Interfaces, // this includes the LCL widgetset
|
||||||
|
Forms, scriptmanager
|
||||||
|
{ you can add units after this };
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
|
||||||
|
begin
|
||||||
|
Application.Initialize;
|
||||||
|
Application.CreateForm(TForm1, Form1);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
|
|
||||||
100
Projects/ScriptManager/scriptmanager.lfm
Normal file
100
Projects/ScriptManager/scriptmanager.lfm
Normal file
@ -0,0 +1,100 @@
|
|||||||
|
object Form1: TForm1
|
||||||
|
Left = 369
|
||||||
|
Height = 567
|
||||||
|
Top = 144
|
||||||
|
Width = 825
|
||||||
|
ActiveControl = Button1
|
||||||
|
Caption = 'Form1'
|
||||||
|
ClientHeight = 567
|
||||||
|
ClientWidth = 825
|
||||||
|
LCLVersion = '0.9.29'
|
||||||
|
object ListView1: TListView
|
||||||
|
Left = 32
|
||||||
|
Height = 520
|
||||||
|
Top = 24
|
||||||
|
Width = 216
|
||||||
|
Columns = <
|
||||||
|
item
|
||||||
|
Caption = 'Scripts'
|
||||||
|
Width = 414
|
||||||
|
end>
|
||||||
|
IconOptions.Arrangement = iaLeft
|
||||||
|
ItemIndex = -1
|
||||||
|
Items.LazData = {
|
||||||
|
640000000400000000000000FFFFFFFFFFFFFFFF000000000100000061000000
|
||||||
|
00FFFFFFFFFFFFFFFF00000000050000004974656D3100000000FFFFFFFFFFFF
|
||||||
|
FFFF00000000040000006664686400000000FFFFFFFFFFFFFFFF000000000200
|
||||||
|
00006466
|
||||||
|
}
|
||||||
|
LargeImages = ImageList1
|
||||||
|
ScrollBars = ssAutoBoth
|
||||||
|
SmallImages = ImageList1
|
||||||
|
StateImages = ImageList1
|
||||||
|
TabOrder = 0
|
||||||
|
ViewStyle = vsReport
|
||||||
|
end
|
||||||
|
object ListBox1: TListBox
|
||||||
|
Left = 560
|
||||||
|
Height = 520
|
||||||
|
Top = 24
|
||||||
|
Width = 240
|
||||||
|
Items.Strings = (
|
||||||
|
'wat'
|
||||||
|
'wa'
|
||||||
|
'asd'
|
||||||
|
'd'
|
||||||
|
'd'
|
||||||
|
)
|
||||||
|
ItemHeight = 40
|
||||||
|
Style = lbOwnerDrawFixed
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object Button1: TButton
|
||||||
|
Left = 360
|
||||||
|
Height = 25
|
||||||
|
Top = 24
|
||||||
|
Width = 75
|
||||||
|
Caption = 'Button1'
|
||||||
|
OnClick = Button1Click
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object ImageList1: TImageList
|
||||||
|
left = 288
|
||||||
|
top = 16
|
||||||
|
Bitmap = {
|
||||||
|
4C69010000001000000010000000424242004242420042424200424242004242
|
||||||
|
420042424200424242004242420042424200424242004242420042424200A155
|
||||||
|
42FFA15542FFA15542FF4242420E424242004242420042424200424242004242
|
||||||
|
4200424242004242420042424200424242004242420042424200A15542FFFFDA
|
||||||
|
D0FFD05E42FFA15542FFA15542FF424242004242420042424200424242004242
|
||||||
|
42004242420042424200424242004242420042424200A15542FFFFDAD0FFD05E
|
||||||
|
42FFD05E42FFA15542FFA15542FF424242004242420042424200424242004242
|
||||||
|
4200424242004242420042424200A15542FFA15542FFFFDAD0FFD05E42FFD05E
|
||||||
|
42FFA15542FFA15542FFA15542FF424242004242420042424200424242004242
|
||||||
|
42004242420042424200A15542FFFFDAD0FFA15542FFD05E42FFD05E42FFA155
|
||||||
|
42FFA15542FFA15542FF42424263424242004242420042424200FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF004242420BA15542FFFFDAD0FFA15542FFD05E42FFA155
|
||||||
|
42FFA15542FF424242634242424C424242004242420042424200FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00838383FFFFFFFFFFA15542FFFFDAD0FFA15542FFA155
|
||||||
|
42FF424242634242424C42424219424242004242420042424200FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00838383FFFFFFFFFFE5E5E5FFA1A1A1FFA15542FFFFDAD0FFA155
|
||||||
|
42FF424242584242421C42424203424242004242420042424200FFFFFF00FFFF
|
||||||
|
FF00838383FFFFFFFFFFE5E5E5FFA1A1A1FF838383FF42424263A15542FF4242
|
||||||
|
42604242424A4242420E42424200424242004242420042424200FFFFFF008383
|
||||||
|
83FFFFFFFFFFE5E5E5FFA1A1A1FF838383FF424242634242424C424242274242
|
||||||
|
423E424242194242420342424200424242004242420042424200838383FFFFFF
|
||||||
|
FFFFE5E5E5FFA1A1A1FF838383FF424242634242424C42424219424242064242
|
||||||
|
420B4242420242424200424242004242420042424200838383FFFFFFFFFFE5E5
|
||||||
|
E5FFA1A1A1FF838383FF424242634242424C4242421942424203424242004242
|
||||||
|
420042424200424242004242420042424200838383FFFFFFFFFFE5E5E5FFA1A1
|
||||||
|
A1FF838383FF424242634242424C424242194242420342424200424242004242
|
||||||
|
420042424200424242004242420042424200838383FFE5E5E5FFA1A1A1FF8383
|
||||||
|
83FF424242634242424C4242421942424203FFFFFF0042424200424242004242
|
||||||
|
4200424242004242420042424200838383FFE5E5E5FF838383FF838383FF4242
|
||||||
|
42634242424C4242421942424203FFFFFF00FFFFFF0042424200424242004242
|
||||||
|
4200424242004242420042424200838383FF838383FF42424260424242584242
|
||||||
|
424A424242194242420342424200424242004242420042424200424242004242
|
||||||
|
4200424242004242420042424200
|
||||||
|
}
|
||||||
|
end
|
||||||
|
end
|
||||||
42
Projects/ScriptManager/scriptmanager.pas
Normal file
42
Projects/ScriptManager/scriptmanager.pas
Normal file
@ -0,0 +1,42 @@
|
|||||||
|
unit scriptmanager;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
|
||||||
|
ExtCtrls, ComCtrls;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TForm1 }
|
||||||
|
|
||||||
|
TForm1 = class(TForm)
|
||||||
|
Button1: TButton;
|
||||||
|
ImageList1: TImageList;
|
||||||
|
ListBox1: TListBox;
|
||||||
|
ListView1: TListView;
|
||||||
|
TreeView1: TTreeView;
|
||||||
|
procedure Button1Click(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ private declarations }
|
||||||
|
public
|
||||||
|
{ public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
Form1: TForm1;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.lfm}
|
||||||
|
|
||||||
|
{ TForm1 }
|
||||||
|
|
||||||
|
procedure TForm1.Button1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
Loading…
Reference in New Issue
Block a user