22
How can I replace or add an icon at runtime
local oSplitBar

oSplitBar = form.EXSPLITBARACTIVEXCONTROL1.nativeObject
oSplitBar.ReplaceIcon("gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+OkYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA==")
oSplitBar.ReplaceIcon("C:\images\favicon.ico",0)
oSplitBar.ToolTipText = "<img>1</img>This is a bit of text that's displayed when the control hovers the split bar."
21
How do I specify that an object should be moved not resized
local oSplitBar

oSplitBar = form.EXSPLITBARACTIVEXCONTROL1.nativeObject
oSplitBar.ObjectsLT = "Command1"
oSplitBar.ObjectsRB = "Command1"
20
I've noticed some margins that are not painted. How can I prevent/remove that
local oSplitBar

oSplitBar = form.EXSPLITBARACTIVEXCONTROL1.nativeObject
oSplitBar.BorderWidth = 0
oSplitBar.BorderHeight = 0
oSplitBar.SplitBackColor = 0x0
19
How can I change the shape of the cursor
local oSplitBar

oSplitBar = form.EXSPLITBARACTIVEXCONTROL1.nativeObject
oSplitBar.Cursor = "exCross"
18
How can I display a tooltip when cursor hovers the split bar (pictures)
local oSplitBar

oSplitBar = form.EXSPLITBARACTIVEXCONTROL1.nativeObject
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)
local oSplitBar

oSplitBar = form.EXSPLITBARACTIVEXCONTROL1.nativeObject
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
local oSplitBar

oSplitBar = form.EXSPLITBARACTIVEXCONTROL1.nativeObject
oSplitBar.ObjectsLT = "Command1"
oSplitBar.ObjectsRB = "Command2"
oSplitBar.MoveOnDrop = false
15
How do I know what events your control supports
/*
with (this.EXSPLITBARACTIVEXCONTROL1.nativeObject)
	Event = class::nativeObject_Event
endwith
*/
// Notifies the application once the control fires an event.
function nativeObject_Event(EventID)
	oSplitBar = form.EXSPLITBARACTIVEXCONTROL1.nativeObject
	? Str(oSplitBar.EventParam(-2)) 
return

local oSplitBar

oSplitBar = form.EXSPLITBARACTIVEXCONTROL1.nativeObject
14
Is it possible to get notified once the user moves the split bar
/*
with (this.EXSPLITBARACTIVEXCONTROL1.nativeObject)
	Drag = class::nativeObject_Drag
endwith
*/
// Notifies that the user drags the split bar.
function nativeObject_Drag(Position)
	oSplitBar = form.EXSPLITBARACTIVEXCONTROL1.nativeObject
	? "New Position" 
	? Str(Position) 
return

local oSplitBar

oSplitBar = form.EXSPLITBARACTIVEXCONTROL1.nativeObject
13
How do I get notified once the user drop the split bar to a new position
/*
with (this.EXSPLITBARACTIVEXCONTROL1.nativeObject)
	DragEnd = class::nativeObject_DragEnd
endwith
*/
// Occurs once the user ends dragging the split bar.
function nativeObject_DragEnd(Position, Cancel)
	oSplitBar = form.EXSPLITBARACTIVEXCONTROL1.nativeObject
	? "New Position" 
	? Str(Position) 
return

local oSplitBar

oSplitBar = form.EXSPLITBARACTIVEXCONTROL1.nativeObject
12
How do I programmatically move the split bar, to the right/bottom most position
local oSplitBar

oSplitBar = form.EXSPLITBARACTIVEXCONTROL1.nativeObject
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
local oSplitBar

oSplitBar = form.EXSPLITBARACTIVEXCONTROL1.nativeObject
oSplitBar.ObjectsLT = "Command1"
oSplitBar.ObjectsRB = "Command2"
oSplitBar.MoveTo(oSplitBar.Min)
10
How do I programmatically move the split bar
local oSplitBar

