diff --git a/Projects/ScriptManager/project1.lpi b/Projects/ScriptManager/project1.lpi new file mode 100644 index 0000000..1c43f37 --- /dev/null +++ b/Projects/ScriptManager/project1.lpi @@ -0,0 +1,183 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Projects/ScriptManager/project1.lpr b/Projects/ScriptManager/project1.lpr new file mode 100644 index 0000000..2f163f2 --- /dev/null +++ b/Projects/ScriptManager/project1.lpr @@ -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. + diff --git a/Projects/ScriptManager/scriptmanager.lfm b/Projects/ScriptManager/scriptmanager.lfm new file mode 100644 index 0000000..4f7ecd8 --- /dev/null +++ b/Projects/ScriptManager/scriptmanager.lfm @@ -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 diff --git a/Projects/ScriptManager/scriptmanager.pas b/Projects/ScriptManager/scriptmanager.pas new file mode 100644 index 0000000..b92cc79 --- /dev/null +++ b/Projects/ScriptManager/scriptmanager.pas @@ -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. +