77
Gets the measurement of the width/height/size of the control's Text, including content not visible on the screen due to overflow
// Indicates that the control's text have changed.
Procedure OnComChange 
	Forward Send OnComChange 
	Showln "Required Width:" (ComTextScrollWidth(Self))
	Showln "Required Height:" (ComTextScrollHeight(Self))
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "This is a <b>bit</b> of text"
End_Procedure
76
Expandable-caption

// Occurs when an anchor element is clicked.
Procedure OnComAnchorClick String   llAnchorID String   llOptions
	Forward Send OnComAnchorClick llAnchorID llOptions
	Showln llAnchorID
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAECMcTi4AMwAM4AjMGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq1Ln1QtVSjQAAEBA==>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a><br>+ withdraw(amount: Currency)"
End_Procedure
75
Expandable-caption

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3"
End_Procedure
74
Force hover-all feature
Procedure OnCreate
	Forward Send OnCreate
	Set ComBackground OLEexScrollHoverAll to -1
End_Procedure
73
Disable hover-all feature (Windows 11 or greater)
Procedure OnCreate
	Forward Send OnCreate
	Set ComBackground OLEexScrollHoverAll to (RGB(1,0,0))
End_Procedure
72
Display a custom tooltip
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseMove llButton llShift llX llY
	Send ComShowToolTip "new content" "" "+8" "+8"
