delphi - Delphi：アンチエイリアスされた三角形を描く

Question

ListBoxDrawItem でアンチエイリアス処理された三角形を描画するにはどうすればよいですか?

ListBox.Canvas.Polygon

ギザギザで描きます。

ありがとう！！！

Answer 1

GDI でアンチエイリアス描画を実現する最も簡単な方法は、より大きなサーフェスに描画してから、ハーフトーンが有効なストレッチ モードを使用して元の寸法に戻すことです。

以下のコード例では、リスト ボックスのクライアント領域よりも 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 があり、これはアンチエイリアスで描画されたものです。テキストにもいくつかの効果があることに注意してください。

もちろん、David の提案の 1 つを考慮に入れることをお勧めします。このコードはかなり実験的なものでした:)。

Answer 2

アンチエイリアシングを行うものは何も組み込まれていません。GDI+ を使用することもできますが、アンチエイリアス ポリゴンを喜んで描画するgraphics32をお勧めします。