100. How do I access the properties and the methods of an inner ActiveX control to a panel
with thisform.StatusBar1 .BeginUpdate var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) with .VisualAppearance .Add(4,"c:\exontrol\images\border.ebn") .Add(5,"CP:4 1 1 -1 -1") endwith .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1/2,(24;5/6)" with .Panel(1) .ControlID = "MSCAL.Calendar" with .Object .MonthLength = 0 .BackColor = RGB(255,255,255) endwith endwith with .Panel(5) .Text = "<fgcolor=FFFFFF><img>1</img>75%</fgcolor>" .Alignment = 16 .Percent = 75 .Transparency = 35 .Offset = "4 2 -4 -2" endwith .EndUpdate endwith
99. How do I insert an ActiveX control to a panel
with thisform.StatusBar1 .BeginUpdate var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) with .VisualAppearance .Add(4,"c:\exontrol\images\border.ebn") .Add(5,"CP:4 1 1 -1 -1") endwith .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1/2,(24;5/6)" .Panel(1).ControlID = "MSChart20Lib.MSChart" .Panel(2).ControlID = "MSCAL.Calendar" with .Panel(5) .Text = "<fgcolor=FFFFFF><img>1</img>75%</fgcolor>" .Alignment = 16 .Percent = 75 .Transparency = 35 .Offset = "4 2 -4 -2" endwith .EndUpdate endwith
98. How can I show the percent value over the progress bar using a semi-transparent color
with thisform.StatusBar1 .BeginUpdate var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) with .VisualAppearance .Add(4,"c:\exontrol\images\border.ebn") .Add(5,"CP:4 1 1 -1 -1") endwith .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1/2,(24;5/6)" with .Panel(5) .Text = "<fgcolor=FFFFFF><img>1</img>75%</fgcolor>" .Alignment = 16 .Percent = 75 .Transparency = 35 .Offset = "4 2 -4 -2" endwith .EndUpdate endwith
97. How can I control the padding of the percent/progressbar control
with thisform.StatusBar1 .BeginUpdate with .VisualAppearance .Add(4,"c:\exontrol\images\border.ebn") .Add(5,"CP:4 1 1 -1 -1") endwith .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1/2,(24;5/6)" with .Panel(5) .Text = "15%" .Percent = 15 .OffsetPercent = "6 6 -6 -6" endwith .EndUpdate endwith
96. Can I change the visual appearance of the percent or a progress-bar inside the panel
with thisform.StatusBar1 .BeginUpdate with .VisualAppearance .Add(1,"c:\exontrol\images\normal.ebn") .Add(4,"c:\exontrol\images\border.ebn") .Add(5,"CP:4 1 1 -1 -1") endwith .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1/2,(24;5/6)" with .Panel(5) .BackColor = RGB(255,255,255) .Text = "15%" .Percent = 15 .BackColorPercent = 0x1000000 endwith .EndUpdate endwith
95. Can I change the visual appearance of the percent or a progress-bar inside the panel
with thisform.StatusBar1 .BeginUpdate var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) with .VisualAppearance var_s1 = "gBFLBCJwBAEHhEJAEGg8GhiAADACAxRDAMgBQKAAzQFAYbhrBaERhGIYYJhUAIIRZGMIjFDcEwxDSMQJjaCRQh+JYkR6MQCS" var_s1 = var_s1 + "BJkMw5AaXYrlWJoMjKA4nTbKMjRfKcWRjGKeJ5kOaZIhuJgCUJLM70HRMExqGQaRJpeoZVDUMJSQjVVYUbDVFwHIKkZzoWhJ" var_s1 = var_s1 + "QiKXIuRzXdKzLYVSABA6xbLiWrpWqebQAThbdD3FC1aTBISpaztepKZpeVaGXxcdo3LTlbzzOC3MRva7MOjqJJIYjMGJ3fLu" var_s1 = var_s1 + "A49QrBKymWJcYwyGgIQiBdKaK7+WgBVp/YqjeL9IgMUBpGKdBynlzGHzeQiQRK8BDIbQSFCEdpADSrKBiFioZjXGwbBaXJ4u" var_s1 = var_s1 + "jOdY2D2Do3FeOZbmmdx6HAECAg==" .Add(1,var_s1) .Add(4,"c:\exontrol\images\border.ebn") .Add(5,"CP:4 1 1 -1 -1") endwith .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1/2,(24;5/6)" with .Panel(5) .Text = "<fgcolor=FFFFFF><img>1</img>75%</fgcolor>" .Alignment = 16 .Percent = 75 .Transparency = 35 .Offset = "4 2 -4 -2" .BackColorPercent = 0x1000000 endwith .EndUpdate endwith
94. How can I change the color of the percent or a progress-bar inside the panel
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1/2,(24;5/6)" with .Panel(5) .Text = "15%" .Percent = 15 .BackColorPercent = RGB(255,0,0) endwith .EndUpdate endwith
93. How can I display a percent or a progress-bar inside the panel
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1/2,(24;5/6)" with .Panel(5) .Text = "15%" .Percent = 15 endwith .EndUpdate endwith
92. Is there any property to get the width/height of the panel
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1/2,(5/6)" with .Panel(5) .Text = .Width endwith with .Panel(6) .Text = .Height endwith .EndUpdate endwith
91. How can I disable a panel
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1/2,(5/6)" with .Panel(5) .Text = "Disabled" .Enabled = .F. endwith .EndUpdate endwith
90. How can I assign an extra data to my panel
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1/2,(5/6/7/8)" with .Panel(5) .Text = "UserData" .UserData = "this is just some extra data associated to the panel" .ToolTipText = .UserData endwith .EndUpdate endwith
89. Is there any option to draw myself the panel
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1/2,(5/6/7/8)" with .Panel(5) .Text = "OwnerDraw" .OwnerDraw = .T. endwith .Debug = .T. .EndUpdate endwith
88. How can I assign a tooltip to a panel
with thisform.StatusBar1 .BeginUpdate .ToolTipDelay = 1 .ToolTipWidth = 364 .Format = "1/2/3" with .Panel(1) .Text = "This is a bit of text that should occurs when the cursor hovers the panel" .ToolTipText = .Text .ToolTipTitle = "Title" .Alignment = 16 endwith with .Panel(2) .Text = "This is a bit of text that should occurs when the cursor hovers the panel" .ToolTipText = .Text .ToolTipTitle = "Title" .Alignment = 16 endwith with .Panel(3) .Text = "This is a bit of text that should occurs when the cursor hovers the panel" .ToolTipText = .Text .ToolTipTitle = "Title" .Alignment = 16 endwith .EndUpdate endwith
87. How can I assign an icon/image to a panel
with thisform.StatusBar1 .BeginUpdate var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1,2,3,4,(5/6/7/8)" .Panel(1).Image = 1 .Panel(6).Image = 2 .Panel(8).Image = 3 .EndUpdate endwith
86. How can I get the index of the panel
with thisform.StatusBar1 .BeginUpdate .Appearance = 0 .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1,2,3,4,(5/6/7/8)" .Debug = .T. .EndUpdate endwith
85. How can I get the index of the panel
with thisform.StatusBar1 .BeginUpdate .Appearance = 0 .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1,2,3,4,(5/6/7/8)" .Panel(1).Text = 0.Index .EndUpdate endwith
84. How can I change the panel's visual appearance using EBN files
with thisform.StatusBar1 .BeginUpdate .Appearance = 0 .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1,2,3,4,(5/6/7/8)" .Debug = .T. .EndUpdate endwith
83. How can I change the panel's visual appearance using EBN files
with thisform.StatusBar1 .BeginUpdate with .VisualAppearance .Add(3,"c:\exontrol\images\normal.ebn") .Add(4,"c:\exontrol\images\pushed.ebn") .Add(1,"CP:3 2 2 -2 -2") .Add(2,"CP:4 2 2 -2 -2") endwith .BackColorPanels = 0x5000000 .Format = "1,2" with .Panel(1) .Text = "Panel 1" .BackColor = 0x1000000 endwith with .Panel(2) .Text = "Panel 2" .BackColor = 0x2000000 endwith .EndUpdate endwith
82. How can I change the panel's visual appearance using EBN files
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn") .BackColorPanels = 0x5000000 .Format = ""+chr(34)+""+chr(34)+":4,((4;"+chr(34)+""+chr(34)+"/1/4;"+chr(34)+""+chr(34)+"),"+chr(34)+""+chr(34)+":4,(4;"+chr(34)+""+chr(34)+"/2/4;"+chr(34)+""+chr(34)+")),"+chr(34)+""+chr(34)+":4" with .Panel(1) .Text = "Panel 1" .BackColor = 0x1000000 endwith with .Panel(2) .Text = "Panel 2" .BackColor = 0x2000000 endwith .EndUpdate endwith
81. How can I change the panel's background color
with thisform.StatusBar1 .BeginUpdate .Format = ""+chr(34)+""+chr(34)+":4,((4;"+chr(34)+""+chr(34)+"/1/4;"+chr(34)+""+chr(34)+"),"+chr(34)+""+chr(34)+":4,(4;"+chr(34)+""+chr(34)+"/2/4;"+chr(34)+""+chr(34)+")),"+chr(34)+""+chr(34)+":4" with .Panel(1) .Text = "Panel 1" .BackColor = RGB(255,255,0) endwith with .Panel(2) .Text = "Panel 2" .BackColor = RGB(255,0,255) endwith .EndUpdate endwith
80. How can I change the caption's foreground color
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1:48/2" with .Panel(1) .Text = "Panel 1" .ForeColor = RGB(255,255,0) endwith var_Panel = .Panel(2) with var_Panel .Text = "Panel 2" .ForeColor = RGB(255,0,255) endwith .EndUpdate endwith
79. How can I show in strikeout the caption in the panel
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1/2" with .Panel(1) .Text = "Panel 1" .StrikeOut = .T. endwith .Panel(2).Text = "<s>Panel</s> 2" .EndUpdate endwith
78. How can I underline the caption in the panel
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1/2" with .Panel(1) .Text = "Panel 1" .Underline = .T. endwith .Panel(2).Text = "<u>Panel</u> 2" .EndUpdate endwith
77. How can I show in italic a specified panel
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1/2" with .Panel(1) .Text = "Panel 1" .Italic = .T. endwith .Panel(2).Text = "<i>Panel</i> 2" .EndUpdate endwith
76. How can I show in bold a specified panel
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1/2" with .Panel(1) .Text = "Panel 1" .Bold = .T. endwith .Panel(2).Text = "<b>Panel</b> 2" .EndUpdate endwith
75. How do I control the padding on the left, top or other sides
with thisform.StatusBar1 .BeginUpdate .Debug = .T. .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1/2/(3,4)" with .Panel(3) .Text = "Arrange the panels as you want using CRD strings" .Alignment = 0 .ToolTipText = .Text .Offset = "10 10 -10 -10" endwith .EndUpdate endwith
74. How can I display the panel using a single line
with thisform.StatusBar1 .BeginUpdate .Debug = .T. .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1/2/(3,4)" with .Panel(3) .Text = "Arrange the panels as you want using CRD strings" .ToolTipText = .Text .WordWrap = .F. endwith .EndUpdate endwith
73. How can I align the text inside the panel
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "(0/16/32),(1/17/33),(2/18/34)" with .Panel(0) .Text = "exAlignTopLeft" .Alignment = 0 endwith with .Panel(1) .Text = "exAlignTopCenter" .Alignment = 1 endwith with .Panel(2) .Text = "exAlignTopRight" .Alignment = 2 endwith with .Panel(16) .Text = "exAlignMiddleLeft" .Alignment = 16 endwith with .Panel(17) .Text = "exAlignMiddleCenter" .Alignment = 17 endwith with .Panel(18) .Text = "exAlignMiddleRight" .Alignment = 18 endwith with .Panel(32) .Text = "exAlignBottomLeft" .Alignment = 32 endwith with .Panel(33) .Text = "exAlignBottomCenter" .Alignment = 33 endwith with .Panel(34) .Text = "exAlignBottomRight" .Alignment = 34 endwith .EndUpdate endwith
72. How can I display the <b> in the panel's caption
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1" .Panel(1).Text = "<b>Bold</b>" .EndUpdate endwith
71. How can I insert anchors or hyperlinks
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1/2" .Panel(1).Text = "Link <a1>1</a>" .Panel(2).Text = "<a2>Link 2</a>" .EndUpdate endwith
70. How can I change the font for a panel
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1/2" .Panel(1).Text = "<font Tahoma>Panel 1</font>" .Panel(2).Text = "<font System>Panel 2</font>" .EndUpdate endwith
69. Is there any option to display the text using different fonts
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1/2" .Panel(1).Text = "Panel <font Tahoma;20>1</font>" .Panel(2).Text = "Panel <font Tahoma;16>2</font>" .EndUpdate endwith
68. Is there any option to insert custom size pictures in the text
with thisform.StatusBar1 .BeginUpdate .HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif" .HTMLPicture("pic2") = "c:\exontrol\images\auction.gif" .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1/2" .Panel(1).Text = "Panel 1<img>pic1</img>" .Panel(2).Text = "Panel <img>pic2</img> 2" .EndUpdate endwith
67. Is there any option to insert icons in the text
with thisform.StatusBar1 .BeginUpdate var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1/2" .Panel(1).Text = "Panel 1<img>1</img>" .Panel(2).Text = "<img>2</img>Panel 2" .EndUpdate endwith
66. How do I show the panel's caption using multiple lines
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1/2" .Panel(1).Text = "Panel 1<br>Line 1<br>Line2" .Panel(2).Text = "<bgcolor=FFFF00>Panel</bgcolor> 2" .EndUpdate endwith
65. How do I show a portion of the text using a different background color
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1/2" .Panel(1).Text = "<bgcolor=FF0000>Panel</bgcolor> 1" .Panel(2).Text = "<bgcolor=FFFF00>Panel</bgcolor> 2" .EndUpdate endwith
64. How do I show a portion of the text in a different color
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1/2" .Panel(1).Text = "<fgcolor=FF0000>Panel</fgcolor> 1" .Panel(2).Text = "<fgcolor=FFFF00>Panel</fgcolor> 2" .EndUpdate endwith
63. How do I show a portion of the text as italic in the panel
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1/2" .Panel(1).Text = "<i>Panel</i> 1" .Panel(2).Text = "<i>Panel</i> 2" .EndUpdate endwith
62. How do I show a portion of the text as strikeout in the panel
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1/2" .Panel(1).Text = "<s>Panel</s> 1" .Panel(2).Text = "<s>Panel</s> 2" .EndUpdate endwith
61. How do I underline a portion of the text in the panel
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1/2" .Panel(1).Text = "<u>Panel</u> 1" .Panel(2).Text = "<u>Panel</u> 2" .EndUpdate endwith
60. How do I bold a portion of the text in the panel
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1/2" .Panel(1).Text = "<b>Panel</b> 1" .Panel(2).Text = "<b>Panel</b> 2" .EndUpdate endwith
59. How do I assign a caption or a text to a panel
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .BackColor = 0x8000000f .Format = "1/2" .Panel(1).Text = "Panel 1" .Panel(2).Text = "Panel 2" .EndUpdate endwith
58. How do I access properties and methods of the panel
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .Format = "1010/2020" with .Panel(1010) .Text = "Panel 1" .Bold = .T. endwith .Panel(2020).Text = "Panel 2" .EndUpdate endwith
57. How do I clear the panels
with thisform.StatusBar1 .BeginUpdate .BackColor = 0x8000000f var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .Format = "1/2/48;(3,4:48)" .Panel(1).Text = "Panel 1" .Panel(2).Text = "Panel 2" .Panel(3).Text = "Panel 3" .Panel(4).Text = "Panel 4" .ClearPanels .EndUpdate endwith
56. How can I add or arrange the panels in the status bar control
with thisform.StatusBar1 .BeginUpdate var_s = ""+chr(34)+"<a1>link</a>"+chr(34)+"[a=17]:64,11:64,((24;21/"+chr(34)+"Arrange the panels as you want using CRD strings"+chr(34)+"[a=17][w" var_s = var_s + "w])/24;3),(33/44):48" .Format = var_s var_s1 = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s1 = var_s1 + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s1 = var_s1 + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s1 = var_s1 + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s1 = var_s1 + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s1) with .VisualAppearance .Add(1,"c:\exontrol\images\border.ebn") .Add(2,"c:\exontrol\images\border.ebn") .Add(3,"CP:2 1 1 -1 -1") endwith .Appearance = 0 .BackColor = 0x8000000f .BackColorPanels = 0x3000000 .Panel(11).Text = "Panel <b>1</b>" with .Panel(3) .Transparency = 50 .Text = "<img>1</img>75%" .Percent = 75 .Alignment = 16 .Offset = "4 4 -4 -4" .OffsetPercent = .Offset .BackColorPercent = 0x1000000 endwith .Panel(21).Image = 1 with .Panel(33) .Text = "Panel 3" .Bold = .T. .Enabled = .F. endwith .Panel(44).Text = "Panel 4" .EndUpdate endwith
55. How can I add three panels aligned from top to bottom, and the last divided in two panels
with thisform.StatusBar1 .BeginUpdate .BackColor = 0x8000000f var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .Format = "1/2/48;(3,4:48)" .Panel(1).Text = "Panel 1" .Panel(2).Text = "Panel 2" .Panel(3).Text = "Panel 3" .Panel(4).Text = "Panel 4" .EndUpdate endwith
54. How can I add three panels aligned from top to bottom
with thisform.StatusBar1 .BeginUpdate .BackColor = 0x8000000f var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .Format = "1/2/3" .Panel(1).Text = "Panel 1" .Panel(2).Text = "Panel 2" .Panel(3).Text = "Panel 3" .EndUpdate endwith
53. How can I add two panels to the status bar control, first aligned to the left, the second aligned to the right, and in the middle some text
with thisform.StatusBar1 .BeginUpdate .BackColor = 0x8000000f var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .Format = "1:64,"+chr(34)+"<img>1</img> just text and so on ..."+chr(34)+"[a=17],2:96" .Panel(1).Text = "Panel 1" .Panel(2).Text = "Panel 2" .EndUpdate endwith
52. How can I add two panels to the status bar control, first aligned to the left, the second aligned to the right
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .Format = "1:64,"+chr(34)+""+chr(34)+",2:96" .Panel(1).Text = "Panel 1" .Panel(2).Text = "Panel 2" .EndUpdate endwith
51. How can I add two panels to the status bar control, so the first has a specified width
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .Format = "1:64,2" .Panel(1).Text = "Panel 1" .Panel(2).Text = "Panel 2" .EndUpdate endwith
50. How can I add two panels to the status bar control, so the second has a specified width
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .Format = "1,2:64" .Panel(1).Text = "Panel 1" .Panel(2).Text = "Panel 2" .EndUpdate endwith
49. How can I add two panels to the status bar control
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .Format = "1,2" .Panel(1).Text = "Panel 1" .Panel(2).Text = "Panel 2" .EndUpdate endwith
48. How do I add one panel to the status bar control
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 2 2 -2 -2") .BackColorPanels = 0x5000000 .Format = "1" .Panel(1).Text = "Panel 1" .EndUpdate endwith
47. How do I arrange the panels in the status bar
with thisform.StatusBar1 .BeginUpdate .Debug = .T. .VisualAppearance.Add(4,"c:\exontrol\images\hot.ebn") .VisualAppearance.Add(5,"CP:4 2 2 -2 -2") .BackColorPanels = 0x5000000 var_s = ""+chr(34)+"<a1>link</a>"+chr(34)+"[a=17]:64,11:64,((24;21/"+chr(34)+"Arrange the panels as you want using CRD strings"+chr(34)+"[a=17][w" var_s = var_s + "w])/24;3),(33/44):48" .Format = var_s .EndUpdate endwith
46. How do I arrange the panels in the status bar
with thisform.StatusBar1 .BeginUpdate .Debug = .T. .VisualAppearance.Add(4,"c:\exontrol\images\pushed.ebn") .VisualAppearance.Add(5,"CP:4 2 2 -2 -2") .BackColorPanels = 0x5000000 .Format = "1,2:32,(3/4/5)" .EndUpdate endwith
45. How do I arrange the panels in the status bar
with thisform.StatusBar1 .BeginUpdate .Debug = .T. .VisualAppearance.Add(4,"c:\exontrol\images\normal.ebn") .VisualAppearance.Add(5,"CP:4 2 2 -2 -2") .BackColorPanels = 0x5000000 .Format = "1,2,(3/4/5)" .EndUpdate endwith
44. How do I get the panel from the cursor
with thisform.StatusBar1
p = .PanelFromPoint(-1,-1)
endwith
with thisform.StatusBar1 .BeginUpdate .Debug = .T. .VisualAppearance.Add(4,"c:\exontrol\images\normal.ebn") .VisualAppearance.Add(5,"CP:4 2 2 -2 -2") .BackColorPanels = 0x5000000 .Format = "1,2,(3/4/5)" .EndUpdate endwith
42. How do I draw a border for all panels
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 2 2 -2 -2") .BackColorPanels = 0x5000000 .Debug = .T. .Format = "(0/1:32),2,(3/4/5)" .EndUpdate endwith
41. Is there any option to display the identifiers of the panels
with thisform.StatusBar1 .BeginUpdate .Debug = .T. .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .Format = "1,2,3" .Panel(1).Text = "Panel 1" .Panel(2).Text = "Panel 2" .Panel(3).Text = "Panel 3" .EndUpdate endwith
40. Can I get the anchor from the point so I can display a tooltip
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .Format = "1,2,3" .Panel(1).Text = "<a1>link 1</a>" .Panel(2).Text = "<a2>link 2</a>" .Panel(3).Text = "<a3>link 3</a>" .ShowToolTip(.AnchorFromPoint(-1,-1)) .EndUpdate endwith
39. Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it
with thisform.StatusBar1 .BeginUpdate .FormatAnchor(.F.) = "<b><u><fgcolor=880000> </fgcolor></u></b>" .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .Format = "1,2,3" .Panel(1).Text = "<a1>link 1</a>" .Panel(2).Text = "<a2>link 2</a>" .Panel(3).Text = "<a3>link 3</a>" .EndUpdate endwith
38. Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions
with thisform.StatusBar1 .BeginUpdate .FormatAnchor(.T.) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>" .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .Format = "1,2,3" .Panel(1).Text = "<a1>link 1</a>" .Panel(2).Text = "<a2>link 2</a>" .Panel(3).Text = "<a3>link 3</a>" .EndUpdate endwith
37. Can I displays a custom size picture to panels
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif" .Format = "1,2,3,4" .Panel(1).Text = "<img>pic1</img>" .EndUpdate endwith
36. How can I show the tooltip programatically
with thisform.StatusBar1
.ShowToolTip("This is a bit of text that should appear when ShowToolTip method is called.")
endwith
with thisform.StatusBar1 .BeginUpdate .ToolTipDelay = 1 .ToolTipWidth = 426 .Format = "1" with .Panel(1) .Text = "This is a bit of text that should occurs when the cursor hovers the panel" .ToolTipText = .Text .ToolTipTitle = "Title" .Alignment = 16 endwith .EndUpdate endwith
34. How do I call your x-script language
with thisform.StatusBar1 .Debug = .T. .Format = "1" .ExecuteTemplate("Panel(1)").Text = "this is called through ExecuteTemplate property" endwith
33. How do I call your x-script language
with thisform.StatusBar1
.Template = "BackColor = RGB(255,0,0)"
endwith
with thisform.StatusBar1 .BeginUpdate .Enabled = .F. var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .Format = "1,2,3,4,(5/6/7/8)" .Panel(1).Image = 1 .Panel(2).Text = "<img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> icons" with .Panel(3) .Text = "<img>2</img>" .Alignment = 18 endwith .EndUpdate endwith
31. How do I let the tooltip being displayed longer
with thisform.StatusBar1 .BeginUpdate .ToolTipDelay = 1 .ToolTipPopDelay = 10000 .Format = "1" with .Panel(1) .Text = "This is a bit of text that should occurs when the cursor hovers the panel" .ToolTipText = .Text .ToolTipTitle = "Title" .Alignment = 16 endwith .EndUpdate endwith
30. Can I change the background color for the tooltip
with thisform.StatusBar1 .BeginUpdate .ToolTipDelay = 1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Background(64) = 0x1000000 .Background(65) = RGB(246,245,240) .Format = "1" with .Panel(1) .Text = "This is a bit of text that should occurs when the cursor hovers the panel" .ToolTipText = .Text .ToolTipTitle = "Title" .Alignment = 16 endwith .EndUpdate endwith
29. Can I change the background color for the tooltip
with thisform.StatusBar1 .BeginUpdate .ToolTipDelay = 1 .Background(65) = RGB(255,0,0) .Format = "1" with .Panel(1) .Text = "Drag the cursor hover so the tooltip shows up" .ToolTipText = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a panel" endwith .EndUpdate endwith
28. Does the tooltip support HTML format
with thisform.StatusBar1 .BeginUpdate .ToolTipDelay = 1 .Format = "1" with .Panel(1) .Text = "Drag the cursor hover so the tooltip shows up" var_s = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>panel</fgcol" var_s = var_s + "or>" .ToolTipText = var_s endwith .EndUpdate endwith
27. Can I change the forecolor for the tooltip
with thisform.StatusBar1 .BeginUpdate .ToolTipDelay = 1 .Background(66) = RGB(255,0,0) .Format = "1" with .Panel(1) .Text = "This is a bit of text that should occurs when the cursor hovers the panel" .ToolTipText = .Text .ToolTipTitle = "Title" .Alignment = 16 endwith .EndUpdate endwith
26. Can I change the foreground color for the tooltip
with thisform.StatusBar1 .BeginUpdate .ToolTipDelay = 1 with .ToolTipFont .Name = "Tahoma" .Size = 14 endwith .ToolTipWidth = 364 .Format = "1" with .Panel(1) .Text = "this is a tooltip assigned to a panel" .ToolTipText = "<fgcolor=FF0000>this is a tooltip assigned to a panel</fgcolor>" .ToolTipTitle = "Title" .Alignment = 16 endwith .EndUpdate endwith
25. Can I change the font for the tooltip
with thisform.StatusBar1 .BeginUpdate .ToolTipDelay = 1 with .ToolTipFont .Name = "Tahoma" .Size = 14 endwith .ToolTipWidth = 364 .Format = "1" with .Panel(1) .Text = "This is a bit of text that should occurs when the cursor hovers the panel" .ToolTipText = .Text .ToolTipTitle = "Title" .Alignment = 16 endwith .EndUpdate endwith
24. How do I disable showing the tooltip for all control
with thisform.StatusBar1 .BeginUpdate .ToolTipDelay = 0 .Format = "1" with .Panel(1) .Text = "This is a bit of text that should occurs when the cursor hovers the panel" .ToolTipText = .Text .ToolTipTitle = "Title" .Alignment = 16 endwith .EndUpdate endwith
23. How do I show the tooltip quicker
with thisform.StatusBar1 .BeginUpdate .ToolTipDelay = 1 .ToolTipWidth = 364 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Background(64) = 0x1000000 .Format = "1" with .Panel(1) .Text = "This is a bit of text that should occurs when the cursor hovers the panel" .ToolTipText = .Text .ToolTipTitle = "Title" .Alignment = 16 endwith .EndUpdate endwith
22. Can I change the default border of the tooltip, using your EBN files
with thisform.StatusBar1 .BeginUpdate .ToolTipDelay = 1 .ToolTipWidth = 364 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Background(64) = 0x1000000 .Format = "1" with .Panel(1) .Text = "This is a bit of text that should occurs when the cursor hovers the panel" .ToolTipText = .Text .ToolTipTitle = "Title" .Alignment = 16 endwith .EndUpdate endwith
21. How do I retrieve the handle of the window
with thisform.StatusBar1 .Format = .hWnd .ClearPanels endwith
20. How can I prevent the control from painting when multiple changes occurs
with thisform.StatusBar1 .BeginUpdate var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .Format = "1,2,3,4,(5/6/7/8)" .Panel(1).Image = 1 .Panel(2).Text = "<img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> icons" with .Panel(3) .Text = "<img>2</img>" .Alignment = 18 endwith .EndUpdate endwith
19. How can I insert an icon aligned to the right
with thisform.StatusBar1 .BeginUpdate var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .Format = "1,2,3,4,(5/6/7/8)" with .Panel(2) .Text = "<img>2</img>" .Alignment = 18 endwith .EndUpdate endwith
18. How can I insert an icon to a panel
with thisform.StatusBar1 .BeginUpdate var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .Format = "1,2,3,4,(5/6/7/8)" .Panel(2).Text = "<img>2</img>" .EndUpdate endwith
17. How can I insert icons to status bar control
with thisform.StatusBar1 .BeginUpdate var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .Format = "1,2,3,4,(5/6/7/8)" .Panel(1).Image = 1 .Panel(2).Text = "<img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> icons" with .Panel(3) .Text = "<img>2</img>" .Alignment = 18 endwith .EndUpdate endwith
16. How can I insert an icon to a panel
with thisform.StatusBar1 .BeginUpdate var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .Format = "1,2,3,4,(5/6/7/8)" .Panel(1).Image = 1 .EndUpdate endwith
15. Is there any option to increase the empty space on borders of the control
with thisform.StatusBar1 .BeginUpdate .BorderWidth = 20 .BorderHeight = 20 .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .Format = "1,2,3,4,(5/6/7/8)" .Debug = .T. .EndUpdate endwith
14. How do I get the version of the control
with thisform.StatusBar1 .BeginUpdate .Format = .Version .ClearPanels .EndUpdate endwith
13. How do I put a picture on the center of the control
with thisform.StatusBar1 .BeginUpdate .Picture = thisform.StatusBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureDisplay = 17 .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .Format = "1,2,3,4,(5/6/7/8)" .Debug = .T. .EndUpdate endwith
12. How do I resize/stretch a picture on the control's background
with thisform.StatusBar1 .BeginUpdate .Picture = thisform.StatusBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureDisplay = 49 .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .Format = "1,2,3,4,(5/6/7/8)" .Debug = .T. .EndUpdate endwith
11. How do I put a picture on the control's center right bottom side
with thisform.StatusBar1 .BeginUpdate .Picture = thisform.StatusBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureDisplay = 34 .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .Format = "1,2,3,4,(5/6/7/8)" .Debug = .T. .EndUpdate endwith
10. How do I put a picture on the control's center left bottom side
with thisform.StatusBar1 .BeginUpdate .Picture = thisform.StatusBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureDisplay = 32 .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .Format = "1,2,3,4,(5/6/7/8)" .Debug = .T. .EndUpdate endwith
9. How do I put a picture on the control's center top side
with thisform.StatusBar1 .BeginUpdate .Picture = thisform.StatusBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureDisplay = 1 .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .Format = "1,2,3,4,(5/6/7/8)" .Debug = .T. .EndUpdate endwith
8. How do I put a picture on the control's right top corner
with thisform.StatusBar1 .BeginUpdate .Picture = thisform.StatusBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureDisplay = 2 .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .Format = "1,2,3,4,(5/6/7/8)" .Debug = .T. .EndUpdate endwith
7. How do I put a picture on the control's left top corner
with thisform.StatusBar1 .BeginUpdate .Picture = thisform.StatusBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureDisplay = 0 .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .Format = "1,2,3,4,(5/6/7/8)" .Debug = .T. .EndUpdate endwith
6. How do I put a picture on the control's background
with thisform.StatusBar1 .BeginUpdate .Picture = thisform.StatusBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .Format = "1,2,3,4,(5/6/7/8)" .Debug = .T. .EndUpdate endwith
5. How do I change the control's foreground color
with thisform.StatusBar1 .BeginUpdate .ForeColor = RGB(120,120,120) .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .Format = "1,2,3,4,(5/6/7/8)" .Debug = .T. .EndUpdate endwith
4. How do I change the control's background color
with thisform.StatusBar1 .BeginUpdate .BackColor = RGB(200,200,200) .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .Format = "1,2,3,4,(5/6/7/8)" .Debug = .T. .EndUpdate endwith
3. How do I change the control's border, using your EBN files
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Appearance = 16777216 .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .Format = "1,2,3,4,(5/6/7/8)" .Debug = .T. .EndUpdate endwith
2. How do I remove the control's border
with thisform.StatusBar1 .BeginUpdate .Appearance = 0 .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 .Format = "1,2,3,4,(5/6/7/8)" .Debug = .T. .EndUpdate endwith
1. How can I change the control's font
with thisform.StatusBar1 .BeginUpdate .VisualAppearance.Add(4,"c:\exontrol\images\border.ebn") .VisualAppearance.Add(5,"CP:4 1 1 -1 -1") .BackColorPanels = 0x5000000 f = CreateObject("StdFont") with f .Name = "Verdana" .Size = 12 endwith .Font = f .Format = ""+chr(34)+"static text"+chr(34)+"[fg=255][a=17],11,22,(33/44)" .EndUpdate endwith