رسم شكل هندسي بداخله رقم ؟

[kachwahed]

وعليكم السلام
للرسم في الدلفي تستخدم Canvas مع دوال الرسم... إبدأ وسنساعدك إن شاء الله.
لرسم دائرة:

PHP كود :

var
  i: Integer;

procedure DrawEllipse(X, Y: Integer; lpData: LParam); stdcall;

implementation

procedure DrawEllipse(X, Y: Integer; lpData: LParam);
begin
  with TObject(lpData) as TForm do
  begin
    if (i mod 10 = 0) then
      Canvas.Ellipse(x-5, y-5, x+5, y+5);
    Inc(i);
  end;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  i := 0;
  LineDDA(0, 0, Width, Height, @DrawEllipse, Integer(yourForm));
end; 


بالتوفيق.