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

[Der schöne Günther]

Eigentlich mache ich das schon lange genug, aber mit der VCL tue ich mich teilweise immer noch schwer. Ich möchte eine Animation, in diesem Fall diese typischen "Bitte warten"-Kringel als Overlay über etwas drüber legen.

Ich möchte das ganze auf einem TFrame haben, damit ich das in jeder Lebenslage wiederverwenden kann.

Ich habe das folgendermaßen gemacht:
1. Auf einem TFrame liegt ein TImage
2. Ein Timer macht mit

Delphi-Quellcode:

TBrushStyle.bsClear

auf dem

Delphi-Quellcode:

TImage.Canvas.FillRect(...)

und trägt dann das jeweilige Sprite auf

Das sieht, wenn ich es irgendwo platziere dann so aus:

https://imgur.com/RORm5wo

Nicht wirklich was ich im Sinn hatte 😐

Was muss ich tun? Ich dachte erst ich sehe hier den Frame, aber es ist das Image. Ich dachte, wenn das Image

Delphi-Quellcode:

Transparent = True

hat und ich den Inhalt immer mit

Delphi-Quellcode:

TBrushStyle.bsClear

cleare, dann bleibt es durchsichtig...

[stahli]

Dass Du Deine Animation grundsätzlich nur nutzen kannst, wenn Deine längerfristige Aufgabe in einem Thread läuft, soll Dir ja sicherlich klar sein.

Ich weiß nicht, ob es jetzt irgendwie geht, aber früher war keine echte Transparenz mit Controls möglich.

Hast Du mal eine Paintbox versucht? Damit hatte ich mal ein Raster über ein Formular gelegt. (Paintbox transparent und darauf gezeichnet, quasi wie Du es vor hast, nur eher statisch.)

Wenn Du sonst keine vernünftige Lösung findest, kannst Du vielleicht einfach
- einen Ausschnitt aus dem Canvas in ein Bitmap kopieren
- und zyklisch dieses Bitmap duplizieren, das Sprite hinein malen und den Ausschnitt zurück in den Canvas malen.
- zum Schluß wieder das erste Bitmap zurück in den Canvas schreiben.
(nur als Notlösung, falls sonst nichts klappt)

[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 :thumb:

[Der schöne Günther]

Zitat:

Zitat von venice2 (Beitrag 1478914)

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
      )

[venice2]

Zitat:

Zitat von stahli (Beitrag 1478918)

Emil, Du bist und bleibst mein Grafik-Guru :thumb:

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. :wink:

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