Changeset 362 for trunk/Forms/FormUnitMoves.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/Forms/FormUnitMoves.pas (modified) (3 diffs)

trunk/Forms/FormUnitMoves.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  FormEx, Game;
+  StdCtrls, FormEx, Game;
 
 type
@@ -12 +12 @@
 
   TFormUnitMoves = class(TFormEx)
+    ButtonClose: TButton;
     ListView1: TListView;
+    procedure ButtonCloseClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure ListView1Data(Sender: TObject; Item: TListItem);
@@ -48 +50 @@
 end;
 
+procedure TFormUnitMoves.ButtonCloseClick(Sender: TObject);
+begin
+  Close;
+end;
+
 procedure TFormUnitMoves.ReloadList;
 begin