96:
How can I display the value in reverse order or from bottom to top

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.BeginUpdate()
oSlider.LabelTick = "value = vmin ? '<b>min<br>'+value : (value = vmax ? '<b>max<br>'+value : ( value=current ? '<b>' + value : '<fgcolor=808080>' + value ) )"
oSlider.Minimum = -100
oSlider.Maximum = 100
oSlider.TickFrequency = 10
oSlider.ThumbSize = 40
oSlider.Orientation = 16
oSlider.EndUpdate()

95:
How can I display the value in reverse order or from right to left

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.BeginUpdate()
oSlider.LabelTick = "value = vmin ? '<b>min<br>'+value : (value = vmax ? '<b>max<br>'+value : ( value=current ? '<b>' + value : '<fgcolor=808080>' + value ) )"
oSlider.Minimum = -100
oSlider.Maximum = 100
oSlider.TickFrequency = 10
oSlider.ThumbSize = 40
oSlider.Orientation = 17 'exReverseOrder + exHorizontal
oSlider.EndUpdate()

94:
I need only to change the knob of the slider with a picture. Is it possible

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.BeginUpdate()
oSlider.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oSlider.LabelTick = "value = vmin ? '<b>min<br>'+value : (value = vmax ? '<b>max<br>'+value : ( value=current ? '<b>' + value : '<fgcolor=808080>' + value ) )"
oSlider.Minimum = -100
oSlider.Maximum = 100
oSlider.TickFrequency = 10
oSlider.Template = "Background(388) = 16777216" // oSlider.Background(388) = 16777216
oSlider.ThumbSize = 40
oSlider.EndUpdate()

93:
Is it possible to print the control's Value on the thumb

' Occurs when the value of the control is changed.
function Change as v ()
	oSlider = topparent:CONTROL_ACTIVEX1.activex
	oSlider.Template = "Caption(256) = Value" // oSlider.Caption(256) = oSlider.Value
end function

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.TickStyle = 2
oSlider.ThumbSize = 48
oSlider.TickFrequency = 0
oSlider.Value = 5

92:
How can I display the value on the thumb

' Occurs when the value of the control is changed.
function Change as v ()
	oSlider = topparent:CONTROL_ACTIVEX1.activex
	oSlider.Template = "Caption(256) = ValueF" // oSlider.Caption(256) = oSlider.ValueF
end function

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.BeginUpdate()
oSlider.AllowFloat = .t.
oSlider.MinimumF = -3.25
oSlider.MaximumF = 3.25
oSlider.SmallChangeF = 0.25
oSlider.ThumbSize = 48
oSlider.ValueF = 0
oSlider.TickStyle = 2
oSlider.TickFrequencyF = 0
oSlider.EndUpdate()

91:
How can I display a different text than the slider's value

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.LabelTick = "( value = current ? '<b><font ;10>' : '' ) + (value array 'ab bc cd de ef fg gh hi ij jk kl' split ' ')"

90:
How can I show values for selec range only

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.SelectRange = .t.
oSlider.SelStart = 1
oSlider.SelLength = 2
oSlider.LabelTick = "value=current ? '<b><font ;10>' + value : ( value>=smin and value<=smax ? '<fgcolor=0000FF>' + value : '' ) "

89:
Is it possible to display min max value

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.LabelTick = "value = vmin ? '<b>min<br>'+value : (value = vmax ? '<b>max<br>'+value : ( value=current ? '<b>' + value : '<fgcolor=808080>' + value ) )"

88:
How can I show the value for current value only

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.LabelTick = "value = current ? value : ''"

87:
Is it possible to show the value using the tooltip

' Occurs when the value of the control is changed.
function Change as v ()
	oSlider = topparent:CONTROL_ACTIVEX1.activex
	oSlider.ToolTipText = oSlider.Value
end function

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex

86:
Is it possible to show labels for ticks

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.LabelTick = "value"

85:
How can I change the tooltip's border using your EBN files with a different color

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oSlider.Template = "Background(64) = 16842656" // oSlider.Background(64) = 16842656
oSlider.ToolTipText = "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
oSlider.Value = 43

84:
Can I change the color for the control's border

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oSlider.Appearance = 16777471 '10000f8 + Bump + Sunken

