Changeset 554 for trunk/Messg.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/Messg.pas (modified) (2 diffs)

trunk/Messg.pas

@@ -25 +25 @@
     procedure Button1Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
-    procedure FormKeyPress(Sender: TObject; var Key: char);
+    procedure FormKeyPress(Sender: TObject; var Key: Char);
   public
     Kind: TMessageKind;
@@ -93 +93 @@
 end;
 
-procedure TMessgDlg.FormKeyPress(Sender: TObject; var Key: char);
+procedure TMessgDlg.FormKeyPress(Sender: TObject; var Key: Char);
 begin
   if Key = #13 then