Expandierendes Fenster - ist es überhaupt möglich?

[Andreas13]

Hallo Community,

vor langer, langer Zeit, noch zu MS-DOS Zeiten, gab es eine Pascal-Bibliothek von TurboPower/Enz EDV-Beratung: „Object Professional“. Dort gab es u.a.
expandierende Fenster
im Repertoire. Ich weiß, es ist eine Spielerei...
Kann man solche Fenster heute unter Windows entwickeln, bzw. gibt es irgendwo fertige Bibliotheksroutinen dafür?
Danke für Eure Hilfe im Voraus!
Gruß
Andreas

[EWeiss]

AnimateWindow

gruss

[Andreas13]

Vielen Dank!
Gruß, Andreas

[Andreas13]

Hallo again,
ich habe ein merkwürdiges Verhalten der expandierenden bzw. implodierenden Fenster beobachtet: s. dazu folgenden Code:

Delphi-Quellcode:

Procedure Explode(Form: TForm; MilliSek: Integer);
// Expandierendes Fenster beim Öffnen:
// In Ereignis: OnShow einbauen
Begin  
  Winapi.Windows.AnimateWindow(Form.Handle, MilliSek, AW_CENTER);
End;{Explode}
{-----------}

Procedure Implode(Form: TForm; MilliSek: Integer);
// Implodierendes Fenster beim Schließen:
// In Ereignis: OnClose einbauen
Begin
  Winapi.Windows.AnimateWindow(Form.Handle, MilliSek, AW_HIDE OR AW_CENTER);
End;{Implode}
{-----------}

Procedure Zentrieren(Form: TForm);
// Zentriert das Formular am Bildschirm
// In Ereignis: OnShow einbauen
VAR
 Left, Top: Integer;

 Begin
    // Fenster zentrieren:
  Left:= (Screen.Width - Form.Width) div 2;
  Top := (Screen.Height - Form.Height) div 2;
  Form.Left:= Left;
  Form.Top := Top;
  Form.Position:= poDesktopCenter;
End;{Zentrieren}
{--------------}


procedure TForm1.OnShow_Animate(Sender: TObject);
begin
  // Fenster am Bildschirm zentrieren:
  Zentrieren(Form1);
  
  // Expandierendes Fenster beim Öffnen:
  Explode(Form1, 750);

  // Fokus setzen:
  Form1.SetFocus;
end;

procedure TForm1.OnClose_Animate(Sender: TObject; var Action: TCloseAction);
begin
  // Implodierendes Fenster beim Schließen:

  Implode(Form1, 350);  
end;

1):
Unter Windows 7 expandiert das Fenster aus dem Nichts zu seiner endgültigen Größe.
Die Implosion verläuft analog, nur umgekehrt.
--> Verhalten: OK

2):
Unter Windows 10 wird zunächst ein durchsichtiges Fenster mit sichtbarem Rahmen & Kopfzeile erzeugt. Das Fenster expandiert aus dem Nichts in diesen durchsichtigen Rahmen bis zur endgültigen Größe hinein.
Die Implosion verläuft analog, nur rückwärts: Das Fenster stürzt in einen durchsichtigen Rahmen hinein.
--> Verhalten: UNSCHÖN!

Ist es normal, oder habe ich etwas falsch gemacht?
Oder liegt es an der Windows-10-API?
Gibt es eine Abhilfe?
Danke im Voraus!

Gruß, Andreas

[EWeiss]

Mach mal ein kleines funktionierendes Beispiel dann schaue ich mir das mal an.
Ich kann nirgends erkennen das du WM_PRINT in Bezug auf AnimateWindow verwendest.

Oder siehe dir mein Projekt OTTB an.
Da kannst du entnehmen wie man es richtig macht.

Du must sicherstellen das WM_PRINTCLIENT und oder WM_PRINT behandelt wird.

gruss

[Andreas13]

Hallo,
anbei ein kleined Demo-Programm mit allen Files. Danke für Deine Hilfe!!!
Gruß, Andreas

