Canvas,CopyRect doesn't work
Original Reporter info from Mantis: UlliR
-
Reporter name: Ulli Richter
Original Reporter info from Mantis: UlliR
- Reporter name: Ulli Richter
Description:
Var
JpegImg : TJpegImage;
Rect : Trect;
DRect : TRect;
Btemp : TBitmap;
begin
JpegImg := TJpegImage.Create;
BTemp := TBitmap.Create;
DRect.Left := 1;
DRect.Top := 1;
DRect.Right := 600;
DRect.Bottom := 600;
Rect.Left := 10;
Rect.Top := 100;
Rect.Right := 300;
Rect.Bottom := 400;
If FileExists('DimageA2_2.jpg') Then
JpegImg.LoadFromFile('DimageA2_2.Jpg');
//--- Image not show -----
BTemp.Canvas.CopyRect(DRect,JpegImg.Canvas,Rect) ;
Self.Canvas.Draw(1,1,BTemp);
//======================================================================================
ShowMessage('Ende');
Btemp.Free;
JpegImg.Free;
close;
Mantis conversion info:
- Mantis ID: 35732
- OS: Windows
- OS Build: 7 Home
- Build: 2,02
- Platform: Desktop
- Version: 2.3 (SVN)