property PropertiesList.HotForeColor as Color
Retrieves or sets a value that indicates the hot-tracking foreground color.

TypeDescription
Color A color expression that indicates the foreground color for item from the cursor ( hovering the item ).
By default, the HotForeColor property is 0, which means that the HotForeColor property has no effect. Use the HotForeColor property on a non-zero value to highlight the item from the cursor. The HotBackColor property specifies the background color to highlight the item from the cursor. The SelForeColor property specifies the selection foreground color. 

The following sample displays a different background color mouse passes over an item.

VBA (MS Access, Excell...)

With PropertiesList1
	.BeginUpdate 
	.HotBackColor = RGB(0,0,128)
	.HotForeColor = RGB(255,255,255)
	.Select PropertiesList1
	.EndUpdate 
End With

VB6

With PropertiesList1
	.BeginUpdate 
	.HotBackColor = RGB(0,0,128)
	.HotForeColor = RGB(255,255,255)
	.Select PropertiesList1
	.EndUpdate 
End With

VB.NET

With Expropertieslist1
	.BeginUpdate()
	.HotBackColor = Color.FromArgb(0,0,128)
	.HotForeColor = Color.FromArgb(255,255,255)
	.Select(Expropertieslist1)
	.EndUpdate()
End With

VB.NET for /COM

With AxPropertiesList1
	.BeginUpdate()
	.HotBackColor = RGB(0,0,128)
	.HotForeColor = RGB(255,255,255)
	.Select(AxPropertiesList1.GetOcx())
	.EndUpdate()
End With

C++

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

	#import <ExPropertiesList.dll>
	using namespace EXPROPERTIESLISTLib;
*/
EXPROPERTIESLISTLib::IPropertiesListPtr spPropertiesList1 = GetDlgItem(IDC_PROPERTIESLIST1)->GetControlUnknown();
spPropertiesList1->BeginUpdate();
spPropertiesList1->PutHotBackColor(RGB(0,0,128));
spPropertiesList1->PutHotForeColor(RGB(255,255,255));
spPropertiesList1->Select(spPropertiesList1);
spPropertiesList1->EndUpdate();

C++ Builder

PropertiesList1->BeginUpdate();
PropertiesList1->HotBackColor = RGB(0,0,128);
PropertiesList1->HotForeColor = RGB(255,255,255);
PropertiesList1->Select(PropertiesList1);
PropertiesList1->EndUpdate();

C#

expropertieslist1.BeginUpdate();
expropertieslist1.HotBackColor = Color.FromArgb(0,0,128);
expropertieslist1.HotForeColor = Color.FromArgb(255,255,255);
expropertieslist1.Select(expropertieslist1);
expropertieslist1.EndUpdate();

JavaScript

<OBJECT classid="clsid:A703DF80-DFF3-48D7-A4C7-47CF6A48425C" id="PropertiesList1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
	PropertiesList1.BeginUpdate();
	PropertiesList1.HotBackColor = 8388608;
	PropertiesList1.HotForeColor = 16777215;
	PropertiesList1.Select(PropertiesList1);
	PropertiesList1.EndUpdate();
</SCRIPT>

C# for /COM

axPropertiesList1.BeginUpdate();
axPropertiesList1.HotBackColor = Color.FromArgb(0,0,128);
axPropertiesList1.HotForeColor = Color.FromArgb(255,255,255);
axPropertiesList1.Select(axPropertiesList1.GetOcx());
axPropertiesList1.EndUpdate();

X++ (Dynamics Ax 2009)

public void init()
{
	;

	super();

	expropertieslist1.BeginUpdate();
	expropertieslist1.HotBackColor(WinApi::RGB2int(0,0,128));
	expropertieslist1.HotForeColor(WinApi::RGB2int(255,255,255));
	expropertieslist1.Select(expropertieslist1);
	expropertieslist1.EndUpdate();
}

Delphi 8 (.NET only)

with AxPropertiesList1 do
begin
	BeginUpdate();
	HotBackColor := Color.FromArgb(0,0,128);
	HotForeColor := Color.FromArgb(255,255,255);
	Select(AxPropertiesList1);
	EndUpdate();
end

Delphi (standard)

with PropertiesList1 do
begin
	BeginUpdate();
	HotBackColor := RGB(0,0,128);
	HotForeColor := RGB(255,255,255);
	Select(PropertiesList1);
	EndUpdate();
end

VFP

with thisform.PropertiesList1
	.BeginUpdate
	.HotBackColor = RGB(0,0,128)
	.HotForeColor = RGB(255,255,255)
	.Select(thisform.PropertiesList1)
	.EndUpdate
endwith

dBASE Plus

local oPropertiesList

oPropertiesList = form.Activex1.nativeObject
oPropertiesList.BeginUpdate()
oPropertiesList.HotBackColor = 0x800000
oPropertiesList.HotForeColor = 0xffffff
oPropertiesList.Select(oPropertiesList)
oPropertiesList.EndUpdate()

XBasic (Alpha Five)

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
oPropertiesList.HotBackColor = 8388608
oPropertiesList.HotForeColor = 16777215
oPropertiesList.Select(oPropertiesList)
oPropertiesList.EndUpdate()

Visual Objects


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HotBackColor := RGB(0,0,128)
oDCOCX_Exontrol1:HotForeColor := RGB(255,255,255)
oDCOCX_Exontrol1:Select(oDCOCX_Exontrol1)
oDCOCX_Exontrol1:EndUpdate()

PowerBuilder

OleObject oPropertiesList

oPropertiesList = ole_1.Object
oPropertiesList.BeginUpdate()
oPropertiesList.HotBackColor = RGB(0,0,128)
oPropertiesList.HotForeColor = RGB(255,255,255)
oPropertiesList.Select(oPropertiesList)
oPropertiesList.EndUpdate()

Visual DataFlex

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHotBackColor to (RGB(0,0,128))
	Set ComHotForeColor to (RGB(255,255,255))
	Send ComSelect (pvComObject(Self))
	Send ComEndUpdate
End_Procedure

XBase++

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

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

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

	oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
	oPropertiesList:CLSID  := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
	oPropertiesList:create(,, {10,60},{610,370} )

		oPropertiesList:BeginUpdate()
		oPropertiesList:SetProperty("HotBackColor",AutomationTranslateColor( GraMakeRGBColor  ( { 0,0,128 } )  , .F. ))
		oPropertiesList:SetProperty("HotForeColor",AutomationTranslateColor( GraMakeRGBColor  ( { 255,255,255 } )  , .F. ))
		oPropertiesList:Select(oPropertiesList)
		oPropertiesList:EndUpdate()

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