[EWeiss]

Zitat:

Zitat von Andreas13 (Beitrag 1436115)

Hallo,
anbei ein kleined Demo-Programm mit allen Files. Danke für Deine Hilfe!!!
Gruß, Andreas

Wie gesagt das verhalten ist normal du musst WM_PRINTCLIENT und oder WM_PRINT behandeln.
Ich schreibe dir gerade eine DLL damit sollte das einfacher sein. ;)

gruss

[EWeiss]

Denke mal entweder hat Delphi hier Probleme oder aber Win10 kommt mit den Fenstern nicht zurecht.
Seltsamer weise funktioniert es nur dann halbwegs richtig wenn man das Fenster ohne Caption (also auf Border style None setzt)

Was mich noch fuchst warum habe ich in der IDE von Delphi den Win7 Style?
Alles sehr seltsam...

Ich kann einstellen was ich will.
bsp.
poDesktopCenter.

Was passiert? Die Animation fängt oben in der linken Ecke an.
Erste wenn sie fertig ist setzt sich das Fenster zentriert auf dem Desktop.
Windows 10 ist einfach nur Müll. (Obwohl das Problem wohl an Delphi liegt so wie ich gelesen habe)

Bitte ihr könnt gerne rumspielen.. source include

gruss

[Andreas13]

Vielen herzlichen Dank für Deine Mühe & Hilfe!
Ich werde gleich Dein Example.zip entpacken und studieren.
Gruß, Andreas

[EWeiss]

Zitat:

Zitat von Andreas13 (Beitrag 1436129)

Vielen herzlichen Dank für Deine Mühe & Hilfe!
Ich werde gleich Dein Example.zip entpacken und studieren.
Gruß, Andreas

Hier eine kleine Ausbesserung.. weil sich die Formen mit Delphi nicht dorthin setzen wo sie sollen.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  ConfigIni: TIniFile;
  Path: string;
  rc: TRect;
begin

  SetRect(rc, 0, 0, 532, 315); // weite und höhe selber setzen

  Left := MAX((GetSystemMetrics(SM_CXSCREEN) - rc.Right - rc.Left) div 2, 0); // selber setzen Delphi macht sonst ärger
  Top := MAX((GetSystemMetrics(SM_CYSCREEN) - rc.Bottom - rc.Top) div 2, 0);  // selber setzen Delphi macht sonst ärger

  UserAppDataDir := GetSpecialFolder(CSIDL_APPDATA);
  Path := UserAppDataDir + '\BrewIdeas\Animation\';

Sobald du die Caption aktivierst funktioniert so gut wie nichts mehr.
Sieht bald so aus als wenn die unter Win10 gar nicht mehr berücksichtigt werden und nur noch der Client Bereich animiert wird.
Selbst wenn ich anstelle von "Handle" Application.Handle übergeben also das Handle was hinter der Form steckt, geht es nicht.

gruss

[Andreas13]

Sorry, ich bin schon wieder: Mein Delphi XE5 kennt die Unit uAnimationAPI (noch) nicht...
Danke & Gruß, Andreas

[EWeiss]

Zitat:

Zitat von Andreas13 (Beitrag 1436133)

Sorry, ich bin schon wieder: Mein Delphi XE5 kennt die Unit uAnimationAPI (noch) nicht...
Danke & Gruß, Andreas

ok hier der gesamte Source inclusive der DLL. (Ich lösche den anderen wieder.)
Aber vorweg Animatewindow funktioniert nicht wenn die Form ein Caption hat.

Windows 10 hat die Funktion platt gemacht.
Bei mir geht es deshalb weil ich meine Windows alle selber zeichne.

gruss

[Andreas13]

Danke!!!

[EWeiss]

Zitat:

Zitat von Andreas13 (Beitrag 1436135)

Danke!!!

Kein Problem ;)
Wie gesagt bei mir geht es 100% tig..

gruss

[Andreas L.]

Zitat:

Zitat von Andreas13 (Beitrag 1436111)

