54:
Can I display an icon file as picture and icon as well

with thisform.HTML1
	var_s = "loadpicture(`gAAAABgYACAQgUCEAANAEgQWhIohMIhUJgkLhIAIEOjMdj0Cf8hAMhf8jkUkk0llEJGMJGcumECl8ymIAmc2lkonUnnkqkS3Qosea2QIkf61P4go5/D"
	var_s = var_s + "9LptIp9MpdKolGoFCnc+rUpri2QQlklhsVjsllqr/lk1m9rly1QAisTqbq6f7qbi4f7obKzf7na6xf7mayvwLWV1iqD/q9DotTp2PWh+Dz/WZ7DT/WB3CWYO2bXaKGV1"
	var_s = var_s + "u99v+FwjlaqssWRydnsuv2FiWB2CD/fj7ej/fL0dL/fDyc2+eTl1eSx9hwWHwWEczXWGB52mwuHsKuOgO3z1c7/ejubj/ebsbPgdjY4uT1li1Gq5fS9vt9di63Yezwbz"
	var_s = var_s + "/eLoaL/eDmZr+HO/6wvS9Kwt+4jfuCfB5u3BcGuA4TiOq678HUaZ/nueJyNikJaD+9DjLC8LxxG8htPJEjxPI80Juwd5yGOsRnlWNp/lYOACsQt5/wKkj8me/B0GhIMh"
	var_s = var_s + "ngc8gP6/8jQEkj5n+dZvF4sUbxysJ2G4YjFEGE5Wx6kJ2nHGMwGQf8wRi+pww4zgIzVK8srcERTpRL0nm7KR1m6Xsnm4XcZRpG0cLEWY+g4o5ABCx04S1LisgCxKwnOb"
	var_s = var_s + "DAUjSborDKixSuYZ/q8ExS0bUCegC101NhN1DTjUKt1UAJckOFp3rOxMCONDynx2W8tmrVleVEkC0AAkNf2HYNgWFYtiWPZVjWZZNmICA`)"
	.Object.HTMLPicture("icon") = thisform.HTML1.ExecuteTemplate(var_s)
	var_s1 = "gBJJgBggAAwAAgACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjIgjIBAEijUlk8plUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s1 = var_s1 + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9oEEwGBwWDwMZGMZGeIxUYxOMxYAxuQw1+ykswmXzCuPwpea2QIkf61P4g0J/D+l0+i1"
	var_s1 = var_s1 + "Om0ukz2gzWcyuzk+Y22CWyCEsT3m932/h+vf+04kaw+O5GS5IzWqAEW8dTdXT/dTcXD/dDZWb/c7XWL/czWV/gayu3mq4fF2exzuf1uo+C0Pwef6zPYaf6wO4S/J2/hd"
	var_s1 = var_s1 + "kUGTqOs7jvPI8ZymqVjePk+j1Nm4TgQlCaHFgOwIH+fh9nof58nodJ/nweRzRCeRywY+b0wevz0Im8LzPC8ZzGuWDwRpA7yPMiZXDoB0Qnqc5/nodxuH+eZ2GzIx2GxF"
	var_s1 = var_s1 + "EHRWv0Gt5BMFxjHEqyrKbeR5Hx7Hgbx/nidBon+eBzGbMhzzOicoyfKEUonEUTxFEh8HnIM6zvEcSxPHcezAdRpn+e54nJCh/loP8nTavcoonI8k0fJRtSVSEkSVJk+x"
	var_s1 = var_s1 + "8d5yGO3hnlWNp/lYOACvO50VUWvNGofMJnzAdBoVfWJ4HPV0yzPWk1IfLZ/nWbxeN5UdSomdhuGIf4+CwDRW1TRk3oedpx07aJkH/aNOy6cNDQsCNDWLY47CmCxTsLZt"
	var_s1 = var_s1 + "VWehx1m7YF1F7XpuF3T1QVFUjeFmPoONCQAQve5rn2TZbL3MvMWoec5sO/g+ExuidhN5Yphn+OoqAwUrb4ukmBrvCNDQlb5/3DceMZHjONLqVo/BUd7hPRKOXNZfx/kw"
	var_s1 = var_s1 + "NoQGrkmb5Lky5oqHyVZ6jqPpCkYAZyjGipoh+daUo6Ag"
	.Images(var_s1)
	.Text = "As Picture: <img>icon</img><br>As Icon:     <img>1</img>"
