[Win32forth-cvs] win32forth/demos ListViewDemo.f,1.3,1.4

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth/demos
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32201/demos

Modified Files:
	ListViewDemo.f 
Log Message:
Jos: Corrected the updated item and the order of the columns right.

Index: ListViewDemo.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/ListViewDemo.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** ListViewDemo.f	2 May 2006 12:29:03 -0000	1.3
--- ListViewDemo.f	2 May 2006 15:55:48 -0000	1.4
***************
*** 80,84 ****
  
  
! : GetParmsItem ( nItem  - Z$text Lparm flNew )
          LVIF_TEXT LVIF_PARAM or SetMask: LvItem
          out$: RightTopPane SetpszText: LvItem
--- 80,84 ----
  
  
! : 0GetParmsItem ( nItem  - Z$text Lparm flNew )
          LVIF_TEXT LVIF_PARAM or SetMask: LvItem
          out$: RightTopPane SetpszText: LvItem
***************
*** 92,95 ****
--- 92,107 ----
   ;
  
+ : GetParmsItem ( nItem  - Z$text Lparm flNew )
+         >r LVIF_TEXT LVIF_PARAM or SetMask: LvItem
+         out$: RightTopPane SetpszText: LvItem
+         maxstring SetcchTextMax: LvItem
+         r@ SetiItem: LvItem
+         Addr: LvItem GetItem: ListViewLeft drop  out$: RightTopPane
+         GetlParam: LvItem r@ SelectedItemLeft <>
+             if     r> to SelectedItemLeft true
+             else   r>drop false
+             then
+  ;
+ 
  : HandleListViewLeft   ( msg - )
     LVNI_SELECTED -1 GetNextItem:  ListViewLeft dup  -1 =
***************
*** 308,327 ****
  
        z" Location"              SetpszText: lvc
!       Addr: lvc 1               InsertColumn: ListViewLeft
  
        z" Contact"               SetpszText: lvc
!       Addr: lvc swap            InsertColumn: ListViewRightBottom
  
        z" Street and number"     SetpszText: lvc
!       Addr: lvc swap            InsertColumn: ListViewRightBottom
  
        z" Postal code"           SetpszText: lvc
!       Addr: lvc swap            InsertColumn: ListViewRightBottom
  
        z" Place"                 SetpszText: lvc
!       Addr: lvc swap            InsertColumn: ListViewRightBottom  drop
  ;
  
- 
  :Class ListViewClass <Super Object
  
--- 320,342 ----
  
        z" Location"              SetpszText: lvc
!       Addr: lvc 1               InsertColumn: ListViewLeft  drop
! 
!      LVCF_FMT LVCF_WIDTH LVCF_TEXT LVCF_SUBITEM or or or    Setmask: lvc
!       LVCFMT_LEFT                                            Setfmt: lvc
!       120                                                     Setcx: lvc
  
        z" Contact"               SetpszText: lvc
!       Addr: lvc 0               InsertColumn: ListViewRightBottom
  
        z" Street and number"     SetpszText: lvc
!       Addr: lvc swap 1+         InsertColumn: ListViewRightBottom
  
        z" Postal code"           SetpszText: lvc
!       Addr: lvc swap 1+         InsertColumn: ListViewRightBottom
  
        z" Place"                 SetpszText: lvc
!       Addr: lvc swap 1+         InsertColumn: ListViewRightBottom  drop
  ;
  
  :Class ListViewClass <Super Object