From: Jos v.d.V. <jo...@us...> - 2008-09-10 11:23:55
|
Update of /cvsroot/win32forth/win32forth/demos In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv20895 Modified Files: ListViewDemo.f Log Message: Jos: Removed a backup definition. Index: ListViewDemo.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/ListViewDemo.f,v retrieving revision 1.17 retrieving revision 1.18 diff -C2 -d -r1.17 -r1.18 *** ListViewDemo.f 2 Sep 2008 06:46:27 -0000 1.17 --- ListViewDemo.f 10 Sep 2008 11:23:46 -0000 1.18 *************** *** 111,125 **** ;M - : 0GetParmsItem ( nItem - Z$text Lparm flNew ) - LVIF_TEXT LVIF_PARAM or SetMask: LvItem - out$: RightTopPane SetpszText: LvItem - maxstring SetcchTextMax: LvItem - SetiItem: LvItem - Addr: LvItem GetItem: ListViewLeft drop out$: RightTopPane - GetlParam: LvItem dup SelectedItemLeft <> - if dup to SelectedItemLeft true - else false - then ; - : GetParmsItem ( nItem - Z$text Lparm flNew ) >r LVIF_TEXT LVIF_PARAM or SetMask: LvItem --- 111,114 ---- |