在 delphi-firemonkey 中使用以下代碼，很容易用純色或漸變色填充矩形，但我不知道如何用點或斜線等圖案填充它。
FillRect(RectF(a,b, c,d), 70, tbrush.Create(TBrushKind.Solid,TAlphaColorRec.gray));
感謝幫助。
uj5u.com熱心網友回復：
您可以使用位圖來提供“點和斜線”或任何用作圖案的圖形。在這種情況下，您定義TBrushKind.Bitmap何時創建畫筆。
這是一個將圖案畫筆保留為表單一部分的示例。評論解釋了細節。
private
Brush: TBrush;
BrushBmp: TBrushBitmap;
procedure TForm48.FormCreate(Sender: TObject);
begin
BrushBmp := TBrushBitmap.Create;
// Load bitmap to be used as brush
BrushBmp.Bitmap.LoadFromFile('C:\tmp\BrushA.bmp');
// Create the brush of proper TBrushKind
Brush := TBrush.Create(TBrushKind.Bitmap, TAlphaColorRec.Aqua);
// Assign the bitmap to the brush
Brush.Bitmap := BrushBmp;
end;
procedure TForm48.FormDestroy(Sender: TObject);
begin
Brush.Free;
end;
procedure TForm48.Rectangle1Paint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);
begin
// use the bitmap brush
Canvas.FillRect(ARect, 0.0, 0.0, AllCorners, 1.0, Brush, TCornerType.Bevel);
end;
位圖：
當用作填充時：
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/469382.html
上一篇：復合（？）組件內的命名子組件
下一篇：PAServer22在MacMonterey中不起作用，它使用與框架Python2.7鏈接的dylib，并且在Monterey的/System/library/Frameworks中不存在