property HTML.HTMLPicture(Key as String) as Variant
Adds or replaces a picture in HTML captions.

TypeDescription
Key as String A String expression that indicates the key of the picture being added or replaced. If the Key property is Empty string, the entire collection of pictures is cleared.
Variant The HTMLPicture specifies the picture being associated to a key. It can be one of the followings:
  • a string expression that indicates the path to the picture file, being loaded.
  • a string expression that indicates the base64 encoded string that holds a picture object, Use the eximages tool to save your picture as base64 encoded format.
  • A Picture object that indicates the picture being added or replaced. ( A Picture object implements IPicture interface ),

If empty, the picture being associated to a key is removed. If the key already exists the new picture is replaced. If the key is not empty, and it doesn't not exist a new picture is added

The HTMLPicture property handles a collection of custom size picture being displayed in the HTML captions, using the <img> tags. By default, the HTMLPicture collection is empty. Use the HTMLPicture property to add new pictures to be used in HTML captions. For instance, the HTMLPicture("pic1") = "c:\winnt\zapotec.bmp", loads the zapotec picture and associates the pic1 key to it. Any "<img>pic1</img>" sequence in HTML captions, displays the pic1 picture. On return, the HTMLPicture property retrieves a Picture object ( this implements the IPictureDisp interface ).

The following sample shows how you can load pictures into the control:

<CONTROL>.HTMLPicture("pic1") = "c:/temp/editors.gif"
<CONTROL>.HTMLPicture("pic2") = "c:/temp/editpaste.gif"
At runtime, the control's context menu includes the pictures being loaded by HTMLPicture, under the Misc\Image item. You can prevent loading the images in the control's context menu by excluding the exContextMenuFormatImage flag from the AllowContextMenu property or remove the ",Insert[id=57679]()" from the ContextMenuItems property.

How can I customize the pictures in the control's context menu?

VBA (MS Access, Excell...)

With HTML1
	.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	.HTMLPicture("pic3") = "c:\exontrol\images\colorize.gif"
	.WordWrap = True
	.Text = "The text displays pictures <img>pic1:32</img>,..., <img>pic2:32</img>.<br><b>1.</b> Select a si" & _
"ngle picture, right click to resize it<br><b>2.</b> Right click to insert a new picture"
	.ContextMenuItems = "Size[id=57680][edittype=515][border=0][min=16][max=128][freq=16][editwidth=-128][ticklabel=valu" & _
"e = %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 With

VB6

With HTML1
	.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	.HTMLPicture("pic3") = "c:\exontrol\images\colorize.gif"
	.WordWrap = True
	.Text = "The text displays pictures <img>pic1:32</img>,..., <img>pic2:32</img>.<br><b>1.</b> Select a si" & _
"ngle picture, right click to resize it<br><b>2.</b> Right click to insert a new picture"
	.ContextMenuItems = "Size[id=57680][edittype=515][border=0][min=16][max=128][freq=16][editwidth=-128][ticklabel=valu" & _
"e = %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 With

VB.NET

With Exhtml1
	.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
	.set_HTMLPicture("pic2","c:\exontrol\images\auction.gif")
	.set_HTMLPicture("pic3","c:\exontrol\images\colorize.gif")
	.WordWrap = True
	.Text = "The text displays pictures <img>pic1:32</img>,..., <img>pic2:32</img>.<br><b>1.</b> Select a si" & _
"ngle picture, right click to resize it<br><b>2.</b> Right click to insert a new picture"
	.ContextMenuItems = "Size[id=57680][edittype=515][border=0][min=16][max=128][freq=16][editwidth=-128][ticklabel=valu" & _
"e = %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 With

VB.NET for /COM

With AxHTML1
	.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
	.set_HTMLPicture("pic2","c:\exontrol\images\auction.gif")
	.set_HTMLPicture("pic3","c:\exontrol\images\colorize.gif")
	.WordWrap = True
	.Text = "The text displays pictures <img>pic1:32</img>,..., <img>pic2:32</img>.<br><b>1.</b> Select a si" & _
