Changeset 184 for trunk/Packages/CevoComponents/ButtonB.pas

Timestamp:

May 4, 2020, 10:24:23 PM (4 years ago)

Author:

chronos

Message:

• Modified: Code formatting.

File:

• trunk/Packages/CevoComponents/ButtonB.pas (modified) (6 diffs)

trunk/Packages/CevoComponents/ButtonB.pas

@@ -4 +4 @@
 
 uses
-  ButtonBase,
-  Classes, Graphics, LCLIntf, LCLType;
+  ButtonBase, Classes, Graphics, LCLIntf, LCLType;
 
 type
@@ -13 +12 @@
     FMask: TBitmap;
     FIndex: integer;
-    procedure SetIndex(x: integer);
+    procedure SetIndex(Text: integer);
   public
     property Mask: TBitmap read FMask write FMask;
@@ -26 +25 @@
 procedure Register;
 
+
 implementation
 
@@ -36 +36 @@
 begin
   inherited Create(aOwner);
-  ShowHint := true;
+  ShowHint := True;
   SetBounds(0, 0, 25, 25);
 end;
@@ -43 +43 @@
 begin
   with Canvas do
-    if FGraphic <> nil then
-    begin
+    if FGraphic <> nil then begin
       BitBlt(Canvas.Handle, 0, 0, 25, 25, FGraphic.Canvas.Handle, 169,
         243 + 26 * Byte(FDown), SRCCOPY);
-      if FIndex >= 0 then
-      begin
+      if FIndex >= 0 then begin
         BitBlt(Canvas.Handle, 0, 0, 25, 25, FMask.Canvas.Handle,
           1 + FIndex mod 12 * 26, 337 + FIndex div 12 * 26, SRCAND);
@@ -54 +52 @@
           1 + FIndex mod 12 * 26, 337 + FIndex div 12 * 26, SRCPAINT);
       end
-    end
-    else
-    begin
+    end else begin
       Brush.Color := $0000FF;
-      FrameRect(Rect(0, 0, 25, 25))
-    end
+      FrameRect(Rect(0, 0, 25, 25));
+    end;
 end;
 
-procedure TButtonB.SetIndex(x: integer);
+procedure TButtonB.SetIndex(Text: integer);
 begin
-  if x <> FIndex then
-  begin
-    FIndex := x;
-    Invalidate
-  end
+  if Text <> FIndex then begin
+    FIndex := Text;
+    Invalidate;
+  end;
 end;