Changeset 554 for trunk/Start.pas

Timestamp:

Apr 24, 2024, 11:19:11 AM (4 weeks ago)

Author:

chronos

Message:

• Added: TButtonG class as a button class component referencing TGraphicSet item.
• Modified: Code cleanup.

File:

• trunk/Start.pas (modified) (2 diffs)

trunk/Start.pas

@@ -60 +60 @@
     ReplayBtn: TButtonB;
     procedure ListKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
-    procedure ListKeyPress(Sender: TObject; var Key: char);
+    procedure ListKeyPress(Sender: TObject; var Key: Char);
     procedure StartBtnClick(Sender: TObject);
     procedure FormPaint(Sender: TObject);
@@ -1063 +1063 @@
 end;
 
-procedure TStartDlg.ListKeyPress(Sender: TObject; var Key: char);
+procedure TStartDlg.ListKeyPress(Sender: TObject; var Key: Char);
 begin
   if Key = #13 then StartBtnClick(Sender);