83:
How can I display a character from a specified font ( for vertical alignment )

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.ThumbSize = 96
oSlider.Template = "Caption(256) = `<img>-1</img><font Webdings;10>a</font>`" // oSlider.Caption(256) = "<img>-1</img><font Webdings;10>a</font>"
oSlider.Orientation = 0

82:
How can I display a character from a specified font

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.ThumbSize = 96
oSlider.Template = "Caption(256) = `<font Webdings;10>a</font>`" // oSlider.Caption(256) = "<font Webdings;10>a</font>"

81:
When I have a slider in vertical orientation, how can I get the caption horizontal

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.ThumbSize = 96
oSlider.Template = "Caption(256) = `<img>-1</img>thumb`" // oSlider.Caption(256) = "<img>-1</img>thumb"
oSlider.Orientation = 0

80:
Does your control support floating points
' Occurs when the value of the control is changed.
function Change as v ()
	oSlider = topparent:CONTROL_ACTIVEX1.activex
	? oSlider.ValueF 
end function

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.BeginUpdate()
oSlider.AllowFloat = .t.
oSlider.MinimumF = -3
oSlider.MaximumF = 3
oSlider.SmallChangeF = 0.5
oSlider.LargeChangeF = 1
oSlider.TickFrequencyF = oSlider.SmallChangeF
oSlider.ValueF = 0
oSlider.EndUpdate()

79:
How do I change the control's border, using your EBN files

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oSlider.Appearance = 16777216 '1000000 + 

78:
How can I change the color of the selected range in the control

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.Orientation = 0
oSlider.SelectRange = .t.
oSlider.SelStart = 2
oSlider.SelLength = 2
oSlider.Value = 1
oSlider.Template = "Background(280) = 255" // oSlider.Background(280) = 255

77:
How can I change the color of the selection in the control

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.SelectRange = .t.
oSlider.SelStart = 2
oSlider.SelLength = 2
oSlider.Value = 1
oSlider.Template = "Background(408) = 255" // oSlider.Background(408) = 255

76:
How can I change the visual appearance of the selected range in the control

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.Orientation = 0
oSlider.SelectRange = .t.
oSlider.SelStart = 2
oSlider.SelLength = 2
oSlider.Value = 1
oSlider.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oSlider.Template = "Background(280) = 16777216" // oSlider.Background(280) = 16777216
oSlider.Template = "Caption(1) = `selection`" // oSlider.Caption(1) = "selection"

75:
How can I change the visual appearance of the selection in the control

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.SelectRange = .t.
oSlider.SelStart = 2
oSlider.SelLength = 2
oSlider.Value = 1
oSlider.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oSlider.Template = "Background(408) = 16777216" // oSlider.Background(408) = 16777216
oSlider.Template = "Caption(1) = `selection`" // oSlider.Caption(1) = "selection"

74:
Is there any option to select a range in the control, or to highlight my selection

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.SelectRange = .t.
oSlider.SelStart = 2
oSlider.SelLength = 2
oSlider.Value = 1

73:
How can I specify the upper and lower parts using gradient colors

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.Value = 3
oSlider.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oSlider.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oSlider.Template = "Background(396) = 16777216" // oSlider.Background(396) = 16777216
oSlider.Template = "Background(400) = 33554432" // oSlider.Background(400) = 33554432

72:
How can I specify the upper and lower parts using gradient colors

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.Orientation = 0
oSlider.Value = 3
oSlider.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oSlider.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oSlider.Template = "Background(268) = 16777216" // oSlider.Background(268) = 16777216
oSlider.Template = "Background(272) = 33554432" // oSlider.Background(272) = 33554432

71:
How can I change the color of the progress bar

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.ShowThumbProgress = .t.
oSlider.Template = "VisiblePart(640) = False" // oSlider.VisiblePart(640) = .f.
oSlider.TickStyle = 3
oSlider.Value = 3
oSlider.Template = "Background(260) = 255" // oSlider.Background(260) = 255

