Hello,
I am using following code for crop an image into two equal halfs but am not getting expected results. Please tell what mistake am I making here:
ieTemp.IO.LoadFromFileAuto(PhotoFileName);
ieTemp.LayersCurrent := 0;
CropLeft := ieTemp.CurrentLayer.PosX;
CropTop := ieTemp.CurrentLayer.PosY;
CropWidth := ieTemp.CurrentLayer.Width div 2;
CropHeight := ieTemp.CurrentLayer.Height;
ieTemp.Proc.Crop(Rect(CropLeft, CropTop, CropWidth, CropHeight));
// Assign the Layer to Main ImageEn
ieMain.LayersCurrent := 1;
ieMain.CurrentLayer.Bitmap.Assign(ieTemp.CurrentLayer.Bitmap);
/////////=============================
ieTemp.IO.LoadFromFileAuto(PhotoFileName);
ieTemp.LayersCurrent := 0;
CropLeft := CropWidth;
CropWidth := ieTemp.CurrentLayer.Width - CropLeft;
ieTemp.Proc.Crop(Rect(CropLeft, CropTop, CropWidth, CropHeight));
// Assign the Layer to Main ImageEn
ieMain.LayersCurrent := 2;
ieMain.CurrentLayer.Bitmap.Assign(ieTemp.CurrentLayer.Bitmap);
TIA
Yogi Yang