PDA

View Full Version : نحوه ی استفاده از paintbox



sajioo
سه شنبه 12 خرداد 1394, 11:45 صبح
با سلام
دوستان من میخوام یک عکس که در imagecontrol لود کردم رو در paintbox ایجادش کنم.
چطور باید این کار رو کرد؟
من یک کد گرفتم اینطوره


DrawBitmap(PaintBox.Canvas,20,20,bt);

procedure DrawBitmap(const Canvas: TCanvas; Left, Top: Single; Bitmap: TBitmap);
var
SrcRect, DestRect: TRectF;
begin
if Bitmap = nil then Exit;


SrcRect.Left := 0;
SrcRect.Top := 0;
SrcRect.Width := Bitmap.Width;
SrcRect.Height := Bitmap.Height;


DestRect.Left := Left;
DestRect.Top := Top;
DestRect.Width := Bitmap.Width;
DestRect.Height := Bitmap.Height;


Canvas.DrawBitmap( Bitmap, SrcRect, DestRect, 1 );
end;



اما متاسفانه جواب نداد.
با دلفی xe7 کار میکنم دوستان