mirror of
https://github.com/moparisthebest/Simba
synced 2024-08-13 16:53:59 -04: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