Началось все с того, что на ноутбуке, с заявленным разрешением, FHD
некорректно работает такой код:
Код:
h := WindowFromPoint(Mouse.CursorPos);
SetForegroundWindow(h);
GetWindowRect(h, r);
bit := CaptureScreenRect(r);
OrigBMP.Assign(bit);
bit.SaveToFile(ExtractFilePath(ParamStr(0)) + 'xxx.BMP');
Код:
function CaptureScreenRect( ARect: TRect )
: TBitmap;
var
ScreenDC: HDC;
begin
Result := TBitmap.Create;
Result.Width := ARect.Right - ARect.Left;
Result.Height := ARect.Bottom - ARect.Top;
ScreenDC := GetDC( 0 );
try
BitBlt ( Result.Canvas.Handle, 0, 0, Result.Width,
Result.Height, ScreenDC,
ARect.Left, ARect.Top, SRCCOPY );
finally
// Result.SaveToFile('d:\1.bmp');
ReleaseDC( 0, ScreenDC );
end;
end;
Имеем в итоге картинку
такую
1.BMP
Меняем разрешение с 1920х1080 на 1600х900 и картинка в норме
2.BMP
В итоге решил проверить разрешениие
Код:
for m := 0 to Screen.MonitorCount - 1 do
with Screen.Monitors[m] do
Format('%d : Monitor %d x %d, Scale: %d', [m+ 1, width, height, PixelsPerInch]);
в корректном случае
Цитата:
1 : Monitor 1600 x 900, Scale: 96
|
в проблемном (при 1920 х1080
Цитата:
1 : Monitor 1536 x 864, Scale: 96
|
Потом думаю дай гляну масштабирование, оно оказалось нифига не 100, а 125, хотя по логу Scale 96 в обоих случаях. Откатил до 100 - проблема как таковая ушла, но как тогда сделать корректный скрин окна при масштабировании?