Label "Transparenz" beibringen

[DieDolly]

Ich nutze eine vorgefertigte Komponente, um HTML-ähnliche Structuren in einem Label eingeben zu können. Das funktioniert jetzt so wie gewollt. Danke an alle, die beteiligt waren bisher.

Aber ein aller letztes, sehr großes Problem bleibt! Wie bringe ich diesem Label Transparenz bei?
Auf einem TPanel ist das Label transparent.

ABER
PageControl auf das Formular, dort eine Seite erstellen und dort das Label drauf. Dann ist es nicht mehr transparent sondern nimmt die Hintergrundfarbe vom Control an, was unter dem TPageControl ist. In diesem Fall das Form.

Im OnCreate des Labels steht schon ControlStyle := [csOpaque, csCaptureMouse, csClickEvents, csSetCaption]; deswegen verstehe ich nicht, was hier falsch ist.

Ich weiß, dass es keine Transparenz in dem Sinne gibt. Die Komponente sollte also, um "transparent" zu sein, die Farbe vom Parent annehmen. Aber wie vermittelt man dem sowas? Ist das überhaupt der richtige Weg?

[Uwe Raabe]

Wenn es transparent sein soll, dann sollte csOpaque eigentlich nicht gesetzt werden.

[DieDolly]

Das Resultat ist leider gleich. Das Label nimmt die Farbe vom Parent an (hier Form).
Wenn ich innerhalb der Komponente auf das Property Color des Parents zugreifen könnte, könnte ich so einen unschönen Workaround basteln denke ich.
Aber da komme ich leider nicht ran.

Ein MDLabel1.Color := clRed; (egal welche Farbe man nimmt, am besten die des Parents) löst das Problem aber ich würde gerne vermeiden, das jedes mal zuweisen zu müssen.

[Uwe Raabe]

Ich habe jetzt nur auf die Schnelle mal drüber gesehen, aber wenn in der Paint-Methode folgendes steht

Delphi-Quellcode:

 
if Assigned(FOnPaintBackground) then
  FOnPaintBackground(self, self.Canvas, Width, Height)
 else
  begin
   Canvas.Pen.Width := 0;
   Canvas.Brush.Style := bsSolid;
   Canvas.Brush.Color := Color;
   Canvas.Pen.Color := Canvas.Brush.Color;
   Canvas.Rectangle(ClientRect);
   Canvas.Brush.Style := bsClear;
  end;

und FOnPaintBackground nicht zugewiesen ist, wie soll denn das Label dann transparent sein? Hier wird doch explizit ein Rechteck mit der Color des Labels gemalt.

[DieDolly]

FOnPaintBackground schmeiße ich gleich auch raus.
Wenn das Event dann weg ist, was müsste man hier schreiben, damit es transparent ist?

Wenn ich

Delphi-Quellcode:

Canvas.Brush.Color := Color;
   Canvas.Pen.Color := Canvas.Brush.Color;

kommentiere, ist es zwar transparent, aber das Label hat einen schwarzen, 1px Kasten drumherum, obwohl Pen Width 0 ist.

[himitsu]

keine Color und/oder kein Style = keine Farbe


Warum überhaupt ein Rechteck zeichnen, wenn du Keines willst?