Unter Windows 10 wird zunächst ein durchsichtiges Fenster mit sichtbarem Rahmen & Kopfzeile erzeugt. Das Fenster expandiert aus dem Nichts in diesen durchsichtigen Rahmen bis zur endgültigen Größe hinein.
Die Implosion verläuft analog, nur rückwärts: Das Fenster stürzt in einen durchsichtigen Rahmen hinein.
--> Verhalten: UNSCHÖN!

Im MSDN steht zu AnimateWindow folgender Hinweis:

Zitat:

Avoid animating a window that has a drop shadow because it produces visually distracting, jerky animations.

Vielleicht ist das ja dein Problem?!

[EWeiss]

Zitat:

Zitat von Andreas L. (Beitrag 1436151)

Zitat:

Zitat von Andreas13 (Beitrag 1436111)

Unter Windows 10 wird zunächst ein durchsichtiges Fenster mit sichtbarem Rahmen & Kopfzeile erzeugt. Das Fenster expandiert aus dem Nichts in diesen durchsichtigen Rahmen bis zur endgültigen Größe hinein.
Die Implosion verläuft analog, nur rückwärts: Das Fenster stürzt in einen durchsichtigen Rahmen hinein.
--> Verhalten: UNSCHÖN!

Im MSDN steht zu AnimateWindow folgender Hinweis:

Zitat:

Avoid animating a window that has a drop shadow because it produces visually distracting, jerky animations.

Vielleicht ist das ja dein Problem?!

Hat damit nichts zu tun AnimateWindow wird von Windows 10 nicht mehr komplett unterstützt es wird NUR noch der Clientbereich animiert.
Wenn man das halbwegs mit Caption vernünftig animieren will muss man sich einiger tricks bedienen zum Beispiel die GWL_STYLES zur Laufzeit verändern so das dass Caption erst sichtbar wird wenn die Animation abgeschlossen ist.
Oder man zeichnet sein Fenster selbst und verzichte auf die vorgefertigten Forms.

Du musst doch nur mein Beispiel laden dann siehst du doch was abgeht. ;)
MS bietet API's an die sie selbst verändert haben und nichts mehr gemein haben mit den Aussagen in der MSDN frage mich warum der Mist nicht gelöscht wird.
Ich glaube langsam die blicken da selbst nicht mehr durch.


gruss

[Andreas13]

@EWeiss
Danke für Deine professionellen Lösungen: Respekt & Hut ab!
Ich habe bisher fast ausschließlich Berechnungsalgorithmen ohne visuelle Komponenten programmiert und mache mit den Windows-Objekten meine ersten mühsamen Gehversuche. Daher werde ich noch viel lernen müssen, bis ich Deinen anspruchsvollen Code ganz verstehen und nachvollziehen kann.

Auf Deiner Erkenntnis basierend, wonach AnimateWindow unter Win10 nur noch den Client-Bereich animiert, habe ich eine halbwegs brauchbare Lösung gefunden: BorderStyle und Capture werden beim Expandieren erst nach der Animation hinzugefügt, bzw. vor dem Implodieren entfern. Im Anhang (Animiertes_Fenster - 2019-07-06.zip) sind alle Files dazu vorhanden.

Ein Schönheitsfehler ist jedoch, daß bei dieser (meiner) Lösung das Programm-Icon verschwunden ist und bleibt.

Gruß, Andreas

[EWeiss]

Zitat:

Ein Schönheitsfehler ist jedoch, daß bei dieser (meiner) Lösung das Programm-Icon verschwunden ist und bleibt.

Kannst du dir doch aus der Ressource laden ;)

Zitat:

BorderStyle und Capture werden beim Expandieren erst nach der Animation hinzugefügt, bzw. vor dem Implodieren entfern.

Denke damit kann man leben sieht doch gut aus.

gruss

[Andreas13]

Zitat:

Zitat von EWeiss (Beitrag 1436170)

Zitat:

