HTML.Background Property (ExHTML)

The Background property specifies a background color or a visual appearance for specific parts in the control. If the Background property is 0, the control draws the part as default. Use the Add method to add new skins to the control. Use the Remove method to remove a specific skin from the control. Use the Clear method to remove all skins in the control. Use the Refresh method to refresh the control.

How do I show a tooltip?

VBA (MS Access, Excell...)

' MouseMove event - Occurs when the user moves the mouse.
Private Sub HTML1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With HTML1
		.ShowToolTip "Just a short tooltip"
	End With
End Sub

With HTML1
	.VisualAppearance.Add 1,"C:/exontrol/images/ribbon.ebn"
	.Background(64) = &H1000000
End With

VB6

' MouseMove event - Occurs when the user moves the mouse.
Private Sub HTML1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
	With HTML1
		.ShowToolTip "Just a short tooltip"
	End With
End Sub

With HTML1
	.VisualAppearance.Add 1,"C:/exontrol/images/ribbon.ebn"
	.Background(exToolTipAppearance) = &H1000000
End With

VB.NET

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exhtml1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exhtml1.MouseMoveEvent
	With Exhtml1
		.ShowToolTip("Just a short tooltip")
	End With
End Sub

With Exhtml1
	.VisualAppearance.Add(1,"C:/exontrol/images/ribbon.ebn")
	.set_Background32(exontrol.EXHTMLLib.BackgroundPartEnum.exToolTipAppearance,&H1000000)
End With

VB.NET for /COM

' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxHTML1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXHTMLLib._IHTMLEvents_MouseMoveEvent) Handles AxHTML1.MouseMoveEvent
	With AxHTML1
		.ShowToolTip("Just a short tooltip")
	End With
End Sub

With AxHTML1
	.VisualAppearance.Add(1,"C:/exontrol/images/ribbon.ebn")
	.set_Background(EXHTMLLib.BackgroundPartEnum.exToolTipAppearance,16777216)
End With

C++

// MouseMove event - Occurs when the user moves the mouse.
void OnMouseMoveHTML1(short Button,short Shift,long X,long Y)
{
	/*
		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->ShowToolTip(L"Just a short tooltip",vtMissing,vtMissing,vtMissing,vtMissing);
}

EXHTMLLib::IHTMLPtr spHTML1 = GetDlgItem(IDC_HTML1)->GetControlUnknown();
spHTML1->GetVisualAppearance()->Add(1,"C:/exontrol/images/ribbon.ebn");
spHTML1->PutBackground(EXHTMLLib::exToolTipAppearance,0x1000000);

C++ Builder

// MouseMove event - Occurs when the user moves the mouse.
void __fastcall TForm1::HTML1MouseMove(TObject *Sender,short Button,short Shift,int X,int Y)
{
	HTML1->ShowToolTip(L"Just a short tooltip",TNoParam(),TNoParam(),TNoParam(),TNoParam());
}

HTML1->VisualAppearance->Add(1,TVariant("C:/exontrol/images/ribbon.ebn"));
HTML1->Background[Exhtmllib_tlb::BackgroundPartEnum::exToolTipAppearance] = 0x1000000;

// MouseMove event - Occurs when the user moves the mouse.
private void exhtml1_MouseMoveEvent(object sender,short Button,short Shift,int X,int Y)
{
	exhtml1.ShowToolTip("Just a short tooltip",null,null,null,null);
}
//this.exhtml1.MouseMoveEvent += new exontrol.EXHTMLLib.exg2antt.MouseMoveEventHandler(this.exhtml1_MouseMoveEvent);

exhtml1.VisualAppearance.Add(1,"C:/exontrol/images/ribbon.ebn");
exhtml1.set_Background32(exontrol.EXHTMLLib.BackgroundPartEnum.exToolTipAppearance,0x1000000);

JScript/JavaScript

<BODY onload='Init()'>
<SCRIPT FOR="HTML1" EVENT="MouseMove(Button,Shift,X,Y)" LANGUAGE="JScript">
	HTML1.ShowToolTip("Just a short tooltip",null,null,null,null);
</SCRIPT>

<OBJECT CLASSID="clsid:0036F83C-D892-4B7B-AA0B-BEDD8D16A738" id="HTML1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	HTML1.VisualAppearance.Add(1,"C:/exontrol/images/ribbon.ebn");
	HTML1.Background(64) = 16777216;
}
</SCRIPT>
</BODY>

VBScript

<BODY onload='Init()'>
<SCRIPT LANGUAGE="VBScript">
Function HTML1_MouseMove(Button,Shift,X,Y)
	With HTML1
		.ShowToolTip "Just a short tooltip"
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:0036F83C-D892-4B7B-AA0B-BEDD8D16A738" id="HTML1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With HTML1
		.VisualAppearance.Add 1,"C:/exontrol/images/ribbon.ebn"
		.Background(64) = &H1000000
	End With
End Function
</SCRIPT>
</BODY>

C# for /COM

// MouseMove event - Occurs when the user moves the mouse.
private void axHTML1_MouseMoveEvent(object sender, AxEXHTMLLib._IHTMLEvents_MouseMoveEvent e)
{
	axHTML1.ShowToolTip("Just a short tooltip",null,null,null,null);
}
//this.axHTML1.MouseMoveEvent += new AxEXHTMLLib._IHTMLEvents_MouseMoveEventHandler(this.axHTML1_MouseMoveEvent);

axHTML1.VisualAppearance.Add(1,"C:/exontrol/images/ribbon.ebn");
axHTML1.set_Background(EXHTMLLib.BackgroundPartEnum.exToolTipAppearance,0x1000000);

X++ (Dynamics Ax 2009)

// MouseMove event - Occurs when the user moves the mouse.
void onEvent_MouseMove(int _Button,int _Shift,int _X,int _Y)
{
	;
	exhtml1.ShowToolTip("Just a short tooltip");
}

public void init()
{
	;

	super();

	exhtml1.VisualAppearance().Add(1,"C:/exontrol/images/ribbon.ebn");
	exhtml1.Background(64/*exToolTipAppearance*/,0x1000000);
}

