Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Рабочий стол
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

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


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 22:15.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter