Hallo,

ich habe ein transparentes Panel, welches weitere Controls enthält.
Der Hintergrund wird auch schön durchgezeichnet, bis auf einen kleinen Fehler:

Sobald das Panel per Code verschoben wird, wandert der transparente Bereich mit, als wenn er ausgeschnitten worden wäre!
Ein Panel.Refresh oder Repaint bringt gar nichts, ich behelfe mir momentan damit, das Panel vor dem Schieben unsichtbar zu machen und danach wieder visible zu setzen, dann ist der durchscheinende Hintergrund wieder korrekt.

Nur gefällt mir das nicht, es muss doch eine Möglichkeit geben, diesen Hintergrund zu "repainten"?

Ciao
Stefan

Zitat:

es muss doch eine Möglichkeit geben, diesen Hintergrund zu "repainten"?

Dann musst du WM_PAINT überschreiben und den Hintergrund in dem Event auf das Panel neu zeichnen..

Zitat:

Ein Panel.Refresh oder Repaint bringt gar nichts

Wie denn auch es ist nur ein Invalidate es zeichnet aber nicht automatisch den Hintergrund deines Panels in das Panel.
Das must du selber tun.

gruss

Zitat von skoschke:

Hallo,

ich habe ein transparentes Panel, welches weitere Controls enthält.
Der Hintergrund wird auch schön durchgezeichnet, bis auf einen kleinen Fehler:

Sobald das Panel per Code verschoben wird, wandert der transparente Bereich mit, als wenn er ausgeschnitten worden wäre!
Ein Panel.Refresh oder Repaint bringt gar nichts, ich behelfe mir momentan damit, das Panel vor dem Schieben unsichtbar zu machen und danach wieder visible zu setzen, dann ist der durchscheinende Hintergrund wieder korrekt.

Nur gefällt mir das nicht, es muss doch eine Möglichkeit geben, diesen Hintergrund zu "repainten"?

Ciao
Stefan

Versuch mal das Parent des Panels per Invalidate neu zu zeichnen. Ich nehme mal an, ParentBackground des Panels ist True?

Arbeitest Du mit mit der VCL?

Es gibt da keine wirklich transparenten Controls.

Wenn Du das einigermaßen umsetzen kannst wird der Hintergrund letztlich in das Panel kopiert.
Wenn Du das Panel dann verschiebst, sieht das aus wie ausgeschnitten (ist es ja auch).

Wie man das am besten heilt kann ich nicht sagen und es kann auch auf jedem System und jeder Delphi-Version wieder etwas anders (besser/schlechter) funktionieren.

Mit FMX könnte das vielleicht besser gehen, aber da gibt es wieder andere Nachteile.

Zitat:

Wenn Du das einigermaßen umsetzen kannst wird der Hintergrund letztlich in das Panel kopiert.
Wenn Du das Panel dann verschiebst, sieht das aus wie ausgeschnitten (ist es ja auch).

Richtig!
Die Lösung habe ich gepostet.

Zitat:

Versuch mal das Parent des Panels per Invalidate neu zu zeichnen. Ich nehme mal an, ParentBackground des Panels ist True?

Bringt gar nichts.
Indem man das Parent zwingt sich neu zu zeichnen bekomme ich den Inhalt des Parent nicht in mein Panel.

gruss

Zitat von EWeiss:

Indem man das Parent zwingt sich neu zu zeichnen bekomme ich den Inhalt des Parent nicht in mein Panel.

Die VCL ist da dann doch nicht ganz so stumpf. Wenn ParentBackground gesetzt ist, dann führt das Invalidate ein InvalidateRect auf das Parent.Handle aus. Insofern ist das schon nicht so falsch gedacht. Es ist ja auch nicht das Panel selbst, das den Hintergrund zeichnet, sondern eben das Parent-Control. Das Panel übermalt diesen halt in seiner eigenen Paint-Routine dann nicht mehr.

Zitat von skoschke:

Sobald das Panel per Code verschoben wird, wandert der transparente Bereich mit, als wenn er ausgeschnitten worden wäre!

Ich hätte dazu jetzt gern ein kleines Beispiel-Programm, mit dem man diesen Fehler nachvollziehen kann.

Zitat:

Die VCL ist da dann doch nicht ganz so stumpf.

Nun gut.. Ich mache es ohne VCL alles von Hand und es funktioniert.

Zitat:

Es ist ja auch nicht das Panel selbst, das den Hintergrund zeichnet

Bei mir schon es wird der Hintergrund in das Panel gezeichnet.
Siehe Shot.. Panel in Panel und beide übernehmen den Inhalt des Hauptfensters. (JA nicht 100% Transparent aber emuliert! )
Zudem verlieren meine Panels den eigenen Inhalt nicht.. wenn dem so wäre könnte man die Rahmen der Panels nicht mehr erkennen.

Mein Window wird so erstellt..

markieren

Delphi-Quellcode:

FHPanel := CreateWindowEx(WS_EX_TRANSPARENT, SKPANEL, '', Style, Left, Top, Width, Height,
  ParentHandle, DlgItemID, SkinEngine.skInstance, nil);

Inklusive den Property Style BS_GROUPBOX.

Bin raus.. da es hier um VCL geht.

gruss

Hallo,

es funktioniert nun so wie gewünscht, der Tip mit dem Invalidate des Parents war der entscheidende!

Vielen Dank!