как перерисовать экран

← →
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: как всегда забыл в хелп глянуть :)

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