Changeset 431 for trunk/Packages/CevoComponents/ButtonBase.pas

Timestamp:

Apr 28, 2022, 10:40:37 PM (2 years ago)

Author:

chronos

Message:

• Modified: Changed WindowMode numerical constants to enumeration.

File:

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

trunk/Packages/CevoComponents/ButtonBase.pas

@@ -9 +9 @@
   TButtonBase = class(TGraphicControl)
   protected
-    FDown, FPermanent: boolean;
+    FDown: Boolean;
+    FPermanent: Boolean;
     FGraphic: TBitmap;
     // FDownSound, FUpSound: string;
@@ -59 +60 @@
 begin
   Active := true;
-  MouseMove(Shift, x, y)
+  MouseMove(Shift, x, y);
 end;
 
@@ -93 +94 @@
         DownChangedProc(self);
     end;
-  end
+  end;
 end;