Changeset 463 for branches/highdpi/Packages/CevoComponents/ButtonC.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/ButtonC.pas (modified) (2 diffs)

branches/highdpi/Packages/CevoComponents/ButtonC.pas

@@ -14 +14 @@
   published
     property Visible;
-    property ButtonIndex: integer read FIndex write SetIndex;
+    property ButtonIndex: Integer read FIndex write SetIndex;
     property OnClick;
   protected
@@ -41 +41 @@
   with Canvas do
     if FGraphic <> nil then
-      DpiBitCanvas(Canvas, 0, 0, 12, 12, FGraphic.Canvas,
+      DpiBitBltCanvas(Canvas, 0, 0, 12, 12, FGraphic.Canvas,
         169 + 13 * Byte(FDown), 159 + 13 * FIndex)
     else
     begin
       Brush.Color := $0000FF;
-      FrameRect(Rect(0, 0, 12, 12))
+      FrameRect(Rect(0, 0, 12, 12));
     end;
 end;
 
-procedure TButtonC.SetIndex(Text: integer);
+procedure TButtonC.SetIndex(Text: Integer);
 begin
   if Text <> FIndex then