moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-14 05:15:16 -05:00
Code Issues Releases Wiki Activity

Script manager things

Browse Source
This commit is contained in:
Merlijn Wajer 2010-07-20 20:26:49 +02:00
parent 298a31f32b
commit 11e16b876c
2 changed files with 67 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
Projects/ScriptManager/scriptmanager.lfm
View File

@ -1,18 +1,18 @@
object Form1: TForm1 object Form1: TForm1
Left = 478 Left = 544
Height = 556 Height = 615
Top = 156 Top = 169
Width = 556 Width = 554
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
Caption = 'Form1' Caption = 'Form1'
ClientHeight = 556 ClientHeight = 615
ClientWidth = 556 ClientWidth = 554
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '0.9.29' LCLVersion = '0.9.29'
object ListView1: TListView object ListView1: TListView
Left = 16 Left = 16
Height = 520 Height = 512
Top = 16 Top = 8
Width = 232 Width = 232
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
Columns = < Columns = <
@ -41,15 +41,65 @@ object Form1: TForm1
end end
object Memo1: TMemo object Memo1: TMemo
Left = 272 Left = 272
Height = 520 Height = 504
Top = 16 Top = 16
Width = 264 Width = 262
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
Lines.Strings = ( Lines.Strings = (
'Memo1' 'Memo1'
) )
TabOrder = 2 TabOrder = 2
end end
object Button1: TButton
Left = 16
Height = 33
Top = 576
Width = 520
Anchors = [akLeft, akBottom]
Caption = 'Button1'
TabOrder = 3
end
object Edit1: TEdit
Left = 72
Height = 27
Top = 536
Width = 176
Anchors = [akLeft, akBottom]
TabOrder = 4
end
object Label1: TLabel
Left = 24
Height = 18
Top = 536
Width = 35
Anchors = [akLeft, akBottom]
Caption = 'Filter:'
ParentColor = False
end
object SearchIn: TComboBox
Left = 344
Height = 29
Top = 534
Width = 192
ItemHeight = 0
ItemIndex = 0
Items.Strings = (
'Tags, Name, Author'
'Name'
'Tags'
'Author'
)
TabOrder = 5
Text = 'Tags, Name, Author'
end
object Label2: TLabel
Left = 272
Height = 18
Top = 536
Width = 53
Caption = 'Filter by:'
ParentColor = False
end
object ImageList1: TImageList object ImageList1: TImageList
left = 80 left = 80
top = 272 top = 272

7
Projects/ScriptManager/scriptmanager.pas
View File

@ -36,7 +36,12 @@ type
{ TForm1 } { TForm1 }
TForm1 = class(TForm) TForm1 = class(TForm)
Button1: TButton;
SearchIn: TComboBox;
Edit1: TEdit;
ImageList1: TImageList; ImageList1: TImageList;
Label1: TLabel;
Label2: TLabel;
ListView1: TListView; ListView1: TListView;
Memo1: TMemo; Memo1: TMemo;
MenuItem1: TMenuItem; MenuItem1: TMenuItem;
@ -79,6 +84,8 @@ var
ss: TSimbaScript; ss: TSimbaScript;
LI: TListItem; LI: TListItem;
strarr: TStringArray; strarr: TStringArray;
b: TButton;
begin begin
if not s.ListKeys('Scripts/ScriptList', strarr) then if not s.ListKeys('Scripts/ScriptList', strarr) then
writeln('ListKeys returned false'); writeln('ListKeys returned false');