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

[venice2]

erstelle doch ein Layered Window Ontop auf deine form und sorge dafür das es immer mitwandert
wenn du diese bewegst.

Ich könnte dir die Basis von meinem Spinner Control geben den Rest musst du dann selber machen.

[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.

[Der schöne Günther]

Zitat von venice2:

erstelle doch ein Layered Window Ontop auf deine form und sorge dafür das es immer mitwandert
wenn du diese bewegst.

Danke, das war schon einmal eine gute Idee.
Ein Top-Level-Window braucht es nicht, WS_EX_LAYERED geht auch mit Frames und Panels und so.

Das sieht dann so aus:

https://imgur.com/4RcX1yN

State of the art ist das immer noch nicht, aber vielleicht schon halbwegs brauchbar - Das Ding ist praktisch nur an einer festgelegten Farbe transparent, der PNG-Transparenzlayer ist irgendwo den Bach runter gegangen. Mir ist nichts besseres eingefallen als eine Feste Farbe als Transparenz festzulegen, deshalb sieht es wohl auch so bescheiden aus

Delphi-Quellcode:

      SetLayeredWindowAttributes(
         Handle,
         COLORREF(color),
         Byte.MaxValue,
         LWA_COLORKEY
      )