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

Timestamp:

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

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/Packages/CevoComponents/EOTButton.pas (modified) (3 diffs)

trunk/Packages/CevoComponents/EOTButton.pas

@@ -17 +17 @@
   // EndOfTurn button
   TEOTButton = class(TButtonBase)
+  private
+    FTemplate: TBitmap;
+    FIndex: Integer;
+    procedure SetIndex(X: Integer);
+  protected
+    Buffer, Back: TBitmap;
+    procedure Paint; override;
   public
     constructor Create(aOwner: TComponent); override;
@@ -22 +29 @@
     procedure SetButtonIndexFast(X: Integer);
     procedure SetBack(Canvas: TCanvas; X, Y: Integer);
-  private
-    FTemplate: TBitmap;
-    FIndex: Integer;
-    procedure SetIndex(X: Integer);
-  public
     property Template: TBitmap read FTemplate write FTemplate;
   published
@@ -32 +34 @@
     property ButtonIndex: Integer read FIndex write SetIndex;
     property OnClick;
-  protected
-    Buffer, Back: TBitmap;
-    procedure Paint; override;
   end;