Erscheinen

[Schwedenbitter]

Zitat von DeddyH:

... die Controls (waren) nach einem Verschieben des Fensters außerhalb des sichtbaren Bildschirmbereiches und wieder zurück dann sichtbar ...

Das hatte ich auch schon festgestellt, bin aber nicht auf Refresh & Co. gekommen.

Danke für das Probieren! Hast Du die exe probiert oder auch den Quelltext mal compiliert? Wie gesagt: mich deprimiert, dass es mit Delphi 6 anstandslos klappt. Ich wollte aber gern in ein bestehendes, großes Projekt ein- und ausblendende Fenster einbauen. In diesem werden viele Funktionen verwendet, die es anno Delphi 6 nicht gab. Ich kann das daher nicht einfach mit Version 6 compilieren

Gruß, Alex

[DeddyH]

Ich hatte nur das Kompilat laufen lassen. Im Moment bin ich unter Linux on, kann aber morgen gern einmal das Projekt kompilieren und dann noch einmal schauen (Delphi 2007).

[Schwedenbitter]

Guten Morgen!

Hattest Du das Kompilat unter Linux/Wine laufen lassen? Bzgl. des Kompilierens kann ich warten.

Ich habe jetzt eine neue Version angehängt.
Hier irgendwo im Forum hatte ich den Tipp gefunden, es über einen Timer flüssiger zu machen. Das habe ich getan. Es ist aber nicht komfortabel und ich möchte es daher gern in ein Object/eine Komponente kapseln. Die Idee hatte ich schon gestern morgen. Allerdings bin ich daran gescheitert. Ich fand keine Lösung dazu, einem zur Laufzeit angelegten TTimer erfolgreich das Ereignis OnTimer zuzuweisen. Und bei SetTimer/KillTimer weiß ich nicht, ob/wie ich innerhalb eines Aufrufs den Timer platt machen kann. Bei einem TTimer genügt dazu ja, wenn ich im Ereignis OnTimer Timer.Enabled:=False; setze...

Vielleicht kann mir dazu jemand/Du noch einen Tipp geben.

Gruß, Alex

[Schwedenbitter]

Neuer Rechner, neues Glück! Ich hoffe, es klappt diesmal mit dem Dateianhang.

[DeddyH]

Ich habe gerade die "alte" Version kompiliert und da ist mir aufgefallen, dass man nicht das Fenster an sich, sondern die enthaltenen Controls neu zeichnen muss, dann klappt es auch.

Delphi-Quellcode:

Procedure TForm1.TimerAnimateTimer(Sender: TObject);
Begin
  TimerAnimate.Enabled:=False;
  if AnimateWindow(self.Handle, 1000, AW_BLEND Or AW_ACTIVATE) then
    begin
      BtnAnimate.Repaint;
      BtnOut.Repaint;
    end;
End;

[Schwedenbitter]

Danke für den Tipp. Es funktioniert super, was die Anzeige nach dem vollständigen Wiederherstellen anbelangt.
Unter Delphi 6 sieht man aber schon während des Einblendens die Controls auf dem Form. Zudem habe ich in meinem Programm eine ganze Menge davon und das wird mir dann zu aufwendig. Wie man das mit einer Schleife löst, ist mir nicht so richtig geläufig. Aber das geht wohl mit ComponentCount oder so? Müsste ich mir ansehen.

Ich habe aber eine für mich vernünftige Lösung gefunden. Ich mache es über einen Thread. Ich probiere es mal auf anderen, leistungsärmeren Rechnern aus. Bin gespannt, ob es auch da flüssig fadet. Leider habe ich bislang noch keine Möglichkeit gefunden, auf die Zeit Einfluss zu nehmen, wie das eben bei AnimateWindow() möglich ist .