endwith
53:
How do I show a gradient text

with thisform.HTML1
	.Text = "first line<br>second line<br>third line"
	.SelStart = .XYToPosition(0,1)
	.SelLength = 11
	.HideSelection = .F.
	.Object.FormatSelection(15) = "Tahoma"
	.Object.FormatSelection(16) = 32
	.Object.FormatSelection(18) = 255
	.SelLength = 0
endwith
52:
How can I programmatically change the font

with thisform.HTML1
	.Text = "first line<br>second line<br>third line"
	.SelStart = .XYToPosition(0,1)
	.SelLength = 11
	.HideSelection = .F.
	.Object.FormatSelection(15) = "Tahoma"
	.Object.FormatSelection(16) = 32
	.SelLength = 0
endwith
51:
How can I programmatically change the selection's foreground color
with thisform.HTML1
	.Text = "first line<br>second line<br>third line"
	.SelStart = .XYToPosition(0,1)
	.SelLength = 11
	.HideSelection = .F.
	.Object.FormatSelection(13) = 255
	.SelLength = 4
	.Object.FormatSelection(13) = ""
	DEBUGOUT( .FormatSelection(13) )
	.SelLength = 0
endwith
50:
How can I programmatically resizes a picture
with thisform.HTML1
	.Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.Text = "first line<br>second line<br>third line"
	.HideSelection = .F.
	.SelStart = .XYToPosition(0,1)
	.Object.FormatSelection(11) = "pic1"
	.Object.FormatSelection(12) = 64
	.SelLength = 0
endwith
49:
How can I programmatically inserts an icon/picture

with thisform.HTML1
	.Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Text = "first line<br>second line<br>third line"
	.HideSelection = .F.
	.SelStart = .XYToPosition(0,1)
	.Object.FormatSelection(11) = 1
	.SelStart = .XYToPosition(1,1)
	.Object.FormatSelection(11) = "pic1"
	.SelLength = 0
endwith
48:
How can I programmatically inserts a line

with thisform.HTML1
	.Text = "first line<br>second line<br>third line"
	.SelStart = .XYToPosition(0,1)
	.HideSelection = .F.
	.Object.FormatSelection(9) = 1
endwith
47:
How can I programmatically format the selection

with thisform.HTML1
	.Text = "first line<br>second line<br>third line"
	.SelStart = .XYToPosition(0,1)
	.SelLength = 11
	.HideSelection = .F.
	.Object.FormatSelection(1) = .T.
	.Object.FormatSelection(8) = 1
	DEBUGOUT( .FormatSelection(1) )
	.SelStart = .XYToPosition(0,2)
	.SelLength = -1
	.Object.FormatSelection(4) = .T.
	.Object.FormatSelection(8) = 2
endwith
46:
How can I select the text giving (column,line)-coordinates
with thisform.HTML1
	.Text = "This sample shows how to select the text giving (column,line)-coordinates.<br>This is the second line"
	.SelStart = .XYToPosition(0,1)
	.SelLength = 4
	.HideSelection = .F.
endwith
45:
How can I determine the (column,line)-coordinates of the cursor's position
*** SelChange event - Occurs when the user selects text in the control. ***
LPARAMETERS nop
	with thisform.HTML1
		DEBUGOUT( "Column" )
		DEBUGOUT( .PositionToX(.CursorPos) )
		DEBUGOUT( "Line" )
		DEBUGOUT( .PositionToY(.CursorPos) )
	endwith

