Hallo,

ich möchte in eine Bitmap ein schraffiertes Rechteck zeichnen:

markieren

Delphi-Quellcode:

  
  PaintBitmap.Canvas.Brush.Color := clAqua;
  PaintBitmap.Canvas.Brush.Style := bsDiagCross;
  PaintBitmap.Canvas.Pen.Color := clAqua;
  PaintBitmap.Canvas.FillRect(rect(10, 10, 100, 100));

Das funktioniert zwar, aber der Hintergrund der Schraffur ist schwarz anstelle wie gewünscht weiß!
Was habe ich übersehen?

Ciao
Stefan

zusammenfalten · markieren

Delphi-Quellcode:

uses System.UITypes;

{$R *.dfm}

type
   TCanvasHelper = class helper for Vcl.Graphics.TCanvas
      procedure setBrushBackgroundColor(const color: TColor);
   end;

procedure TForm2.PaintBoxPaint(Sender: TObject);
var
   c: TCanvas;
begin
   c := (Sender as TPaintBox).Canvas;

   c.Brush.Style := TBrushStyle.bsDiagCross;
   c.Brush.Color := TColors.Aqua;
   c.setBrushBackgroundColor(TColors.Red);

   c.FillRect( TRect.Create(10, 10, 100, 100) );
end;

procedure TCanvasHelper.setBrushBackgroundColor(const color: TColor);
begin
   Win32Check( SetBkColor(Handle, color) <> 0 );
end;

Vielleicht weil dein Bitmap schwarz ist? Vorher einfach mit FillRect den Bereich weiß füllen.