70:
How can I change the visual appearance of the progress bar using your EBN files

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.ShowThumbProgress = .t.
oSlider.Template = "VisiblePart(640) = False" // oSlider.VisiblePart(640) = .f.
oSlider.TickStyle = 3
oSlider.Value = 3
oSlider.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oSlider.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oSlider.VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn")
oSlider.Template = "Background(260) = 16777216" // oSlider.Background(260) = 16777216
oSlider.Template = "Background(261) = 33554432" // oSlider.Background(261) = 33554432
oSlider.Template = "Background(262) = 16777216" // oSlider.Background(262) = 16777216
oSlider.Template = "Background(263) = 50331648" // oSlider.Background(263) = 50331648

69:
How can I show a progress bar

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.ShowThumbProgress = .t.
oSlider.Template = "VisiblePart(640) = False" // oSlider.VisiblePart(640) = .f.
oSlider.TickStyle = 3
oSlider.Value = 3

68:
May I change the color of the ticks

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.TickColor = 255

67:
How do I specify the frequency of the ticks on the control

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.TickFrequency = 2

66:
How can I show the tickers on bottom/right side only

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.TickStyle = 0

65:
How can I show the tickers on top/left side only

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.TickStyle = 1

64:
How can I show the tickers on both sides

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.TickStyle = 2

63:
How can I hide the tickers

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.TickStyle = 3

62:
Is there any function to show the tooltip
Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.ShowToolTip("This message is shown when ShowToolTip methoid is called")

61:
Is there any function to highligth the control when it gets the focus

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.ShowFocusRect = .t.

60:
I am using your control in a C++ application, and I would preffer handle messages instead events
Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.NotifyParent = .t.

59:
How can I change the visual appearance of the thumb usign your EBN files

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.Orientation = 0
oSlider.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oSlider.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oSlider.VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn")
oSlider.Template = "Background(260) = 16777216" // oSlider.Background(260) = 16777216
oSlider.Template = "Background(261) = 33554432" // oSlider.Background(261) = 33554432
oSlider.Template = "Background(262) = 16777216" // oSlider.Background(262) = 16777216
oSlider.Template = "Background(263) = 50331648" // oSlider.Background(263) = 50331648

58:
How can I change the visual appearance of the thumb usign your EBN files

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oSlider.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oSlider.VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn")
oSlider.Template = "Background(260) = 16777216" // oSlider.Background(260) = 16777216
oSlider.Template = "Background(261) = 33554432" // oSlider.Background(261) = 33554432
oSlider.Template = "Background(262) = 16777216" // oSlider.Background(262) = 16777216
oSlider.Template = "Background(263) = 50331648" // oSlider.Background(263) = 50331648

57:
Can I indent the caption in parts of the control

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.ThumbSize = 64
oSlider.Template = "Caption(256) = `20 pixels<br>from left`" // oSlider.Caption(256) = "20 pixels<br>from left"
oSlider.Template = "CaptionAlignment(256) = 0" // oSlider.CaptionAlignment(256) = 0
oSlider.Template = "CaptionIndentX(256) = 20" // oSlider.CaptionIndentX(256) = 20
oSlider.Value = 3

56:
Does your control support owner draw feature
Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.Template = "OwnerDrawPart(256) = True" // oSlider.OwnerDrawPart(256) = .t.

55:
Can I assing any extra data to a button or part of the control
Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.Template = "UserData(256) = `This is just some extra data assigned to the control's thumb`" // oSlider.UserData(256) = "This is just some extra data assigned to the control's thumb"

54:
How can I specify the size of the thumb
Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.ThumbSize = 48

53:
Can I change the tooltip's border using your EBN files

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oSlider.Template = "Background(64) = 16777216" // oSlider.Background(64) = 16777216
oSlider.ToolTipText = "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
oSlider.Value = 4

52:
Can I change the tooltip's background color

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.ToolTipText = "This is <bgcolor=FF0000>just a text</bgcolor> that's displayed when the user clicks and drags the thumb to a new position"
oSlider.Value = 4

51:
Can I change the tooltip's background color

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.Template = "Background(65) = 255" // oSlider.Background(65) = 255
oSlider.ToolTipText = "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
oSlider.Value = 4

50:
Can I change the tooltip's foreground color

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.ToolTipText = "This is <fgcolor=FF0000>just a text</fgcolor> that's displayed when the user clicks and drags the thumb to a new position"
oSlider.Value = 4

49:
Can I change the tooltip's foreground color

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.Template = "Background(66) = 255" // oSlider.Background(66) = 255
oSlider.ToolTipText = "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
oSlider.Value = 4

