(HELP ME)如何填充矩形 (100分)

O

OldSnake

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-20

• #1

我设置Brush.Style为bsBDiagonal或其他类型，我希望填充的矩形是白底黑线，但总是黑底白线。
希望各位大虾指教！

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-20

• #2

这是因为你窗体的颜色是银灰色的缘故。

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-20

• #3

画重合的两个：

procedure TForm1.FormPaint(Sender: TObject);
begin
canvas.Brush.color:=clWhite;
canvas.Rectangle(100,100,200,200);
canvas.Brush.Style:=bsBDiagonal;
canvas.Brush.color:=0;
canvas.Rectangle(100,100,200,200);
end;

 

O

OldSnake

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-21

• #4

同意jsxjd的答案，谢谢。