Table with scrollbar

PatrikL

Member
Licensed User
Hi,

I found this code for disable scrollbars and I modify it to enable vertical scrollbar. Code looks correct according IDE and 1/2 works. When is necessary then scrollbars are visible and vertical is disabled, but I want see scrollbars also when they dont need. Its possible?

B4X:
   oh.New1(False) 
   ov.New1(False)    
   obj.New1(False)
   o.New1(False)
   obj.FromControl("tblkateg")
   o.Value = obj.GetProperty("Controls")
   oh.Value = o.GetProperty2("Item",0) ' 0 = hscrollbar, 1 = vscrollbar
   ov.Value = o.GetProperty2("Item",1) ' 0 = hscrollbar, 1 = vscrollbar
        oh.SetProperty("Visible", False)
   ov.SetProperty("Visible", True)
   oh.SetProperty("Enabled", False)
   ov.SetProperty("Enabled", True)
   oh.Dispose
   ov.Dispose
   o.Dispose
   obj.Dispose

I use Basic4PPC in version 6.05 and Door library v 0.9.
 
Top