| procedure IncreaseImageScale(AIncrement: Boolean);
Increases (AIncrement = True) or decreases the current image scale
using predefined set of scale values. |
| procedure UpdateImageInfo;
Updates internal image info fields.
procedure TFormMain.LoadImage(const AFileName: string);
begin
try
try
ATImageBox1.Image.Resample := True;
ATImageBox1.Image.ResampleBackColor := ATImageBox1.Color;
ATImageBox1.Image.Picture.LoadFromFile(AFileName);
finally
ATImageBox1.UpdateImageInfo;
end;
except
Application.MessageBox('Could not load image', 'Error',
MB_OK or MB_ICONERROR);
end;
end;
|