Changeset 630 for trunk/Packages

Timestamp:

Oct 6, 2024, 10:50:51 AM (7 weeks ago)

Author:

chronos

Message:

• Fixed: Invalidated rectangle in AI tournament was not properly scaled.

File:

• trunk/Packages/DpiControls/Dpi.Common.pas (modified) (2 diffs)

trunk/Packages/DpiControls/Dpi.Common.pas

@@ -38 +38 @@
 procedure WriteLog(Text: string);
 function GetSystemMetrics(nIndex: Integer): Integer;
+function InvalidateRect(AHandle: HWND; ARect: PRect; BErase: Boolean): Boolean;
 
 resourcestring
@@ -311 +312 @@
 end;
 
+function InvalidateRect(AHandle: HWND; ARect: PRect; BErase: Boolean): Boolean;
+var
+  NativeRect: TRect;
+begin
+  NativeRect := ScaleRectToNative(ARect^);
+  Result := LCLIntf.InvalidateRect(AHandle, @NativeRect, BErase);
+end;
+
 function BitBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; XSrc,
   YSrc: Integer; Rop: DWORD = SRCCOPY): Boolean;