End_Procedure
71
ImageSize property on 32 (specifies the size of the control' icons)

Procedure OnCreate
	Forward Send OnCreate
	Set ComImageSize to 32
	Variant voStdFont
	Get ComFont to voStdFont
	Handle hoStdFont
	Get Create (RefClass(cComStdFont)) to hoStdFont
	Set pvComObject of hoStdFont to voStdFont
		Set ComSize of hoStdFont to 16
	Send Destroy to hoStdFont
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`gAAAABAACAAgEAQgULdEGAAmhYQiULgQoggABwDisLEELIELggEigAQEOkcnlEUQEClcslctkkxQEtYE1kkzhb/gU6nc6ngAn1Anj/okpo1HpFJkYwQ9KBA3AFNpCAG53qNHBAPqtWqUoQD/rdclFZsB3s1ikdfstnqxwilktb/s4It0solroFmBELuD/H73swAwMUu7/Gd/tkju74W6zxGDnNEQ57PZzx+Kf74R63zmOwGYRaPymUyz3xWMzeczo/xWT0WjykaimaW6Pf+qzknR+iR53f+wlGbR7732qlAPf54zaI3574++XCIW/MW/H4nN50/kYP6u36tK39Knfi8nlo2F9GFeF3cA/ojA5D/QADotAf0CH78gQffECA54IEB5wP3AYAA/AsDwJBUDQRBqBD/Ao/wAAA/v1CkLQrB77gIohGAOu8PqIZ70ruFCIo4kAAJEihgPMlKWpgnEYpkmibJmmChsioCcx2+q7qSGCUBuuqKKrIgAK030iLKoC3OQxAALcojDsBKR8Mqv8pEQe7Gh/AB8DwfbSSCeB8OSP7vgAfZEEW5icjhNCYR486eH4P6BH4D6BHwA6BHgi8CgBFqWIXGdCJYi5AUA2R4z6oBHoEgI`)" to vPicture
	Set ComHTMLPicture "icon" to (vPicture)
	Send ComImages ("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqNUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwyV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CMPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkFgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtNhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/XioW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVDNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5WzlffEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" + ;
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
	Set ComText to "As Picture: <img>icon</img>(non-sized picture)<br>As Picture: <img>icon:16</img> (sized picture)<br>As Icon:     <img>1</img> (icon)"
End_Procedure
70
ImageSize property on 16 (default) (specifies the size of the control' icons)

Procedure OnCreate
	Forward Send OnCreate
	Set ComImageSize to 16
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`gAAAABAACAAgEAQgULdEGAAmhYQiULgQoggABwDisLEELIELggEigAQEOkcnlEUQEClcslctkkxQEtYE1kkzhb/gU6nc6ngAn1Anj/okpo1HpFJkYwQ9KBA3AFNpCAG53qNHBAPqtWqUoQD/rdclFZsB3s1ikdfstnqxwilktb/s4It0solroFmBELuD/H73swAwMUu7/Gd/tkju74W6zxGDnNEQ57PZzx+Kf74R63zmOwGYRaPymUyz3xWMzeczo/xWT0WjykaimaW6Pf+qzknR+iR53f+wlGbR7732qlAPf54zaI3574++XCIW/MW/H4nN50/kYP6u36tK39Knfi8nlo2F9GFeF3cA/ojA5D/QADotAf0CH78gQffECA54IEB5wP3AYAA/AsDwJBUDQRBqBD/Ao/wAAA/v1CkLQrB77gIohGAOu8PqIZ70ruFCIo4kAAJEihgPMlKWpgnEYpkmibJmmChsioCcx2+q7qSGCUBuuqKKrIgAK030iLKoC3OQxAALcojDsBKR8Mqv8pEQe7Gh/AB8DwfbSSCeB8OSP7vgAfZEEW5icjhNCYR486eH4P6BH4D6BHwA6BHgi8CgBFqWIXGdCJYi5AUA2R4z6oBHoEgI`)" to vPicture
	Set ComHTMLPicture "icon" to (vPicture)
	Send ComImages "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqdSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVttmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8acvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTGsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPnwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg=="
	Set ComText to "As Picture: <img>icon</img>(non-sized picture)<br>As Picture: <img>icon:16</img> (sized picture)<br>As Icon:     <img>1</img> (icon)"
End_Procedure
69
How do I set the initial control's text so that it is shown in decoded HTML
Procedure OnCreate
	Forward Send OnCreate
	Showln "Text" (ComText(Self))
	Showln "CursorText" (ComCursorText(Self,0,-1,true))
	Showln "HTML" (ComHTML(Self))
	Set ComText to "This is a <b>bit</b> of text"
End_Procedure
68
I can't find any open and store button. And no method to add it. What I can I do (icon only,last)

// Occurs once a change occurs in the control's toolbar.
Procedure OnComToolBarEvent OLEToolBarEventEnum   llEv Integer   llID String   llItem Variant   llReserved
	Forward Send OnComToolBarEvent llEv llID llItem llReserved
	Showln "You clicked: " llID
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolBarAnchor to OLEexToolBarAnchorTop
	Send ComToolBarImages ("gBJJgBAICAADAAEAAUhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaKEahkZAIAEEbjIZlErlktl0vmExmUzjQXmwjJk5OJcniJLs/Rc/LtBoFColDo1JotLpFMo6LnJMOQWqg5mlXrFZrVbrldr1fsFhjJCshoQ1nZSatTlTNttlutqZt9yuNzu11vFwvV0tyWvzgKuBRYIwgVsWHxGJxViA+NGodyBwFeTSRDyyTImZzGazJEzeezuf0WhyxDSeTFaSyAdN+NA41lpK2SFvyWcit3D+3Ct3W53e93m/4W+4nB4vA5G/PHLWIf5w6xfR6XT6kZD3XOBn7TXRPdfrV8D+bPj8Xk8bZ8vo8/p9nr8DVf3dRL9M31a/XDxwlpI/iUTj/nOWcBH8WECwJA0ClhA8FQTBcHQbCEEQlBkJn8RULmQG0NDI6sOw9D6stQSZCRIfran8dEUn8dUWRRFUUnRF0YxhGR/HTG8VxbGkTxIQh/BZIBJpaJsiFIU8jnUXclH8WUmyZJ0mllJ8pSjKcrSrLEoS1Kktn8Tcvm8KUxEbEEyzNM6MyAFkRxLE8aG9OB/GpOZ/GhO06zvOxoTxPb3n9OBvRrE5C0JH8gpaKlElmWNGHcYFHn8WtJH8WlK0pS1KlpS9NUzTdPU7UFMVFTlLFZUx5vkWs0VXVjpTUSazkMf03RVQB/GnXB/GfXddV5XZn17YE5mpP84x2vx/VjQ01paMNnGFTJ4mTaZ/GDax/F1bJ/Fvblt27bhb29cNwXFctyXPb903DSRan2St3mWDV5IlVt63srdX2USl9n8cN/H8cmAn8cGCWLQNbYRON/HDgGBYWf19kpZKz2XISWDfjBpUyepo46fxmZAfxe5Gf1HmAfxh5SfxiZYfxhZefxf5lmOZyUXZ/FznOcZ1nJc53n2e5+fxPaIbIc6OJ976VpaY3zihH6hlGVVwaZ/Gvq+raxq5r6zrmt67W9c5SYZ/agR+J1lV6Wj9thwwEWZ8GtuR/Gxup/GNvB/WmZJ/Gbv1gn8ZfBZXlpj8Nl2YZGXp/F5xvGcdxpecfyXIn8VHLnIL/NEFpnO88jWnVlZRHdIfxP9OfxSdV1PV9UUnWdf13YdN1HSEdtHcbUlhD94ctGFie25Gsfhy+K9lf8B5GQGZqWyb2fxkeifmxn5k2aF/6/s5l7G3neRHv1Vz/xaV0PcWV75EPi7v1ET9n3Pl930fNilld0lYxfwThO/2a09HoiwdQ/hzwDYMP4bcB26N2eEP5P0C3ojIHi3gYw9IHj+GLBeC0GILjFgzBxkw+EojifHCNer5VlQnfpCl0UKn5wrhdC1ipLQEwzBcDOGwQ0xBSCyJGHgnUYD7YIOAe7YxuipiMMCHgkRRh3iYIYoQawSxRCmDSKgZg6xXEqJiLQwEvibGGf8TgxIwDEElGUXLGA3iOhJGtND5VCCFH8H+OQ/o3j+EXHcfzto8ulj1HqO4i46KFjkH+QMcH6qHJmAEAsiwFAqkcEF3ghxIh8koIIH8lw2Aok0FY/AQF5AaBmkQJoaDVhBAxKcFcmgUA1BJK0K0rQSBYiiCULMswsgilwFICsuzYRsl8h98qPR/B9mIP4Scx2htEH8KKZjszfivmg5Zy4/i4zDmLMKQ6zCtADm4AoCk3wMEEIKTGRYBQLBqnQK8Mc6xNBJncGA1YKZxALI0SWX893yJBjeP1ZT8HFOIGEthbTLBiQCgIO2hA/h2ULH8NKhz7llCDokPk1AjytziAKYQBADiNAHI0AgjQCZuADAaBukwJw9UpFiKClg64tCYHKGimQoQOU1BfR2fFOYSz6UIP1+S7xKj+beg52SphWD+eKOUf1CB20KoZAuoA/n5P4DELqT4VStgCq0AsENXQXlRD1DkQhPAuCUDnWcWBahNDSmgK8eCUR9G7HzGUSQ1AnV3DrVoAQE6dV9TRLgEQcA42DGu+gftL1yi4sUchTo5rHVLoTUxsFQB8zrDGLo1YXa9AbK8ASjQGgi2hDBRIQYsBR2nG0gkdrPR9M2H6tkXSkVJD3dsMCRwKgdz" + ;
"iATX63iIIZgJBrYAOALbiCSBlccSYPrlCTkuD8SYPLoXJuXKISddwnXVruJM/gSBJgxu8I+q9mzFAGAheUE87gkhuiuHUTcbxXvoFiIG+Qp5mCiGxF0ZwV79B/pHbsklvcAYBfFOIAd5QIAcBBgkGgI8GA4JsBcEtlhFBZwoIIqgFgZYCw1hvDWDwWAOxACLDmIzEEWB8SzE5HiQEinqACexGh4FeIhiTGmGyAg==")
	Set ComToolBarItems to (ComFormatABC(Self,"A +`,[sep],[id=20][img=15][ttp=save the text],[id=30][img=16][ttp=load the text]`",(ComToolBarItems(Self)),Nothing,Nothing))
	Set ComText to "This is just the initial text"
End_Procedure
67
I can't find any open and store button. And no method to add it. What I can I do (icon only,first)

// Occurs once a change occurs in the control's toolbar.
Procedure OnComToolBarEvent OLEToolBarEventEnum   llEv Integer   llID String   llItem Variant   llReserved
	Forward Send OnComToolBarEvent llEv llID llItem llReserved
	Showln "You clicked: " llID
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolBarAnchor to OLEexToolBarAnchorTop
	Send ComToolBarImages ("gBJJgBAICAADAAEAAUhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaKEahkZAIAEEbjIZlErlktl0vmExmUzjQXmwjJk5OJcniJLs/Rc/LtBoFColDo1JotLpFMo6LnJMOQWqg5mlXrFZrVbrldr1fsFhjJCshoQ1nZSatTlTNttlutqZt9yuNzu11vFwvV0tyWvzgKuBRYIwgVsWHxGJxViA+NGodyBwFeTSRDyyTImZzGazJEzeezuf0WhyxDSeTFaSyAdN+NA41lpK2SFvyWcit3D+3Ct3W53e93m/4W+4nB4vA5G/PHLWIf5w6xfR6XT6kZD3XOBn7TXRPdfrV8D+bPj8Xk8bZ8vo8/p9nr8DVf3dRL9M31a/XDxwlpI/iUTj/nOWcBH8WECwJA0ClhA8FQTBcHQbCEEQlBkJn8RULmQG0NDI6sOw9D6stQSZCRIfran8dEUn8dUWRRFUUnRF0YxhGR/HTG8VxbGkTxIQh/BZIBJpaJsiFIU8jnUXclH8WUmyZJ0mllJ8pSjKcrSrLEoS1Kktn8Tcvm8KUxEbEEyzNM6MyAFkRxLE8aG9OB/GpOZ/GhO06zvOxoTxPb3n9OBvRrE5C0JH8gpaKlElmWNGHcYFHn8WtJH8WlK0pS1KlpS9NUzTdPU7UFMVFTlLFZUx5vkWs0VXVjpTUSazkMf03RVQB/GnXB/GfXddV5XZn17YE5mpP84x2vx/VjQ01paMNnGFTJ4mTaZ/GDax/F1bJ/Fvblt27bhb29cNwXFctyXPb903DSRan2St3mWDV5IlVt63srdX2USl9n8cN/H8cmAn8cGCWLQNbYRON/HDgGBYWf19kpZKz2XISWDfjBpUyepo46fxmZAfxe5Gf1HmAfxh5SfxiZYfxhZefxf5lmOZyUXZ/FznOcZ1nJc53n2e5+fxPaIbIc6OJ976VpaY3zihH6hlGVVwaZ/Gvq+raxq5r6zrmt67W9c5SYZ/agR+J1lV6Wj9thwwEWZ8GtuR/Gxup/GNvB/WmZJ/Gbv1gn8ZfBZXlpj8Nl2YZGXp/F5xvGcdxpecfyXIn8VHLnIL/NEFpnO88jWnVlZRHdIfxP9OfxSdV1PV9UUnWdf13YdN1HSEdtHcbUlhD94ctGFie25Gsfhy+K9lf8B5GQGZqWyb2fxkeifmxn5k2aF/6/s5l7G3neRHv1Vz/xaV0PcWV75EPi7v1ET9n3Pl930fNilld0lYxfwThO/2a09HoiwdQ/hzwDYMP4bcB26N2eEP5P0C3ojIHi3gYw9IHj+GLBeC0GILjFgzBxkw+EojifHCNer5VlQnfpCl0UKn5wrhdC1ipLQEwzBcDOGwQ0xBSCyJGHgnUYD7YIOAe7YxuipiMMCHgkRRh3iYIYoQawSxRCmDSKgZg6xXEqJiLQwEvibGGf8TgxIwDEElGUXLGA3iOhJGtND5VCCFH8H+OQ/o3j+EXHcfzto8ulj1HqO4i46KFjkH+QMcH6qHJmAEAsiwFAqkcEF3ghxIh8koIIH8lw2Aok0FY/AQF5AaBmkQJoaDVhBAxKcFcmgUA1BJK0K0rQSBYiiCULMswsgilwFICsuzYRsl8h98qPR/B9mIP4Scx2htEH8KKZjszfivmg5Zy4/i4zDmLMKQ6zCtADm4AoCk3wMEEIKTGRYBQLBqnQK8Mc6xNBJncGA1YKZxALI0SWX893yJBjeP1ZT8HFOIGEthbTLBiQCgIO2hA/h2ULH8NKhz7llCDokPk1AjytziAKYQBADiNAHI0AgjQCZuADAaBukwJw9UpFiKClg64tCYHKGimQoQOU1BfR2fFOYSz6UIP1+S7xKj+beg52SphWD+eKOUf1CB20KoZAuoA/n5P4DELqT4VStgCq0AsENXQXlRD1DkQhPAuCUDnWcWBahNDSmgK8eCUR9G7HzGUSQ1AnV3DrVoAQE6dV9TRLgEQcA42DGu+gftL1yi4sUchTo5rHVLoTUxsFQB8zrDGLo1YXa9AbK8ASjQGgi2hDBRIQYsBR2nG0gkdrPR9M2H6tkXSkVJD3dsMCRwKgdz" + ;
"iATX63iIIZgJBrYAOALbiCSBlccSYPrlCTkuD8SYPLoXJuXKISddwnXVruJM/gSBJgxu8I+q9mzFAGAheUE87gkhuiuHUTcbxXvoFiIG+Qp5mCiGxF0ZwV79B/pHbsklvcAYBfFOIAd5QIAcBBgkGgI8GA4JsBcEtlhFBZwoIIqgFgZYCw1hvDWDwWAOxACLDmIzEEWB8SzE5HiQEinqACexGh4FeIhiTGmGyAg==")
	Set ComToolBarItems to (ComFormatABC(Self,"`[id=20][img=15][ttp=save the text],[id=30][img=16][ttp=load the text],[sep],` + A",(ComToolBarItems(Self)),Nothing,Nothing))
	Set ComText to "This is just the initial text"
End_Procedure
66
I can't find any open and store button. And no method to add it. What I can I do (caption,icon,first)

// Occurs once a change occurs in the control's toolbar.
Procedure OnComToolBarEvent OLEToolBarEventEnum   llEv Integer   llID String   llItem Variant   llReserved
	Forward Send OnComToolBarEvent llEv llID llItem llReserved
	Showln "You clicked: " llID
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolBarAnchor to OLEexToolBarAnchorTop
	Send ComToolBarImages ("gBJJgBAICAADAAEAAUhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaKEahkZAIAEEbjIZlErlktl0vmExmUzjQXmwjJk5OJcniJLs/Rc/LtBoFColDo1JotLpFMo6LnJMOQWqg5mlXrFZrVbrldr1fsFhjJCshoQ1nZSatTlTNttlutqZt9yuNzu11vFwvV0tyWvzgKuBRYIwgVsWHxGJxViA+NGodyBwFeTSRDyyTImZzGazJEzeezuf0WhyxDSeTFaSyAdN+NA41lpK2SFvyWcit3D+3Ct3W53e93m/4W+4nB4vA5G/PHLWIf5w6xfR6XT6kZD3XOBn7TXRPdfrV8D+bPj8Xk8bZ8vo8/p9nr8DVf3dRL9M31a/XDxwlpI/iUTj/nOWcBH8WECwJA0ClhA8FQTBcHQbCEEQlBkJn8RULmQG0NDI6sOw9D6stQSZCRIfran8dEUn8dUWRRFUUnRF0YxhGR/HTG8VxbGkTxIQh/BZIBJpaJsiFIU8jnUXclH8WUmyZJ0mllJ8pSjKcrSrLEoS1Kktn8Tcvm8KUxEbEEyzNM6MyAFkRxLE8aG9OB/GpOZ/GhO06zvOxoTxPb3n9OBvRrE5C0JH8gpaKlElmWNGHcYFHn8WtJH8WlK0pS1KlpS9NUzTdPU7UFMVFTlLFZUx5vkWs0VXVjpTUSazkMf03RVQB/GnXB/GfXddV5XZn17YE5mpP84x2vx/VjQ01paMNnGFTJ4mTaZ/GDax/F1bJ/Fvblt27bhb29cNwXFctyXPb903DSRan2St3mWDV5IlVt63srdX2USl9n8cN/H8cmAn8cGCWLQNbYRON/HDgGBYWf19kpZKz2XISWDfjBpUyepo46fxmZAfxe5Gf1HmAfxh5SfxiZYfxhZefxf5lmOZyUXZ/FznOcZ1nJc53n2e5+fxPaIbIc6OJ976VpaY3zihH6hlGVVwaZ/Gvq+raxq5r6zrmt67W9c5SYZ/agR+J1lV6Wj9thwwEWZ8GtuR/Gxup/GNvB/WmZJ/Gbv1gn8ZfBZXlpj8Nl2YZGXp/F5xvGcdxpecfyXIn8VHLnIL/NEFpnO88jWnVlZRHdIfxP9OfxSdV1PV9UUnWdf13YdN1HSEdtHcbUlhD94ctGFie25Gsfhy+K9lf8B5GQGZqWyb2fxkeifmxn5k2aF/6/s5l7G3neRHv1Vz/xaV0PcWV75EPi7v1ET9n3Pl930fNilld0lYxfwThO/2a09HoiwdQ/hzwDYMP4bcB26N2eEP5P0C3ojIHi3gYw9IHj+GLBeC0GILjFgzBxkw+EojifHCNer5VlQnfpCl0UKn5wrhdC1ipLQEwzBcDOGwQ0xBSCyJGHgnUYD7YIOAe7YxuipiMMCHgkRRh3iYIYoQawSxRCmDSKgZg6xXEqJiLQwEvibGGf8TgxIwDEElGUXLGA3iOhJGtND5VCCFH8H+OQ/o3j+EXHcfzto8ulj1HqO4i46KFjkH+QMcH6qHJmAEAsiwFAqkcEF3ghxIh8koIIH8lw2Aok0FY/AQF5AaBmkQJoaDVhBAxKcFcmgUA1BJK0K0rQSBYiiCULMswsgilwFICsuzYRsl8h98qPR/B9mIP4Scx2htEH8KKZjszfivmg5Zy4/i4zDmLMKQ6zCtADm4AoCk3wMEEIKTGRYBQLBqnQK8Mc6xNBJncGA1YKZxALI0SWX893yJBjeP1ZT8HFOIGEthbTLBiQCgIO2hA/h2ULH8NKhz7llCDokPk1AjytziAKYQBADiNAHI0AgjQCZuADAaBukwJw9UpFiKClg64tCYHKGimQoQOU1BfR2fFOYSz6UIP1+S7xKj+beg52SphWD+eKOUf1CB20KoZAuoA/n5P4DELqT4VStgCq0AsENXQXlRD1DkQhPAuCUDnWcWBahNDSmgK8eCUR9G7HzGUSQ1AnV3DrVoAQE6dV9TRLgEQcA42DGu+gftL1yi4sUchTo5rHVLoTUxsFQB8zrDGLo1YXa9AbK8ASjQGgi2hDBRIQYsBR2nG0gkdrPR9M2H6tkXSkVJD3dsMCRwKgdz" + ;
"iATX63iIIZgJBrYAOALbiCSBlccSYPrlCTkuD8SYPLoXJuXKISddwnXVruJM/gSBJgxu8I+q9mzFAGAheUE87gkhuiuHUTcbxXvoFiIG+Qp5mCiGxF0ZwV79B/pHbsklvcAYBfFOIAd5QIAcBBgkGgI8GA4JsBcEtlhFBZwoIIqgFgZYCw1hvDWDwWAOxACLDmIzEEWB8SzE5HiQEinqACexGh4FeIhiTGmGyAg==")
	Set ComToolBarItems to (ComFormatABC(Self,"`Save[id=20][img=15][ttp=save the text],Load[id=30][img=16][ttp=load the text],[sep],` + A",(ComToolBarItems(Self)),Nothing,Nothing))
	Set ComText to "This is just the initial text"
End_Procedure
65
Can I change the visual appearance of the UI shortcut keys, when user toggles the CTRL key (EBN background) 

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABCYDg6AADACAxRDgMQBQKAAzQFAYchkHCGAAGMZxTgmFgAQhFcZQSKUOQTDKMIziYBYJhEMQ0DAAUIjKLMIweGCQBjASQpUhqHYDTbIMByBIUIxNFCQILhEY5ADKPIbUbGU7RfBMVQGf6oAAqB74Xj+MIJUJAdCRZR0aRAAyNQRkWjIDp2U5SVDFUrDKItVzbFYYLbgMZbmxFEC7IRsCA7ZjWPZYShXMqScLFLy1Ei/L6nGaZAomVZjQRQFYTDQuHQtRwMMgAAK7EACZpRWbaWAYMAFMwlIqubrvKCcZgOYoDZxOdKwTY+Q40GS2LaiG5LSADPJ9RbeGqaXqGEz9KzBBxmGRhRDfFqdaJfHB8NJThEK5lFCeYDH0TQjggAIImuQAal6JBvHUHJclwN47niXR3gWUoBl6uBMEyAARAkKAaEwZxDimSJLiYCoQkECBNgAEYglkCQKBCF4FjESBeDQDJ0HcHBlEyQgwkwMogikKhKEKDgagaYYoFiKAwiIBYckEMAMBgXIpC0IoCmCN4KguCI2C0LRjAiGJDgSQAChSJApEsMpIjMLoLjKag8C6Y5YnoQIPguKJojIKQjHAAIfhKSxyliNgvT2chQhQZQpFYVQtmWCQsh8AAKAIfIghYCxynYYoYmYIpyGWGRmAkdIghKJJJGIZIbmcCYCEuGpKVkOQuEuAp8j8L4nimdI+h+Z4pnCOIeCaKRyHULonHmdoKiKJ5JmodwuGcWZSgeEAMAoVoWiKS56FoQAumkGgYiGFRiEoWgjiWKhDAYQAvAoGa2CiCgSgYY4ICsAwOhUMBrEMAgTDCJg6jSIYqkoIoKGOBQsAiTo3oGOYOiwKIrkKCh7C+TBLDSRYzGwGBQkSM5oAqdpIjWJ5TBSRTJisapNjOLZZnaVgACGOpMkaOZugsdpdjoKgYG6ZIGisQwGmgMYMHMHpzjmbxjBqcY7iSAoSkAMkuAadI+EwbAGkCPxjFKFIljADIcAMDZAHEAwgkkMhsAiWIlAAL5TAyRAwnEPB3BORAxlMKpSkIL5bHSS5JnKDB7BOSgtlwIIjgYbZDBSTPUjMMwok2cwzDKaIGEoTBiEiPRMHMNxClCcxch8NpQnAHITC+QB0D0NxOlIMAJdGO5KDMIp1lCDJjDiTZWjWPRnEMM4wAMHpuiQaRjD8ZuiAMPJQlmZ4jAKHYdkuAhvHLQgbHaU5djcTZIhuCoVoBx8hlF+JEDgCB9jBHgJwEIDgiAQH2PkMwsxOhrHUAIgI" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground |CI$8f to |CI$1000000
	Set ComBackground |CI$91 to (RGB(255,255,255))
End_Procedure
64
Can I change the visual appearance of the UI shortcut keys, when user toggles the CTRL key (solid background) 

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackground |CI$90 to (RGB(0,0,1))
	Set ComBackground |CI$91 to (RGB(255,255,255))
End_Procedure
63
Is it possible to remove all shortcut key combinations from the control's toolbar
Procedure OnCreate
	Forward Send OnCreate
	Set ComToolBarItems to (ComFormatABC(Self,"value replace `key=` with ``",(ComToolBarItems(Self)),Nothing,Nothing))
End_Procedure
62
How can I replace the shortcut key combination for the control's toolbar

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolBarItems to (ComFormatABC(Self,"value replace `CTRL+T+C` with `CTRL+1` replace `CTRL+T+B` with `CTRL+2`",(ComToolBarItems(Self)),Nothing,Nothing))
End_Procedure
61
Is it possible to export the control's text in W3/standard HTML format (sample 2)

// Occurs when the user selects text in the control.
Procedure OnComSelChange 
	Forward Send OnComSelChange 
	Showln (ComSelHTML(Self))
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "This is a <off -4><b>bit</b></off> of <i><fgcolor=FF0000>formatted</fgcolor></i> text."
	Set ComSelStart to 0
	Set ComSelLength to -1
	Showln (ComSelHTML(Self))
End_Procedure
60
Is it possible to export the control's text in W3/standard HTML format (sample 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "This is a <off -4><b>bit</b></off> of <i><fgcolor=FF0000>formatted</fgcolor></i> text."
	Showln (ComHTML(Self))
End_Procedure
59
Is it possible to show the toolbar anchored to the left side of the control

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackground OLEexToolBarAppearance to (ComBackColor(Self))
	Set ComToolBarAnchor to OLEexToolBarAnchorLeft
	Set ComToolBarItems to ("<font ;6>Font[id=-57707][align=1][button=0x0311][ttp=Font][itemsbg=RGB(255,255,255)][visible=255](<font Arial>Arial</font>[id=53248][typ=1][close=0][chk=1],<font Arial Black>Arial Black</font>[id=53249][close=0],<font Comic Sans MS>Comic Sans MS</font>[id=53250][close=0],<font Courier New>Courier New</font>[id=53251][close=0],<font Georgia>Georgia</font>[id=53252][close=0],<font Impact>Impact</font>[id=53253][close=0],<font Lucida Console>Lucida Console</font>[id=53254][close=0],<font Lucida Sans Unicode>Lucida Sans Unicode</font>[id=53255][close=0],<font Tahoma>Tahoma</font>[id=53256][close=0],<font Times New Roman>Times New Roman</font>[id=53257][close=0],<font Trebuchet MS>Trebuchet MS</font>[id=53258][close=0],<font Verdana>Verdana</font>[id=53259][close=0],<font MS Sans Serif>MS Sans Serif</font>[id=53260][close=0],<font MS Serif>MS Serif</font>[id=53261][close=0]),<img>1</img>[align=1][id=57702][button=0x0311][ttp=Size][itemsbg=RGB(255,255,255)]([id=180][group=0x23]([id=190][group=0x0113](<font ;6>small</font>[id=57764][close=0],Normal[id=57765][close=0],<font ;14>Large</font>[id=57766][close=0],<font ;24>Huge</font>[id=57767][close=0]),[id=57768][edittype=0x0403][edit=88][border=0][freq=0][ticklabel=][ettp=])),<img>2</img>[id=57648][align=1][typ=1][show=1][ttp=Bold (CTRL+B)],<img>3</img>[align=1][id=57649][typ=1][show=1][ttp=Italic (CTRL+I)],<img>4</img>[align=1][id=57650][typ=1][show=1][ttp=Underline (CTRL+U)],<img>5</img>[align=1][id=57651][typ=1][show=1][ttp=Strikeout],<img>6</img>[align=1][id=57712][button=0x01][ttp=Superscript],<img>7</img>[align=1][id=57710][button=0x01][ttp=Subscript],<img>8</img>[align=1][id=57685][button=0x0311][ttp=Text Color][itemsbg=RGB(255,255,255)][visible=255](<fgcolor 808080>foreground[id=350][align=1][group=0x0133][itemspad=2,2,2,2]([id=360][group=0x33]([id=49152][typ=2][close=0][chk=1][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(0,0,0)][data=RGB(0,0,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(0,0,0)]],[id=49153][typ=2][close=0][show=1][grp=49152][captionwi" + ;
"dth=24][height=24][ttp=RGB(68,68,68)][data=RGB(68,68,68)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(68,68,68)]],[id=49154][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(102,102,102)][data=RGB(102,102,102)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(102,102,102)]],[id=49155][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(153,153,153)][data=RGB(153,153,153)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(153,153,153)]],[id=49156][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(204,204,204)][data=RGB(204,204,204)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(204,204,204)]],[id=49157][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(238,238,238)][data=RGB(238,238,238)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(238,238,238)]],[id=49158][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(243,243,243)][data=RGB(243,243,243)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(243,243,243)]],[id=49159][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(255,255,255)][data=RGB(255,255,255)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,255,255)]]),[id=450][group=0x33]([id=49160][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(255,0,0)][data=RGB(255,0,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,0,0)]],[id=49161][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(255,153,0)][data=RGB(255,153,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,153,0)]],[id=49162][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(255,255,0)][data=RGB(255,255,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,255,0)]],[id=49163][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(0,255,0)][data=RGB(0,255,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(0,255,0)]],[id=49164][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(0,255,255)][data=RGB(0,255,255)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(0,255,255" + ;
")]],[id=49165][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(0,0,255)][data=RGB(0,0,255)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(0,0,255)]],[id=49166][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(153,0,255)][data=RGB(153,0,255)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(153,0,255)]],[id=49167][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(255,0,255)][data=RGB(255,0,255)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,0,255)]]),[id=540][group=0x33]([id=49168][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(244,204,204)][data=RGB(244,204,204)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(244,204,204)]],[id=49169][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(252,229,205)][data=RGB(252,229,205)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(252,229,205)]],[id=49170][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(255,242,204)][data=RGB(255,242,204)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,242,204)]],[id=49171][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(217,234,211)][data=RGB(217,234,211)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(217,234,211)]],[id=49172][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(208,224,227)][data=RGB(208,224,227)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(208,224,227)]],[id=49173][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(207,226,243)][data=RGB(207,226,243)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(207,226,243)]],[id=49174][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(217,210,233)][data=RGB(217,210,233)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(217,210,233)]],[id=49175][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(234,209,220)][data=RGB(234,209,220)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(234,209,220)]]),[id=630][group=0x33]([id=49176][typ=2][close=0][show=1][grp=49152][captionwidth=24][hei" + ;
"ght=24][ttp=RGB(234,153,153)][data=RGB(234,153,153)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(234,153,153)]],[id=49177][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(249,203,156)][data=RGB(249,203,156)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(249,203,156)]],[id=49178][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(255,229,153)][data=RGB(255,229,153)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,229,153)]],[id=49179][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(182,215,168)][data=RGB(182,215,168)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(182,215,168)]],[id=49180][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(162,196,201)][data=RGB(162,196,201)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(162,196,201)]],[id=49181][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(159,197,232)][data=RGB(159,197,232)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(159,197,232)]],[id=49182][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(180,167,214)][data=RGB(180,167,214)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(180,167,214)]],[id=49183][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(213,166,189)][data=RGB(213,166,189)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(213,166,189)]]),[id=720][group=0x33]([id=49184][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(224,102,102)][data=RGB(224,102,102)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(224,102,102)]],[id=49185][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(246,178,107)][data=RGB(246,178,107)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(246,178,107)]],[id=49186][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(255,217,102)][data=RGB(255,217,102)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,217,102)]],[id=49187][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(147,196,125)][data=RGB(147,196,125)][bgext=none[(2D," + ;
"2D,100%-4D,100%-4D),back=RGB(147,196,125)]],[id=49188][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(118,165,175)][data=RGB(118,165,175)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(118,165,175)]],[id=49189][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(111,168,220)][data=RGB(111,168,220)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(111,168,220)]],[id=49190][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(142,124,195)][data=RGB(142,124,195)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(142,124,195)]],[id=49191][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(194,123,160)][data=RGB(194,123,160)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(194,123,160)]]),[id=810][group=0x33]([id=49192][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(204,0,0)][data=RGB(204,0,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(204,0,0)]],[id=49193][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(230,145,56)][data=RGB(230,145,56)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(230,145,56)]],[id=49194][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(241,194,50)][data=RGB(241,194,50)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(241,194,50)]],[id=49195][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(106,168,79)][data=RGB(106,168,79)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(106,168,79)]],[id=49196][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(69,129,142)][data=RGB(69,129,142)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(69,129,142)]],[id=49197][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(61,133,198)][data=RGB(61,133,198)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(61,133,198)]],[id=49198][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(103,78,167)][data=RGB(103,78,167)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(103,78,167)]],[id=49199][typ=2][close=0][show=1][grp=49152][captionw" + ;
"idth=24][height=24][ttp=RGB(166,77,121)][data=RGB(166,77,121)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(166,77,121)]]),[id=900][group=0x33]([id=49200][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(153,0,0)][data=RGB(153,0,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(153,0,0)]],[id=49201][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(180,95,6)][data=RGB(180,95,6)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(180,95,6)]],[id=49202][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(191,144,0)][data=RGB(191,144,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(191,144,0)]],[id=49203][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(56,118,29)][data=RGB(56,118,29)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(56,118,29)]],[id=49204][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(19,79,92)][data=RGB(19,79,92)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(19,79,92)]],[id=49205][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(11,83,148)][data=RGB(11,83,148)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(11,83,148)]],[id=49206][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(53,28,117)][data=RGB(53,28,117)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(53,28,117)]],[id=49207][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(116,27,71)][data=RGB(116,27,71)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(116,27,71)]]),[id=990][group=0x33]([id=49208][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(102,0,0)][data=RGB(102,0,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(102,0,0)]],[id=49209][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(120,63,4)][data=RGB(120,63,4)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(120,63,4)]],[id=49210][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(127,96,0)][data=RGB(127,96,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(127,96,0)]],[id=49211][typ=" + ;
"2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(39,78,19)][data=RGB(39,78,19)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(39,78,19)]],[id=49212][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(12,52,61)][data=RGB(12,52,61)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(12,52,61)]],[id=49213][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(7,55,99)][data=RGB(7,55,99)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(7,55,99)]],[id=49214][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(32,18,77)][data=RGB(32,18,77)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(32,18,77)]],[id=49215][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(76,17,48)][data=RGB(76,17,48)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(76,17,48)]]))),<img>9</img>[align=1][id=57686][button=0x0311][ttp=Text Background Color][itemsbg=RGB(255,255,255)][visible=255](<fgcolor 808080>background[id=1090][align=1][group=0x0133][itemspad=2,2,2,2]([id=1100][group=0x33]([id=45056][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(0,0,0)][data=RGB(0,0,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(0,0,0)]],[id=45057][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(68,68,68)][data=RGB(68,68,68)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(68,68,68)]],[id=45058][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(102,102,102)][data=RGB(102,102,102)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(102,102,102)]],[id=45059][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(153,153,153)][data=RGB(153,153,153)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(153,153,153)]],[id=45060][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(204,204,204)][data=RGB(204,204,204)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(204,204,204)]],[id=45061][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(238,238,238)][data=RGB(238,238,238)][bgext=none[(2D,2D,100%-4" + ;
"D,100%-4D),back=RGB(238,238,238)]],[id=45062][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(243,243,243)][data=RGB(243,243,243)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(243,243,243)]],[id=45063][typ=2][close=0][chk=1][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(255,255,255)][data=RGB(255,255,255)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,255,255)]]),[id=1190][group=0x33]([id=45064][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(255,0,0)][data=RGB(255,0,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,0,0)]],[id=45065][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(255,153,0)][data=RGB(255,153,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,153,0)]],[id=45066][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(255,255,0)][data=RGB(255,255,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,255,0)]],[id=45067][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(0,255,0)][data=RGB(0,255,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(0,255,0)]],[id=45068][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(0,255,255)][data=RGB(0,255,255)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(0,255,255)]],[id=45069][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(0,0,255)][data=RGB(0,0,255)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(0,0,255)]],[id=45070][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(153,0,255)][data=RGB(153,0,255)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(153,0,255)]],[id=45071][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(255,0,255)][data=RGB(255,0,255)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,0,255)]]),[id=1280][group=0x33]([id=45072][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(244,204,204)][data=RGB(244,204,204)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(244,204,204)]],[id=45073][typ=2][close=0][show=1][grp=45056][captionwidth=24][heigh" + ;
"t=24][ttp=RGB(252,229,205)][data=RGB(252,229,205)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(252,229,205)]],[id=45074][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(255,242,204)][data=RGB(255,242,204)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,242,204)]],[id=45075][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(217,234,211)][data=RGB(217,234,211)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(217,234,211)]],[id=45076][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(208,224,227)][data=RGB(208,224,227)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(208,224,227)]],[id=45077][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(207,226,243)][data=RGB(207,226,243)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(207,226,243)]],[id=45078][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(217,210,233)][data=RGB(217,210,233)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(217,210,233)]],[id=45079][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(234,209,220)][data=RGB(234,209,220)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(234,209,220)]]),[id=1370][group=0x33]([id=45080][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(234,153,153)][data=RGB(234,153,153)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(234,153,153)]],[id=45081][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(249,203,156)][data=RGB(249,203,156)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(249,203,156)]],[id=45082][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(255,229,153)][data=RGB(255,229,153)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,229,153)]],[id=45083][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(182,215,168)][data=RGB(182,215,168)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(182,215,168)]],[id=45084][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(162,196,201)][data=RGB(162,196,201)][bgext=none[(2D,2" + ;
"D,100%-4D,100%-4D),back=RGB(162,196,201)]],[id=45085][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(159,197,232)][data=RGB(159,197,232)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(159,197,232)]],[id=45086][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(180,167,214)][data=RGB(180,167,214)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(180,167,214)]],[id=45087][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(213,166,189)][data=RGB(213,166,189)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(213,166,189)]]),[id=1460][group=0x33]([id=45088][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(224,102,102)][data=RGB(224,102,102)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(224,102,102)]],[id=45089][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(246,178,107)][data=RGB(246,178,107)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(246,178,107)]],[id=45090][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(255,217,102)][data=RGB(255,217,102)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,217,102)]],[id=45091][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(147,196,125)][data=RGB(147,196,125)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(147,196,125)]],[id=45092][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(118,165,175)][data=RGB(118,165,175)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(118,165,175)]],[id=45093][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(111,168,220)][data=RGB(111,168,220)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(111,168,220)]],[id=45094][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(142,124,195)][data=RGB(142,124,195)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(142,124,195)]],[id=45095][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(194,123,160)][data=RGB(194,123,160)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(194,123,160)]]),[id=1550][group=0x33]([" + ;
"id=45096][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(204,0,0)][data=RGB(204,0,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(204,0,0)]],[id=45097][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(230,145,56)][data=RGB(230,145,56)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(230,145,56)]],[id=45098][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(241,194,50)][data=RGB(241,194,50)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(241,194,50)]],[id=45099][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(106,168,79)][data=RGB(106,168,79)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(106,168,79)]],[id=45100][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(69,129,142)][data=RGB(69,129,142)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(69,129,142)]],[id=45101][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(61,133,198)][data=RGB(61,133,198)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(61,133,198)]],[id=45102][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(103,78,167)][data=RGB(103,78,167)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(103,78,167)]],[id=45103][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(166,77,121)][data=RGB(166,77,121)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(166,77,121)]]),[id=1640][group=0x33]([id=45104][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(153,0,0)][data=RGB(153,0,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(153,0,0)]],[id=45105][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(180,95,6)][data=RGB(180,95,6)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(180,95,6)]],[id=45106][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(191,144,0)][data=RGB(191,144,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(191,144,0)]],[id=45107][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(56,118,29)][data=RGB(56,118,29)][bgext=none[(2" + ;
"D,2D,100%-4D,100%-4D),back=RGB(56,118,29)]],[id=45108][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(19,79,92)][data=RGB(19,79,92)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(19,79,92)]],[id=45109][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(11,83,148)][data=RGB(11,83,148)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(11,83,148)]],[id=45110][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(53,28,117)][data=RGB(53,28,117)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(53,28,117)]],[id=45111][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(116,27,71)][data=RGB(116,27,71)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(116,27,71)]]),[id=1730][group=0x33]([id=45112][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(102,0,0)][data=RGB(102,0,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(102,0,0)]],[id=45113][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(120,63,4)][data=RGB(120,63,4)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(120,63,4)]],[id=45114][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(127,96,0)][data=RGB(127,96,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(127,96,0)]],[id=45115][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(39,78,19)][data=RGB(39,78,19)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(39,78,19)]],[id=45116][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(12,52,61)][data=RGB(12,52,61)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(12,52,61)]],[id=45117][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(7,55,99)][data=RGB(7,55,99)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(7,55,99)]],[id=45118][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(32,18,77)][data=RGB(32,18,77)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(32,18,77)]],[id=45119][typ=2][close=0][show=1][grp=45056][captionwidth=24][height=24][ttp=RGB(76,17,48)][data=RGB(76,17,48)][bgext=" + ;
"none[(2D,2D,100%-4D,100%-4D),back=RGB(76,17,48)]]))),<img>10</img>[align=1][id=57654][button=0x0311][ttp=Align][itemsbg=RGB(255,255,255)][visible=255](<img>10</img>[id=57655],<img>11</img>[id=57656],<img>12</img>[id=57657]),<img>14</img>[align=1][id=57770][button=0x01][ttp=Indent Less (Shift_TAB)],<img>13</img>[align=1][id=57769][button=0x01][ttp=Indent More (TAB)],<img>15</img>[align=1][id=57771][button=0x01][ttp=Remove Formatting]")
End_Procedure
58
How can I place the control's toolbar on the top of the control rather than bottom side

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolBarAnchor to OLEexToolBarAnchorTop
End_Procedure
57
Is it possible to replace/add commands in the control's toolbar

// Occurs once a change occurs in the control's toolbar.
Procedure OnComToolBarEvent OLEToolBarEventEnum   llEv Integer   llID String   llItem Variant   llReserved
	Forward Send OnComToolBarEvent llEv llID llItem llReserved
	Set ComSelText to llItem
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolBarItems to "Insert(Caption 1,Caption 2,Caption 3)"
End_Procedure
56
How do I hide the control's toolbar
Procedure OnCreate
	Forward Send OnCreate
	Set ComToolBarSize to 0
End_Procedure
55
How can I remove the text formatting

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "This is a bit of <b>HTML</b> text. Select the text and call <a>FormatSelection(exHTMLFormatRemove)</a> to remove all formatting."
	Set ComSelLength to -1
	Set ComFormatSelection OLEexHTMLFormatRemove to 1
End_Procedure
54
Can I display an icon file as picture and icon as well

Procedure OnCreate
	Forward Send OnCreate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`gAAAABgYACAQgUCEAANAEgQWhIohMIhUJgkLhIAIEOjMdj0Cf8hAMhf8jkUkk0llEJGMJGcumECl8ymIAmc2lkonUnnkqkS3Qosea2QIkf61P4go5/D9LptIp9MpdKolGoFCnc+rUpri2QQlklhsVjsllqr/lk1m9rly1QAisTqbq6f7qbi4f7obKzf7na6xf7mayvwLWV1iqD/q9DotTp2PWh+Dz/WZ7DT/WB3CWYO2bXaKGV1u99v+FwjlaqssWRydnsuv2FiWB2CD/fj7ej/fL0dL/fDyc2+eTl1eSx9hwWHwWEczXWGB52mwuHsKuOgO3z1c7/ejubj/ebsbPgdjY4uT1li1Gq5fS9vt9di63Yezwbz/eLoaL/eDmZr+HO/6wvS9Kwt+4jfuCfB5u3BcGuA4TiOq678HUaZ/nueJyNikJaD+9DjLC8LxxG8htPJEjxPI80Juwd5yGOsRnlWNp/lYOACsQt5/wKkj8me/B0GhIMhngc8gP6/8jQEkj5n+dZvF4sUbxysJ2G4YjFEGE5Wx6kJ2nHGMwGQf8wRi+pww4zgIzVK8srcERTpRL0nm7KR1m6Xsnm4XcZRpG0cLEWY+g4o5ABCx04S1LisgCxKwnObDAUjSborDKixSuYZ/q8ExS0bUCegC101NhN1DTjUKt1UAJckOFp3rOxMCONDynx2W8tmrVleVEkC0AAkNf2HYNgWFYtiWPZVjWZZNmICA`)" to vPicture
	Set ComHTMLPicture "icon" to (vPicture)
	Send ComImages "gBJJgBggAAwAAgACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjIgjIBAEijUlk8plUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9oEEwGBwWDwMZGMZGeIxUYxOMxYAxuQw1+ykswmXzCuPwpea2QIkf61P4g0J/D+l0+i1Om0ukz2gzWcyuzk+Y22CWyCEsT3m932/h+vf+04kaw+O5GS5IzWqAEW8dTdXT/dTcXD/dDZWb/c7XWL/czWV/gayu3mq4fF2exzuf1uo+C0Pwef6zPYaf6wO4S/J2/hdkUGTqOs7jvPI8ZymqVjePk+j1Nm4TgQlCaHFgOwIH+fh9nof58nodJ/nweRzRCeRywY+b0wevz0Im8LzPC8ZzGuWDwRpA7yPMiZXDoB0Qnqc5/nodxuH+eZ2GzIx2GxFEHRWv0Gt5BMFxjHEqyrKbeR5Hx7Hgbx/nidBon+eBzGbMhzzOicoyfKEUonEUTxFEh8HnIM6zvEcSxPHcezAdRpn+e54nJCh/loP8nTavcoonI8k0fJRtSVSEkSVJk+x8d5yGO3hnlWNp/lYOACvO50VUWvNGofMJnzAdBoVfWJ4HPV0yzPWk1IfLZ/nWbxeN5UdSomdhuGIf4+CwDRW1TRk3oedpx07aJkH/aNOy6cNDQsCNDWLY47CmCxTsLZtVWehx1m7YF1F7XpuF3T1QVFUjeFmPoONCQAQve5rn2TZbL3MvMWoec5sO/g+ExuidhN5Yphn+OoqAwUrb4ukmBrvCNDQlb5/3DceMZHjONLqVo/BUd7hPRKOXNZfx/kwNoQGrkmb5Lky5oqHyVZ6jqPpCkYAZyjGipoh+daUo6Ag"
	Set ComText to "As Picture: <img>icon</img><br>As Icon:     <img>1</img>"
