کلینیک دلفی

شیوا خانوم هم برای کار با تصاویر کمک خواستن فکر کنم تا این حد کافیه )فایل کار با تصویر یکم هم خب خلاقیت لازمه  ... این یه تیکه کد برای کپی کردن قسمتی از تصویر به روی تصوبر دیگس :  

rocedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
   Image1.Picture.LoadFromFile(OpenDialog1.FileName);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  Image2.Canvas.CopyRect( Rect(0,0,Image2.Width,Image2.Height),
                          Image1.Canvas, Rect( 0, 0, Image1.Picture.Width-50,
                          Image1.Picture.Height-50));
end;

کامپوننت کار با تصاویر    پروژه ای برای کار با تصاویر 

و مجتبی جان عزیز هم فایل کار با بلوتوث رو خواسته بودن که البته این بدون پسوورد هستش  روی تم مجتبی جان که اینقدر دیر شد شرمندم ... Bluetooth_Framework_VCL_5[1].2.2  البته برا اون دسته از دوستای گلم که با این کامپوننت آشنا نیستن بگم که برا کار با بلوتوث این کاپوننت خیلی توانمنده و راحت!!!