I may be doing something wrong but if i have an image taht is 200x500 pixels for example and i crop it to 50x50. When i check the size if the image, it still shows 200x500.
After the crop, i use
// show file properties
procedure TFMain.ShowPropertyIOParams(params: TIOParams);
var
ss: string;
mdim, bitcount: integer;
fFileSize: integer;
fFrames: integer;
begin
if assigned(params) then
ss := IntToStr(params.Width) + ' x ' + IntToStr(params.Height) + ' pixel';