Changeset 48 for trunk/Target/UTarget.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/Target/UTarget.pas (modified) (4 diffs)

trunk/Target/UTarget.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, StrUtils, Registry, URegistry, SpecializedList, Dialogs,
-  FileUtil, Process;
+  FileUtil, Process, Menus;
 
 type
@@ -86 +86 @@
     Name: string;
     ProgramName: string;
+    ImageIndex: Integer;
     Optimization: TCompilerOptimization;
     CompilerPath: string;
@@ -126 +127 @@
     procedure SaveToRegistry(Root: HKEY; Key: string);
     function FindByName(Name: string): TTarget;
+    procedure LoadToMenuItem(MenuItem: TMenuItem; Action: TNotifyEvent;
+      CurrentTarget: TTarget);
   end;
 
@@ -286 +289 @@
   if I < Count then Result := TTarget(Items[I])
     else Result := nil;
+end;
+
+procedure TTargetList.LoadToMenuItem(MenuItem: TMenuItem; Action: TNotifyEvent
+  ; CurrentTarget: TTarget);
+var
+  NewMenuItem: TMenuItem;
+  I: Integer;
+begin
+  if Assigned(MenuItem) then begin
+    MenuItem.Clear;
+    for I := 0 to Count - 1 do begin
+      NewMenuItem := TMenuItem.Create(MenuItem);
+      NewMenuItem.Caption := TTarget(Items[I]).Name;
+      NewMenuItem.OnClick := Action;
+      NewMenuItem.ImageIndex := TTarget(Items[I]).ImageIndex;
+      if TTarget(Items[I]) = CurrentTarget then NewMenuItem.Checked := True;
+      MenuItem.Add(NewMenuItem);
+    end;
+  end;
 end;