mirror of
https://github.com/moparisthebest/Simba
synced 2025-02-16 07:10:10 -05:00
Script Manager changes.
Just a few changes, committing because I'm switching computers.
This commit is contained in:
Merlijn Wajer
parent
f0f4da9f2a
commit
e092f6aadd
@ -1,18 +1,20 @@
|
||||
object Form1: TForm1
|
||||
Left = 1490
|
||||
Height = 567
|
||||
Top = 293
|
||||
Width = 825
|
||||
ActiveControl = TreeView1
|
||||
Left = 478
|
||||
Height = 556
|
||||
Top = 156
|
||||
Width = 556
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
Caption = 'Form1'
|
||||
ClientHeight = 567
|
||||
ClientWidth = 825
|
||||
ClientHeight = 556
|
||||
ClientWidth = 556
|
||||
OnCreate = FormCreate
|
||||
LCLVersion = '0.9.29'
|
||||
object ListView1: TListView
|
||||
Left = 32
|
||||
Left = 16
|
||||
Height = 520
|
||||
Top = 24
|
||||
Width = 384
|
||||
Top = 16
|
||||
Width = 232
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
Columns = <
|
||||
item
|
||||
Caption = 'Scripts'
|
||||
@ -26,61 +28,75 @@ object Form1: TForm1
|
||||
StateImages = ImageList1
|
||||
TabOrder = 0
|
||||
ViewStyle = vsReport
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 432
|
||||
Height = 25
|
||||
Top = 504
|
||||
Width = 75
|
||||
Caption = 'Button1'
|
||||
OnClick = Button1Click
|
||||
TabOrder = 1
|
||||
OnMouseUp = ClickItem
|
||||
end
|
||||
object TreeView1: TTreeView
|
||||
Left = 528
|
||||
Height = 528
|
||||
Top = 16
|
||||
Width = 272
|
||||
Left = 0
|
||||
Height = 24
|
||||
Top = 440
|
||||
Width = 32
|
||||
DefaultItemHeight = 19
|
||||
TabOrder = 1
|
||||
Visible = False
|
||||
end
|
||||
object Memo1: TMemo
|
||||
Left = 272
|
||||
Height = 520
|
||||
Top = 16
|
||||
Width = 264
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
Lines.Strings = (
|
||||
'Memo1'
|
||||
)
|
||||
TabOrder = 2
|
||||
end
|
||||
object ImageList1: TImageList
|
||||
left = 368
|
||||
top = 504
|
||||
left = 80
|
||||
top = 272
|
||||
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
|
||||
4C69010000001000000010000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004EA35778499B5103FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0047994FD24191499CFFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0063C06E1D5FBB6A705BB4
|
||||
65B756AD5FEA50A65AFF4B9E53FF45964DFF60A868FF5BA262FF347E3A90FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0062BE6D395EB968B079C383FF89CA
|
||||
92FF94D09CFF95D19EFF90CF99FF8CCB94FF87C98FFF80C487FF4E9554FF276D
|
||||
2C84FFFFFF00FFFFFF00FFFFFF0060BC6C1D5CB667B085C98EFF9BD4A4FF8FCE
|
||||
98FF92CF9AFF8DCC95FF88CA90FF83C68BFF7EC485FF79C17FFF478D4CFF2265
|
||||
258AFFFFFF00FFFFFF00FFFFFF005BB4657075BF7EFF98D2A1FF94CF9CFF86C7
|
||||
8DFF5EA765FF398640FF347E3AFF2E7633FF49904FFF458B4AFF20632493FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF0054AB5EB780C389FF8DCC95FF83C48AFF3D8B
|
||||
44E137833E8DFFFFFF00FFFFFF00FFFFFF00236627D21F61239FFFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF004DA155E847994FF8419149F63B8842ED3580
|
||||
3C83FFFFFF00FFFFFF00FFFFFF00FFFFFF001E5F217B1B5B1E0354AB5E614EA3
|
||||
5761499B516143934B613D8B446145964D613F8E466139864061347E3A612E76
|
||||
336167C6730364C2707BFFFFFF00FFFFFF00FFFFFF00FFFFFF004DA155834799
|
||||
4FED419149F63B8842F835803CE8FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF0063C06E9F5FBB6AD2FFFFFF00FFFFFF00FFFFFF004B9E538D45964DE186C6
|
||||
8EFF88C98FFF6FB376FF2E7633B7FFFFFF00FFFFFF00FFFFFF00FFFFFF0062BE
|
||||
6D937BC785FF77C281FF54AB5EFF4EA357FF499B51FF63AC6BFF83C38BFF87C9
|
||||
8FFF82C689FF509756FF276D2C70FFFFFF00FFFFFF00FFFFFF0060BC6C8A79C4
|
||||
83FF9ED7A7FF9BD4A4FF97D29FFF92CF9AFF8DCC95FF88CA90FF7AC282FF7EC4
|
||||
85FF5DA463FF266B2AB02265251DFFFFFF00FFFFFF00FFFFFF005BB4658473BD
|
||||
7CFF96D19FFF94CF9CFF8FCD96FF8ACA91FF85C78BFF7ABE81FF65AD6CFF4B92
|
||||
51FF246829B020632439FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004EA3
|
||||
579066B06EFF61AA68FF3D8B44FF37833EFF327B37FF2C7432EA276D2CB72366
|
||||
27701F61231DFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF004191499C3B8842D2FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF0039864003347E3A78FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00
|
||||
}
|
||||
end
|
||||
object ScriptPopup: TPopupMenu
|
||||
left = 115
|
||||
top = 147
|
||||
object MenuItem1: TMenuItem
|
||||
Caption = 'Install'
|
||||
end
|
||||
object MenuItem2: TMenuItem
|
||||
Caption = 'Rate'
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -29,18 +29,23 @@ interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
|
||||
ExtCtrls, ComCtrls, settings, MufasaTypes;
|
||||
ExtCtrls, ComCtrls, ActnList, Menus, settings, MufasaTypes;
|
||||
|
||||
type
|
||||
|
||||
{ TForm1 }
|
||||
|
||||
TForm1 = class(TForm)
|
||||
Button1: TButton;
|
||||
ImageList1: TImageList;
|
||||
ListView1: TListView;
|
||||
Memo1: TMemo;
|
||||
MenuItem1: TMenuItem;
|
||||
MenuItem2: TMenuItem;
|
||||
ScriptPopup: TPopupMenu;
|
||||
TreeView1: TTreeView;
|
||||
procedure Button1Click(Sender: TObject);
|
||||
procedure ClickItem(Sender: TObject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
private
|
||||
{ private declarations }
|
||||
public
|
||||
@ -83,6 +88,8 @@ begin
|
||||
writeln(s.GetKeyValue('Scripts/ScriptList/Script/Name'));
|
||||
ss := TSimbaScript.Create();
|
||||
ss.Name := s.GetKeyValue('Scripts/ScriptList/Script/Name');
|
||||
ss.Author:= s.GetKeyValue('Scripts/ScriptList/Script/Author');
|
||||
ss.Description:= s.GetKeyValue('Scripts/ScriptList/Script/Description');
|
||||
LI := Form1.ListView1.Items.Add;
|
||||
LI.Caption := ss.Name;
|
||||
LI.Data := ss;
|
||||
@ -92,14 +99,41 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TForm1.Button1Click(Sender: TObject);
|
||||
procedure TForm1.FormCreate(Sender: TObject);
|
||||
var
|
||||
s: TMMLSettings;
|
||||
begin
|
||||
s := TMMLSettings.Create(TreeView1.Items);
|
||||
s.LoadFromXML('/scratch/gittest/list.xml');
|
||||
fill(s);
|
||||
s.Free;
|
||||
s.Free();
|
||||
end;
|
||||
|
||||
procedure TForm1.ClickItem(Sender: TObject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
var
|
||||
item: TListItem;
|
||||
begin
|
||||
item := Form1.ListView1.GetItemAt(x, y);
|
||||
if item = nil then
|
||||
exit;
|
||||
if item.data = nil then
|
||||
exit;
|
||||
|
||||
{ Any selection causes the description to change }
|
||||
form1.Memo1.Lines.Clear();
|
||||
form1.Memo1.Lines.Append(TSimbaScript(item.data).Description);
|
||||
|
||||
if Button = mbLeft then
|
||||
begin
|
||||
|
||||
end else if Button = mbRight then
|
||||
begin
|
||||
{ Popup Actions }
|
||||
Form1.ScriptPopup.Items[0].Caption:= 'Install ' + TSimbaScript(item.data).Name;
|
||||
Form1.ScriptPopup.PopUp();
|
||||
end;
|
||||
//form1.Memo1.Text := TSimbaScript(item.data).Description;
|
||||
end;
|
||||
|
||||
{ TSimbaScript }
|
||||
|
||||
Loading…
Reference in New Issue
Block a user