[Closed] Replacement for Vertical Scroll

Using your example I replaced “FLP” with ContainerControl

 try(form.close()) catch() 
 (
	 global form = dotnetobject "MaxCustomControls.Maxform"
	 form.Text = "Show Test"
	 form.ShowInTaskbar = off
	 form.BackColor = form.BackColor.DarkGray
	 form.DockPadding.All = 2
 
	 form.StartPosition = form.StartPosition.Manual
	 form.Size = dotnetobject "System.Drawing.Size" 200 300
	 form.Location = dotnetobject "System.Drawing.Point" 800 200
 
	 p = dotnetobject "UserControl"
	 p.Backcolor = p.Backcolor.Gray 
	 p.Dock = p.Dock.Fill
 
	 sb = dotnetobject "UserControl"
	 sb.Backcolor = sb.Backcolor.black
	 sb.width = 8
	 sb.Dock = sb.Dock.Right
	 
	 global tt = dotnetobject "Button"
	 tt.Backcolor = tt.Backcolor.dimgray
	 tt.FlatStyle = tt.FlatStyle.Flat
	 tt.width = 8
	 sb.controls.add tt
	 
	 global fp = dotnetobject "ContainerControl"
	 fp.dock = fp.dock.fill
	 fp.backColor = fp.backColor.gray
	 --fp.FlowDirection = fp.FlowDirection.TopDown
	 --fp.WrapContents = off
	 
	 for k=1 to 20 do
	 (
		 bt = dotnetobject "Button"
		 bt.text = k as string
		bt.dock = bt.dock.Bottom
		 bt.Size = dotnetobject "System.Drawing.Size" 160 24
		 fp.controls.add bt
	 )
 
	 p.controls.addrange #(fp, sb)
		 
	 form.controls.add p
	 form.ShowModeless()
 )
 fp.VerticalScroll.Value = 50 
 
 fn onSizeChanged s e =
 (
	 s.tag.controls.item[0].Height = s.tag.height*(s.Height as float/s.PreferredSize.Height) 
 )
 dotnet.addEventHandler fp "SizeChanged" onSizeChanged
 fp.tag = tt.parent
 onSizeChanged fp undefined

Now I can get but not set VerticalScroll.value :).
Tried with this in listener when form is opened

cc = (form.controls.item[0]).controls.item[0]
-- this works
cc.verticalscroll.value
-->50
-- but this not ei. nothing happens
cc.verticalscroll.value = 30

Opposite behavior from FLP. Where did I go wrong?

first of all you have to dock children(buttons) from Top

because you refused ‘AutoScroll’ service you have to do all yourself. it will scroll the control, but you have to recalculate VerticalScroll.maximum when size or scroll changed, record the current scroll value, and change it if size changed… and no Scroll event for you anymore…

so everything do yourself. that’s a punishment for neglect built-in features.

Ok.
No hope I see. I need to think of something else 🙁
Thank you

I said no hope but that does not mean I give up. I almost forgot about this thread where we talk about custom timeline. This can be used as well.
But can you post example for your previous statement, please?

here is a beginning:

try(form.close()) catch() 
(
	global form = dotnetobject "MaxCustomControls.Maxform"
	form.Text = "Show Test"
	form.ShowInTaskbar = off
	form.BackColor = form.BackColor.DarkGray
	form.DockPadding.All = 2

	form.StartPosition = form.StartPosition.Manual
	form.Size = dotnetobject "System.Drawing.Size" 200 300
	form.Location = dotnetobject "System.Drawing.Point" 800 200

	p = dotnetobject "UserControl"
	p.Backcolor = p.Backcolor.Gray 
	p.Dock = p.Dock.Fill

	sb = dotnetobject "UserControl"
	sb.Backcolor = sb.Backcolor.black
	sb.width = 8
	sb.Dock = sb.Dock.Right

	global tt = dotnetobject "Button"
	tt.Backcolor = tt.Backcolor.dimgray
	tt.FlatStyle = tt.FlatStyle.Flat
	tt.width = 8
	sb.controls.add tt

	global cc = dotnetobject "ContainerControl"
	cc.Dock = cc.Dock.Fill
	cc.BackColor = cc.BackColor.gray

	bts = for k=20 to 1 by -1 collect
	(
		bt = dotnetobject "Button"
		bt.text = k as string
		bt.Dock = bt.Dock.Top
		bt.Size = dotnetobject "System.Drawing.Size" 160 24
		bt
	)
	cc.controls.addrange bts

	p.controls.addrange #(cc, sb)
	cc.tag = sb
	sb.tag = 0

	fn onSizeChanged s e =
	(
		s.tag.controls.item[0].Height = amin s.Height (s.tag.height*(s.Height as float/s.PreferredSize.Height))
		s.VerticalScroll.Maximum = amax s.VerticalScroll.Minimum (s.PreferredSize.Height - s.Height - s.tag.tag)
	)
	dotnet.addEventHandler cc "SizeChanged" onSizeChanged
	
	form.controls.add p
	
	onSizeChanged cc undefined
	cc.VerticalScroll.Maximum = cc.PreferredSize.Height - cc.Height
	
	form.ShowModeless()
)

2 questions:

• how to get rid of flickering
• is it impotrtant to set LifetimeControl for all .net objects to #dotnet

#2 question: Like this?

mapped fn setLifetimeControl control = dotnet.setLifetimeControl control #dotnet
allControls = join btns #(form, mainUC, scrollUC, scrollBar, cc)
setLifetimeControl allControls

that’s why i suggested to not use scrollable control (ContainerControl in your case)

woooooooooooooooow, great – This is fantastic!!!

Branko, Everything works just perfect at me, the only thing is that I get this error

undefined
ccheight 400
undefined
– Error occurred in onMouseMove(); filename: C:\Users\SkyDrive\scripts…; position: 2934; line: 72
– Frame:
– c: undefined
– e: dotNetObject:System.Windows.Forms.MouseEventArgs
– crs: dotNetClass:System.Windows.Forms.Cursors
– s: dotNetObject:System.Windows.Forms.Label
– tag: undefined
– d: undefined
>> MAXScript dotNet event handler Exception:
– Unknown property: “Hand” in undefined <<