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

Как грамотно переключаться в другой режим?   Найти похожие ветки 

← →
Свич   (2005-08-22 01:14) [0]

Как переключиться в режим 800*600, я знаю. Но дело в том, что когда в этом режиме, я хочу временно переключиться на Виндос, то у меня сохраняется всё тот же режим 800*600, а не тот который был до запуска программы. Как бы мне это поправить?

---

← →
grouzd[E]v ©   (2005-08-22 14:33) [1]

//поставить (ширина, высота, глубина цвета)
function SetFullscreenMode(width, height, color_depth : integer) : Boolean;
var
 DeviceMode : TDevMode;
begin
with DeviceMode do
 begin
   dmSize := SizeOf(DeviceMode);
   dmBitsPerPel := color_depth;
   dmPelsWidth := width;
   dmPelsHeight := height;
   dmFields := DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT;
   Result := ChangeDisplaySettings(DeviceMode,CDS_FULLSCREEN) = DISP_CHANGE_SUCCESSFUL;
   if Result then ScreenModeChanged := True;
 end;
end;

/вернуть
procedure RestoreDefaultMode;
var
DeviceMode : TDevMode absolute 0;
begin
ChangeDisplaySettings(DeviceMode, CDS_FULLSCREEN);
end;

---
... we are walking on a thin line and you better avoid the risk ...

---

← →
Свич   (2005-08-23 01:22) [2]

> grouzd[E]v ©   (22.08.05 14:33) [1]

Прочитайте первую фразу в моём сообщении.

---

← →
KilkennyCat ©   (2005-08-23 01:25) [3]

Вероятно, следует определить, какие события возникают, когда Ваша программа перестает быть активной...

---

← →
grouzd[E]v ©   (2005-08-23 02:22) [4]

> Прочитайте первую фразу в моём сообщении.

//вернуть
procedure RestoreDefaultMode;
var
DeviceMode : TDevMode absolute 0;
begin
ChangeDisplaySettings(DeviceMode, CDS_FULLSCREEN);
end;

Ну и?

---
... we are walking on a thin line and you better avoid the risk ...

---

← →
Свич   (2005-08-23 02:40) [5]

> grouzd[E]v ©   (23.08.05 02:22) [4]
> Ну и?


Что ну и?

---

← →
grouzd[E]v ©   (2005-08-23 02:51) [6]

Вызвыть RestoreDefaultMode. В чем проблема то.
Если не получится, то перед изменением сохранить настройки, а потом восстанавливать их

---
... we are walking on a thin line and you better avoid the risk ...

---

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

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



Память: 0.46 MB
Время: 0.026 c