End_Procedure
53
How do I show a gradient text

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "first line<br>second line<br>third line"
	Set ComSelStart to (ComXYToPosition(Self,0,1))
	Set ComSelLength to 11
	Set ComHideSelection to False
	Set ComFormatSelection OLEexHTMLFormatFont to "Tahoma"
	Set ComFormatSelection OLEexHTMLFormatFontSize to 32
	Set ComFormatSelection OLEexHTMLFormatGradient to 255
	Set ComSelLength to 0
End_Procedure
52
How can I programmatically change the font

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "first line<br>second line<br>third line"
	Set ComSelStart to (ComXYToPosition(Self,0,1))
	Set ComSelLength to 11
	Set ComHideSelection to False
	Set ComFormatSelection OLEexHTMLFormatFont to "Tahoma"
	Set ComFormatSelection OLEexHTMLFormatFontSize to 32
	Set ComSelLength to 0
End_Procedure
51
How can I programmatically change the selection's foreground color
Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "first line<br>second line<br>third line"
	Set ComSelStart to (ComXYToPosition(Self,0,1))
	Set ComSelLength to 11
	Set ComHideSelection to False
	Set ComFormatSelection OLEexHTMLFormatForeColor to 255
	Set ComSelLength to 4
	Set ComFormatSelection OLEexHTMLFormatForeColor to ""
	Showln (ComFormatSelection(Self,OLEexHTMLFormatForeColor))
	Set ComSelLength to 0
