Nastepujacy problem:
Mam programik, ktory zostal napisany dla rozdzielczosci 800x600 no i podczas startu programu, wychwytuje jaka jest ustawiona rozdzielczosc (zapamietuje ja sobie) i ustawiam 800x600:
procedure MainForm.FormCreate(Sender: TObject);
var Mode: TDeviceMode;
begin
{Odczytuje rozdzielczosc ekranu i zapamietuje}
Rozd.X :=GetSystemMetrics(SM_CXSCREEN);
Rozd.Y :=GetSystemMetrics(SM_CYSCREEN);
{Ustawiam rozdzielczosc na 800x600}
with Mode do
begin
dmSize:=SizeOf(Mode);
dmBitsPerPel:=16;
dmPelsWidth:=800;
dmPelsHeight:=600;
dmFields:=DM_PELSWIDTH+DM_PELSHEIGHT;
ChangeDisplaySettings(Mode,0)
end;
{ustawiam szerokosc i wysokosc formy}
Width:=800;
Height:=600;
end;
Napisalem sobie procedurke, ktora ma ustawiac rozdzielczosc poczatkowa (taka jaka zastal program przy uruchamianiu)
procedure Ustaw_rozdzielczosc;
var
Mode: TDeviceMode;
begin
{Ustawiam rozdzielczosc ekranu taka jaka zastal program}
with Mode do
begin
dmSize:=SizeOf(Mode);
dmBitsPerPel:=16;
dmPelsWidth:=rozd.X;
dmPelsHeight:=rozd.Y;
dmFields:=DM_PELSWIDTH+DM_PELSHEIGHT;
ChangeDisplaySettings(Mode,0)
end;
end;
No i jezeli w zdarzeniu OnClose odwolam sie do tej procedurki to wszystko OK, jednak potrzebna mi jest ta procedurka podczas minimalizowania formy, zeby ekran durnowato nie wygladal :)
Wstawiam ApplicationEvents i w zdarzenie OnMinimize wstawiam moja procedurke i .... [dupa] :) program minimalizuje sie w dziwne miejsce oddalone o jakies 1cm od paska i do tego zostaje rozdzielczos 800x600.
Co mozna na to zaradzic ??
//Uzywaj znacznikow !! !!