Changeset 463 for branches/highdpi/Packages/CevoComponents/ButtonB.pas

Timestamp:

Nov 29, 2023, 2:35:44 PM (6 months ago)

Author:

chronos

Message:

• Modified: HighDpi branch updated to trunk version.

File:

• branches/highdpi/Packages/CevoComponents/ButtonB.pas (modified) (3 diffs)

branches/highdpi/Packages/CevoComponents/ButtonB.pas

@@ -11 +11 @@
   private
     FMask: TDpiBitmap;
-    FIndex: integer;
-    procedure SetIndex(Text: integer);
+    FIndex: Integer;
+    procedure SetIndex(Text: Integer);
   public
     property Mask: TDpiBitmap read FMask write FMask;
   published
     property Visible;
-    property ButtonIndex: integer read FIndex write SetIndex;
+    property ButtonIndex: Integer read FIndex write SetIndex;
     property OnClick;
   protected
@@ -47 +47 @@
   with Canvas do
     if FGraphic <> nil then begin
-      DpiBitCanvas(Canvas, 0, 0, 25, 25, FGraphic.Canvas, 169,
+      DpiBitBltCanvas(Canvas, 0, 0, 25, 25, FGraphic.Canvas, 169,
         243 + 26 * Byte(FDown));
       if FIndex >= 0 then begin
-        DpiBitCanvas(Canvas, 0, 0, 25, 25, FMask.Canvas,
+        DpiBitBltCanvas(Canvas, 0, 0, 25, 25, FMask.Canvas,
           1 + FIndex mod 12 * 26, 337 + FIndex div 12 * 26, SRCAND);
-        DpiBitCanvas(Canvas, 0, 0, 25, 25, FGraphic.Canvas,
+        DpiBitBltCanvas(Canvas, 0, 0, 25, 25, FGraphic.Canvas,
           1 + FIndex mod 12 * 26, 337 + FIndex div 12 * 26, SRCPAINT);
-      end
+      end;
     end else begin
       Brush.Color := $0000FF;
@@ -61 +61 @@
 end;
 
-procedure TButtonB.SetIndex(Text: integer);
+procedure TButtonB.SetIndex(Text: Integer);
 begin
   if Text <> FIndex then begin