Great Marc, adding a simple procedure works fine. I don't really know how to give the modification, or make a patch, so I will just describe here:
in ComCtrls, CustomListView, add the public procedure: procedure ShowSelectedItem(const APartialOK: Boolean); and in customlistview.inc, add the implementation: procedure TCustomListView.ShowSelectedItem(const APartialOK: Boolean); begin SetItemVisible(FSelected,APartialOK); end; Call this procedure just after ListView.Selected=FindCaption(...... ) works fine, and may probably be used to position a list to beginning or end by selecting first or last item.. Hope this may be usefull to someone else. Thanks a lot Le vendredi 28 Octobre 2005 18:12, Marc Weustink a écrit : > jean-marc levecque wrote: > > Hi, > > > > Porting an app from delphi, which is ok for the most important parts on > > Win and Linux, I just miss a few things which seem not available yet. One > > of these is scroll in a list view by progrm, to get an item in the view > > when choosen from a combobox by typing the beginning of the caption for > > instance (very practical for the end user in big lists). > > Searching in the source in customlistview.inc, I can see that procedure > > WMVScroll is there,and may be a new public procedure Scroll could be > > created to call this procedure, setting ScrollCode to SB_THUMBPOSITION > > and a value to Pos to initiate a scroll by program, but I don't know what > > to do about the other values of the Msg record. > > I have always been a user, not professional, and don't feel good enough > > to do this myself. > > Thanks for information to guide me. > > Don't rely on wmscroll for this. What you can use is Item.Visible > > Marc > > _________________________________________________________________ > To unsubscribe: mail [EMAIL PROTECTED] with > "unsubscribe" as the Subject > archives at http://www.lazarus.freepascal.org/mailarchives _________________________________________________________________ To unsubscribe: mail [EMAIL PROTECTED] with "unsubscribe" as the Subject archives at http://www.lazarus.freepascal.org/mailarchives