48:
Can I change the tooltip's width

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.BeginUpdate()
oSlider.ToolTipWidth = 256
oSlider.ToolTipText = "This is <font Tahoma;12>just a text with a different font</font> that's displayed when the user clicks and drags the thumb to a new position"
oSlider.Value = 4
oSlider.EndUpdate()

47:
Can I change the tooltip's font

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.BeginUpdate()
oSlider.ToolTipTitle = "Title"
oSlider.ToolTipText = "This is <font Tahoma;12>just a text with a different font</font> that's displayed when the user clicks and drags the thumb to a new position"
oSlider.Value = 4
oSlider.EndUpdate()

46:
Can I change the tooltip's font

Dim f as P
Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.BeginUpdate()
f = OLE.Create("StdFont")
	f.Name = "Tahoma"
	f.Size = 12
oSlider.ToolTipFont = f
oSlider.ToolTipTitle = "Title"
oSlider.ToolTipText = "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
oSlider.Value = 4
oSlider.EndUpdate()

45:
Can I display a tooltip when user clicks the thumb and drags it to a new position

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.ToolTipTitle = "Title"
oSlider.ToolTipText = "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
oSlider.Value = 4

44:
How can I get the value from the cursor
Dim oSlider as P
Dim var_ValueFromPoint as 

oSlider = topparent:CONTROL_ACTIVEX1.activex
var_ValueFromPoint = oSlider.ValueFromPoint(-1,-1)

43:
Is there any function to identify the part from the cursor
Dim oSlider as P
Dim var_PartFromPoint as 

oSlider = topparent:CONTROL_ACTIVEX1.activex
var_PartFromPoint = oSlider.PartFromPoint(-1,-1)

42:
Is there any option to specify the value to be added or subtracted when user presses the contro's background
Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.LargeChange = 2

41:
Is there any option to specify the value to be added or subtracted when user presses the up or down button
Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.SmallChange = 1

40:
How do I specify the maxmimum value in the control
Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.Maximum = 20
oSlider.Value = 10

39:
How do I specify the minimum value in the control
Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.Minimum = 2
oSlider.Value = 3

38:
How do I change control's position
Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.Value = 4

37:
How do I change the position of the thumb
Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.Value = 4

36:
How do I enable or disable a part of the control

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.Value = 2
oSlider.ThumbSize = 48
oSlider.Template = "EnablePart(256) = False" // oSlider.EnablePart(256) = .f.
oSlider.Template = "Caption(256) = `<fgcolor=808080>thumb</fgcolor>`" // oSlider.Caption(256) = "<fgcolor=808080>thumb</fgcolor>"

35:
How do show or hide parts in the control

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.Template = "VisiblePart(256) = False" // oSlider.VisiblePart(256) = .f.

34:
How do I arrange the control vertically

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.Orientation = 0

33:
How do I prevent painting the control when I perform several changes

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.BeginUpdate()
oSlider.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oSlider.Template = "HTMLPicture(`p1`) = `c:\exontrol\images\zipdisk.gif`" // oSlider.HTMLPicture("p1") = "c:\exontrol\images\zipdisk.gif"
oSlider.Template = "HTMLPicture(`p2`) = `c:\exontrol\images\auction.gif`" // oSlider.HTMLPicture("p2") = "c:\exontrol\images\auction.gif"
oSlider.Template = "Caption(256) = `<img>p1</img> thumb <img>p2</img> <br><br><br>... <img>1</img> icon`" // oSlider.Caption(256) = "<img>p1</img> thumb <img>p2</img> <br><br><br>... <img>1</img> icon"
oSlider.ThumbSize = 124
oSlider.EndUpdate()

32:
How do I add icons

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.ThumbSize = 64
oSlider.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oSlider.Template = "Caption(256) = `<img>1</img>thumb`" // oSlider.Caption(256) = "<img>1</img>thumb"

31:
How can I align the caption to the right

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.ThumbSize = 64
oSlider.Template = "Caption(256) = `thumb right`" // oSlider.Caption(256) = "thumb right"
oSlider.Template = "CaptionAlignment(256) = 2" // oSlider.CaptionAlignment(256) = 2

30:
How can I align the caption to the left

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.ThumbSize = 64
oSlider.Template = "Caption(256) = ` thumb left`" // oSlider.Caption(256) = " thumb left"
oSlider.Template = "CaptionAlignment(256) = 0" // oSlider.CaptionAlignment(256) = 0

