| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
как перерисовать экран
Mihan © (2003-02-22 17:28:00)Подскажите как мне перерисовать экран. А то после того как я сменил разрешение экрана, как-то коряво все выглядит :((
Mihan (2003-02-24 06:31:00) [1]Спасибо большое!
PS: как всегда забыл в хелп глянуть :)
Song (2003-02-23 09:57:00) [2]Забыл CDS_UPDATEREGISTRY
Mihan (2003-02-23 05:52:00) [3]Вот этой процедурой.
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;
Установка разрешения 800*600:
procedure TForm1.Button1Click(Sender: TObject);
begin
ChangeDisplayResolution(800,600);
end;
Song (2003-02-22 18:13:00) [4]Как менял?
| |
