21
How do I specify that an object should be moved not resized
Dim oSplitBar as P

oSplitBar = topparent:CONTROL_ACTIVEX1.activex
oSplitBar.ObjectsLT = "Command1"
oSplitBar.ObjectsRB = "Command1"

20
I've noticed some margins that are not painted. How can I prevent/remove that
Dim oSplitBar as P

oSplitBar = topparent:CONTROL_ACTIVEX1.activex
oSplitBar.BorderWidth = 0
oSplitBar.BorderHeight = 0
oSplitBar.SplitBackColor = 0

19
How can I change the shape of the cursor
Dim oSplitBar as P

oSplitBar = topparent:CONTROL_ACTIVEX1.activex
oSplitBar.Cursor = "exCross"

18
How can I display a tooltip when cursor hovers the split bar (pictures)
Dim oSplitBar as P

oSplitBar = topparent:CONTROL_ACTIVEX1.activex
oSplitBar.Template = "HTMLPicture(`pic1`) = `c:\exontrol\images\zipdisk.gif`" // oSplitBar.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oSplitBar.ToolTipText = "<img>pic1</img>This is a bit of text that's displayed when the control hovers the split bar."

17
How can I display a tooltip when cursor hovers the split bar (images)
Dim oSplitBar as P

oSplitBar = topparent:CONTROL_ACTIVEX1.activex
oSplitBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oSplitBar.ToolTipText = "<img>1</img>This is a bit of text that's displayed when the control hovers the split bar."

16
Is it possible to move the associated objects once the user drags the split bar, not just when it ends
Dim oSplitBar as P

oSplitBar = topparent:CONTROL_ACTIVEX1.activex
oSplitBar.ObjectsLT = "Command1"
oSplitBar.ObjectsRB = "Command2"
oSplitBar.MoveOnDrop = .f.

15
How do I know what events your control supports
' Notifies the application once the control fires an event.
function Event as v (EventID  as  N)
	oSplitBar = topparent:CONTROL_ACTIVEX1.activex
	? oSplitBar.EventParam(-2) 
end function

Dim oSplitBar as P

oSplitBar = topparent:CONTROL_ACTIVEX1.activex

14
Is it possible to get notified once the user moves the split bar
' Notifies that the user drags the split bar.
function Drag as v (Position  as  N)
	oSplitBar = topparent:CONTROL_ACTIVEX1.activex
	? "New Position" 
	? Position 
end function

Dim oSplitBar as P

oSplitBar = topparent:CONTROL_ACTIVEX1.activex

13
How do I get notified once the user drop the split bar to a new position
' Occurs once the user ends dragging the split bar.
function DragEnd as v (Position  as  N,Cancel  as  L)
	oSplitBar = topparent:CONTROL_ACTIVEX1.activex
	? "New Position" 
	? Position 
end function

Dim oSplitBar as P

oSplitBar = topparent:CONTROL_ACTIVEX1.activex

12
How do I programmatically move the split bar, to the right/bottom most position
Dim oSplitBar as P

oSplitBar = topparent:CONTROL_ACTIVEX1.activex
oSplitBar.ObjectsLT = "Command1"
oSplitBar.ObjectsRB = "Command2"
oSplitBar.MoveTo(oSplitBar.Max)

11
How do I programmatically move the split bar, to the left/top most position
Dim oSplitBar as P

oSplitBar = topparent:CONTROL_ACTIVEX1.activex
oSplitBar.ObjectsLT = "Command1"
oSplitBar.ObjectsRB = "Command2"
oSplitBar.MoveTo(oSplitBar.Min)

10
How do I programmatically move the split bar
Dim oSplitBar as P

oSplitBar = topparent:CONTROL_ACTIVEX1.activex
oSplitBar.ObjectsLT = "Command1"
oSplitBar.ObjectsRB = "Command2"
oSplitBar.MoveTo(-10)

9
I've noticed that the objects are hidden, when the split bar is closed to the limit. Is it possible to prevent that
' Occurs when an object requires to be shown or hidden.
function Show as v (Object  as  A,Visible  as  L)
	oSplitBar = topparent:CONTROL_ACTIVEX1.activex
	? Object 
	? Visible 
end function

Dim oSplitBar as P

