Главная страница
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.018 c
14-13386
nick-from
2003-05-16 20:31
2003.06.05
Заправка картриджа: Panasonic KX-FT21RS


14-13393
Maximov
2003-05-17 10:17
2003.06.05
Поиск неработает? Или это только у меня глюки?


14-13421
Spartak
2003-05-19 07:50
2003.06.05
Проблема с написанием сервиса


3-13045
Silver_
2003-05-16 16:46
2003.06.05
нельзя редактировать Detail5ADODataSet 5-го(!) уровня почему?


14-13448
Zergling
2003-05-20 06:09
2003.06.05
MSDN