Delphi рисует гладкий пирог

Question

Есть ли у кого-нибудь код для рисования гладкого пирога на холсте в Delphi?

Все, что я мог найти в Интернете, - это примеры гладких линий, но это не очень помогает мне ... Также я рассмотрел Gr32, но для чего мне нужно, это добавляет довольно большой размер для моего приложения. мне просто нужно нарисовать заполненный пирог на холсте, который не выглядит так ужасно, как это делает с я использую Delphi XE, поэтому не FireMonkey по умолчанию

Canvas.Pie(X1, Y1, X2, Y2, X3, Y3, X4, Y4); 

...

EDIT

пирог слева получается следующая вашей рекомендации @johan, используя следующий код:

procedure TForm1.Button4Click(Sender: TObject); 
var 
    Center:TPoint; 
    Radius:integer; 
    Bmp: TBitmap; 
    MF: TMetaFile; 
    MetafileCanvas: TMetafileCanvas; 
begin 
    MF := TMetaFile.Create; 
    MF.Width := 150; 
    MF.Height := 150; 

    MetafileCanvas := TMetafileCanvas.Create(MF, 0); 
    MetafileCanvas.Pen.Color := clRed; 
    MetafileCanvas.Brush.Color := clRed; 
    MetafileCanvas.Brush.Style := bsSolid; 
    MetafileCanvas.Pie(0,0,150, 150, 150,50, 150,50); 

    MetafileCanvas.Free; 

    Bmp := Gdip.DrawAntiAliased(MF); 
    Image2.Picture.Assign(Bmp); 
    Bmp.Free; 
    MF.Free; 
end; 

Благодаря

Answer 1

Для нанесения сглаживается вы можете использовать: Synopse библиотека gdiplus, см: http://synopse.info/fossil/wiki?name=GDI%2B

Вот пример:

implementation 

uses 
    SynGDIPlus; //provides gdip (see below) 

procedure TForm1.FormResize(Sender: TObject); 
var Bmp: TBitmap; 
    MF: TMetaFile; 
    MetafileCanvas: TMetafileCanvas; 
begin 
    MF := TMetaFile.Create; 
    MF.Width := 300; 
    MF.Height := 200; 

    MetafileCanvas := TMetafileCanvas.Create(MF, 0); 
    MetafileCanvas.Brush.Color := clRed; 
    MetafileCanvas.Brush.Style := bsDiagCross; 
    MetafileCanvas.Pie(0,0,50, 50, 300,50, 200,50); 
    MetafileCanvas.Free; 

    Bmp := Gdip.DrawAntiAliased(MF); 
    Image1.Picture.Assign(Bmp); 
    Bmp.Free; 
    //Image1.Picture.Assign(MF); 

    MF.Free; 
end; 

Использование этого аппарата вы тянуть только в этом одном устройстве, больше ничего.
Вам не нужно использовать метафайл, вы также можете рисовать непосредственно в DC, внутри SynGDIPlus использует метафайл.

Быстрее альтернатива
Если производительность является вопросом библиотека Graphics32 будет намного быстрее.
http://graphics32.org/wiki/

Я думаю, что вы слишком беспокоитесь о следе графики32.

Answer 2

Это можно сделать легко с помощью GDI +. Ключ используется SmoothingModeAntiAlias:

uses GDIPAPI, GDIPOBJ; 

procedure TForm1.FormPaint(Sender: TObject); 
var 
    g: TGPGraphics; 
    p: TGPPen; 
    b: TGPBrush; 
    r: TGPRect; 
begin 
    r := MakeRect(10, 10, ClientWidth - 20, ClientHeight - 20); 
    g := TGPGraphics.Create(Canvas.Handle); 
    g.SetSmoothingMode(SmoothingModeAntiAlias); 
    b := TGPSolidBrush.Create(aclGreen); 
    p := TGPPen.Create(aclRed, 1); 
    g.FillPie(b, r, 45, 90); 
    g.DrawPie(p, r, 45, 90); 
    b.Free; 
    p.Free; 
    g.Free; 
end; 

procedure TForm1.FormResize(Sender: TObject); 
begin 
    Invalidate; 
end; 

Испытано с Delphi5