Wieso bekommt unter Windows der Text die Hintergrundfarbe, welche mit Brush.Color festgelegt wurde und bei Linux nicht ?
Code: Alles auswählen
procedure TForm1.Panel1Paint(Sender: TObject);
begin
with Panel1 do begin
Color := clGreen;
Canvas.Brush.Color := clBlue;
Canvas.Pen.Color := clYellow;
Canvas.TextOut(10, 10, 'Hello World');
Canvas.Rectangle(30, 30, 100, 100);
end;
end;
Ist dies ein Bug ?