Changeset 362 for trunk/Packages/Common/Forms/FormKeyShortcuts.pas

Timestamp:

Dec 31, 2024, 1:15:01 PM (8 days ago)

Author:

chronos

Message:

• Added: Close button on more forms for better touch screen devices support.

File:

• trunk/Packages/Common/Forms/FormKeyShortcuts.pas (modified) (5 diffs)

trunk/Packages/Common/Forms/FormKeyShortcuts.pas

@@ -13 +13 @@
 
   TFormKeyShortcuts = class(TFormEx)
+    ButtonClose: TButton;
     ListView1: TListView;
     ListViewSort1: TListViewSort;
     MenuItem1: TMenuItem;
     PopupMenu1: TPopupMenu;
+    procedure ButtonCloseClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -25 +27 @@
     procedure MenuItem1Click(Sender: TObject);
   private
-    function GetImageList: TCustomImageList;
-    procedure SetImageList(AValue: TCustomImageList);
+    function GetImages: TCustomImageList;
+    procedure SetImages(AValue: TCustomImageList);
   public
     SourceComponents: TObjectList<TComponent>;
     MainForm: TForm;
     procedure LoadFromComponent(C: TComponent);
-    property ImageList: TCustomImageList read GetImageList write SetImageList;
+    property Images: TCustomImageList read GetImages write SetImages;
   end;
 
@@ -49 +51 @@
   SShortcut = 'Shortcut';
   SKeyShortcuts = 'Key shortcuts';
+  SClose = 'Close';
 
 { TFormKeyShortcuts }
@@ -105 +108 @@
 end;
 
+procedure TFormKeyShortcuts.ButtonCloseClick(Sender: TObject);
+begin
+  Close;
+end;
+
 procedure TFormKeyShortcuts.FormDestroy(Sender: TObject);
 begin
@@ -116 +124 @@
 end;
 
-function TFormKeyShortcuts.GetImageList: TCustomImageList;
+function TFormKeyShortcuts.GetImages: TCustomImageList;
 begin
   Result := ListView1.SmallImages;
 end;
 
-procedure TFormKeyShortcuts.SetImageList(AValue: TCustomImageList);
+procedure TFormKeyShortcuts.SetImages(AValue: TCustomImageList);
 begin
   ListView1.SmallImages := AValue;