Witam wszystkich.
Mam pewien problem, otóż na pracę zaliczeniową muszę wykonać odwarzacz multimedialny w delphi (Posiłkuję się czasopismem Komputer Ekspert kwiecień/maj 2005), korzystam z komponentu DSPack. Niestety zatrzymałem się w jednym momencie. Gdy chcę aby okno z wyświetlanym filmem się maksymalizowało nie ma problemu ale gdy chcę żeby powróciło do pierwotnego rozmiaru program "głupieje" tzn. okno z filmem się minimalizuje i zostają tylko 3 ikonki (minimalizacji, maksymalizacji i zamknięcia). Kod został przepisany bez błędu z czasopisma. Wklejam kod odpowiedzialny za maksymalizowanie okna:
var maximized: boolean;
x,y: integer;
procedure TForm3.DSVideoWindowEx21Click(Sender: TObject);
begin
if (maximized) then
begin
DSVideoWindowEx21.Width:= Screen.Width;
DSVideoWindowEx21.Height:=Screen.Height;
DSVideoWindowEx21.StartFullScreen;
end
else
begin
DSVideoWindowEx21.NormalPlayback;
DSVideoWindowEx21.Width :=x;
DSVideoWindowEx21.Height :=y;
end;
maximized := not maximized;
end;
procedure TForm3.FormCreate(Sender: TObject);
begin
maximized := true;
x:=DSVideoWindowEx21.Width;
y:=DSVideoWindowEx21.Height;
end;
Z góry dziękuję za pomoc.
Pozdrawiam
Paweł