Bitmap-Width

This property identifies the width in pixels of the image displayed in the Tree-View. The bitmap strip identified by the Bitmap-Handle property is divided into several smaller images. The width of each image is the value assigned to this property.

 

Example - Define a tree-view that uses bitmaps for the item icons

working-storage section. 77 app-png pic s9(9) comp-4. ... screen section. ...   03 screen-1-tv-1 Tree-View      line 2.7      column 3.4      size 20.8 cells       lines 29.1 cells       background-color 6      foreground-color 7      id 2      no-box      bitmap-handle app-png      bitmap-width 20      . ... procedure division. ...   call "w$bitmap" using wbitmap-load "app.png" giving app-png. ...   modify screen-1-tv-1          parent = null          item-to-add "Option 1"          giving tv-item-hdl          bitmap-number 1          parent = tv-item-hdl          item-to-add "Sub-option 1.1"          giving tv-item-hdl2          bitmap-number 2          parent = tv-item-hdl          item-to-add "Sub-option 1.2"          giving tv-item-hdl3          bitmap-number 2          parent = null          item-to-add "Option 2"          giving tv-item-hdl0          bitmap-number 1          parent = tv-item-hdl0          item-to-add "Sub-option 2.1"          giving tv-item-hdl4          bitmap-number 2          parent = null          item-to-add "Option 3"          giving tv-item-hdl1          bitmap-number 1          . ...