"ngle picture, right click to resize it<br><b>2.</b> Right click to insert a new picture"
	.ContextMenuItems = "Size[id=57680][edittype=515][border=0][min=16][max=128][freq=16][editwidth=-128][ticklabel=valu" & _
"e = %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 With

C++

/*
	Copy and paste the following directives to your header file as
	it defines the namespace 'EXHTMLLib' for the library: 'ExHTML 1.0 Control Library'

	#import <ExHTML.dll>
	using namespace EXHTMLLib;
*/
EXHTMLLib::IHTMLPtr spHTML1 = GetDlgItem(IDC_HTML1)->GetControlUnknown();
spHTML1->PutHTMLPicture(L"pic1","c:\\exontrol\\images\\zipdisk.gif");
spHTML1->PutHTMLPicture(L"pic2","c:\\exontrol\\images\\auction.gif");
spHTML1->PutHTMLPicture(L"pic3","c:\\exontrol\\images\\colorize.gif");
spHTML1->PutWordWrap(VARIANT_TRUE);
spHTML1->PutText(_bstr_t("The text displays pictures <img>pic1:32</img>,..., <img>pic2:32</img>.<br><b>1.</b> Select a si") +
"ngle picture, right click to resize it<br><b>2.</b> Right click to insert a new picture");
spHTML1->PutContextMenuItems(_bstr_t("Size[id=57680][edittype=515][border=0][min=16][max=128][freq=16][editwidth=-128][ticklabel=valu") +
"e = %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]))");

C++ Builder

HTML1->HTMLPicture[L"pic1"] = TVariant("c:\\exontrol\\images\\zipdisk.gif");
HTML1->HTMLPicture[L"pic2"] = TVariant("c:\\exontrol\\images\\auction.gif");
HTML1->HTMLPicture[L"pic3"] = TVariant("c:\\exontrol\\images\\colorize.gif");
HTML1->WordWrap = true;
HTML1->Text = TVariant(String("The text displays pictures <img>pic1:32</img>,..., <img>pic2:32</img>.<br><b>1.</b> Select a si") +
"ngle picture, right click to resize it<br><b>2.</b> Right click to insert a new picture");
HTML1->ContextMenuItems = TVariant(String("Size[id=57680][edittype=515][border=0][min=16][max=128][freq=16][editwidth=-128][ticklabel=valu") +
"e = %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]))");

C#

exhtml1.set_HTMLPicture("pic1","c:\\exontrol\\images\\zipdisk.gif");
exhtml1.set_HTMLPicture("pic2","c:\\exontrol\\images\\auction.gif");
exhtml1.set_HTMLPicture("pic3","c:\\exontrol\\images\\colorize.gif");
exhtml1.WordWrap = true;
exhtml1.Text = "The text displays pictures <img>pic1:32</img>,..., <img>pic2:32</img>.<br><b>1.</b> Select a si" +
"ngle picture, right click to resize it<br><b>2.</b> Right click to insert a new picture";
exhtml1.ContextMenuItems = "Size[id=57680][edittype=515][border=0][min=16][max=128][freq=16][editwidth=-128][ticklabel=valu" +
"e = %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]))";

JScript/JavaScript

<BODY onload='Init()'>
<OBJECT CLASSID="clsid:0036F83C-D892-4B7B-AA0B-BEDD8D16A738" id="HTML1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	HTML1.HTMLPicture("pic1") = "c:\\exontrol\\images\\zipdisk.gif";
	HTML1.HTMLPicture("pic2") = "c:\\exontrol\\images\\auction.gif";
	HTML1.HTMLPicture("pic3") = "c:\\exontrol\\images\\colorize.gif";
	HTML1.WordWrap = true;
	HTML1.Text = "The text displays pictures <img>pic1:32</img>,..., <img>pic2:32</img>.<br><b>1.</b> Select a si" +
	"ngle picture, right click to resize it<br><b>2.</b> Right click to insert a new picture";
	HTML1.ContextMenuItems = "Size[id=57680][edittype=515][border=0][min=16][max=128][freq=16][editwidth=-128][ticklabel=valu" +
	"e = %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]))";
}
</SCRIPT>
</BODY>

