isCOBOL Evolve : User Interface : Controls Reference : BITMAP : Properties : Bitmap-Scale
Bitmap-Scale
This property specifies what to do if the image dimensions don’t fit the Bitmap area identified by Lines and Size properties.
The possible values for this property are:
0
The image is not altered. In this case, if the image is too large, it will be truncated, if it’s too small, it will be aligned to the top left corner of the Bitmap area. This is also the default behavior when Bitmap-Scale is not set.
1
The image is resized to fit completely the Bitmap area. The aspect ratio may be altered.
2
The image is resized maintaining the aspect ratio. The resized image may not fit completely the Bitmap area.
The quality of the scaled image is controlled by the iscobol.bitmap_scale.best_quality (boolean) configuration property.
If the Bitmap control is resized by a Layout-Manager and Bitmap-Scale is set to "1" or "2", then the image is resized along with the window.
 
Example - Define a bitmap control that will display a scaled image
working-storage section.
...
77 jlogo-jpg pic s9(9) comp-4.
...
screen section.
...
  03 screen-1-bi-1 Bitmap
     line 10.0
     column 48.0
     size 130 pixels 
     lines 150 pixels 
     id 5
     bitmap-scale 1
     bitmap-handle jlogo-jpg
     bitmap-number 1
     .