moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-08-13 16:53:59 -04:00
Code Issues Releases Wiki Activity

Script Manager changes.

Browse Source 
Just a few changes, committing because I'm switching computers.
This commit is contained in:
Merlijn Wajer 2010-06-13 00:07:35 +02:00
parent f0f4da9f2a
commit e092f6aadd
2 changed files with 113 additions and 63 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

132
Projects/ScriptManager/scriptmanager.lfm
View File

@ -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

44
Projects/ScriptManager/scriptmanager.pas
View File

@ -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 }