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

trunk/Forms/FormCharts.pas

@@ -12 +12 @@
 
   TFormCharts = class(TFormEx)
+    ButtonClose: TButton;
     Chart1: TChart;
     ComboBox1: TComboBox;
+    procedure ButtonCloseClick(Sender: TObject);
     procedure ComboBox1Change(Sender: TObject);
     procedure FormShow(Sender: TObject);
@@ -44 +46 @@
 begin
   Redraw;
+end;
+
+procedure TFormCharts.ButtonCloseClick(Sender: TObject);
+begin
+  Close;
 end;