isCOBOL Evolve : User Interface : Controls Reference : BITMAP : Properties : Bitmap-Raw-Width
Bitmap-Raw-Width
When inquired, this property returns the original width in pixels of the image hosted by the Bitmap control. This information might be useful after the image have been resized due to the Bitmap-Scale property.
 
Example - Retrieve the original image size of a scaled bitmap
working-storage section.
...
77 bmph pic 9(9).
77 bmpw pic 9(9).
...
procedure division.
...
  inquire screen-1-bi-1 bitmap-raw-height bmph
                        bitmap-raw-width  bmpw.