Авторизация

Логин: Пароль:
Регистрация Забыли свой пароль?

Узнать разрешение экрана

Страницы: 1
Узнать разрешение экрана
#1
22.06.2010 17:30:08
Как можно узнать разрешение экрана в дельфи?
 
 
#2
22.06.2010 17:31:50
С помощью Screen'а:
Код
var 
ScreenH: Integer;
ScreenW: Integer;

begin
    ScreenH := Screen.Height;
    ScreenW := Screen.Width;
end;
 
 
#3
11.11.2010 06:17:20
О. Спасибо... smile:D
 
 
#4
14.12.2010 10:27:08
А если несколько мониторов????? smile8)
Cyber
 
 
#5
14.12.2010 10:33:21
А вот так его даже можно поменять(разрешение):

procedure ChangeDisplayResolution(x, y : word);
var
dm : TDEVMODE;
begin
ZeroMemory(@dm, sizeof(TDEVMODE));
dm.dmSize := sizeof(TDEVMODE);
dm.dmPelsWidth := x;
dm.dmPelsHeight := y;
dm.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
ChangeDisplaySettings(dm, 0);
end;
Cyber
 
 
#6
25.12.2010 20:45:11
Цитата
rozpants пишет:
С помощью Screen'а:
Код
var 
ScreenH: Integer;
ScreenW: Integer;

begin
    ScreenH := Screen.Height;
    ScreenW := Screen.Width;
end;

Все так просто) И полезно кстати для программ.
 
 
#7
30.12.2010 13:55:37
Цитата
И полезно кстати для программ

Процедура автоматического масштабирования формы под разрешение экрана
Код
procedure AdjustResolution(oForm:TForm);
var
  iPercentage:integer;
begin
  if Screen.Width > 640 then
  begin
    iPercentage:=Round(((Screen.Width-640)/640)*100)+100;
    oForm.ScaleBy(iPercentage,100);
  end;
end;
Изменено: Valera - 30.12.2010 13:56:02
 
 
#8
30.12.2010 13:57:32
К стати в WPF кажется формы автоматом масштабируются под разрешение экрана smile;)
 
 
 
Страницы: 1
Читают тему (гостей: 1, пользователей: 0, из них скрытых: 0)