Ograanicznik.

0

Jak zmienić rozdzielczość ekranu, tak by można było ustawić takie (80x60, 6x12, 300x 1000) wrtości?--Delphi 2 , 6 i 5
Ciekawe pomysły i poszukiwanie rozwiązań.

0

Tutaj nie da sie (chyba) zmienić na czas w true ale:

Musisz zmienić wartości klucza:
HKEY_CURRENT_CONFIG\Display\Settings

I tam zmienić tego tam resolution :)

lub z kodu - ale nie wiem czy będzie działać:
var
mode : TDeviceMode;
begin
mode.dmBitsPerPel:= 32; *32 bity inne [2, 8, 16, 24];
mode.dmPelsWidth:= 800; *szerokosc
mode.dmPelsHeight:= 600; //wysokosc
mode.dmFields:=DM_PELSWIDTH+DM_PELSHEIGHT;
end;

:)

pozdro {hello}

0

Ja do zmiany rodzielczosci znalazlem cos takiego:
function TfrmMain.ChangeScreenResolution(iWidth, iHeight, iColors : Integer): Boolean;
var Mode : TDeviceMode;
begin

with Mode do begin
dmSize:=SizeOf(Mode);
dmBitsPerPel := iColors;
dmPelsWidth := iWidth;
dmPelsHeight := iHeight;
dmFields := DM_PELSWIDTH + DM_PELSHEIGHT + DM_BITSPERPEL;
end;
Result := False;
if ChangeDisplaySettings(Mode,0) = DISP_CHANGE_SUCCESSFUL then Result :=True;

end;--Delphi 6
Pozdrowienia{hello} ,
Imperior

0

Chciałbym się odwoływać do diretx i do karty graf. , w C++ można a w delphi.--Delphi 2 , 6 i 5
Ciekawe pomysły i poszukiwanie rozwiązań.

1 użytkowników online, w tym zalogowanych: 0, gości: 1