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

branches/highdpi/Packages/CevoComponents/Area.pas

@@ -4 +4 @@
 
 uses
-  Classes, Graphics, Controls, UDpiControls;
+  UDpiControls, Classes, Graphics, Controls;
 
 type
@@ -20 +20 @@
 procedure Register;
 begin
-  RegisterComponents('Samples', [TArea]);
+  RegisterComponents('C-evo', [TArea]);
 end;
 
@@ -36 +36 @@
       begin
         Brush.Color := $FF0000;
-        FrameRect(Rect(0, 0, width, height));
+        FrameRect(Rect(0, 0, Width, Height));
       end;
 end;