Delphi: нарисовать сглаженный треугольник - PullRequest
Новая
       50

Delphi: нарисовать сглаженный треугольник

3 голосов
/ 25 декабря 2011

Как нарисовать сглаженный треугольник в ListBoxDrawItem? 

ListBox.Canvas.Polygon

рисует с зазубринами.

Спасибо !!!

Ответы [ 2 ]

4 голосов
/ 26 декабря 2011

Самый простой подход к получению сглаженного рисования с помощью 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 - нарисованный с сглаживанием. Обратите внимание, что текст также получил некоторые эффекты:

enter image description here

Я бы, конечно, посоветовал вам принять во внимание одно из предложений Дэвида. Этот код был довольно экспериментальным:).

4 голосов
/ 25 декабря 2011

Нет ничего встроенного в том, что будет делать сглаживание.Вы могли бы использовать GDI +, но я бы порекомендовал graphics32 , который с радостью будет рисовать сглаженные полигоны .

...