Как я могу нарисовать сглаженный треугольник на ListBoxDrawItem?Delphi: нарисовать сглаженный треугольник
ListBox.Canvas.Polygon
рисует с помощью зазоров.
Спасибо !!!
Как я могу нарисовать сглаженный треугольник на ListBoxDrawItem?Delphi: нарисовать сглаженный треугольник
ListBox.Canvas.Polygon
рисует с помощью зазоров.
Спасибо !!!
Самый простой подход для достижения сглаженного рисунка с помощью 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 - один обращается со сглаживанием. Обратите внимание, что текст также получили некоторые эффекта:
Я бы, конечно, советую вам принять одно из предложений Дэвида во внимание. Этот код был довольно экспериментальным :).
Внутри ничего не будет создано сглаживание. Вы можете использовать GDI +, но я бы порекомендовал graphics32, который с радостью рисует anti-aliased polygons.