with thisform.HTML1
	.WordWrap = .T.
	.Text = "This sample shows how to determine the <b>(column,line)</b> - coordinates."
endwith
44:
How can I provide my own context menu

*** ExecuteContextMenu event - Occurs when the user selects an user item from the control's context menu. ***
LPARAMETERS Item,Position
	with thisform.HTML1
		DEBUGOUT( "You selected: " )
		DEBUGOUT( Item )
		.SelText = Item
	endwith

with thisform.HTML1
	.Text = "This is a bit of <b>HTML</b> text. Right-click the text."
	.ContextMenuItems = "1,2,3,others[id=0](4,5,6) "
endwith
43:
How can I change the context menu's visual appearance

with thisform.HTML1
	.WordWrap = .T.
	.Text = "This sample show change the visual appearance of the built-in context menu"
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Object.Background(99) = 0x1000000
	.Object.Background(102) = 0x10000ff
endwith
42:
How can I insert my own HTML words to the control's context menu

with thisform.HTML1
	.WordWrap = .T.
	var_s = " <off 5><font ;7><fgcolor 808080>sub-note</fgcolor></font></off> This is just a bit of text <off -5><font ;7><fgcolor 808080>sup"
	var_s = var_s + "er-note</fgcolor></font></off> "
	.Text = var_s
	var_s1 = "<off 5><font ;7><fgcolor 808080>sub-note</fgcolor></font></off>[id=57763],<off -5><font ;7><fgcolor 808080>super-note</fgcolor><"
	var_s1 = var_s1 + "/font></off>[id=57763]"
	.ContextMenuItems = var_s1
endwith
41:
When I use the context menu to insert an image, the size seems to be fixed to 32 pixels. How can I control / change this

with thisform.HTML1
	.Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.Object.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	.Object.HTMLPicture("pic3") = "c:\exontrol\images\colorize.gif"
	.WordWrap = .T.
	var_s = "The text displays pictures <img>pic1:32</img>,..., <img>pic2:32</img>.<br><b>1.</b> Select a single picture, right click to resi"
	var_s = var_s + "ze it<br><b>2.</b> Right click to insert a new picture"
	.Text = var_s
	var_s1 = "Size[id=57680][edittype=515][border=0][min=16][max=128][freq=16][editwidth=-128][ticklabel=value = %i ? '<b>'+value : ( value = "
	var_s1 = var_s1 + "vmax ? '<fgcolor 808080><font ;6><b>'+value : ( value = vmin ? '<fgcolor 808080><font ;6><b>'+value : '' ) )],Insert[group=3](<i"
	var_s1 = var_s1 + "mg>pic1:32</img>[id=57763],<img>pic2:32</img>[id=57763],Others[id=1000](default[group=3](<img>pic3</img>[id=57763]),<font ;6>oth"
	var_s1 = var_s1 + "er sizes[sep],<img>pic3:16</img>[id=57763],<img>pic3:32</img>[id=57763],<img>pic3:64</img>[id=57763]))"
	.ContextMenuItems = var_s1
endwith
40:
How can I programatically selects the entire text

with thisform.HTML1
	.HideSelection = .F.
	.WordWrap = .T.
	var_s = "<b>Job</b><br>/jäb/<br><br><i>noun</i><br><b>1.</b> a paid position of regular employment.<br><b>2.</b> a task or piece of work,"
	var_s = var_s + " especially one that is paid."
	.Text = var_s
	.SelStart = 0
	.SelLength = -1
endwith
39:
How can I search for an exacting word

with thisform.HTML1
	.HideSelection = .F.
	.WordWrap = .T.
	var_s = "<b>Class</b><br>/klas/<br><br><i>noun</i><br><b>1.</b> a set or category of things having some property or attribute in common a"
	var_s = var_s + "nd differentiated from others by kind, type, or quality.<br><br><b>2.</b> the system of ordering a society in which people are d"
	var_s = var_s + "ivided into sets based on perceived social or economic status."
	.Text = var_s
	.Find("differentiated",2)
