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
|