oSplitBar = form.EXSPLITBARACTIVEXCONTROL1.nativeObject
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
/*
with (this.EXSPLITBARACTIVEXCONTROL1.nativeObject)
	Show = class::nativeObject_Show
endwith
*/
// Occurs when an object requires to be shown or hidden.
function nativeObject_Show(Object, Visible)
	oSplitBar = form.EXSPLITBARACTIVEXCONTROL1.nativeObject
	? Str(Object) 
	? Str(Visible) 
return

local oSplitBar

oSplitBar = form.EXSPLITBARACTIVEXCONTROL1.nativeObject
oSplitBar.ObjectsLT = "Command1"
oSplitBar.ObjectsRB = "Command2"
oSplitBar.HideOnLimit = false
8
How can I specify the limit to move the splitbar (hard coded value)
local oSplitBar

oSplitBar = form.EXSPLITBARACTIVEXCONTROL1.nativeObject
oSplitBar.LimitLT = "32D"
oSplitBar.LimitRB = "32D"
7
How can I specify the limit to move the splitbar (percent)
local oSplitBar

oSplitBar = form.EXSPLITBARACTIVEXCONTROL1.nativeObject
oSplitBar.LimitLT = "50%"
oSplitBar.LimitRB = "50%"
6
How do I change the split bar's visual appearance using your EBN files (BASE64)
local oSplitBar

oSplitBar = form.EXSPLITBARACTIVEXCONTROL1.nativeObject
oSplitBar.BeginUpdate()
oSplitBar.BackColor = 0xffffff
oSplitBar.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABV0GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGUYBRgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQxHJEExZCKLACkKKwMgkEYfTLGUxQGAsXBgEoWRjkAYJADYBIJDCME7yHBJDSdGaYIRBGCZbiGOYxQjKMqwJJUfBLEAZKLnGRIbpOA5VSBVcT1VZlPTBHqxaxhED6SjaOJqRpcERTeJobT1FgWRpqUYRSwMMJqWjCNhABKsBgdO4AKpffIwAxNf4XSBIAIQSSBUjGOg6TiMWB4JRqOxCEzpUZDNBIUQTRoAJrgOCAYhcZJVXhAeTbXibZZ8RzgCj4Lg+AQ5cLHbxyPJHZxlHadZ7nOYPThXFMLBImudA7MEOQjiuFh1ngDQ+C6V4Thw/Z4B0eRnleMJXm6cp8DoHhzD+MZ0jWe52EkP4lC+cZNn4f5fkKFZ6BIXYSjoBgciCBxmAEP4gkgNgOgMIAXGQb4EkUWBVlkO5hggPgaD+IYDj2WQTmICBUFWBZhhgbgOgcXYRC4KoCAcJxkieC5iGgOgvCmXYYjGdwtF+F5tnwOojkidgBgDGpCEIfRemGLZxhGRBnk2dR3l4CQWEgdAeCGJZpHUXxZD2T4Sl2ZptlyEZdkkZZLHMXwXEoXhyFuY5JkWCIiCcFZHDwHRTi0UQABAECAg")
oSplitBar.SplitBackColor = 0x1000000
oSplitBar.EndUpdate()
5
How do I change the split bar's visual appearance using your EBN files (file)
local oSplitBar

oSplitBar = form.EXSPLITBARACTIVEXCONTROL1.nativeObject
oSplitBar.BeginUpdate()
oSplitBar.BackColor = 0xffffff
oSplitBar.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExSplitBar\Sample\EBN\vthumb.ebn")
oSplitBar.SplitBackColor = 0x1000000
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)
local oSplitBar

oSplitBar = form.EXSPLITBARACTIVEXCONTROL1.nativeObject
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)
local oSplitBar

oSplitBar = form.EXSPLITBARACTIVEXCONTROL1.nativeObject
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
local oSplitBar

oSplitBar = form.EXSPLITBARACTIVEXCONTROL1.nativeObject
oSplitBar.SplitBackColor = 0xff00
1
How do I change the control's background color
local oSplitBar

oSplitBar = form.EXSPLITBARACTIVEXCONTROL1.nativeObject
oSplitBar.BackColor = 0xffff
oSplitBar.BorderWidth = 4
oSplitBar.BorderHeight = 4