sajioo
سه شنبه 12 خرداد 1394, 12: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 کار میکنم دوستان
دوستان من میخوام یک عکس که در 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 کار میکنم دوستان