Type | Description | |||
Color | A color expression that indicates the background color for item from the cursor ( hovering the item ). 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. |
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