End_Procedure
50
How can I programmatically resizes a picture
Procedure OnCreate
	Forward Send OnCreate
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Set ComText to "first line<br>second line<br>third line"
	Set ComHideSelection to False
	Set ComSelStart to (ComXYToPosition(Self,0,1))
	Set ComFormatSelection OLEexHTMLFormatImage to "pic1"
	Set ComFormatSelection OLEexHTMLFormatImageSize to 64
	Set ComSelLength to 0
End_Procedure
49
How can I programmatically inserts an icon/picture

Procedure OnCreate
	Forward Send OnCreate
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComText to "first line<br>second line<br>third line"
	Set ComHideSelection to False
	Set ComSelStart to (ComXYToPosition(Self,0,1))
	Set ComFormatSelection OLEexHTMLFormatImage to 1
	Set ComSelStart to (ComXYToPosition(Self,1,1))
	Set ComFormatSelection OLEexHTMLFormatImage to "pic1"
	Set ComSelLength to 0
End_Procedure
48
How can I programmatically inserts a line

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "first line<br>second line<br>third line"
	Set ComSelStart to (ComXYToPosition(Self,0,1))
	Set ComHideSelection to False
	Set ComFormatSelection OLEexHTMLFormatLine to 1
End_Procedure
47
How can I programmatically format the selection

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "first line<br>second line<br>third line"
	Set ComSelStart to (ComXYToPosition(Self,0,1))
	Set ComSelLength to 11
	Set ComHideSelection to False
	Set ComFormatSelection OLEexHTMLFormatBold to True
	Set ComFormatSelection OLEexHTMLFormatAlign to 1
	Showln (ComFormatSelection(Self,OLEexHTMLFormatBold))
	Set ComSelStart to (ComXYToPosition(Self,0,2))
	Set ComSelLength to -1
	Set ComFormatSelection OLEexHTMLFormatUnderline to True
	Set ComFormatSelection OLEexHTMLFormatAlign to 2
