moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-02-11 21:00:13 -05:00
Code Issues Releases Wiki Activity

Patch my mc_teo to allow double click extensions.

Browse Source 
0001-added-a-double-click-event-to-extension-form.patch
This commit is contained in:
Merlijn Wajer 2010-06-29 22:17:28 +02:00
parent d13abf3afe
commit 070104055f
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Projects/Simba/extensionmanagergui.lfm
View File

@ -49,6 +49,7 @@ object ExtensionsForm: TExtensionsForm
TabOrder = 0 TabOrder = 0
ViewStyle = vsReport ViewStyle = vsReport
OnAdvancedCustomDrawItem = ExtensionsListAdvancedCustomDrawItem OnAdvancedCustomDrawItem = ExtensionsListAdvancedCustomDrawItem
OnDblClick = ExtensionsListDblClick
OnSelectItem = ExtensionsListSelectItem OnSelectItem = ExtensionsListSelectItem
end end
object Button: TButton object Button: TButton

11
Projects/Simba/extensionmanagergui.pas
View File

@ -22,6 +22,7 @@ type
procedure ExtensionsListAdvancedCustomDrawItem(Sender: TCustomListView; procedure ExtensionsListAdvancedCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage; Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
var DefaultDraw: Boolean); var DefaultDraw: Boolean);
procedure ExtensionsListDblClick(Sender: TObject);
procedure ExtensionsListSelectItem(Sender: TObject; Item: TListItem; procedure ExtensionsListSelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean); Selected: Boolean);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -66,6 +67,16 @@ begin
sender.canvas.brush.color := $CCCCFF//$FF3D64; sender.canvas.brush.color := $CCCCFF//$FF3D64;
end; end;
procedure TExtensionsForm.ExtensionsListDblClick(Sender: TObject);
begin
if ExtensionsList.Selected <> nil then
with TVirtualSimbaExtension(ExtManager.Extensions[ExtensionsList.Selected.Index]) do
begin;
Enabled := not ExtEnabled.Checked;
ExtEnabled.Checked := Enabled;
end;
end;
procedure TExtensionsForm.ExtensionsListSelectItem(Sender: TObject; procedure TExtensionsForm.ExtensionsListSelectItem(Sender: TObject;
Item: TListItem; Selected: Boolean); Item: TListItem; Selected: Boolean);
var var