Der Switch in den Vollbildmodus flackert nun ein bisschen weniger, nachdem ich Variablen zur Speicherung der Formgröße eingeführt habe, und beim Beenden des FS Modus die Form auf diesselbe Größe zwinge.
Trotzdem ist noch deutlich mindestens einmal ein redraw sichtbar, d.h. ich sehe einen kurzen Moment die unter dem Anwendungsfenster liegenden Fenster bzw. den Desktop.
Delphi-Quellcode:
procedure TForm1.SpdBtnStartFSClick(Sender: TObject);
begin
LastHeight := Form1.Height;
LastWidth := Form1.Width;
FormStyle := FsStayOnTop;
Height := Screen.Height;
Width := Screen.Width;
Top := 0;
Left := 0;
BorderStyle := BsNone;
SpdBtnStartFS.Visible := False;
SpdBtnQuitFS.Visible := True;
Form1.Drucken1.Visible := False;
WBArticlDispl.Navigate(Adress + IntToStr(AIndexNav) + '.html\', EmptyParam);
end;
procedure TForm1.SpdBtnQuitFSClick(Sender: TObject);
begin
Form1.Height := LastHeight;
Form1.Width := LastWidth;
FormStyle := FsNormal;
BorderStyle := BsSizeable;
SpdBtnQuitFS.Visible := False;
SpdBtnStartFS.Visible := True;
Form1.Drucken1.Visible := True;
WBArticlDispl.Navigate(Adress + IntToStr(AIndexNav) + '.html\', EmptyParam);
end;
..... - Kurt - .....