🚀 go-pugleaf

Hi,
Save and run this form.

** END HEADER -- do not remove this line
//
// Generated on 12/01/98
//
parameter bModal
local f
f = new ltreeForm()
if (bModal)
   f.mdi = false // ensure not MDI
   f.readModal()
else
   f.open()
endif

class ltreeForm of FORM 


   this.TREEVIEW1 = new TREEVIEW(this)
   with (this.TREEVIEW1)
      height = 5.6
      left = 3.8333
      top = 2.3
      width = 21.5
      hasLines = false
      hasButtons = false
      allowEditLabels = false
      allowEditTree = false
      indent = 19
      imageSize = 16
   endwith


   this.TREEVIEW1.TREEITEM1 = new TREEITEM(this.TREEVIEW1)
   with (this.TREEVIEW1.TREEITEM1)
      text = "TREEITEM1"
   endwith


   this.TREEVIEW1.TREEITEM2 = new TREEITEM(this.TREEVIEW1)
   with (this.TREEVIEW1.TREEITEM2)
      text = "TREEITEM2"
   endwith


   this.TREEVIEW1.TREEITEM3 = new TREEITEM(this.TREEVIEW1)
   with (this.TREEVIEW1.TREEITEM3)
      text = "TREEITEM3"
   endwith


   this.TREEVIEW1.TREEITEM4 = new TREEITEM(this.TREEVIEW1)
   with (this.TREEVIEW1.TREEITEM4)
      text = "TREEITEM4"
   endwith


   this.TREEVIEW1.TREEITEM5 = new TREEITEM(this.TREEVIEW1)
   with (this.TREEVIEW1.TREEITEM5)
      text = "TREEITEM5"
   endwith


   this.TREEVIEW1.TREEITEM6 = new TREEITEM(this.TREEVIEW1)
   with (this.TREEVIEW1.TREEITEM6)
      text = "TREEITEM6"
   endwith


   this.TREEVIEW1.TREEITEM7 = new TREEITEM(this.TREEVIEW1)
   with (this.TREEVIEW1.TREEITEM7)
      text = "TREEITEM7"
   endwith


   this.TREEVIEW1.TREEITEM8 = new TREEITEM(this.TREEVIEW1)
   with (this.TREEVIEW1.TREEITEM8)
      text = "TREEITEM8"
   endwith


   this.TREEVIEW1.TREEITEM9 = new TREEITEM(this.TREEVIEW1)
   with (this.TREEVIEW1.TREEITEM9)
      text = "TREEITEM9"
   endwith


   this.TREEVIEW1.TREEITEM10 = new TREEITEM(this.TREEVIEW1)
   with (this.TREEVIEW1.TREEITEM10)
      text = "TREEITEM10"
   endwith


   this.TREEVIEW1.TREEITEM11 = new TREEITEM(this.TREEVIEW1)
   with (this.TREEVIEW1.TREEITEM11)
      text = "TREEITEM11"
   endwith


   this.TREEVIEW1.TREEITEM12 = new TREEITEM(this.TREEVIEW1)
   with (this.TREEVIEW1.TREEITEM12)
      text = "TREEITEM12"
   endwith


   this.TREEVIEW1.TREEITEM13 = new TREEITEM(this.TREEVIEW1)
   with (this.TREEVIEW1.TREEITEM13)
      text = "TREEITEM13"
   endwith


   this.TREEVIEW1.TREEITEM14 = new TREEITEM(this.TREEVIEW1)
   with (this.TREEVIEW1.TREEITEM14)
      text = "TREEITEM14"
   endwith


   this.TREEVIEW1.TREEITEM15 = new TREEITEM(this.TREEVIEW1)
   with (this.TREEVIEW1.TREEITEM15)
      text = "TREEITEM15"
   endwith


   this.TREEVIEW1.TREEITEM16 = new TREEITEM(this.TREEVIEW1)
   with (this.TREEVIEW1.TREEITEM16)
      text = "TREEITEM16"
   endwith


   this.TREEVIEW1.TREEITEM17 = new TREEITEM(this.TREEVIEW1)
   with (this.TREEVIEW1.TREEITEM17)
      text = "TREEITEM17"
   endwith

endclass

Guido Mueller wrote:
> 
> Hello,
> 
> I work with Visual dBASE 7.0 under Windows95 and have the following
> problem.
> 
> The scrollbar in a listboxelement knows only three positions
> (top,middle,down).
> I think, the scrollbar should be dynamic moveable.
> 
> How can I solve this problem ?
> 
> Thanks
> 
> Guido