event HighLightItem (OldItem as Item, NewItem as Item)
Occurs when an item is highlighted.

TypeDescription
OldItem as Item An Item object that's  un-highlighted.
NewItem as Item An Item object that's highlighted.

Use the HighLightItem event to notify your application that an item is highlighted. The HighLightItem event occurs when cursor hovers the item. The HighlightItemType property specifies the way how the control marks the highlighted item. Use the ForeColor property to specify the item's foreground color.

Syntax for HighLightItem event, /NET version, on:

private void HighLightItem(object sender,exontrol.EXLISTBARLib.Item OldItem,exontrol.EXLISTBARLib.Item NewItem)
{
}

Private Sub HighLightItem(ByVal sender As System.Object,ByVal OldItem As exontrol.EXLISTBARLib.Item,ByVal NewItem As exontrol.EXLISTBARLib.Item) Handles HighLightItem
End Sub

Syntax for HighLightItem event, /COM version, on:

private void HighLightItem(object sender, AxEXLISTBARLib._IListBarEvents_HighLightItemEvent e)
{
}

void OnHighLightItem(LPDISPATCH OldItem,LPDISPATCH NewItem)
{
}

void __fastcall HighLightItem(TObject *Sender,Exlistbarlib_tlb::IItem *OldItem,Exlistbarlib_tlb::IItem *NewItem)
{
}

procedure HighLightItem(ASender: TObject; OldItem : IItem;NewItem : IItem);
begin
end;

procedure HighLightItem(sender: System.Object; e: AxEXLISTBARLib._IListBarEvents_HighLightItemEvent);
begin
end;

begin event HighLightItem(oleobject OldItem,oleobject NewItem)
end event HighLightItem

Private Sub HighLightItem(ByVal sender As System.Object, ByVal e As AxEXLISTBARLib._IListBarEvents_HighLightItemEvent) Handles HighLightItem
End Sub

Private Sub HighLightItem(ByVal OldItem As EXLISTBARLibCtl.IItem,ByVal NewItem As EXLISTBARLibCtl.IItem)
End Sub

Private Sub HighLightItem(ByVal OldItem As Object,ByVal NewItem As Object)
End Sub

LPARAMETERS OldItem,NewItem

PROCEDURE OnHighLightItem(oListBar,OldItem,NewItem)
RETURN

Syntax for HighLightItem event, /COM version (others), on:

<SCRIPT EVENT="HighLightItem(OldItem,NewItem)" LANGUAGE="JScript">
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function HighLightItem(OldItem,NewItem)
End Function
</SCRIPT>

Procedure OnComHighLightItem Variant llOldItem Variant llNewItem
	Forward Send OnComHighLightItem llOldItem llNewItem
End_Procedure

METHOD OCX_HighLightItem(OldItem,NewItem) CLASS MainDialog
RETURN NIL

void onEvent_HighLightItem(COM _OldItem,COM _NewItem)
{
}

function HighLightItem as v (OldItem as OLE::Exontrol.ListBar.1::IItem,NewItem as OLE::Exontrol.ListBar.1::IItem)
end function

function nativeObject_HighLightItem(OldItem,NewItem)
return

The following VB sample bolds the highlighted item:

Private Sub ListBar1_HighLightItem(ByVal OldItem As EXLISTBARLibCtl.IItem, ByVal NewItem As EXLISTBARLibCtl.IItem)
    If Not OldItem Is Nothing Then
        OldItem.Bold = False
    End If
    If Not NewItem Is Nothing Then
        NewItem.Bold = True
    End If
End Sub

The following C++ sample bolds the highlighted item:

void OnHighLightItemListbar1(LPDISPATCH OldItem, LPDISPATCH NewItem) 
{
	CItem oldItem( OldItem ); oldItem.m_bAutoRelease = FALSE;
	CItem newItem( NewItem ); newItem.m_bAutoRelease = FALSE;
	if ( oldItem.m_lpDispatch != NULL )
		oldItem.SetBold( FALSE );
	if ( newItem.m_lpDispatch != NULL )
		newItem.SetBold( TRUE );
}

The following VB.NET sample bolds the highlighted item:

Private Sub AxListBar1_HighLightItem(ByVal sender As Object, ByVal e As AxEXLISTBARLib._IListBarEvents_HighLightItemEvent) Handles AxListBar1.HighLightItem
    If Not e.oldItem Is Nothing Then
        e.oldItem.Bold = False
    End If
    If Not e.newItem Is Nothing Then
        e.newItem.Bold = True
    End If
End Sub

The following C# sample bolds the highlighted item:

private void axListBar1_HighLightItem(object sender, AxEXLISTBARLib._IListBarEvents_HighLightItemEvent e)
{
	if (e.oldItem != null)
		e.oldItem.Bold = false;
	if (e.newItem != null)
		e.newItem.Bold = true;
}

The following VFP sample bolds the highlighted item:

*** ActiveX Control Event ***
LPARAMETERS olditem, newitem

If !isnull(OldItem)
    OldItem.Bold = .f.
EndIf
If !isnull(NewItem)
    NewItem.Bold = .t.
EndIf