endwith
38:
How can I search for a string

with thisform.HTML1
	.HideSelection = .F.
	.WordWrap = .T.
	var_s = "<b>Class</b><br>/klas/<br><br><i>noun</i><br><b>1.</b> a set or category of things having some property or attribute in common a"
	var_s = var_s + "nd differentiated from others by kind, type, or quality.<br><br><b>2.</b> the system of ordering a society in which people are d"
	var_s = var_s + "ivided into sets based on perceived social or economic status."
	.Text = var_s
	.Find("different",0)
endwith
37:
I am using the ScrollBars property on 0, but the control is not scrolling anymore. What can be done

with thisform.HTML1
	.SingleLine = .T.
	.Text = "This is a <b>long text</b> that should make the control to display the horizontal scroll bar."
	.ScrollBars = 3
	.ScrollWidth = 0
	.ScrollHeight = 0
endwith
36:
How can I force the control to display a single-line only

with thisform.HTML1
	.SingleLine = .T.
	.Text = "This is the first line<br>This is the second line"
endwith
35:
How can I replace the text with HTML formatting

with thisform.HTML1
	.WordWrap = .T.
	.Text = "This is a bit of text"
	.Object.CursorText(10,3,.F.) = "<dotline><gra FFFFFF;0;1><font ;12>... this is a HTML replacement ...</font></gra></dotline>"
endwith
34:
How can I insert HTML text (method 2)

with thisform.HTML1
	.Text = "This is a simple text."
	.Object.CursorText(0,0,.F.) = "<b><dotline>Inserted by code</dotline></b>. "
endwith
33:
How can I insert HTML text (method 1)

with thisform.HTML1
	.Text = "This is a simple text."
	.SelStart = 0
	.SelLength = 0
	.SelText = "<b><dotline>Inserted by code</dotline></b>. "
endwith
32:
How can I add/append HTML text (method 2)

with thisform.HTML1
	.Text = "This is a simple text."
	.Object.CursorText(-1,0,.F.) = " <b><dotline>Added by code</dotline></b>."
endwith
31:
How can I add/append HTML text (method 1)

with thisform.HTML1
	.Text = "This is a simple text."
	.SelStart = -1
	.SelLength = 0
	.SelText = " <b><dotline>Added by code</dotline></b>."
endwith
30:
How can I replace the text with no HTML formatting

with thisform.HTML1
	.WordWrap = .T.
	.Text = "<font ;12>This is a <fgcolor FF0000> bit </fgcolor> of <b><fgcolor 808080><u>HTML</u></fgcolor></b> text"
	.Object.CursorText(11,3) = "... this is a plain replacement ..."
endwith
29:
Is there any property or method that gets the entire text with no HTML formatting

with thisform.HTML1
	.WordWrap = .T.
	.Text = "<font ;12><sha  ;;0>This is a bit of <b><fgcolor 808080><u>HTML</u></fgcolor></b> text."
	DEBUGOUT( .CursorText(0,-1,.T.) )
endwith
28:
How can I get the selection as plain text with no HTML formatting

*** SelChange event - Occurs when the user selects text in the control. ***
LPARAMETERS nop
	with thisform.HTML1
		DEBUGOUT( .CursorText(.SelStart,.SelLength,.T.) )
	endwith

with thisform.HTML1
	.WordWrap = .T.
	var_s = "<font ;12><sha  ;;0>This is a bit of <b><fgcolor 808080><u>HTML</u></fgcolor></b> text. Select a portion of text and you will ge"
	var_s = var_s + "t the text with no HTML formatting."
	.Text = var_s
endwith
27:
How can I customize the pictures in the control's context menu

