Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.05;
Скачать: 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 вся ветка

Текущий архив: 2003.06.05;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.02 c
1-13175
zeppelin
2003-05-26 16:40
2003.06.05
Поиск в TList


3-13027
vil
2003-05-16 13:59
2003.06.05
OPENROWSET


1-13253
Gremlin
2003-05-15 09:17
2003.06.05
Еще раз об Exсel e


14-13395
Dmitriy O.
2003-05-16 09:35
2003.06.05
Организация хранения кода


14-13418
Andrew R2D2
2003-05-18 14:26
2003.06.05
Кто пользуется FMOD - проконсультируйте :)