29:
How can show the caption using a different font

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.Template = "Caption(512) = `<font Tahoma;12>upper</font> part`" // oSlider.Caption(512) = "<font Tahoma;12>upper</font> part"
oSlider.Template = "Caption(128) = `<font ;4>lower</font> part`" // oSlider.Caption(128) = "<font ;4>lower</font> part"
oSlider.Value = 4

28:
Is there any option to display icons or pictures in the parts of the control

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.ThumbSize = 124
oSlider.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oSlider.Template = "HTMLPicture(`p1`) = `c:\exontrol\images\zipdisk.gif`" // oSlider.HTMLPicture("p1") = "c:\exontrol\images\zipdisk.gif"
oSlider.Template = "HTMLPicture(`p2`) = `c:\exontrol\images\auction.gif`" // oSlider.HTMLPicture("p2") = "c:\exontrol\images\auction.gif"
oSlider.Template = "Caption(256) = `<img>p1</img> thumb <img>p2</img> <br><br><br>... <img>1</img> icon`" // oSlider.Caption(256) = "<img>p1</img> thumb <img>p2</img> <br><br><br>... <img>1</img> icon"

27:
Is there any option to display icons or pictures in the parts of the control

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.ThumbSize = 124
oSlider.Template = "HTMLPicture(`p1`) = `c:\exontrol\images\zipdisk.gif`" // oSlider.HTMLPicture("p1") = "c:\exontrol\images\zipdisk.gif"
oSlider.Template = "HTMLPicture(`p2`) = `c:\exontrol\images\auction.gif`" // oSlider.HTMLPicture("p2") = "c:\exontrol\images\auction.gif"
oSlider.Template = "Caption(256) = `<img>p1</img> thumb <img>p2</img>`" // oSlider.Caption(256) = "<img>p1</img> thumb <img>p2</img>"

26:
Is there any option to display icons or pictures in the parts of the control

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.ThumbSize = 96
oSlider.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oSlider.Template = "Caption(256) = `<img>1</img> thumb <img>2</img>`" // oSlider.Caption(256) = "<img>1</img> thumb <img>2</img>"

25:
Is there any option to display icons or pictures in the parts of the control

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.ThumbSize = 96
oSlider.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oSlider.Template = "Caption(256) = `<img>1:4</img><img>1:4</img><img>1:4</img><img>1</img>thumb`" // oSlider.Caption(256) = "<img>1:4</img><img>1:4</img><img>1:4</img><img>1</img>thumb"

24:
Is there any option to display icons or pictures in the parts of the control

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.ThumbSize = 96
oSlider.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oSlider.Template = "Caption(256) = `<img>1</img>thumb`" // oSlider.Caption(256) = "<img>1</img>thumb"

23:
How can paint the caption using multiple lines

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.ThumbSize = 48
oSlider.Template = "Caption(256) = `line1<br>line2`" // oSlider.Caption(256) = "line1<br>line2"

22:
How can change the background color for a portion of text

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.Template = "Caption(512) = `<bgcolor=FF0000><fgcolor=0000FF>upper</fgcolor></bgcolor> part`" // oSlider.Caption(512) = "<bgcolor=FF0000><fgcolor=0000FF>upper</fgcolor></bgcolor> part"
oSlider.Template = "Caption(128) = `<bgcolor=0000FF><fgcolor=FF0000>upper</fgcolor></bgcolor> part`" // oSlider.Caption(128) = "<bgcolor=0000FF><fgcolor=FF0000>upper</fgcolor></bgcolor> part"
oSlider.Value = 4

21:
How can change the foreground color for a portion of text

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.Template = "Caption(512) = `<fgcolor=FF0000>upper</fgcolor> part`" // oSlider.Caption(512) = "<fgcolor=FF0000>upper</fgcolor> part"
oSlider.Template = "Caption(128) = `<fgcolor=0000FF>upper</fgcolor> part`" // oSlider.Caption(128) = "<fgcolor=0000FF>upper</fgcolor> part"
oSlider.Value = 4

20:
How can show the caption as strikeout

Dim f as P
Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
f = OLE.Create("StdFont")
	f.Name = "Tahoma"
	f.Size = 12