with thisform.HTML1
	.Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.Object.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	.Object.HTMLPicture("pic3") = "c:\exontrol\images\colorize.gif"
	.WordWrap = .T.
	var_s = "The text displays pictures <img>pic1:32</img>,..., <img>pic2:32</img>.<br><b>1.</b> Select a single picture, right click to resi"
	var_s = var_s + "ze it<br><b>2.</b> Right click to insert a new picture"
	.Text = var_s
	var_s1 = "Size[id=57680][edittype=515][border=0][min=16][max=128][freq=16][editwidth=-128][ticklabel=value = %i ? '<b>'+value : ( value = "
	var_s1 = var_s1 + "vmax ? '<fgcolor 808080><font ;6><b>'+value : ( value = vmin ? '<fgcolor 808080><font ;6><b>'+value : '' ) )],Insert[group=3](<i"
	var_s1 = var_s1 + "mg>pic1:32</img>[id=57763],<img>pic2:32</img>[id=57763],Others[id=1000](<img>pic3:32</img>[id=57763]))"
	.ContextMenuItems = var_s1
endwith
26:
How do I show a tooltip

*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.HTML1
		.ShowToolTip("Just a short tooltip")
	endwith

with thisform.HTML1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Object.Background(64) = 0x1000000
endwith
25:
Is it possible to assign a tooltip for items in the control's context menu

with thisform.HTML1
	.Text = "This is a bit of <b>HTML</b> text. Select and right-click the selection."
	.ContextMenuItems = "<font ;18><b>B[id=57648][typ=1][align=1][show=1][ttp=Bolds/Unbolds the selection]"
endwith
24:
How do I get the selected text

*** SelChange event - Occurs when the user selects text in the control. ***
LPARAMETERS nop
	with thisform.HTML1
		DEBUGOUT( .SelText )
	endwith

with thisform.HTML1
	.Text = "Press the <b>CTRL + S</b> or <b>CTRL + F</b> to search for text."
endwith
23:
Is there any way to search through the text

with thisform.HTML1
	.Text = "Press the <b>CTRL + S</b> or <b>CTRL + F</b> to search for text."
	.AllowFind = .T.
	.AllowIncrementalSearch = .T.
endwith
22:
The selection is not shown when the control loses the focus. Is it possible to highlight the selection while the control has no focus

with thisform.HTML1
	.Text = "<font ;12>This is a bit of <b>HTML</b> text."
	.HideSelection = .F.
	.SelStart = 0
	.SelLength = -1
	.SelBackColorHide = RGB(255,0,0)
endwith
21:
Does your control support Find/Replace

with thisform.HTML1
	.Text = "This is a bit of <b>HTML</b> text."
	.AllowFind = .T.
	.AllowReplace = .T.
endwith
20:
How can I get the current selection

*** SelChange event - Occurs when the user selects text in the control. ***
LPARAMETERS nop
	with thisform.HTML1
		DEBUGOUT( .SelText )
	endwith

with thisform.HTML1
	.Text = "This is a bit of <b>HTML</b> text."
endwith
19:
I've noticed that the text does not start exactly where the control is. How can I adjust/remove that margin

with thisform.HTML1
	.Text = "This is a bit of <b>HTML</b> text."
	.BorderWidth = 0
	.BorderHeight = 0
endwith
18:
How can I center the text

with thisform.HTML1
	.Text = "<c>This is a bit of centered <b>HTML</b> text."
endwith
17:
How can I align the text to the right

with thisform.HTML1
	.Text = "<r>This is a bit of <b>HTML</b> text, aligned to the right."
endwith
16:
How can I turn on the control's OLE Drag and Drop operation
with thisform.HTML1
	.Text = "This is a bit of <b>HTML</b> text."
	.OLEDropMode = -1
endwith
15:
Does your control support word-wrap, and if so how can I enable it

