var
BmpI: TBitmap;
BmpT: TBitmap;
ImgF: TImage;
begin
BmpI:=TBitmap.Create;
BmpT:=TBitmap.Create;
ImgF:=TImage.Create(nil);
BmpI.LoadFromFile('Image.bmp');
BmpT.Width:=32;
BmpT.Height:=32;
BmpT.Canvas.CopyRect(Rect(0, 0, 32, 32), BmpI.Canvas, Rect(0, 0, 32, 32));
ImgF.Picture.Assign(BmpT); // так работает, но не показывает изображение
ImgF.Assign(BmpT); // если так - ошибка
|