Changeset 531 for trunk/Packages/CevoComponents/ButtonN.pas

Timestamp:

Mar 27, 2024, 12:31:14 PM (8 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/Packages/CevoComponents/ButtonN.pas (modified) (2 diffs)

trunk/Packages/CevoComponents/ButtonN.pas

@@ -20 +20 @@
     procedure SetIndex(X: Integer);
     procedure SetSmartHint(X: string);
+  protected
+    procedure Paint; override;
+    procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
+      X, Y: Integer); override;
   published
     property Possible: Boolean read FPossible write SetPossible;
@@ -29 +33 @@
     property ButtonIndex: Integer read FIndex write SetIndex;
     property OnClick: TNotifyEvent read ChangeProc write ChangeProc;
-  protected
-    procedure Paint; override;
-    procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
-      X, Y: Integer); override;
   end;