Vẽ một điểm đánh dấu như bản đồ google với TCanvas trên Delphi

Question

Trên ứng dụng của tôi, tôi cần vẽ trên TCanvas một "điểm đánh dấu", như dấu Google Maps (xem hình ảnh).

Tôi muốn sử dụng là tham số thì bán kính, chiều cao và nguồn gốc:

Tôi không có ý tưởng về thuật toán để sử dụng. Tôi có thể sử dụng một vòng cung để vẽ phía trên, nhưng làm thế nào tôi có thể vẽ đáy? Lưu ý: Tôi cần vẽ cả hai bằng GDI và GDI + để mọi giải pháp đều được chào đón.

Answer 1

Dưới đây là ví dụ nhanh sử dụng 200x200 PaintBox - ít nhất nó sẽ cung cấp cho bạn ý tưởng về thuật toán. Tôi tin rằng bạn có thể vẽ chấm đen ở giữa. Đọc trên Bezier Curves; PolyBezier định nghĩa cubic Bezier curves. (link)

Bốn điểm xác định một đường cong Bezier khối - bắt đầu, kết thúc, và hai điểm kiểm soát. Các điểm điều khiển xác định độ cong của đường cong khi đường di chuyển từ đầu đến cuối.

var origin, innerL, midL, midR, lft, tp, rgt, innerR : TPoint; 
    radius, hgt : integer; 
begin  
    radius := 25; 
    hgt := 90;  
    origin.X := 100; 
    origin.Y := 180; 
    //control points 
    innerL.X := origin.X; 
    innerL.Y := origin.Y - (hgt - radius) div 3; 
    midL.X := origin.X - radius; 
    midL.Y := origin.Y - 2*((hgt - radius) div 3); 
    //top circle 
    lft.X := origin.X - radius; 
    lft.Y := origin.Y - (hgt - radius); 
    tp.X := origin.X; 
    tp.Y := origin.Y - hgt; 
    rgt.X := origin.X + radius; 
    rgt.Y := lft.Y; 
    //control points 
    midR.X := origin.X + radius; 
    midR.Y := midL.Y; 
    innerR.X := origin.X; 
    innerR.Y := innerL.Y; 

    PaintBox1.Canvas.Pen.Width := 2; 
    PaintBox1.Canvas.PolyBezier([origin, innerL, midL, lft]); 
    PaintBox1.Canvas.Arc(lft.X, tp.Y, rgt.X, rgt.Y + radius, rgt.X, rgt.Y, lft.X, lft.Y); 
    PaintBox1.Canvas.PolyBezier([rgt, midR, innerR, origin]); 
    //fill 
    PaintBox1.Canvas.Brush.Color := clYellow; 
    PaintBox1.Canvas.FloodFill(origin.X, origin.Y - radius, 
          Canvas.Pen.Color, TFillStyle.fsBorder);  
end; 

Để đáp ứng các điểm mà bạn có thể làm điều này với một Bút chì:

// add four more control TPoints 
    cornerL.X := lft.X; 
    cornerL.Y := tp.Y + radius div 2; 
    cL2.X := lft.X + radius div 2; 
    cL2.Y := tp.Y; 
    cR2.X := rgt.X - radius div 2; 
    cR2.Y := tp.Y; 
    cornerR.X := rgt.X; 
    cornerR.Y := cornerL.Y; 


    PaintBox1.Canvas.PolyBezier([origin, innerL, midL, lft, 
           cornerL, cL2, tp, cR2, cornerR, rgt, 
           midR, innerR, origin]);