Показать сообщение отдельно
  #1  
Старый 03.07.2018, 22:07
nixon232 nixon232 вне форума
Активный
 
Регистрация: 26.01.2014
Сообщения: 282
Версия Delphi: delphi xe4
Репутация: выкл
По умолчанию Некорректное определение разрешения рабочего стола

Началось все с того, что на ноутбуке, с заявленным разрешением, 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 - проблема как таковая ушла, но как тогда сделать корректный скрин окна при масштабировании?
Ответить с цитированием