Oto kod:
var
Mode: TDeviceMode;
begin
with Mode do
begin
dmSize:=SizeOf(Mode);
dmBitsPerPel:=16;
dmPelsWidth:=640;
dmPelsHeight:=480;
dmFields:=DM_PELSWIDTH+DM_PELSHEIGHT;
ChangeDisplaySettings(Mode,0)
end;
end;
Oto kod:
var
Mode: TDeviceMode;
begin
with Mode do
begin
dmSize:=SizeOf(Mode);
dmBitsPerPel:=16;
dmPelsWidth:=640;
dmPelsHeight:=480;
dmFields:=DM_PELSWIDTH+DM_PELSHEIGHT;
ChangeDisplaySettings(Mode,0)
end;
end;
Działa bardzo dobrze ale niestety ma wadę. Po zmianie rozdzielczości spada częstotliwość monitora np. z 85 Hz na 60. Jak uzupełnić kod ?...
Przydało mi sie do mojego Przypominacza który ustawia sobie grafikę ;-)
Ukaże się wkródce w downloadzie ;-)
Ps. Niezły Patent
działa bardzo dobrze, ale jak wyłączam program to rozdzielczość ma być poprzednia... poszperam :)
Wycofuję pytanie, znalazłem na Torry.....