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

Вниз

Как сделать приложение, изменяющее разрешение?   Найти похожие ветки 

← →
GrayFace ©   (2004-03-04 18:45) [0]

Надо, чтобы при активации графическая мода изменялась, а при деактивации восстанавливалась и прога сворачивалась.
Этот код не действует:

function SetFullscreenMode(w,h,c:integer):Boolean;
var DeviceMode : TDevMode;
begin
with DeviceMode do begin
 dmSize:=SizeOf(DeviceMode);
 dmBitsPerPel:=c;
 dmPelsWidth:=w;
 dmPelsHeight:=h;
 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 DefaultDeviceMode : TDevMode;
begin
 ChangeDisplaySettings(DefaultDeviceMode,CDS_FULLSCREEN);
end;

procedure TForm1.ApplicationEvents1Activate(Sender: TObject);
begin
 if not SetFullscreenMode(640,480,32) then
   if not SetFullscreenMode(640,480,16) then
     if not SetFullscreenMode(640,480,8) then
       SetFullscreenMode(640,480,4);
 WindowState:=wsMaximized;  {}
end;

procedure TForm1.ApplicationEvents1Deactivate(Sender: TObject);
begin
 Application.Minimize;
 restoreDefaultMode;
end;

При деактивации разрешение остается прежним.

---

← →
[lamer]Barmaglot ©   (2004-03-05 14:35) [1]

RTFM?

http://www.delphimaster.ru/articles/display/index.html

---

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

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

Наверх

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