How-To PowerBuilder (exsplitbar)

22	How can I replace or add an icon at runtime OleObject oSplitBar oSplitBar = ole_1.Object 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 OleObject oSplitBar oSplitBar = ole_1.Object oSplitBar.ObjectsLT = "Command1" oSplitBar.ObjectsRB = "Command1"
20	I've noticed some margins that are not painted. How can I prevent/remove that OleObject oSplitBar oSplitBar = ole_1.Object oSplitBar.BorderWidth = 0 oSplitBar.BorderHeight = 0 oSplitBar.SplitBackColor = RGB(0,0,0)
19	How can I change the shape of the cursor OleObject oSplitBar oSplitBar = ole_1.Object oSplitBar.Cursor = "exCross"
18	How can I display a tooltip when cursor hovers the split bar (pictures) OleObject oSplitBar oSplitBar = ole_1.Object 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) OleObject oSplitBar oSplitBar = ole_1.Object 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 OleObject oSplitBar oSplitBar = ole_1.Object oSplitBar.ObjectsLT = "Command1" oSplitBar.ObjectsRB = "Command2" oSplitBar.MoveOnDrop = false
15	How do I know what events your control supports /begin event Event(long EventID) - Notifies the application once the control fires an event./ /* oSplitBar = ole_1.Object MessageBox("Information",string( String(oSplitBar.EventParam(-2)) )) / /end event Event*/ OleObject oSplitBar oSplitBar = ole_1.Object
14	Is it possible to get notified once the user moves the split bar /begin event Drag(long Position) - Notifies that the user drags the split bar./ /* oSplitBar = ole_1.Object MessageBox("Information",string( "New Position" )) MessageBox("Information",string( String(Position) )) / /end event Drag*/ OleObject oSplitBar oSplitBar = ole_1.Object
13	How do I get notified once the user drop the split bar to a new position /begin event DragEnd(long Position, boolean Cancel) - Occurs once the user ends dragging the split bar./ /* oSplitBar = ole_1.Object MessageBox("Information",string( "New Position" )) MessageBox("Information",string( String(Position) )) / /end event DragEnd*/ OleObject oSplitBar oSplitBar = ole_1.Object
12	How do I programmatically move the split bar, to the right/bottom most position OleObject oSplitBar oSplitBar = ole_1.Object 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 OleObject oSplitBar oSplitBar = ole_1.Object oSplitBar.ObjectsLT = "Command1" oSplitBar.ObjectsRB = "Command2" oSplitBar.MoveTo(oSplitBar.Min)
10	How do I programmatically move the split bar OleObject oSplitBar oSplitBar = ole_1.Object 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 /begin event Show(any Object, boolean Visible) - Occurs when an object requires to be shown or hidden./ /* oSplitBar = ole_1.Object MessageBox("Information",string( String(Object) )) MessageBox("Information",string( String(Visible) )) / /end event Show*/ OleObject oSplitBar oSplitBar = ole_1.Object oSplitBar.ObjectsLT = "Command1" oSplitBar.ObjectsRB = "Command2" oSplitBar.HideOnLimit = false
8	How can I specify the limit to move the splitbar (hard coded value) OleObject oSplitBar oSplitBar = ole_1.Object oSplitBar.LimitLT = "32D" oSplitBar.LimitRB = "32D"
7	How can I specify the limit to move the splitbar (percent) OleObject oSplitBar oSplitBar = ole_1.Object oSplitBar.LimitLT = "50%" oSplitBar.LimitRB = "50%"
6	How do I change the split bar's visual appearance using your EBN files (BASE64) OleObject oSplitBar oSplitBar = ole_1.Object oSplitBar.BeginUpdate() oSplitBar.BackColor = RGB(255,255,255) oSplitBar.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABV0GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGUYBRgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQxHJEExZCKLACkKKwMgkEYfTLGUxQGAsXBgEoWRjkAYJADYBIJDCME7yHBJDSdGaYIRBGCZbiGOYxQjKMqwJJUfBLEAZKLnGRIbpOA5VSBVcT1VZlPTBHqxaxhED6SjaOJqRpcERTeJobT1FgWRpqUYRSwMMJqWjCNhABKsBgdO4AKpffIwAxNf4XSBIAIQSSBUjGOg6TiMWB4JRqOxCEzpUZDNBIUQTRoAJrgOCAYhcZJVXhAeTbXibZZ8RzgCj4Lg+AQ5cLHbxyPJHZxlHadZ7nOYPThXFMLBImudA7MEOQjiuFh1ngDQ+C6V4Thw/Z4B0eRnleMJXm6cp8DoHhzD+MZ0jWe52EkP4lC+cZNn4f5fkKFZ6BIXYSjoBgciCBxmAEP4gkgNgOgMIAXGQb4EkUWBVlkO5hggPgaD+IYDj2WQTmICBUFWBZhhgbgOgcXYRC4KoCAcJxkieC5iGgOgvCmXYYjGdwtF+F5tnwOojkidgBgDGpCEIfRemGLZxhGRBnk2dR3l4CQWEgdAeCGJZpHUXxZD2T4Sl2ZptlyEZdkkZZLHMXwXEoXhyFuY5JkWCIiCcFZHDwHRTi0UQABAECAg") oSplitBar.SplitBackColor = 16777216 /0x1000000/ oSplitBar.EndUpdate()
5	How do I change the split bar's visual appearance using your EBN files (file) OleObject oSplitBar oSplitBar = ole_1.Object oSplitBar.BeginUpdate() oSplitBar.BackColor = RGB(255,255,255) oSplitBar.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExSplitBar\Sample\EBN\vthumb.ebn") oSplitBar.SplitBackColor = 16777216 /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) OleObject oSplitBar oSplitBar = ole_1.Object 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) OleObject oSplitBar oSplitBar = ole_1.Object 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 OleObject oSplitBar oSplitBar = ole_1.Object oSplitBar.SplitBackColor = RGB(0,255,0)
1	How do I change the control's background color OleObject oSplitBar oSplitBar = ole_1.Object oSplitBar.BackColor = RGB(255,255,0) oSplitBar.BorderWidth = 4 oSplitBar.BorderHeight = 4