Разрешение экрана

[Пепел Феникса]

в Дельфи есть такая вещь как Якоря(Anchors) попробуй их

[Копоть Артём]

Здрав! Тут ещё одим мент инттересен. Как установить НУЖНОЕ[U] разрешение? там 1280 на 1024, 256 цветов?

[uberchel]

Вот :

procedure ChangeDisplayResolution(x, y, dept: word);
var
  dm: TDEVMODE;
begin
  ZeroMemory(@dm, sizeof(TDEVMODE));
  dm.dmSize := sizeof(TDEVMODE);
  dmBitsPerPel:= dept;
  dm.dmPelsWidth := x;
  dm.dmPelsHeight := y;
  dm.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
  ChangeDisplaySettings(dm, 0);
end;

[Копоть Артём]

Привет! Процедура классная, работает, спасибо! Но мучает один момент - как после окончания работы программы вернуть "родное" разрешение? Какое было?

[netrino]

Сохраняешь его перед изменением, а потом этой же процедурой меняешь на то, какое было
Получить текущее можно например через GetSystemMetrics():

   x := GetSystemMetrics(SM_CXSCREEN);
   y := GetSystemMetrics(SM_CYSCREEN);

Или через EnumDisplaySettings(), которая использует ту же структуру, что и в процедуре, которую вы используете для изменения разрешения:

var
   dm : TDEVMODE;
...
EnumDisplaySettings(0, ENUM_CURRENT_SETTINGS, dm);

[DomiNick]

Ну е-маё.....
Я ж давал сылку:
> Полноэкранный режим <