Einzelnen Beitrag anzeigen

venice2
(Gast)

n/a Beiträge
 
#6

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

  Alt 11. Dez 2020, 09:40
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.

Geändert von venice2 (11. Dez 2020 um 09:43 Uhr)
  Mit Zitat antworten Zitat