End_Procedure
46
How can I select the text giving (column,line)-coordinates 
Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "This sample shows how to select the text giving (column,line)-coordinates.<br>This is the second line"
	Set ComSelStart to (ComXYToPosition(Self,0,1))
	Set ComSelLength to 4
	Set ComHideSelection to False
End_Procedure
45
How can I determine the (column,line)-coordinates of the cursor's position
// Occurs when the user selects text in the control.
Procedure OnComSelChange 
	Forward Send OnComSelChange 
	Showln "Column" (ComPositionToX(Self,(ComCursorPos(Self))))
	Showln "Line" (ComPositionToY(Self,(ComCursorPos(Self))))
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComWordWrap to True
	Set ComText to "This sample shows how to determine the <b>(column,line)</b> - coordinates."
End_Procedure
44
How can I provide my own context menu

// Occurs when the user selects an user item from the control's context menu.
Procedure OnComExecuteContextMenu String   llItem Integer   llPosition
	Forward Send OnComExecuteContextMenu llItem llPosition
	Showln "You selected: " llItem
	Set ComSelText to llItem
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "This is a bit of <b>HTML</b> text. Right-click the text."
	Set ComContextMenuItems to "1,2,3,others[id=0](4,5,6) "
End_Procedure
43
How can I change the context menu's visual appearance

