Changeset 43 for trunk/Forms/UFormItemList.pas

Timestamp:

Mar 9, 2012, 1:09:52 PM (12 years ago)

Author:

chronos

Message:

• Fixed: Selection of available protocols in profile manager.
• Modified: Initialization of persistent data structures rewrited to more native structures.

File:

• trunk/Forms/UFormItemList.pas (modified) (6 diffs)

trunk/Forms/UFormItemList.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ComCtrls, ActnList, USystem;
+  ComCtrls, ActnList, Menus, USystem;
 
 type
@@ -15 +15 @@
   TItemListForm = class(TForm)
     AClose: TAction;
+    AItemClone: TAction;
     AItemView: TAction;
     AItemEdit: TAction;
@@ -20 +21 @@
     AItemDelete: TAction;
     ActionList1: TActionList;
-    ButtonClose: TButton;
-    ButtonAdd: TButton;
-    ButtonDelete: TButton;
-    ButtonEdit: TButton;
-    ButtonView: TButton;
     ListView1: TListView;
+    MenuItem1: TMenuItem;
+    MenuItem2: TMenuItem;
+    MenuItem3: TMenuItem;
+    MenuItem4: TMenuItem;
+    MenuItem5: TMenuItem;
+    PopupMenu1: TPopupMenu;
+    ToolBar1: TToolBar;
+    ToolButton1: TToolButton;
+    ToolButton2: TToolButton;
+    ToolButton3: TToolButton;
+    ToolButton4: TToolButton;
+    ToolButton5: TToolButton;
     procedure ACloseExecute(Sender: TObject);
     procedure AItemAddExecute(Sender: TObject);
@@ -46 +54 @@
     SelectedItem: Integer;
     procedure Reload;
+    procedure UpdateInterface;
   end;
 
@@ -76 +85 @@
   ListView1Resize(Self);
   ListView1SelectItem(Self, nil, False);
+end;
+
+procedure TItemListForm.UpdateInterface;
+var
+  I: Integer;
+begin
+  AItemDelete.Enabled := Assigned(ListView1.Selected);
+  AItemView.Enabled := Assigned(ListView1.Selected);
+  AItemEdit.Enabled := Assigned(ListView1.Selected);
+  AItemClone.Enabled := Assigned(ListView1.Selected);
+
+  for I := 0 to ToolBar1.ButtonCount - 1 do
+    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
 end;
 
@@ -191 +213 @@
   Selected: Boolean);
 begin
-  ButtonDelete.Enabled := Assigned(ListView1.Selected);
-  ButtonView.Enabled := Assigned(ListView1.Selected);
-  ButtonEdit.Enabled := Assigned(ListView1.Selected);
+  UpdateInterface;
 end;