Changeset 630 for trunk

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk

Files:

• NoTerm.pas (modified) (1 diff)
• Packages/DpiControls/Dpi.Common.pas (modified) (2 diffs)

trunk/NoTerm.pas

@@ -7 +7 @@
   ScreenTools, Protocol, Messg, LCLIntf, LCLType, DateUtils, Platform,
   SysUtils, Classes, ButtonB, DrawDlg,
-  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms, System.UITypes{$ELSE}
+  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms, Dpi.Common, System.UITypes{$ELSE}
   Graphics, Controls, Forms{$ENDIF};
 

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;