Скачать: CL | DM;

как перерисовать экран   Найти похожие ветки 

← →
Mihan ©   (2003-02-22 17:28) [0]

Подскажите как мне перерисовать экран. А то после того как я сменил разрешение экрана, как-то коряво все выглядит :((

---

← →
Song ©   (2003-02-22 18:13) [1]

Как менял?

---

← →
Mihan ©   (2003-02-23 05:52) [2]

Вот этой процедурой.

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-23 09:57) [3]

Забыл CDS_UPDATEREGISTRY

---

← →
Mihan ©   (2003-02-24 06:31) [4]

Спасибо большое!
PS: как всегда забыл в хелп глянуть :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c