Changeset 554 for trunk/LocalPlayer/MessgEx.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

• trunk/LocalPlayer/MessgEx.pas (modified) (2 diffs)

trunk/LocalPlayer/MessgEx.pas

@@ -30 +30 @@
     procedure Button2Click(Sender: TObject);
     procedure Button3Click(Sender: TObject);
-    procedure FormKeyPress(Sender: TObject; var Key: char);
+    procedure FormKeyPress(Sender: TObject; var Key: Char);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure RemoveBtnClick(Sender: TObject);
@@ -474 +474 @@
 end;
 
-procedure TMessgExDlg.FormKeyPress(Sender: TObject; var Key: char);
+procedure TMessgExDlg.FormKeyPress(Sender: TObject; var Key: Char);
 begin
   if Key = #13 then