Delphi 8 (.NET only)

// MouseMove event - Occurs when the user moves the mouse.
procedure TWinForm1.AxHTML1_MouseMoveEvent(sender: System.Object; e: AxEXHTMLLib._IHTMLEvents_MouseMoveEvent);
begin
	with AxHTML1 do
	begin
		ShowToolTip('Just a short tooltip',Nil,Nil,Nil,Nil);
	end
end;

with AxHTML1 do
begin
	VisualAppearance.Add(1,'C:/exontrol/images/ribbon.ebn');
	set_Background(EXHTMLLib.BackgroundPartEnum.exToolTipAppearance,$1000000);
end

Delphi (standard)

// MouseMove event - Occurs when the user moves the mouse.
procedure TForm1.HTML1MouseMove(ASender: TObject; Button : Smallint;Shift : Smallint;X : Integer;Y : Integer);
begin
	with HTML1 do
	begin
		ShowToolTip('Just a short tooltip',Null,Null,Null,Null);
	end
end;

with HTML1 do
begin
	VisualAppearance.Add(1,'C:/exontrol/images/ribbon.ebn');
	Background[EXHTMLLib_TLB.exToolTipAppearance] := $1000000;
end

VFP

*** 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/ribbon.ebn")
	.Object.Background(64) = 0x1000000
endwith

dBASE Plus

/*
with (this.ACTIVEX1.nativeObject)
	MouseMove = class::nativeObject_MouseMove
endwith
*/
// Occurs when the user moves the mouse.
function nativeObject_MouseMove(Button,Shift,X,Y)
	local oHTML
	oHTML = form.Activex1.nativeObject
	oHTML.ShowToolTip("Just a short tooltip")
return

local oHTML

oHTML = form.Activex1.nativeObject
oHTML.VisualAppearance.Add(1,"C:/exontrol/images/ribbon.ebn")
oHTML.Template = [Background(64) = 0x1000000] // oHTML.Background(64) = 0x1000000

XBasic (Alpha Five)

' Occurs when the user moves the mouse.
function MouseMove as v (Button as N,Shift as N,X as OLE::Exontrol.HTML.1::OLE_XPOS_PIXELS,Y as OLE::Exontrol.HTML.1::OLE_YPOS_PIXELS)
	Dim oHTML as P
	oHTML = topparent:CONTROL_ACTIVEX1.activex
	oHTML.ShowToolTip("Just a short tooltip")
end function

Dim oHTML as P

oHTML = topparent:CONTROL_ACTIVEX1.activex
oHTML.VisualAppearance.Add(1,"C:/exontrol/images/ribbon.ebn")
oHTML.Template = "Background(64) = 16777216" ' oHTML.Background(64) = 16777216

Visual Objects

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	oDCOCX_Exontrol1:ShowToolTip("Just a short tooltip",nil,nil,nil,nil)
RETURN NIL


oDCOCX_Exontrol1:VisualAppearance:Add(1,"C:/exontrol/images/ribbon.ebn")
oDCOCX_Exontrol1:[Background,exToolTipAppearance] := 0x1000000

PowerBuilder

/*begin event MouseMove(integer Button,integer Shift,long X,long Y) - Occurs when the user moves the mouse.*/
/*
	OleObject oHTML
	oHTML = ole_1.Object
	oHTML.ShowToolTip("Just a short tooltip")
*/
/*end event MouseMove*/

OleObject oHTML

oHTML = ole_1.Object
oHTML.VisualAppearance.Add(1,"C:/exontrol/images/ribbon.ebn")
oHTML.Background(64,16777216 /*0x1000000*/)

Visual DataFlex

// 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 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/ribbon.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexToolTipAppearance to |CI$1000000
End_Procedure

XBase++

PROCEDURE OnMouseMove(oHTML,Button,Shift,X,Y)
	oHTML:ShowToolTip("Just a short tooltip")
RETURN

#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:MouseMove := {|Button,Shift,X,Y| OnMouseMove(oHTML,Button,Shift,X,Y)} /*Occurs when the user moves the mouse.*/

		oHTML:VisualAppearance():Add(1,"C:/exontrol/images/ribbon.ebn")
		oHTML:SetProperty("Background",64/*exToolTipAppearance*/,0x1000000)

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

		Type	Description
		Part as BackgroundPartEnum	A BackgroundPartEnum expression that indicates a part in the control.
		Color	A Color expression that indicates the background color for a specified part. The last 7 bits in the high significant byte of the color to indicates the identifier of the skin being used. Use the Add method to add new skins to the control. If you need to remove the skin appearance from a part of the control you need to reset the last 7 bits in the high significant byte of the color being applied to the background's part.