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

trunk/Forms/FormPlayersStats.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  Menus, ActnList, Game, ListViewSort, FormEx, Player;
+  Menus, ActnList, StdCtrls, Game, ListViewSort, FormEx, Player;
 
 type
@@ -14 +14 @@
     ASpectate: TAction;
     ActionList1: TActionList;
+    ButtonClose: TButton;
     ListView1: TListView;
     ListViewSort1: TListViewSort;
@@ -19 +20 @@
     PopupMenu1: TPopupMenu;
     procedure ASpectateExecute(Sender: TObject);
+    procedure ButtonCloseClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure ListView1Data(Sender: TObject; Item: TListItem);
@@ -95 +97 @@
 end;
 
+procedure TFormPlayersStats.ButtonCloseClick(Sender: TObject);
+begin
+  Close;
+end;
+
 procedure TFormPlayersStats.ReloadList;
 begin