Text hat andere Hintergrundfarbe:
entweder du weist dem Canvas generell die Hintergrundfarbe deines Controls zu
Delphi-Quellcode:
procedure TBaseCustomControl.Paint;
begin
inherited;
Canvas.Font.Assign(self.Font);
end;
oder du machst den Hintergrund des Textes transparent.
Delphi-Quellcode:
TextRect := Rect(2, 2, self.Width-2, TitleHeight-2);
SetBkMode(Canvas.Handle, TRANSPARENT);
DrawText(self.Canvas.Handle, PChar(FCaption), -1, TextRect,
DT_CENTER or DT_VCENTER or DT_SINGLELINE);
Gruß oki