List-view - %lv[options]

In this section:

• Bar format - %Nbr[options]
• Horizontal and vertical scroll bars %hx and %vx
• List box format - %n.mls[options]
• Multiple selection box - %n.mms
• List-view - %lv[options]
• Tree-view - %N.Mtv[options]
• Branch-view - %bv[options]
• Colour palette - %cl[options]

A list view control is a window that displays a collection of items, each item consisting of an optional icon and a label. List view controls provide several ways of arranging items and displaying individual items. One of the arguments for %lv (List View) is an integer variable in the range 0..3 that represents the type of view: 0=Icon view; 1=Report view; 2=Small icon view; 3=List view. In the report view, additional information about each item can be displayed in columns to the right of the icon and label. The Microsoft Explorer uses a list view in order to display directory information. Here is a Fortran 95 example that illustrates the concept. For further details see %lv (List View).

INTEGER N
PARAMETER (N=20)
CHARACTER*36 info(N),Colour,icons*60
INTEGER rgb(N-1),sel(N-1),view,hwnd,winio@,RGB@
COMMON info,rgb,hwnd
EXTERNAL call_back
INTEGER call_back,i
sel=0;rgb=0
rgb(1)=RGB@(255,0,0)
rgb(2)=RGB@(0,255,0)
rgb(3)=RGB@(0,0,255)
rgb(4)=RGB@(0,255,255)
rgb(5)=RGB@(255,0,255)
rgb(6)=RGB@(255,255,0)
info(1)='|Colour_90|Red|Green|Blue'
info(2)=Colour('|ARed|', rgb(1))
info(3)=Colour('|BGreen|', rgb(2))
info(4)=Colour('|CBlue|', rgb(3))
info(5)=Colour('|DCyan|', rgb(4))
info(6)=Colour('|EMagenta|', rgb(5))
info(7)=Colour('|FYellow|', rgb(6))
view=1
icons='red,green,blue,cyan,magenta,yellow,blank'
i=winio@('%ww%sy[3d]%ca[Listview sample]&')
i=winio@('%mn[Views[Icon]]&', 'SET',view,0)
i=winio@('%mn[[Report]]&', 'SET',view,1)
i=winio@('%mn[[Small icon]]&','SET',view,2)
i=winio@('%mn[[List]]&', 'SET',view,3)
i=winio@('%pv%`^lv[edit_labels,single_selection]&',
+ 240,120,info,N,sel,view,icons,call_back)
i=winio@('%ff%cn%10`rs%lc','Selected colour',hwnd)
END

CHARACTER*36 FUNCTION Colour(name,rgb)
CHARACTER(*) name
INTEGER rgb,r,g,b
CHARACTER*3 rc,gc,bc
r=AND(255,rgb)
g=AND(255,RS(rgb,8))
b=AND(255,RS(rgb,16))
WRITE(rc,'(i3)') r
WRITE(gc,'(i3)') g
WRITE(bc,'(i3)') b
rc=ADJUSTL(rc)
gc=ADJUSTL(gc)
bc=ADJUSTL(bc)
WRITE(Colour,'(6a)') name,rc(1:LEN_TRIM(rc)),'|',
+ gc(1:LEN_TRIM(gc)),'|',bc(1:LEN_TRIM(bc))
END

INTEGER FUNCTION call_back()
INCLUDE <windows.ins>
INTEGER N
PARAMETER (N=20)
CHARACTER*36 info(N)
INTEGER rgb(N-1),hwnd,row
COMMON info,rgb,hwnd
CHARACTER*36 Colour,name
call_back=2
SELECT CASE(clearwin_string@('CALLBACK_REASON'))
CASE('SET_SELECTION')
row=clearwin_info@('ROW_NUMBER')
CALL set_control_text_colour@(hwnd,rgb(row))
CASE('END_EDIT')
name=clearwin_string@('EDITED_TEXT')
row=clearwin_info@('ROW_NUMBER')
info(row+1)(3:)=Colour(name(1:LEN_TRIM(name))//'|',rgb(row))
CALL window_update@(info)
END SELECT
END

RESOURCES
red ICON red.ico
green ICON green.ico
blue ICON blue.ico
cyan ICON cyan.ico
magenta ICON magenta.ico
yellow ICON yellow.ico
blank ICON blank.ico

The winio@ statement that generates the list-view is:

i=winio@('%`^lv[edit_labels,single_selection]&',
+ 240,120,info,N,sel,view,icons,call_back)

Here is an outline of the meaning of the symbols and variables used in this statement: