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; |