如何画一个实心的三角形(50分)

hwljerry · 2006-03-07

我要画一个实心的三角形，用Polygon函数来画，
但是当画笔的笔度变大的时候，画出来三角形的边角会变成有点圆角，
要让三角形的边角不管画笔的笔宽变的多大，边角都不会变成圆角，要该怎么弄。。。

duhai_lee · 2006-03-07

换换画笔的风格。试试。

victorfjb · 2006-03-07

pen style and width

wk_knife · 2006-03-07

API ExtCreatePen
DELPHI没有封装,自己弄吧

myid0602 · 2006-03-08

先改变画刷风格，再使用Polygon函数来画。
例如：
Image1.Canvas.Brush.Color := clBlack;
Image1.Canvas.Polygon([Point(100, 10), Point(10, 130), Point(240, 120)])

hwljerry · 2006-03-10

多人接受答案了。