VBScript

<BODY onload='Init()'>
<OBJECT CLASSID="clsid:0036F83C-D892-4B7B-AA0B-BEDD8D16A738" id="HTML1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With HTML1
		.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
		.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
		.HTMLPicture("pic3") = "c:\exontrol\images\colorize.gif"
		.WordWrap = True
		.Text = "The text displays pictures <img>pic1:32</img>,..., <img>pic2:32</img>.<br><b>1.</b> Select a si" & _
	"ngle picture, right click to resize it<br><b>2.</b> Right click to insert a new picture"
		.ContextMenuItems = "Size[id=57680][edittype=515][border=0][min=16][max=128][freq=16][editwidth=-128][ticklabel=valu" & _
	"e = %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 With
End Function
</SCRIPT>
</BODY>

C# for /COM

axHTML1.set_HTMLPicture("pic1","c:\\exontrol\\images\\zipdisk.gif");
axHTML1.set_HTMLPicture("pic2","c:\\exontrol\\images\\auction.gif");
axHTML1.set_HTMLPicture("pic3","c:\\exontrol\\images\\colorize.gif");
axHTML1.WordWrap = true;
axHTML1.Text = "The text displays pictures <img>pic1:32</img>,..., <img>pic2:32</img>.<br><b>1.</b> Select a si" +
"ngle picture, right click to resize it<br><b>2.</b> Right click to insert a new picture";
axHTML1.ContextMenuItems = "Size[id=57680][edittype=515][border=0][min=16][max=128][freq=16][editwidth=-128][ticklabel=valu" +
"e = %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]))";

X++ (Dynamics Ax 2009)

public void init()
{
	str var_s,var_s1;
	;

	super();

	exhtml1.HTMLPicture("pic1","c:\\exontrol\\images\\zipdisk.gif");
	exhtml1.HTMLPicture("pic2","c:\\exontrol\\images\\auction.gif");
	exhtml1.HTMLPicture("pic3","c:\\exontrol\\images\\colorize.gif");
	exhtml1.WordWrap(true);
	var_s = "The text displays pictures <img>pic1:32</img>,..., <img>pic2:32</img>.<br><b>1.</b> Select a sin";
	var_s = var_s + "gle picture, right click to resize it<br><b>2.</b> Right click to insert a new picture";
	exhtml1.Text(var_s);
	var_s1 = "Size[id=57680][edittype=515][border=0][min=16][max=128][freq=16][editwidth=-128][ticklabel=value";
	var_s1 = var_s1 + " = %i ? '<b>'+value : ( value = vmax ? '<fgcolor 808080><font ;6><b>'+value : ( value = vmin ? '";
	var_s1 = var_s1 + "<fgcolor 808080><font ;6><b>'+value : '' ) )],Insert[group=3](<img>pic1:32</img>[id=57763],<img>";
	var_s1 = var_s1 + "pic2:32</img>[id=57763],Others[id=1000](<img>pic3:32</img>[id=57763]))";
	exhtml1.ContextMenuItems(var_s1);
}

Delphi 8 (.NET only)

with AxHTML1 do
begin
	set_HTMLPicture('pic1','c:\exontrol\images\zipdisk.gif');
	set_HTMLPicture('pic2','c:\exontrol\images\auction.gif');
	set_HTMLPicture('pic3','c:\exontrol\images\colorize.gif');
	WordWrap := True;
	Text := 'The text displays pictures <img>pic1:32</img>,..., <img>pic2:32</img>.<br><b>1.</b> Select a sin' + 
	'gle picture, right click to resize it<br><b>2.</b> Right click to insert a new picture';
	ContextMenuItems := '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

Delphi (standard)

