如何在 ListBoxDrawItem 上绘制抗锯齿三角形?
ListBox.Canvas.Polygon
绘制有锯齿。
谢谢!!!
最佳答案
使用 GDI 实现抗锯齿绘图的最简单方法是绘制到更大的表面,然后在启用半色调拉伸(stretch)模式的情况下缩小到原始尺寸。
下面的代码示例使用了比列表框客户区大 16 倍的位图(这是一个相当大的位图,绘制起来会花费很多时间,但应该更容易看到效果)。
procedure TForm1.Button1Click(Sender: TObject);
const
ZOOM = 16;
var
Bmp: TBitmap;
StretchMode: Integer;
begin
// for comparison
ListBox2.Canvas.Polygon([Point(20, 10), Point(10, 50), Point(80, 30)]);
Bmp := TBitmap.Create;
// create a large bitmap and set coordinate extents accordingly
Bmp.SetSize(ListBox1.ClientWidth * ZOOM, ListBox1.ClientHeight * ZOOM);
SetMapMode(Bmp.Canvas.Handle, MM_ISOTROPIC);
SetWindowExtEx(Bmp.Canvas.Handle, 100, 100, nil);
SetViewportExtEx(Bmp.Canvas.Handle, 100 * ZOOM, 100 * ZOOM, nil);
// without halftone we won't gain anything
SetStretchBltMode(Bmp.Canvas.Handle, HALFTONE);
// transfer what's on the list box to bitmap canvas
BitBlt(Bmp.Canvas.Handle, 0, 0, Bmp.Width, Bmp.Height,
ListBox1.Canvas.Handle, 0, 0, SRCCOPY);
Bmp.Canvas.Polygon([Point(20, 10), Point(10, 50), Point(80, 30)]);
// transfer bitmap contents
StretchMode := SetStretchBltMode(ListBox1.Canvas.Handle, HALFTONE);
StretchBlt(ListBox1.Canvas.Handle, 0, 0,
ListBox1.ClientWidth * ZOOM, ListBox1.ClientHeight * ZOOM,
Bmp.Canvas.Handle, 0, 0, Bmp.Width, Bmp.Height, SRCCOPY);
SetStretchBltMode(ListBox1.Canvas.Handle, StretchMode);
Bmp.Free;
end;
在下图中,左侧是 ListBox1 - 使用抗锯齿绘制的列表框。请注意,文本也获得了一些效果:
我当然建议您考虑大卫的建议之一。这段代码相当实验性:)。
关于Delphi:绘制抗锯齿三角形,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/8630914/