من می خواهم تصویر پرسنل را داخل دایره نمایش دهم (تصویر می بایست Strethc شود و بصورت کامل داخل دایره نمایش داده شود)
pic1.png
کد زیر را برای اینکار نوشتم در یک فرم درست کار می کند و در فرم دیگر تصویر بصورت Tile نمایش داده می شود.
var
Image2: TImage;
begin
Image2 := TImage.Create(nil); // create instance of TImage
// Image.Picture.RegisterFileFormat('bmp', 'Just a normal BMP File!', TBitmap);
Image2.Picture.LoadFromFile(PubAddress_Pic);
Image2.Stretch := true ;
Shape1.Brush.Bitmap := Image2.Picture.Bitmap;
Shape1.Brush.Bitmap.Canvas.StretchDraw(Shape1.Boun dsRect, Image2.Picture.Bitmap);