Wie kann ich eine transparente Animation über ein TControl legen?

[stahli]

Emil, Du bist und bleibst mein Grafik-Guru

[venice2]

Zitat von stahli:

Emil, Du bist und bleibst mein Grafik-Guru

Ich häng das Projekt mal an.
Er muss nur in der DLL den Window style auf WS_CHILD legen dann kann er die Animation auf jedes Control legen.
Für die Transparenz muss er dann selber sorgen weil ich im Moment mit anderen Sachen beschäftigt bin.

Zusätzlich noch. bei TSkinSpinner.Start auf GetClientRect umsteigen das gleich in TSkinSpinner.StartStream
TSkinSpinner.StartStream bedeutet die Animation wird aus der Resources geladen.

Delphi-Quellcode:

    GetWindowRect(ParentHandle, rw);
    MoveWindow(WinHandle, rw.Left + ((rw.Right - rw.Left - Integer(ImgHeight)) div 2), rw.Top +
        ((rw.Bottom - rw.Top - Integer(ImgHeight)) div 2), ImgHeight, ImgHeight, False);

sorry man kann hier wieder nix hochladen deshalb vom Server.
https://www.magentacloud.de/lnk/19k1g1DC

Ist solange online wie es Online ist.

Zitat:

Ein Top-Level-Window braucht es nicht, WS_EX_LAYERED geht auch mit Frames und Panels und so.

Habe mein Teil trotzdem mal hochgeladen.

[Der schöne Günther]

Ich habe es mir mal angeschaut, und das ist wirklich beeindruckend.

Manche der beigelegten Grafiken haben anscheinend keinen richtigen Alphakanal und sehen entsprechend bescheiden aus, aber andere wiederum sehen wirklich extrem High Quality aus.

Ich wüsste spontan keinen trivialen Weg, wie man mitbekommt ob sich ein TControl auf dem Bildschirm verschiebt. Gründe kann es ja viele geben (Größen/Positions-Änderung selbst, Änderung des Parents, des Parent-Parents, ...). Ich schaue mal ob ich diese Lösung auch auf ein ganz normales Panel oder Frame anwenden kann.

Vielen Dank schon einmal.

[venice2]

Zitat:

Ein Top-Level-Window braucht es nicht, WS_EX_LAYERED geht auch mit Frames und Panels und so.

Nur zur Info entferne mal dein Manifest aus der Exe und versuche dann noch einmal WS_EX_LAYERED und oder SetLayeredWindowAttributes zu verwenden.

[venice2]

preview
Funktioniert jetzt auf der Form und kann in oder auf ein beliebiges TControl gelegt werden.

[venice2]

Hier die letzte version mit der man die Animationen auf TControls legen kann.