Procedure OnCreate
	Forward Send OnCreate
	Set ComWordWrap to True
	Set ComText to "This sample show change the visual appearance of the built-in context menu"
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexContextMenuAppearance to |CI$1000000
	Set ComBackground OLEexContextMenuSelBackColor to |CI$10000ff
End_Procedure
42
How can I insert my own HTML words to the control's context menu

Procedure OnCreate
	Forward Send OnCreate
	Set ComWordWrap to True
	Set ComText to " <off 5><font ;7><fgcolor 808080>sub-note</fgcolor></font></off> This is just a bit of text <off -5><font ;7><fgcolor 808080>super-note</fgcolor></font></off> "
	Set ComContextMenuItems to "<off 5><font ;7><fgcolor 808080>sub-note</fgcolor></font></off>[id=57763],<off -5><font ;7><fgcolor 808080>super-note</fgcolor></font></off>[id=57763]"
End_Procedure
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 

Procedure OnCreate
	Forward Send OnCreate
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Set ComHTMLPicture "pic2" to "c:\exontrol\images\auction.gif"
	Set ComHTMLPicture "pic3" to "c:\exontrol\images\colorize.gif"
	Set ComWordWrap to True
	Set ComText to "The text displays pictures <img>pic1:32</img>,..., <img>pic2:32</img>.<br><b>1.</b> Select a single picture, right click to resize it<br><b>2.</b> Right click to insert a new picture"
	Set ComContextMenuItems to "Size[id=57680][edittype=515][border=0][min=16][max=128][freq=16][editwidth=-128][ticklabel=value = %i ? '<b>'+value : ( value = vmax ? '<fgcolor 808080><font ;6><b>'+value : ( value = vmin ? '<fgcolor 808080><font ;6><b>'+value : '' ) )],Insert[group=3](<img>pic1:32</img>[id=57763],<img>pic2:32</img>[id=57763],Others[id=1000](default[group=3](<img>pic3</img>[id=57763]),<font ;6>other sizes[sep],<img>pic3:16</img>[id=57763],<img>pic3:32</img>[id=57763],<img>pic3:64</img>[id=57763]))"