oSlider.Font = f
oSlider.Template = "Caption(512) = `<s>upper</s> part`" // oSlider.Caption(512) = "<s>upper</s> part"
oSlider.Template = "Caption(128) = `<s>lower</s> part`" // oSlider.Caption(128) = "<s>lower</s> part"
oSlider.Value = 4

19:
How can underline a portion of the caption

Dim f as P
Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
f = OLE.Create("StdFont")
	f.Name = "Tahoma"
	f.Size = 12
oSlider.Font = f
oSlider.Template = "Caption(512) = `<u>upper</u> part`" // oSlider.Caption(512) = "<u>upper</u> part"
oSlider.Template = "Caption(128) = `<u>lower</u> part`" // oSlider.Caption(128) = "<u>lower</u> part"
oSlider.Value = 4

18:
How can I draw in italic a portion of the caption

Dim f as P
Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
f = OLE.Create("StdFont")
	f.Name = "Tahoma"
	f.Size = 12
oSlider.Font = f
oSlider.Template = "Caption(512) = `<i>upper</i> part`" // oSlider.Caption(512) = "<i>upper</i> part"
oSlider.Template = "Caption(128) = `<i>lower</i> part`" // oSlider.Caption(128) = "<i>lower</i> part"
oSlider.Value = 4

17:
How can I draw in bold a portion of the caption

Dim f as P
Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
f = OLE.Create("StdFont")
	f.Name = "Tahoma"
	f.Size = 12
oSlider.Font = f
oSlider.Template = "Caption(512) = `<b>upper</b> part`" // oSlider.Caption(512) = "<b>upper</b> part"
oSlider.Template = "Caption(128) = `<b>lower</b> part`" // oSlider.Caption(128) = "<b>lower</b> part"
oSlider.Value = 4

16:
How can I put a text on the background part in the lower or upper side

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.Template = "Caption(512) = `upper`" // oSlider.Caption(512) = "upper"
oSlider.Template = "Caption(128) = `lower`" // oSlider.Caption(128) = "lower"
oSlider.Value = 4

15:
How can I put a text on the background part

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.Template = "Caption(640) = `background`" // oSlider.Caption(640) = "background"

14:
How can I put a text on the thumb

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.ThumbSize = 32
oSlider.Template = "Caption(256) = `thumb`" // oSlider.Caption(256) = "thumb"

13:
How can I disable the control
Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.Enabled = .f.

12:
How do I put a picture on the center of the control

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.Picture = oSlider.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oSlider.PictureDisplay = 17

11:
How do I resize/stretch a picture on the control's background

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.Picture = oSlider.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oSlider.PictureDisplay = 49

10:
How do I put a picture on the control's center right bottom side

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.Picture = oSlider.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oSlider.PictureDisplay = 34

9:
How do I put a picture on the control's center left bottom side

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.Picture = oSlider.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oSlider.PictureDisplay = 32

8:
How do I put a picture on the control's center top side

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.Picture = oSlider.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oSlider.PictureDisplay = 1
oSlider.Value = 5

7:
How do I put a picture on the control's right top corner

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.Picture = oSlider.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oSlider.PictureDisplay = 2
oSlider.Value = 5

6:
How do I put a picture on the control's left top corner

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.Picture = oSlider.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oSlider.PictureDisplay = 0
oSlider.Value = 5

5:
How do I put a picture on the control's background

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.Picture = oSlider.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")

4:
How can I change the size of control's font

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.ThumbSize = 96
oSlider.Font.Size = 12
oSlider.ForeColor = 255
oSlider.Template = "Caption(256) = `thumb`" // oSlider.Caption(256) = "thumb"

3:
How do I change the control's font

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.ThumbSize = 32
oSlider.Font.Name = "Tahoma"
oSlider.ForeColor = 255
oSlider.Template = "Caption(256) = `thumb`" // oSlider.Caption(256) = "thumb"

2:
How can I change the control's foreground color

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.ForeColor = 255
oSlider.ThumbSize = 32
oSlider.Template = "Caption(256) = `thumb`" // oSlider.Caption(256) = "thumb"

1:
How can I change the control's background color

Dim oSlider as P

oSlider = topparent:CONTROL_ACTIVEX1.activex
oSlider.BackColor = 65280