Ein Schönheitsfehler ist jedoch, daß bei dieser (meiner) Lösung das Programm-Icon verschwunden ist und bleibt.

Kannst du dir doch aus der Ressource laden ;)

Sorry, das verstehe ich (noch) nicht...
Aber ich bin ein gelehriger Schüler.

[EWeiss]

Zitat:

Zitat von Andreas13 (Beitrag 1436171)

Zitat:

Zitat von EWeiss (Beitrag 1436170)

Zitat:

Ein Schönheitsfehler ist jedoch, daß bei dieser (meiner) Lösung das Programm-Icon verschwunden ist und bleibt.

Kannst du dir doch aus der Ressource laden ;)

Sorry, das verstehe ich (noch) nicht...
Aber ich bin ein gelehriger Schüler.

Jede Exe verfügt über eine Ressource oder? die *.res Datei wird dort eingebunden.
Dort ist das Icon hinterlegt und dort kannst du es zur Laufzeit extrahieren und neu zuweisen.

Suche mal nach Icon von Ressource.. laden

gruss

[Andreas13]

Danke, ich werde es gleich ausprobieren.

[EWeiss]

Zitat:

Zitat von Andreas13 (Beitrag 1436173)

Danke, ich werde es gleich ausprobieren.

https://www.delphipraxis.net/118556-...rce-laden.html

gruss

[Andreas13]

Hallo zusammen,
anbei möchte ich die funktionierende Demo für ein expandierendes / implodierendes Fenster präsentieren. Die Lösung war wegen des geänderten (fehlerhaften) Verhaltens von AnimateWindow unter Windows-10 erforderlich.
Hier kurz die Zusammenfassung der aufgetretenen Probleme und deren Behebung, für jene, die es u. U. benötigen sollten:

1):
Winapi.Windows.AnimateWindow(…) animiert unter Win10 nur noch den Client-Bereich des Fensters (Dank an EWeiss). Die Folge ist, daß die Expansion / Implosion des Fensters bei einem sichtbaren Fensterrahmen stattfindet, was merkwürdig & unschön aussieht.

a): Expandierendes Fenster
Die Lösung hierfür besteht darin, das Fenster mit Form1.Create zunächst OHNE Kopfzeile (BorderStyle := bsNone) zu erzeugen. Um eine ruckartige Bewegung des Fensters zu verhindern, muß die endgültige Fensterposition zu dieser Zeit bereits festgelegt worden sein.

Danach erfolgt das Expandieren des Fensters (= nur Client-Bereich) mittels

Delphi-Quellcode:

Winapi.Windows.AnimateWindow(Form1.Handle, MilliSek, AW_CENTER);

.

Erst jetzt wird die Kopfzeile und die Caption angebracht, beispielsweise mit

Delphi-Quellcode:

Form1.BorderStyle := bsSizeable;
Form1.Caption := 'Explodierendes Fenster';

b): Implodierendes Fenster
Beim Schließen des implodierenden Fensters muß zuerst die Kopfzeile entfernt werden

Delphi-Quellcode:

Form1.BorderStyle := bsnone;

bevor die Implosion eingeleitet wird:

Delphi-Quellcode:

Winapi.Windows.AnimateWindow(Form1.Handle, MilliSek, AW_HIDE OR AW_CENTER);

.

2):
Durch diese Vorgehensweise entsteht unter Win10 allerdings ein neues Problem: Das Programm-Icon ist nicht mehr vorhanden. Um das Icon aus einem ResourceStream wiederherzustellen ist theoretisch recht einfach, praktisch jedoch überhaupt nicht…
Hierfür waren neben eigenen leidvollen Erfahrungen Tipps, Hinweise & Anregungen von u. a. EWeiss, Sakura, Alter Mann und Uwe Raabe – verstreut im Forum – hilfreich. Hier also die summarische Vorgehensweise:

