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

Timestamp:

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

Author:

chronos

Message:

• Modified: HighDpi branch updated to trunk version.

File:

• branches/highdpi/Packages/CevoComponents/ButtonA.pas (modified) (2 diffs)

branches/highdpi/Packages/CevoComponents/ButtonA.pas

@@ -46 +46 @@
   with Canvas do
     if FGraphic <> nil then begin
-      DpiBitCanvas(Canvas, 0, 0, 100, 25, Graphic.Canvas, 195,
+      DpiBitBltCanvas(Canvas, 0, 0, 100, 25, Graphic.Canvas, 195,
         243 + 26 * Byte(Down));
       Canvas.Brush.Style := bsClear;
@@ -54 +54 @@
     end else begin
       Brush.Color := $0000FF;
-      FrameRect(Rect(0, 0, 100, 25))
+      FrameRect(Rect(0, 0, 100, 25));
     end;
 end;