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ń.
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}
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
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ń.