oSplitBar = topparent:CONTROL_ACTIVEX1.activex
oSplitBar.ObjectsLT = "Command1"
oSplitBar.ObjectsRB = "Command2"
oSplitBar.HideOnLimit = .f.

8
How can I specify the limit to move the splitbar (hard coded value)
Dim oSplitBar as P

oSplitBar = topparent:CONTROL_ACTIVEX1.activex
oSplitBar.LimitLT = "32D"
oSplitBar.LimitRB = "32D"

7
How can I specify the limit to move the splitbar (percent)
Dim oSplitBar as P

oSplitBar = topparent:CONTROL_ACTIVEX1.activex
oSplitBar.LimitLT = "50%"
oSplitBar.LimitRB = "50%"

6
How do I change the split bar's visual appearance using your EBN files (BASE64)
Dim oSplitBar as P

oSplitBar = topparent:CONTROL_ACTIVEX1.activex
oSplitBar.BeginUpdate()
oSplitBar.BackColor = 16777215
oSplitBar.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABV0GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGUYBRgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQxHJEExZCKLACkKKwMgkEYfTLGUxQGAsXBgEoWRjkAYJADYBIJDCME7yHBJDSdGaYIRBGCZbiGOYxQjKMqwJJUfBLEAZKLnGRIbpOA5VSBVcT1VZlPTBHqxaxhED6SjaOJqRpcERTeJobT1FgWRpqUYRSwMMJqWjCNhABKsBgdO4AKpffIwAxNf4XSBIAIQSSBUjGOg6TiMWB4JRqOxCEzpUZDNBIUQTRoAJrgOCAYhcZJVXhAeTbXibZZ8RzgCj4Lg+AQ5cLHbxyPJHZxlHadZ7nOYPThXFMLBImudA7MEOQjiuFh1ngDQ+C6V4Thw/Z4B0eRnleMJXm6cp8DoHhzD+MZ0jWe52EkP4lC+cZNn4f5fkKFZ6BIXYSjoBgciCBxmAEP4gkgNgOgMIAXGQb4EkUWBVlkO5hggPgaD+IYDj2WQTmICBUFWBZhhgbgOgcXYRC4KoCAcJxkieC5iGgOgvCmXYYjGdwtF+F5tnwOojkidgBgDGpCEIfRemGLZxhGRBnk2dR3l4CQWEgdAeCGJZpHUXxZD2T4Sl2ZptlyEZdkkZZLHMXwXEoXhyFuY5JkWCIiCcFZHDwHRTi0UQABAECAg")
oSplitBar.SplitBackColor = 16777216
oSplitBar.EndUpdate()

5
How do I change the split bar's visual appearance using your EBN files (file)
Dim oSplitBar as P

oSplitBar = topparent:CONTROL_ACTIVEX1.activex
oSplitBar.BeginUpdate()
oSplitBar.BackColor = 16777215
oSplitBar.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExSplitBar\Sample\EBN\vthumb.ebn")
oSplitBar.SplitBackColor = 16777216
oSplitBar.EndUpdate()

4
How do I specify the objects to be resized to left/top or right/bottom side of the split bar (method runtime)
Dim oSplitBar as P

oSplitBar = topparent:CONTROL_ACTIVEX1.activex
oSplitBar.AddObjectLT("Command1")
oSplitBar.AddObjectRB("Command2")
oSplitBar.AddObjectRB("SplitBar2")
oSplitBar.AddObjectRB("Command3")

3
How do I specify the objects to be resized to left/top or right/bottom side of the split bar (method design)
Dim oSplitBar as P

oSplitBar = topparent:CONTROL_ACTIVEX1.activex
oSplitBar.ObjectsLT = "Command1"
oSplitBar.ObjectsRB = "Command2,SplitBar2,Command3"
oSplitBar.AddObjectLT("Command1")
oSplitBar.AddObjectRB("Command2")
oSplitBar.AddObjectRB("SplitBar2")
oSplitBar.AddObjectRB("Command3")

2
How do I change the split bar's color
Dim oSplitBar as P

oSplitBar = topparent:CONTROL_ACTIVEX1.activex
oSplitBar.SplitBackColor = 65280

1
How do I change the control's background color
Dim oSplitBar as P

oSplitBar = topparent:CONTROL_ACTIVEX1.activex
oSplitBar.BackColor = 65535
oSplitBar.BorderWidth = 4
oSplitBar.BorderHeight = 4