End_Procedure
40
How can I programatically selects the entire text

Procedure OnCreate
	Forward Send OnCreate
	Set ComHideSelection to False
	Set ComWordWrap to True
	Set ComText to "<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, especially one that is paid."
	Set ComSelStart to 0
	Set ComSelLength to -1
End_Procedure
39
How can I search for an exacting word

Procedure OnCreate
	Forward Send OnCreate
	Set ComHideSelection to False
	Set ComWordWrap to True
	Set ComText to "<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 and differentiated from others by kind, type, or quality.<br><br><b>2.</b> the system of ordering a society in which people are divided into sets based on perceived social or economic status."
	Send ComFind "differentiated" OLEexHTMLEditMatchWholeWordOnly
End_Procedure
38
How can I search for a string

Procedure OnCreate
	Forward Send OnCreate
	Set ComHideSelection to False
	Set ComWordWrap to True
	Set ComText to "<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 and differentiated from others by kind, type, or quality.<br><br><b>2.</b> the system of ordering a society in which people are divided into sets based on perceived social or economic status."
	Send ComFind "different" OLEexHTMLEditSearchDown
End_Procedure
37
I am using the ScrollBars property on 0, but the control is not scrolling anymore. What can be done

Procedure OnCreate
	Forward Send OnCreate
	Set ComSingleLine to True
	Set ComText to "This is a <b>long text</b> that should make the control to display the horizontal scroll bar."
	Set ComScrollBars to OLEexBoth
	Set ComScrollWidth to 0
	Set ComScrollHeight to 0
End_Procedure
36
How can I force the control to display a single-line only

Procedure OnCreate
	Forward Send OnCreate
	Set ComSingleLine to True
	Set ComText to "This is the first line<br>This is the second line"
End_Procedure
35
How can I replace the text with HTML formatting

Procedure OnCreate
	Forward Send OnCreate
	Set ComWordWrap to True
	Set ComText to "This is a bit of text"
	Set ComCursorText 10 3 False to "<dotline><gra FFFFFF;0;1><font ;12>... this is a HTML replacement ...</font></gra></dotline>"