with HTML1 do
begin
	HTMLPicture['pic1'] := 'c:\exontrol\images\zipdisk.gif';
	HTMLPicture['pic2'] := 'c:\exontrol\images\auction.gif';
	HTMLPicture['pic3'] := 'c:\exontrol\images\colorize.gif';
	WordWrap := True;
	Text := 'The text displays pictures <img>pic1:32</img>,..., <img>pic2:32</img>.<br><b>1.</b> Select a sin' + 
	'gle picture, right click to resize it<br><b>2.</b> Right click to insert a new picture';
	ContextMenuItems := '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

VFP

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 sin"
	var_s = var_s + "gle picture, right click to resize 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"
	var_s1 = var_s1 + " = %i ? '<b>'+value : ( value = vmax ? '<fgcolor 808080><font ;6><b>'+value : ( value = vmin ? '"
	var_s1 = var_s1 + "<fgcolor 808080><font ;6><b>'+value : '' ) )],Insert[group=3](<img>pic1:32</img>[id=57763],<img>"
	var_s1 = var_s1 + "pic2:32</img>[id=57763],Others[id=1000](<img>pic3:32</img>[id=57763]))"
	.ContextMenuItems = var_s1
endwith

dBASE Plus

local oHTML

oHTML = form.Activex1.nativeObject
oHTML.Template = [HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"] // oHTML.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oHTML.Template = [HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"] // oHTML.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
oHTML.Template = [HTMLPicture("pic3") = "c:\exontrol\images\colorize.gif"] // oHTML.HTMLPicture("pic3") = "c:\exontrol\images\colorize.gif"
oHTML.WordWrap = true
oHTML.Text = "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"
oHTML.ContextMenuItems = "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]))"

XBasic (Alpha Five)

Dim oHTML as P

oHTML = topparent:CONTROL_ACTIVEX1.activex
oHTML.Template = "HTMLPicture(\"pic1\") = \"c:\exontrol\images\zipdisk.gif\"" ' oHTML.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oHTML.Template = "HTMLPicture(\"pic2\") = \"c:\exontrol\images\auction.gif\"" ' oHTML.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
oHTML.Template = "HTMLPicture(\"pic3\") = \"c:\exontrol\images\colorize.gif\"" ' oHTML.HTMLPicture("pic3") = "c:\exontrol\images\colorize.gif"
oHTML.WordWrap = .t.
oHTML.Text = "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"
oHTML.ContextMenuItems = "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]))"

Visual Objects


oDCOCX_Exontrol1:[HTMLPicture,"pic1"] := "c:\exontrol\images\zipdisk.gif"
oDCOCX_Exontrol1:[HTMLPicture,"pic2"] := "c:\exontrol\images\auction.gif"
oDCOCX_Exontrol1:[HTMLPicture,"pic3"] := "c:\exontrol\images\colorize.gif"
oDCOCX_Exontrol1:WordWrap := true
oDCOCX_Exontrol1:Text := "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"
oDCOCX_Exontrol1:ContextMenuItems := "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]))"

PowerBuilder

OleObject oHTML

oHTML = ole_1.Object
oHTML.HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
oHTML.HTMLPicture("pic2","c:\exontrol\images\auction.gif")
oHTML.HTMLPicture("pic3","c:\exontrol\images\colorize.gif")
oHTML.WordWrap = true
oHTML.Text = "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"
oHTML.ContextMenuItems = "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]))"

Visual DataFlex

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

XBase++

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oHTML

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oHTML := XbpActiveXControl():new( oForm:drawingArea )
	oHTML:CLSID  := "Exontrol.HTML.1" /*{0036F83C-D892-4B7B-AA0B-BEDD8D16A738}*/
	oHTML:create(,, {10,60},{610,370} )

		oHTML:SetProperty("HTMLPicture","pic1","c:\exontrol\images\zipdisk.gif")
		oHTML:SetProperty("HTMLPicture","pic2","c:\exontrol\images\auction.gif")
		oHTML:SetProperty("HTMLPicture","pic3","c:\exontrol\images\colorize.gif")
		oHTML:WordWrap := .T.
		oHTML:Text := "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"
		oHTML:ContextMenuItems := "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]))"

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN