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

Timestamp:

Jun 23, 2019, 3:15:29 PM (5 years ago)

Author:

chronos

Message:

• Modified: Use DpiControls package for High DPI support.

File:

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

branches/highdpi/Packages/CevoComponents/ButtonA.pas

@@ -5 +5 @@
 uses
   ButtonBase,
-  Classes, Graphics, LCLIntf, LCLType;
+  Classes, Graphics, LCLIntf, LCLType, UDpiControls;
 
 type
@@ -13 +13 @@
     FCaption: string;
     procedure SetCaption(x: string);
-    procedure SetFont(const x: TFont);
+    procedure SetFont(const x: TDpiFont);
   published
     property Visible;
@@ -19 +19 @@
     property OnClick;
   public
-    property Font: TFont write SetFont;
+    property Font: TDpiFont write SetFont;
   protected
     procedure Paint; override;
@@ -30 +30 @@
 procedure Register;
 begin
-  RegisterComponents('C-evo', [TButtonA]);
+  RegisterComponents('Samples', [TButtonA]);
 end;
 
@@ -43 +43 @@
 begin
   with Canvas do
-    if FGraphic <> nil then
-    begin
-      BitBlt(Canvas.Handle, 0, 0, 100, 25, Graphic.Canvas.Handle, 195,
+    if FGraphic <> nil then begin
+      DpiBitBlt(Canvas.Handle, 0, 0, 100, 25, Graphic.Canvas.Handle, 195,
         243 + 26 * Byte(Down), SRCCOPY);
       Canvas.Brush.Style := bsClear;
-      Textout(50 - (TextWidth(FCaption) + 1) div 2, 12 - textheight(FCaption)
+      TextOut(50 - (TextWidth(FCaption) + 1) div 2, 12 - TextHeight(FCaption)
         div 2, FCaption);
-    end
-    else
-    begin
+    end else begin
       Brush.Color := $0000FF;
       FrameRect(Rect(0, 0, 100, 25))
@@ -67 +64 @@
 end;
 
-procedure TButtonA.SetFont(const x: TFont);
+procedure TButtonA.SetFont(const x: TDpiFont);
 begin
   Canvas.Font.Assign(x);