Changeset 178 for branches/highdpi/Packages/CevoComponents/Area.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/Area.pas (modified) (3 diffs)

branches/highdpi/Packages/CevoComponents/Area.pas

@@ -4 +4 @@
 
 uses
-  Classes, Graphics, Controls;
+  Classes, Graphics, Controls, UDpiControls;
 
 type
-  TArea = class(TGraphicControl)
+  TArea = class(TDpiGraphicControl)
     constructor Create(AOwner: TComponent); override;
   protected
@@ -20 +20 @@
 procedure Register;
 begin
-  RegisterComponents('C-evo', [TArea]);
+  RegisterComponents('Samples', [TArea]);
 end;
 
@@ -26 +26 @@
 begin
   inherited;
-  Enabled := false;
-  ShowHint := true;
+  Enabled := False;
+  ShowHint := True;
 end;