Methods


procedure IncreaseImageScale(AIncrement: Boolean);

Increases (AIncrement = True) or decreases the current image scale using predefined set of scale values.
The minimal value in this set is 7, and the maximal is 1600.

procedure UpdateImageInfo;

Updates internal image info fields.
Must be called after you load a new image.
The typical image load procedure can look like this:

  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;