Changeset 48 for trunk/Forms/UFormMain.pas

Timestamp:

Jul 12, 2012, 9:15:02 AM (12 years ago)

Author:

chronos

Message:

• Added: Tool button with drop down menu of available targets.
• Added Target list have icons.

File:

• trunk/Forms/UFormMain.pas (modified) (7 diffs)

trunk/Forms/UFormMain.pas

@@ -44 +44 @@
     ActionList1: TActionList;
     CoolTranslator1: TCoolTranslator;
-    ImageList1: TImageList;
+    ImageListMain: TImageList;
     MainMenu1: TMainMenu;
     MenuItem1: TMenuItem;
@@ -86 +86 @@
     PanelOutput: TPanel;
     PanelInput: TPanel;
+    PopupMenuTargets: TPopupMenu;
+    PopupMenuRecentFiles: TPopupMenu;
     SaveDialog1: TSaveDialog;
     Splitter1: TSplitter;
@@ -106 +108 @@
     ToolButton14: TToolButton;
     ToolButton15: TToolButton;
+    ToolButtonTarget: TToolButton;
     ToolButton2: TToolButton;
     ToolButton3: TToolButton;
@@ -223 +226 @@
   I: Integer;
 begin
+  if Sender is TMenuItem then
   with TMenuItem(Sender) do begin
     CurrentTarget := TTarget(Targets[MenuIndex]);
@@ -252 +256 @@
   FCurrentTarget.OnChangeState := TargetStateChanged;
   FCurrentTarget.Messages.OnChange := MessagesChanged;
+  UpdateTargetList;
   UpdateInterface;
 end;
@@ -293 +298 @@
 begin
   LastOpenedList.LoadToMenuItem(MenuItemOpenRecent, AProjectOpenRecentExecute);
+  LastOpenedList.LoadToMenuItem(PopupMenuRecentFiles.Items, AProjectOpenRecentExecute);
 end;
 
@@ -378 +384 @@
 var
   I: Integer;
-  NewMenuItem: TMenuItem;
-begin
-  MenuItemTarget.Clear;
-  for I := 0 to Targets.Count - 1 do begin
-    NewMenuItem := TMenuItem.Create(MenuItemTarget);
-    NewMenuItem.Caption := TTarget(Targets[I]).Name;
-    NewMenuItem.OnClick := MenuItemTargetClick;
-    if TTarget(Targets[I]) = CurrentTarget then NewMenuItem.Checked := True;
-    MenuItemTarget.Add(NewMenuItem);
+begin
+  Targets.LoadToMenuItem(MenuItemTarget, MenuItemTargetClick, CurrentTarget);
+  Targets.LoadToMenuItem(PopupMenuTargets.Items, MenuItemTargetClick, CurrentTarget);
+
+  // Update toolbutton
+  I := Targets.IndexOf(CurrentTarget);
+  if I <> -1 then
+  with TTarget(Targets[I]) do begin
+    ToolButtonTarget.ImageIndex := ImageIndex;
+    ToolButtonTarget.Caption := Name;
+    ToolButtonTarget.OnClick := MenuItemTargetClick();
   end;
 end;