TAppButton - Application Button like Firefox (experimentell)

[Satty67]

Du hast in die gleiche Richtung gedacht wie ich Etwas hab' ich unter der Woche auch schon geschafft, kann aber erst am WE richtig ran und testen. Kleiner SuperGau: dachte ich kann mit Delphi7PE am Win7 Rechner direkt testen, aber ApplicationOnTaskbar schein das Cerhalten (weitergereichte Ereignisse) auch wieder zu ändern.

Das Problem mit dem an falscher Position hängenden Button (bei diversen Maximize Aktionen), liegt nicht an einer falschen Berechnung, sondern an einer fehlenden Aktualisierung. Da hab' ich zuvor entfernte Messages wieder zum Behandeln reingenommen. Überhaupt hab' ich mal neu organisiert.

Zum hängenden Button bei animiertem Mini/Maximize hatte ich die gleiche Idee wie Du. Einfach das Teil vorher ausblenden (allerdings nicht Visible direkt ändern, falls der unsichbar war, sollte er es bleiben). Hab' es in einem ersten Ansatz etwas anders gelöst. Konnte aber noch nicht wirklich testen... unter XP läuft es leider fast immer sehr gut...

Delphi-Quellcode:

procedure TAppButton.MainFormWndProc(var Message: TMessage);
var
  R : TRect;
begin
  case Message.Msg of
    WM_SYSCOMMAND:
    begin
      if (Message.WParam = SC_MINIMIZE) then
        ShowWindow(fHandle, SW_HIDE);
    end;
  end;

  if Assigned(fMainFormWndProc) then
    fMainFormWndProc(Message);

  case Message.Msg of
    WM_MOVE, WM_MOVING, WM_SIZe, WM_SIZING, WM_EXITSIZEMOVE, WM_NCPAINT:
    begin
      MoveButtonWindow(True);
    end;
    WM_STYLECHANGED, WM_SETTINGCHANGE:
    begin
      Color := Color;
      Invalidate;
    end;
    WM_ACTIVATE:
    begin
      Invalidate;
    end;
    WM_NCCALCSIZE:
    begin
      R := ButtonRect;
      if (not fOptimizeUpdates)
      or (fLastPainted.X <> R.Left) or (fLastPainted.Y <> R.Top) then
        Invalidate;
    end;
    WM_SYSCOMMAND:
    begin
      if fVisible
      and ((Message.WParam = SC_RESTORE) or (Message.WParam = SC_MAXIMIZE)) then
      begin
        ShowWindow(fHandle, SW_SHOW);
        fMainForm.SetFocus;
      end;
    end;
  end;
end;

Ich bin jedenfalls sicher, dass die Probleme zu lösen sind, muss nur noch etwas suchen

Ich poste gleich die ganze Unit nochmal, und die Exe zum Testen...

€: Heute morgen kurz am Win7 PC getestet, funktioniert nicht richtig!
Ich bekomme zum WE ein Win7 Notebook. Dann kann ich das direkt testen. Immer ändern und später probieren hat kein Wert, so komme ich nicht weiter. Verschiebe das Problem jetzt erstmal, bis ich mit D2007 direkt auf Win7 entwickeln kann.

[Keks]

Hast Du eigentlich noch weiter daran gearbeitet? Wäre schön, eine voll funktionsfähige Komponente zu haben.

[Satty67]

Hallo,

ja, hab' zwar leider nur ein Netbook mit Win 7 Starter zum Testen bekommen (hat ja auch kein Aero), aber konnte zumindest in der Testumgebung einiges ausmerzen.

Aktuell hab' ich noch ein Problem drin, dass ich noch nicht innerhalb der Komponente, sondern nur im Hauptfenster lösen kann. Wird im MainForm.Create das Fenster maximiert (z.B. Laden der Einstellungen), wird das durch TAppButton auf halben Weg unterbrochen mit entsprechend falschem Verhalten des Fensters. Ich erzeuge den AppButton einfach nach solchen Aktionen, statt davor.

Hatte dann Urlaub und das Projekt ganz vergessen

Ich poste heute Abend, wenn ich Zuhause bin, den aktuellen Source-Code. Evtl. fällt mir bis dahin ein, wie ich das oben beschiebene Problem noch ausmerzen kann.

[Keks]

Zitat von Satty67:

ja, hab' zwar leider nur ein Netbook mit Win 7 Starter zum Testen bekommen (hat ja auch kein Aero)

WIe wärs damit?

[Satty67]

Hmm, Starter steht zwar nicht dabei, aber probiere ich heute Abend mal aus. Könnte auch 75 € für's AnyTimeUpgrade investieren, aber nur wegen Aero und ein paar Einstellungen ist mir das zu viel.

Also die meisten Probleme machten Aero bzw. GlassFrame. Kann das ja leider nur umständlich testen, aber vieleicht habe ich ja alles erwischt, was falsch lief.

Ich melde mich heute Abend wieder, wenn ich Zuhause und satt bin

[Codehunter]

Zitat von Satty67:

Ich melde mich heute Abend wieder, wenn ich Zuhause und satt bin

Hi,

wollte mal nachfragen, was an jenem Winterabend so herausgekommen ist Bin nämlich im Moment auch dran, neuere Anwendungen auf Aero Glass umzustellen und so ein Application Button wäre da schick. Ich habe die hier bisher verlinkten Testanwendungen mal durchgespielt unter W7x64 und konnte bis auf den "Fade-In-Effekt" beim Öffnen des Fensters keine Probleme mehr feststellen.

Grüße
Cody

[ralfschwalbe]

Hab grad gesehen, dass der Button unter Windows 8 gar nicht mehr gezeichnet wird...