Changeset 210 for branches/highdpi/Packages/CevoComponents/ButtonC.pas

Timestamp:

May 9, 2020, 4:02:07 PM (4 years ago)

Author:

chronos

Message:

• Modified: Improved HighDPI branch. Imported new changes from trunk branch.

File:

• branches/highdpi/Packages/CevoComponents/ButtonC.pas (modified) (4 diffs)

branches/highdpi/Packages/CevoComponents/ButtonC.pas

@@ -4 +4 @@
 
 uses
-  ButtonBase, Classes, Graphics, LCLIntf, LCLType, UDpiControls;
+  UDpiControls, ButtonBase, Classes, Graphics, LCLIntf, LCLType, ScreenTools;
 
 type
@@ -11 +11 @@
   private
     FIndex: Integer;
-    procedure SetIndex(x: Integer);
+    procedure SetIndex(Text: Integer);
   published
     property Visible;
@@ -22 +22 @@
 procedure Register;
 
+
 implementation
 
 procedure Register;
 begin
-  RegisterComponents('Samples', [TButtonC]);
+  RegisterComponents('C-evo', [TButtonC]);
 end;
 
@@ -40 +41 @@
   with Canvas do
     if FGraphic <> nil then
-      DpiBitBlt(Canvas.Handle, 0, 0, 12, 12, FGraphic.Canvas.Handle,
-        169 + 13 * Byte(FDown), 159 + 13 * FIndex, SRCCOPY)
+      DpiBitCanvas(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))
-    end
+    end;
 end;
 
-procedure TButtonC.SetIndex(x: integer);
+procedure TButtonC.SetIndex(Text: integer);
 begin
-  if x <> FIndex then
+  if Text <> FIndex then
   begin
-    FIndex := x;
+    FIndex := Text;
     Invalidate;
   end;