Changeset 155 for trunk/Forms/FormKeyShortcuts.pas

Timestamp:

Aug 16, 2024, 9:51:02 AM (5 weeks ago)

Author:

chronos

Message:

• Modified: Show action icons in key shortcuts form.

File:

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

trunk/Forms/FormKeyShortcuts.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
-  ComCtrls, ActnList, LCLProc, Menus, FormEx, Generics.Collections;
+  ComCtrls, ActnList, LCLProc, Menus, FormEx, Generics.Collections, ImgList;
 
 type
@@ -19 +19 @@
     procedure FormShow(Sender: TObject);
     procedure MenuItem1Click(Sender: TObject);
+  private
+    function GetImageList: TCustomImageList;
+    procedure SetImageList(AValue: TCustomImageList);
   public
     SourceComponents: TObjectList<TComponent>;
+    MainForm: TForm;
     procedure LoadFromComponent(C: TComponent);
+    property ImageList: TCustomImageList read GetImageList write SetImageList;
   end;
 
@@ -27 +32 @@
 implementation
 
-uses
-  FormMain;
+{$R *.lfm}
 
 resourcestring
@@ -67 +71 @@
 end;
 
+function TFormKeyShortcuts.GetImageList: TCustomImageList;
+begin
+  Result := ListView1.SmallImages;
+end;
+
+procedure TFormKeyShortcuts.SetImageList(AValue: TCustomImageList);
+begin
+  ListView1.SmallImages := AValue
+end;
+
 procedure TFormKeyShortcuts.LoadFromComponent(C: TComponent);
 var
@@ -84 +98 @@
           NewItem.Data := TAction(Actions[I]);
           with NewItem.SubItems do begin
-            if C.Owner is TFormMain then Add(SMainForm)
+            if C.Owner = MainForm then Add(SMainForm)
             else if C.Owner is TDataModule then Add(SGlobal)
             else if C.Owner is TForm then Add(TForm(C.Owner).Caption)
@@ -96 +110 @@
 end;
 
-initialization
-  {$I FormKeyShortcuts.lrs}
-
 end.