[EDIT]Schaden: auf langsamen Rechnern (PIII 800 MHz) läuft es nicht. Das Ausblenden per Thread braucht mehr als 2 Sekunden. Man könnte jetzt zwar Alpha um mehr als 1 erhöhen oder verringern. Dann ist es aber auf schnellen Rechnern (bei mir AMD 64 3700+) zu schnell. Auf AMD XP 1800+ sogar noch zu langsam auf Intel Atom N600 (?) grenzwertig.
Am besten ist die Methode nur über Timer, die aber im Code später sehr unübersichtlich wird und mich daher zurück zur Frage bringt, wie kann ich TTimer.OnTimer zur Laufzeit eine Procedure zuweisen?[/EDIT]

Gruß, Alex

[Schwedenbitter]

Irgendwie stehe ich im Moment auf dem Schlauch! Kann mir bitte mal jemand sagen, warum mein Fenster beim Aufruf von Fadeout() bei diesem Code nicht verschwindet, sich zwar verschieben aber nicht mehr beenden lässt:

Delphi-Quellcode:

Unit Fading2;

Interface

Uses Forms;

Procedure FadeOut(FadeForm: TForm; Const dwTime: Integer = 200;
  Const Close: Boolean = True);

Implementation

Uses Windows;

Const
  Interval  = 5;

Procedure FadeOut(FadeForm: TForm; Const dwTime: Integer = 200;
  Const Close: Boolean = True);
Var
  Done      : Boolean;
  Alpha     : Double;
  Step      : Double;

  Procedure TimerProc(Wnd:HWnd; Msg, TimerID, dwTime: DWORD); Stdcall;
  Begin
    If Done Then Exit;
    Alpha:=Alpha - Step;
    If (Alpha < 0) Then Done:=True
    Else                FadeForm.AlphaBlendValue:=Round(Alpha);
  End;

Var
  oldAlpha  : Integer;
  hTimer    : Cardinal;
Begin
  Done:=    False;
  oldAlpha:=FadeForm.AlphaBlendValue;
  Alpha:=   oldAlpha;
  Step:=    Alpha / (dwTime / Interval);
  SetTimer(0, hTimer, Interval, @TimerProc);
  Repeat
    Application.ProcessMessages;
  Until Done;
  KillTimer(0, hTimer);
  If Close Then FadeForm.Close
  Else          FadeForm.Visible:=False;
  FadeForm.AlphaBlendValue:=oldAlpha;
End;

End.

Idee := Brain.Activate(self); bringt bei mir im Moment eine Exception erster Güte

Guß und Dank, Alex

[DeddyH]

Ich habe gerade mal etwas ausprobiert (dieses Timer-Gedöns stört mich irgendwie):

Delphi-Quellcode:

procedure TFormBla.btnWuppdiClick(Sender: TObject);
begin  
  if AnimateWindow(Handle,2000,AW_BLEND or AW_HIDE) then
    begin
      sleep(500);
      AnimateWindow(Handle,2000,AW_BLEND or AW_ACTIVATE);
    end;
end;

Während der Animation ist zwar auch der Button nicht zu sehen, dafür aber danach, und das ganz ohne Refresh.

[Schwedenbitter]

Hallo DeddyH,

der Code funktioniert bei mir nicht. Ich habe es mit Deinem Code wieder probiert. Abgesehen davon, dass die Controls beim Einblenden nicht sichtbar sind, sind sie es auch danach nicht.

Ich habe es aber nun mit TTimer hinbekommen und die Datei angehängt; für Leidensgenossen. Diesmal ohne exe nur mit Quellcode zum Selbercompilieren.

Gruß, Alex

[Bummi]

Delphi-Quellcode:

Procedure TForm1.BtnAnimateClick(Sender: TObject);
Begin
   self.AlphaBlend:=False;
   AnimateWindow(self.Handle, 1000, AW_BLEND Or AW_HIDE);
   AnimateWindow(self.Handle, 1000, AW_BLEND Or SW_SHOW);;
  invalidate;
End;