a): Aus Icon eine Resource erstellen
Hier sind zwei Punkte unbedingt zu beachten:
1):
brcc32.exe NICHT mehr verwenden, sondern cgrc.exe (cgrc = CodeGear Resource Compiler/Binder) von Embarcadero, „auch wenn der Eintrag in den Projektoptionen etwas anderes vorgaukelt“ (Dank an Uwe Raabe)!
2):
Damit das Icon im ResourceStream gefunden werden kann, soll NICHT der Type ICON, sondern RCDATA verwendet werden!

b): Icon als ResourceStream laden
Vor dem TResourceStream.Create(…) bzw. Application.Icon.LoadFromStream(…) sollte immer mittels FindResource(…) geprüft werden, ob die Resource gefunden werden konnte, sonst haben wir eine Applikation ohne Kopfzeile, die dann u. U. nur noch über den Taskmanager angehalten werden kann.
Die praktische Umsetzung & Details sind im Beispielprojekt dokumentiert & kommentiert.

Ich danke Euch allen, die mir hierbei durch Eure Forumsbeiträge bewußt oder unbewußt geholfen habt.
Gruß
Andreas

[holger_barntrup]

Danke dafür, ich hab es mal bei meinen Beispielen abgelegt und hoffe es wieder zu finden wenn ich es benötige.

Ich verwende für die zentrierte Ausgabe einer Form nur:

Delphi-Quellcode:

Form.Position:= poScreenCenter;

Das von dir verwendete 'poDesktop....' ist bei zwei Bildschirmen eher störend.

[EWeiss]

was lange währt wird endlich gut. :)

gruss

[Andreas13]

Nach dem Expandieren des Fensters ist leider immer noch ein kleines Ruckeln (= vertikaler Sprung nach unten um die Höhe der Kopfzeile) vorhanden. Ich dachte, ich wüßte wie ich es behebe, aber das Fenster will noch nicht so richtig nach meinem Gusto...

[EWeiss]

Setze deine form auf eine weite von 225, und höhe 150
Verwende den unten stehenden Code

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    CheckBox1: TCheckBox;
    ListBox1: TListBox;
    ComboBox1: TComboBox;
    GroupBox1: TGroupBox;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton1: TRadioButton;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    procedure Explode;
    procedure Implode;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Explode;
begin

  repeat
    MoveWindow(Handle, Left - 3, Top - 2, Width + 6, Height + 4, true);
    application.ProcessMessages;
    sleep(10);
  until Top < 350

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin

  Implode;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Show;
  Explode;
end;

procedure TForm1.Implode;
var
  y: Integer;
begin
   y := GetSystemMetrics(SM_CYSCREEN) div 2;

   repeat
    MoveWindow(Handle, Left + 2, Top + 2, Width - 4, Height - 4, true);
    application.ProcessMessages;
    sleep(10);
  until Top > y

end;

end.

und fertig!

AnimateWindow ist unter Windows 10 einfach nur Müll. (In Verbindung mit kompletten Forms)
Ist nur ein einfaches Beispiel wie man es noch machen könnte.. geht bestimmt besser.
Falls das für dich mit AnimateWindow keine befriedigende Lösung ist.

PS:
Oder nimm den Anhang..

gruss

[Andreas13]

Zitat:

Zitat von EWeiss (Beitrag 1436327)

...Oder nimm den Anhang...

Vielen Dank, ich werde es gleich ausprobieren!
Gruß, Andreas

[Andreas13]

@EWeiss
Deine Lösung ist viel besser als AnimateWindow! Dank & Chapeau!
Gruß, Andreas

[EWeiss]

Zitat:

Zitat von Andreas13 (Beitrag 1436362)

@EWeiss
Deine Lösung ist viel besser als AnimateWindow! Dank & Chapeau!
Gruß, Andreas

Du musst allerdings die y, x Position neu berechnen wenn das Window verschoben wird.
Im Beispiel sind nur Fix werte zur Demonstration.
Verschiebe mal das Fenster in die obere linke ecke dann weist du was ich meine wenn du es schließt.

Und die Größe des Fensters ist abhängig von der Top Position.. Da musst du auch noch was tun.

gruss