Graph Unit ?

أكيد ممكن وتسمى ال Composant المتخصصه في هته العمليه Shape

أنا آسف لأن جوابي ليس طويل لكني لم أفهم سؤالك جيدا

الوحدة Graphics المرفقة مع دلفي متقدمة أكثر بكثير

وتحوي الكائن المهم Canvas الذي يسمح لك بالتحكم بالرسوم بشكل ممتاز

مثلا لرسم خط إستخدم زوج التعليمات :

Canvas.MoveTo(0,0);
 Canvas.LineTo(500,500);

إذا أردت التحكم باللون والنوع مثلا بإمكانك ضبط الخاصية Pen (أحيانا Graph ) :

With Form1.Canvas do
 begin
  Pen.Color:=clred;   // لون الخط أحمر
  pen.Style:=psDash; // خط متقطع

  MoveTo(0,0);
  LineTo(500,500);
 end;

بإمكانك أيضا رسم بعض التوابع الهندسية الشهيرة مثل المستطيل والدائرة والقطع الناقص . مثال :

with  Form1.Canvas do
 begin
 Rectangle(0,0,100,100);
 Ellipse(100,100,250,300);
 end;

ومن الخصائص الرائعة الخاصة Pixcels التي تسمح لك بقرائة لون أي نقطة من الشاشه (ذات الإحداثيات X,Y ) وتسمح لك بتغيير لونها إلى أي لون تريدة .

تستطيع الإستفادة من ذلك في بناء أداة تقرأ لون الصورة الحالي ,

مثل اداة السحاحة .

أو بناء توابع تعالج الصور مثل توابع الفلاتر وغيرها ,..

ربما لن تصدق ماهو خرج هذا البرنامج الصغير . :

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
for i:= 0 to 800 do
for j:= 0 to 600 do
form1.Canvas.Pixels[i,j]:=i*j and $FF;
end;
end.

والعديد العديد من توابع الرسم مثل التابع الفائق السرعة ScanLine وغيرة .

وهذة هي صورة عن الخرج السابق :