Hallo,
ich glaube den Fehler gefunden zu haben:
Zitat:
Delphi-Quellcode:
if FBorderstyle = bsSingle then
begin
inherited;
if (Parent = NIL) or not visible
then Exit;
begin
ComponentBackround := Rect(0, 0, Width, Height); //<<<<<< ist das Komponenten Background?
// oder von Form1? Was ist Width oder Height? Formularbreite und Höhe?
Canvas.Brush.Color := FColor; //<<<<<< welches Canvas? //// ********
Canvas.Pen.Color := FColor; //// ********
Canvas.Pen.Style := psSolid;
Canvas.FillRect(ComponentBackround);
Du verwendest für Pen und Brush die gleiche Farbe! Weisser Adler auf weissem Grund?