Einzelnen Beitrag anzeigen

Benutzerbild von Uwe Raabe
Uwe Raabe
Online

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.453 Beiträge
 
Delphi 12 Athens
 
#4

AW: Label "Transparenz" beibringen

  Alt 8. Jun 2020, 18:42
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.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat