Changeset 533 for DpiControls/Demo/UDpiForm.pas

Timestamp:

May 26, 2019, 7:33:14 PM (5 years ago)

Author:

chronos

Message:

• Added: TDpiImage control.

Location:

DpiControls

Files:

• . (modified) (1 prop)
• Demo (modified) (1 prop)
• Demo/UDpiForm.pas (modified) (2 diffs)

DpiControls/Demo/UDpiForm.pas

@@ -34 +34 @@
 var
   DpiButton: TDpiButton;
+  DpiImage: TDpiImage;
 begin
   DpiButton := TDpiButton.Create(DpiForm1);
@@ -41 +42 @@
   DpiButton.Visible := True;
   DpiButton1.Parent := Self;
+
+  DpiImage := TDpiImage.Create(DpiForm1);
+  DpiImage.Parent := DpiForm1;
+  DpiImage.SetBounds(150, 10, 100, 100);
+  DpiImage.Visible := True;
+  DpiImage.Stretch := True;
+  DpiImage.VclImage.Picture.LoadFromFile('dance.jpg');
 end;