with thisform.HTML1
	var_s = "This is a bit of <b>HTML</b> text. This is a bit of <b>HTML</b> text. This is a bit of <b>HTML</b> text. This is a bit of <b>HTM"
	var_s = var_s + "L</b> text. This is a bit of <b>HTML</b> text."
	.Text = var_s
	.WordWrap = .T.
	.LineNumberWidth = -1
	.DrawGridLines = -1
endwith
14:
Can I edit text with no formatting at all

with thisform.HTML1
	.Text = "This is a bit of <b>HTML</b> text."
	.EditType = 0
endwith
13:
I've noticed that pressing the CTRL+B changes the Bold attribute. Can I change that behavior
with thisform.HTML1
	.Text = "This is a bit of <b>HTML</b> text."
	.AllowShortcutFormat = .F.
endwith
12:
How do I prevents shown the control's content menu

with thisform.HTML1
	.Text = "This is a bit of <b>HTML</b> text."
	.AllowContextMenu = 0
endwith
11:
How do I make the control read-only

with thisform.HTML1
	.Text = "This is a bit of <b>HTML</b> text."
	.BackColorLocked = .BackColor
	.ForeColorLocked = .ForeColor
	.Locked = .T.
	.ShowCaret = .F.
endwith
10:
Can I replace programatically a portion of text

with thisform.HTML1
	.Text = "This is a bit of <b>HTML</b> text."
	.SelStart = 0
	.SelLength = 1
	.HideSelection = .F.
	.SelText = "<fgcolor FF><font ;18>T</font></fgcolor>"
endwith
9:
How do I select the entire text programatically

with thisform.HTML1
	.Text = "This is a bit of <b>HTML</b> text."
	.SelStart = 0
	.SelLength = -1
	.HideSelection = .F.
endwith
8:
How do I programatically add text to the control

with thisform.HTML1
	.Text = "This is a bit of <b>HTML</b> text."
	.SelStart = -1
	.SelText = " <fgcolor FF0000><b>Inserted Text</b></fgcolor>"
endwith
7:
How do I programatically insert text to the control

with thisform.HTML1
	.Text = "This is a bit of <b>HTML</b> text."
	.SelText = "<fgcolor FF0000><b>Inserted Text</b></fgcolor> "
endwith
6:
How do I get the unformatted text

*** SelChange event - Occurs when the user selects text in the control. ***
LPARAMETERS nop
	with thisform.HTML1
		DEBUGOUT( .CursorText(.SelStart,.SelLength) )
	endwith

with thisform.HTML1
	.Text = "This is a bit of <b>HTML</b> text."
endwith
5:
How do I provide my own menu for my images (emotion icons)

with thisform.HTML1
	.Text = "<img>1</img> Right click the image <img>pic1</img> to get resized."
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ContextMenuItems = "Insert[group=3](<img>1</img>[id=57763],<img>2</img>[id=57763])"
endwith
4:
How do I display images inside text

with thisform.HTML1
	.Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Text = "<img>1</img> Right click the image <img>pic1</img> to get resized."
endwith
3:
How do I allow types only to be available on the control's context menu

with thisform.HTML1
	.Text = "Right click the selection."
	.HideSelection = .F.
	.SelStart = 16
	.SelLength = 9
	.AllowContextMenu = 61440 && HTMLEditContextMenuEnum.exContextMenuFormatStrikeout Or HTMLEditContextMenuEnum.exContextMenuFormatUnderline Or HTMLEditContextMenuEnum.exContextMenuFormatItalic Or HTMLEditContextMenuEnum.exContextMenuFormatBold
endwith
2:
How do I programatically select the text

with thisform.HTML1
	.Text = "<font ;12>This is a bit of <b>HTML</b> text."
	.HideSelection = .F.
	.SelStart = 0
	.SelLength = -1
endwith
1:
How do I assign a text to the control

with thisform.HTML1
	.Text = "This is a bit of <b>HTML</b> text."
endwith