Eigenen Brush Style

[Meflin]

Du kannst deinem TBrush ein Bitmap als BrushStyle übergeben

Delphi-Quellcode:

var 
  Bitmap: TBitmap; 
begin 
  Bitmap := TBitmap.Create; 
  try 
    Bitmap.LoadFromFile('MyBitmap.bmp'); 
    Form1.Canvas.Brush.Bitmap := Bitmap; 
    Form1.Canvas.FillRect(Rect(0,0,100,100)); 
  finally 
    Form1.Canvas.Brush.Bitmap := nil; 
    Bitmap.Free; 
  end; 
end;