Changeset 176 for Docking/CoolDocking/UCoolDockWindowList.pas

Timestamp:

Mar 7, 2011, 1:32:07 PM (13 years ago)

Author:

george

Message:

• Fixed: Docking popupmenu action Close and Rename.
• Added: Partialy implemented tab hiding.

File:

• Docking/CoolDocking/UCoolDockWindowList.pas (modified) (4 diffs)

Docking/CoolDocking/UCoolDockWindowList.pas

@@ -15 +15 @@
   TCoolDockWindowListForm = class(TForm)
     ButtonFocus: TButton;
-    ButtonCancel: TButton;
+    ButtonHide: TButton;
+    ButtonShow: TButton;
     ImageList1: TImageList;
     ListView1: TListView;
-    procedure ButtonCancelClick(Sender: TObject);
     procedure ButtonFocusClick(Sender: TObject);
+    procedure ButtonHideClick(Sender: TObject);
+    procedure ButtonShowClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure ListView1DblClick(Sender: TObject);
     procedure ListView1KeyPress(Sender: TObject; var Key: char);
+    procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
+      Selected: Boolean);
   private
     { private declarations }
@@ -43 +47 @@
 { TCoolDockWindowListForm }
 
-procedure TCoolDockWindowListForm.ButtonCancelClick(Sender: TObject);
-begin
-  Close;
-end;
-
 procedure TCoolDockWindowListForm.ButtonFocusClick(Sender: TObject);
 begin
@@ -53 +52 @@
     TForm(ListView1.Selected.Data).Show;
   Close;
+end;
+
+procedure TCoolDockWindowListForm.ButtonHideClick(Sender: TObject);
+begin
+  if Assigned(ListView1.Selected) then
+    TForm(ListView1.Selected.Data).Close;
+  LoadList;
+end;
+
+procedure TCoolDockWindowListForm.ButtonShowClick(Sender: TObject);
+begin
+  if Assigned(ListView1.Selected) then
+    TForm(ListView1.Selected.Data).Show;
+  LoadList;
 end;
 
@@ -68 +81 @@
 begin
   if Key = #13 then ButtonFocusClick(Self);
+end;
+
+procedure TCoolDockWindowListForm.ListView1SelectItem(Sender: TObject;
+  Item: TListItem; Selected: Boolean);
+begin
+  ButtonFocus.Enabled := Selected;
+  ButtonHide.Enabled := Selected;
+  ButtonShow.Enabled := Selected;
 end;