Changeset 179 for branches/highdpi/Packages/DpiControls/UDpiControls.pas

Timestamp:

Jun 23, 2019, 9:12:54 PM (5 years ago)

Author:

chronos

Message:

• Modified: Improved scaling support.

File:

• branches/highdpi/Packages/DpiControls/UDpiControls.pas (modified) (4 diffs)

branches/highdpi/Packages/DpiControls/UDpiControls.pas

@@ -258 +258 @@
   public
     VclCanvas: TCanvas;
+    procedure StretchDraw(const DestRect: TRect; SrcGraphic: TDpiGraphic); virtual;
     procedure FrameRect(Rect: TRect);
     procedure Rectangle(X1, Y1, X2, Y2: Integer);
@@ -709 +710 @@
 procedure Register;
 function DpiBitBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; XSrc, YSrc: Integer; Rop: DWORD): Boolean;
+function DpiCreateRectRgn(X1, Y1, X2, Y2: Integer): HRGN;
+function ScaleToVcl(Value: Integer): Integer;
+function ScaleFromVcl(Value: Integer): Integer;
+function ScalePointToVcl(Value: TPoint): TPoint;
+function ScalePointFromVcl(Value: TPoint): TPoint;
+function ScaleSizeToVcl(Value: TSize): TSize;
+function ScaleSizeFromVcl(Value: TSize): TSize;
+function ScaleRectToVcl(Value: TRect): TRect;
+function ScaleRectFromVcl(Value: TRect): TRect;
 
 
@@ -723 +733 @@
   RegisterProjectFileDescriptor(DpiFormFileDesc);
   RegisterComponents('DpiControls', [TDpiButton, TDpiImage, TDpiPaintBox, TDpiListBox]);
+end;
+
+function DpiCreateRectRgn(X1, Y1, X2, Y2: Integer): HRGN;
+begin
+  Result := CreateRectRgn(ScaleToVcl(X1), ScaleToVcl(Y1), ScaleToVcl(X2),
+    ScaleToVcl(Y2));
 end;
 
@@ -1465 +1481 @@
 end;
 
+procedure TDpiCanvas.StretchDraw(const DestRect: TRect; SrcGraphic: TDpiGraphic
+  );
+begin
+  GetVclCanvas.StretchDraw(ScaleRectToVcl(DestRect), SrcGraphic.GetVclGraphic);
+end;
+
 procedure TDpiCanvas.FrameRect(Rect: TRect);
 begin