RE: setTVINDEX addition to win32lib
- Posted by Derek Parnell <Derek.Parnell at SYD.RABOBANK.COM> Jun 24, 2002
- 388 views
This message is in MIME format. Since your mail reader does not understand this format, some or all of this message may not be legible. ------_=_NextPart_000_01C21BD7.2595AD40 charset=iso-8859-1 Thanks Jordah for this routine. However the setFocus() procedure already does this, and I don't want to add yet another specialised TreeView routine. --------- Derek. > -----Original Message----- > From: jordah ferguson [mailto:jorfergie03 at yahoo.com] > Sent: Tuesday, 25 June 2002 2:43 > To: EUforum > Subject: setTVINDEX addition to win32lib > > > > Hi Derek, > > I don't know if other debuggers have reported this but > setTVIndex() is > missing, > setIndex doesn't include TreeView Support. Here is SetTVIndex, > > Derek, Most People always expect this procedure to work > (Visually) when > the tree view has no focus. > it won't display the selected rectangle unless > TVS_SHOWSELALWAYS style > flag > is specified, So please make sure you add this to the Documentation. > Here you go, > > --Start: Jordah Ferguson > global procedure setTVIndex(atom tv,integer pos) > atom void > if pos>0 and pos<=length(tvitem_handle) then > void = sendMessage(tv,TVM_SELECTITEM,TVGN_CARET,tvitem_handle[pos]) > end if > end procedure > --End: Jordah Ferguson > > Cheers, > Jordah Ferguson aka Sir LoJiK > > > > ================================================================== De informatie opgenomen in dit bericht kan vertrouwelijk zijn en is uitsluitend bestemd voor de geadresseerde. Indien u dit bericht onterecht ontvangt wordt u verzocht de inhoud niet te gebruiken en de afzender direct te informeren door het bericht te retourneren. ================================================================== The information contained in this message may be confidential and is intended to be exclusively for the addressee. Should you receive this message unintentionally, please do not use the contents herein and notify the sender immediately by return e-mail. ================================================================== ------_=_NextPart_000_01C21BD7.2595AD40 Content-Type: application/ms-tnef