End_Procedure
34
How can I insert HTML text (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "This is a simple text."
	Set ComCursorText 0 0 False to "<b><dotline>Inserted by code</dotline></b>. "
End_Procedure
33
How can I insert HTML text (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "This is a simple text."
	Set ComSelStart to 0
	Set ComSelLength to 0
	Set ComSelText to "<b><dotline>Inserted by code</dotline></b>. "
End_Procedure
32
How can I add/append HTML text (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "This is a simple text."
	Set ComCursorText -1 0 False to " <b><dotline>Added by code</dotline></b>."
End_Procedure
31
How can I add/append HTML text (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "This is a simple text."
	Set ComSelStart to -1
	Set ComSelLength to 0
	Set ComSelText to " <b><dotline>Added by code</dotline></b>."
End_Procedure
30
How can I replace the text with no HTML formatting

Procedure OnCreate
	Forward Send OnCreate
	Set ComWordWrap to True
	Set ComText to "<font ;12>This is a <fgcolor FF0000> bit </fgcolor> of <b><fgcolor 808080><u>HTML</u></fgcolor></b> text"
	Set ComCursorText 11 3 Nothing to "... this is a plain replacement ..."
End_Procedure
29
Is there any property or method that gets the entire text with no HTML formatting

Procedure OnCreate
	Forward Send OnCreate
	Set ComWordWrap to True
	Set ComText to "<font ;12><sha  ;;0>This is a bit of <b><fgcolor 808080><u>HTML</u></fgcolor></b> text."
	Showln (ComCursorText(Self,0,-1,True))
End_Procedure
28
How can I get the selection as plain text with no HTML formatting

// Occurs when the user selects text in the control.
Procedure OnComSelChange 
	Forward Send OnComSelChange 
	Showln (ComCursorText(Self,(ComSelStart(Self)),(ComSelLength(Self)),True))
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComWordWrap to True
	Set ComText to "<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 get the text with no HTML formatting."
End_Procedure
27
How can I customize the pictures in the control's context menu

Procedure OnCreate
	Forward Send OnCreate
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Set ComHTMLPicture "pic2" to "c:\exontrol\images\auction.gif"
	Set ComHTMLPicture "pic3" to "c:\exontrol\images\colorize.gif"
	Set ComWordWrap to True
	Set ComText to "The text displays pictures <img>pic1:32</img>,..., <img>pic2:32</img>.<br><b>1.</b> Select a single picture, right click to resize it<br><b>2.</b> Right click to insert a new picture"
	Set ComContextMenuItems to "Size[id=57680][edittype=515][border=0][min=16][max=128][freq=16][editwidth=-128][ticklabel=value = %i ? '<b>'+value : ( value = vmax ? '<fgcolor 808080><font ;6><b>'+value : ( value = vmin ? '<fgcolor 808080><font ;6><b>'+value : '' ) )],Insert[group=3](<img>pic1:32</img>[id=57763],<img>pic2:32</img>[id=57763],Others[id=1000](<img>pic3:32</img>[id=57763]))"
End_Procedure
26
How do I show a tooltip

// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseMove llButton llShift llX llY
	Send ComShowToolTip "Just a short tooltip" "" Nothing Nothing Nothing
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexToolTipAppearance to |CI$1000000
End_Procedure
25
Is it possible to assign a tooltip for items in the control's context menu

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "This is a bit of <b>HTML</b> text. Select and right-click the selection."
	Set ComContextMenuItems to "<font ;18><b>B[id=57648][typ=1][align=1][show=1][ttp=Bolds/Unbolds the selection]"
End_Procedure
24
How do I get the selected text

// Occurs when the user selects text in the control.
Procedure OnComSelChange 
	Forward Send OnComSelChange 
	Showln (ComSelText(Self))
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "Press the <b>CTRL + S</b> or <b>CTRL + F</b> to search for text."
End_Procedure
23
Is there any way to search through the text

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "Press the <b>CTRL + S</b> or <b>CTRL + F</b> to search for text."
	Set ComAllowFind to True
	Set ComAllowIncrementalSearch to True
End_Procedure
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

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "<font ;12>This is a bit of <b>HTML</b> text."
	Set ComHideSelection to False
	Set ComSelStart to 0
	Set ComSelLength to -1
	Set ComSelBackColorHide to (RGB(255,0,0))
End_Procedure
21
Does your control support Find/Replace

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "This is a bit of <b>HTML</b> text."
	Set ComAllowFind to True
	Set ComAllowReplace to True
End_Procedure
20
How can I get the current selection

// Occurs when the user selects text in the control.
Procedure OnComSelChange 
	Forward Send OnComSelChange 
	Showln (ComSelText(Self))
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "This is a bit of <b>HTML</b> text."
End_Procedure
19
I've noticed that the text does not start exactly where the control is. How can I adjust/remove that margin

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "This is a bit of <b>HTML</b> text."
	Set ComBorderWidth to 0
	Set ComBorderHeight to 0
End_Procedure
18
How can I center the text

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "<c>This is a bit of centered <b>HTML</b> text."
End_Procedure
17
How can I align the text to the right

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "<r>This is a bit of <b>HTML</b> text, aligned to the right."
End_Procedure
16
How can I turn on the control's OLE Drag and Drop operation
Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "This is a bit of <b>HTML</b> text."
	Set ComOLEDropMode to OLEexOLEDropAutomatic
End_Procedure
15
Does your control support word-wrap, and if so how can I enable it

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "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>HTML</b> text. This is a bit of <b>HTML</b> text."
	Set ComWordWrap to True
	Set ComLineNumberWidth to -1
	Set ComDrawGridLines to True
End_Procedure
14
Can I edit text with no formatting at all

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "This is a bit of <b>HTML</b> text."
	Set ComEditType to OLEexPlainText
End_Procedure
13
I've noticed that pressing the CTRL+B changes the Bold attribute. Can I change that behavior
Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "This is a bit of <b>HTML</b> text."
	Set ComAllowShortcutFormat to False
End_Procedure
12
How do I prevents shown the control's content menu

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "This is a bit of <b>HTML</b> text."
	Set ComAllowContextMenu to OLEexHideContextMenu
End_Procedure
11
How do I make the control read-only

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "This is a bit of <b>HTML</b> text."
	Set ComBackColorLocked to (ComBackColor(Self))
	Set ComForeColorLocked to (ComForeColor(Self))
	Set ComLocked to True
	Set ComShowCaret to False
End_Procedure
10
Can I replace programatically a portion of text

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "This is a bit of <b>HTML</b> text."
	Set ComSelStart to 0
	Set ComSelLength to 1
	Set ComHideSelection to False
	Set ComSelText to "<fgcolor FF><font ;18>T</font></fgcolor>"
End_Procedure
9
How do I select the entire text programatically

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "This is a bit of <b>HTML</b> text."
	Set ComSelStart to 0
	Set ComSelLength to -1
	Set ComHideSelection to False
End_Procedure
8
How do I programatically add text to the control

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "This is a bit of <b>HTML</b> text."
	Set ComSelStart to -1
	Set ComSelText to " <fgcolor FF0000><b>Inserted Text</b></fgcolor>"
End_Procedure
7
How do I programatically insert text to the control

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "This is a bit of <b>HTML</b> text."
	Set ComSelText to "<fgcolor FF0000><b>Inserted Text</b></fgcolor> "
End_Procedure
6
How do I get the unformatted text

// Occurs when the user selects text in the control.
Procedure OnComSelChange 
	Forward Send OnComSelChange 
	Showln (ComCursorText(Self,(ComSelStart(Self)),(ComSelLength(Self)),Nothing))
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "This is a bit of <b>HTML</b> text."
End_Procedure
5
How do I provide my own menu for my images (emotion icons)

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "<img>1</img> Right click the image <img>pic1</img> to get resized."
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComContextMenuItems to "Insert[group=3](<img>1</img>[id=57763],<img>2</img>[id=57763])"
End_Procedure
4
How do I display images inside text

Procedure OnCreate
	Forward Send OnCreate
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComText to "<img>1</img> Right click the image <img>pic1</img> to get resized."
End_Procedure
3
How do I allow types only to be available on the control's context menu

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "Right click the selection."
	Set ComHideSelection to False
	Set ComSelStart to 16
	Set ComSelLength to 9
	Set ComAllowContextMenu to (OLEexContextMenuFormatStrikeout + OLEexContextMenuFormatUnderline + OLEexContextMenuFormatItalic + OLEexContextMenuFormatBold)
End_Procedure
2
How do I programatically select the text

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "<font ;12>This is a bit of <b>HTML</b> text."
	Set ComHideSelection to False
	Set ComSelStart to 0
	Set ComSelLength to -1
End_Procedure
1
How do I assign a text to the control

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "This is a bit of <b>HTML</b> text."
End_Procedure