| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Смена разрешения экрана не отображает панель задач

Brand2000 ©   (2003-04-15 06:25:00) 

Когда я меняю разрешение экрана так:

procedure TForm2.RadioButton1Click(Sender: TObject);
var
dm : TDEVMODE;
begin
ZeroMemory(@dm, sizeof(TDEVMODE));
dm.dmSize := sizeof(TDEVMODE);
dm.dmPelsWidth := 800;
dm.dmPelsHeight := 600;
dm.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
ChangeDisplaySettings(dm, 0);
end;
.....

разрешение меняется (на 640*480/800*600) а панель пропадает, но когда я меняю разрешение на 1024*768 всё ок (прога написана при разрешении 1024*768). Как сделать чтобы панель не пропадала.
Тут я нашёл такое:
function SetFullscreenMode:Boolean;
var DeviceMode : TDevMode;
begin with DeviceMode do begin
dmSize:=SizeOf(DeviceMode);
dmBitsPerPel:=16;
dmPelsWidth:=800;
dmPelsHeight:=600;
dmFields:=DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT;
result:=False;
if ChangeDisplaySettings(DeviceMode,CDS_TEST or CDS_FULLSCREEN) <> DISP_CHANGE_SUCCESSFUL
then Exit; Result:=ChangeDisplaySettings(DeviceMode,CDS_FULLSCREEN) = DISP_CHANGE_SUCCESSFUL;
end;
end;
procedure RestoreDefaultMode;
var T : TDevMode absolute 0 тут компилятор говорит<i/> Variable name experectedПочему?;
begin
ChangeDisplaySettings(T,CDS_FULLSCREEN);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if setFullScreenMode then
begin
sleep(7000);
RestoreDefaultMode;
end;

Этот вариант тоже скрывает панель задач. Что мне делать.HELP!

---

Brand2000   (2003-04-16 04:57:00) [1]

А что мне делать? Я незнаю.

---

Cobalt   (2003-04-15 12:35:00) [2]

>тут компилятор говорит
Нельзя привязываться к конкретному адресу - это вам не ДОС, там может быть не выделена память.

Не указана версия виндовс - зависит от версии проводника - это ведь его панель. Возможно, с вашей версией виндов задача не решаема.

---

Наверх