event HandCursorClick (Element as Element, Hit as ShowHandCursorOnEnum, Key as Variant)
The uses clicks a part of the element that shows the had cursor.

TypeDescription
Element as Element An Element object being clicked.
Hit as ShowHandCursorOnEnum A ShowHandCursorOnEnum expression that specifies the part of the element being clicked.
Key as Variant A VARIANT expression that specifies the key associated with the part being clicked. For instance, if the Hit indicates the exShowHandCursorCheck flag, the Key parameter specifies the element's checkbox state. 
The HandCursorClick event notifies once the user clicks a part of the element ( which shows a hand cursor when the pointer hovers it ). The ShowHandCursorOn property specifies the parts of the element that shows the hand cursor when the mouse-pointer hovers the part. The Hit parameter specifies the part of the element being clicked, while the Key parameter specifies a value associated with the part being clicked as listed bellow:

The above flags can be combined with the following flags:

The HandCursorClick event occurs also if an anchor element is clicked so you can handle the AnchorClick event too. You can use the HitTestFromPoint property to determine whether the cursor hovers the expand/collapse glyphs, the element's checkbox, picture and so on.

Syntax for HandCursorClick event, /NET version, on: 

private void HandCursorClick(object sender,exontrol.EXSWIMLANELib.Element Element,exontrol.EXSWIMLANELib.ShowHandCursorOnEnum Hit,object Key)
{
}


Private Sub HandCursorClick(ByVal sender As System.Object,ByVal Element As exontrol.EXSWIMLANELib.Element,ByVal Hit As exontrol.EXSWIMLANELib.ShowHandCursorOnEnum,ByVal Key As Object) Handles HandCursorClick
End Sub

Syntax for HandCursorClick event, /COM version, on: 

private void HandCursorClick(object sender, AxEXSWIMLANELib._ISwimLaneEvents_HandCursorClickEvent e)
{
}


void OnHandCursorClick(LPDISPATCH Element,long Hit,VARIANT Key)
{
}


void __fastcall HandCursorClick(TObject *Sender,Exswimlanelib_tlb::IElement *Element,Exswimlanelib_tlb::ShowHandCursorOnEnum Hit,Variant Key)
{
}


procedure HandCursorClick(ASender: TObject; Element : IElement;Hit : ShowHandCursorOnEnum;Key : OleVariant);
begin
end;


procedure HandCursorClick(sender: System.Object; e: AxEXSWIMLANELib._ISwimLaneEvents_HandCursorClickEvent);
begin
end;


begin event HandCursorClick(oleobject Element,long Hit,any Key)
end event HandCursorClick


Private Sub HandCursorClick(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_HandCursorClickEvent) Handles HandCursorClick
End Sub


Private Sub HandCursorClick(ByVal Element As EXSWIMLANELibCtl.IElement,ByVal Hit As EXSWIMLANELibCtl.ShowHandCursorOnEnum,ByVal Key As Variant)
End Sub


Private Sub HandCursorClick(ByVal Element As Object,ByVal Hit As Long,ByVal Key As Variant)
End Sub


LPARAMETERS Element,Hit,Key



PROCEDURE OnHandCursorClick(oSwimLane,Element,Hit,Key)
RETURN

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

<SCRIPT EVENT="HandCursorClick(Element,Hit,Key)" LANGUAGE="JScript">
</SCRIPT>


<SCRIPT LANGUAGE="VBScript">
Function HandCursorClick(Element,Hit,Key)
End Function
</SCRIPT>


Procedure OnComHandCursorClick Variant llElement OLEShowHandCursorOnEnum llHit Variant llKey
	Forward Send OnComHandCursorClick llElement llHit llKey
End_Procedure


METHOD OCX_HandCursorClick(Element,Hit,Key) CLASS MainDialog
RETURN NIL


void onEvent_HandCursorClick(COM _Element,int _Hit,COMVariant _Key)
{
}


function HandCursorClick as v (Element as OLE::Exontrol.SwimLane.1::IElement,Hit as OLE::Exontrol.SwimLane.1::ShowHandCursorOnEnum,Key as A)
end function


function nativeObject_HandCursorClick(Element,Hit,Key)
return

The following samples shows how you can handle clicking an icon or a picture of the element:

VBA (MS Access, Excell...)

' HandCursorClick event - The uses clicks a part of the element that shows the had cursor.
Private Sub SwimLane1_HandCursorClick(ByVal Element As Object,ByVal Hit As Long,ByVal Key As Variant)
	With SwimLane1
		Debug.Print( Key )
	End With
End Sub

With SwimLane1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	With .Elements.Add("Caption")
		.Pictures = "1,2/pic1/pic2"
		.PicturesAlign = 33
		.ShowHandCursorOn = 771 ' ShowHandCursorOnEnum.exShowHandCursorExtraPictures Or ShowHandCursorOnEnum.exShowHandCursorPictures Or ShowHandCursorOnEnum.exShowHandCursorIcon Or ShowHandCursorOnEnum.exShowHandCursorPicture
		.CaptionAlign = 1
	End With
End With

VB6

' HandCursorClick event - The uses clicks a part of the element that shows the had cursor.
Private Sub SwimLane1_HandCursorClick(ByVal Element As EXSWIMLANELibCtl.IElement,ByVal Hit As EXSWIMLANELibCtl.ShowHandCursorOnEnum,ByVal Key As Variant)
	With SwimLane1
		Debug.Print( Key )
	End With
End Sub

With SwimLane1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	With .Elements.Add("Caption")
		.Pictures = "1,2/pic1/pic2"
		.PicturesAlign = exBottomCenter
		.ShowHandCursorOn = ShowHandCursorOnEnum.exShowHandCursorExtraPictures Or ShowHandCursorOnEnum.exShowHandCursorPictures Or ShowHandCursorOnEnum.exShowHandCursorIcon Or ShowHandCursorOnEnum.exShowHandCursorPicture
		.CaptionAlign = exTopCenter
	End With
End With

VB.NET

' HandCursorClick event - The uses clicks a part of the element that shows the had cursor.
Private Sub Exswimlane1_HandCursorClick(ByVal sender As System.Object,ByVal Element As exontrol.EXSWIMLANELib.Element,ByVal Hit As exontrol.EXSWIMLANELib.ShowHandCursorOnEnum,ByVal Key As Object) Handles Exswimlane1.HandCursorClick
	With Exswimlane1
		Debug.Print( Key )
	End With
End Sub

With Exswimlane1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
	.set_HTMLPicture("pic2","c:\exontrol\images\auction.gif")
	With .Elements.Add("Caption")
		.Pictures = "1,2/pic1/pic2"
		.PicturesAlign = exontrol.EXSWIMLANELib.ContentAlignmentEnum.exBottomCenter
		.ShowHandCursorOn = exontrol.EXSWIMLANELib.ShowHandCursorOnEnum.exShowHandCursorExtraPictures Or exontrol.EXSWIMLANELib.ShowHandCursorOnEnum.exShowHandCursorPictures Or exontrol.EXSWIMLANELib.ShowHandCursorOnEnum.exShowHandCursorIcon Or exontrol.EXSWIMLANELib.ShowHandCursorOnEnum.exShowHandCursorPicture
		.CaptionAlign = exontrol.EXSWIMLANELib.ContentAlignmentEnum.exTopCenter
	End With
End With

VB.NET for /COM

' HandCursorClick event - The uses clicks a part of the element that shows the had cursor.
Private Sub AxSwimLane1_HandCursorClick(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_HandCursorClickEvent) Handles AxSwimLane1.HandCursorClick
	With AxSwimLane1
		Debug.Print( e.key )
	End With
End Sub

With AxSwimLane1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
	.set_HTMLPicture("pic2","c:\exontrol\images\auction.gif")
	With .Elements.Add("Caption")
		.Pictures = "1,2/pic1/pic2"
		.PicturesAlign = EXSWIMLANELib.ContentAlignmentEnum.exBottomCenter
		.ShowHandCursorOn = EXSWIMLANELib.ShowHandCursorOnEnum.exShowHandCursorExtraPictures Or EXSWIMLANELib.ShowHandCursorOnEnum.exShowHandCursorPictures Or EXSWIMLANELib.ShowHandCursorOnEnum.exShowHandCursorIcon Or EXSWIMLANELib.ShowHandCursorOnEnum.exShowHandCursorPicture
		.CaptionAlign = EXSWIMLANELib.ContentAlignmentEnum.exTopCenter
	End With
End With

C++

// HandCursorClick event - The uses clicks a part of the element that shows the had cursor.
void OnHandCursorClickSwimLane1(LPDISPATCH Element,long Hit,VARIANT Key)
{
	/*
		Copy and paste the following directives to your header file as
		it defines the namespace 'EXSWIMLANELib' for the library: 'ExSwimLane 1.0 Control Library'
		#import <ExSwimLane.dll>
		using namespace EXSWIMLANELib;
	*/
	EXSWIMLANELib::ISwimLanePtr spSwimLane1 = GetDlgItem(IDC_SWIMLANE1)->GetControlUnknown();
	OutputDebugStringW( L"Key" );
}

EXSWIMLANELib::ISwimLanePtr spSwimLane1 = GetDlgItem(IDC_SWIMLANE1)->GetControlUnknown();
spSwimLane1->Images(_bstr_t("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0") +
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" +
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" +
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
spSwimLane1->PutHTMLPicture(L"pic1","c:\\exontrol\\images\\zipdisk.gif");
spSwimLane1->PutHTMLPicture(L"pic2","c:\\exontrol\\images\\auction.gif");
EXSWIMLANELib::IElementPtr var_Element = spSwimLane1->GetElements()->Add("Caption",vtMissing,vtMissing,vtMissing,vtMissing,vtMissing);
	var_Element->PutPictures(L"1,2/pic1/pic2");
	var_Element->PutPicturesAlign(EXSWIMLANELib::exBottomCenter);
	var_Element->PutShowHandCursorOn(EXSWIMLANELib::ShowHandCursorOnEnum(EXSWIMLANELib::exShowHandCursorExtraPictures | EXSWIMLANELib::exShowHandCursorPictures | EXSWIMLANELib::exShowHandCursorIcon | EXSWIMLANELib::exShowHandCursorPicture));
	var_Element->PutCaptionAlign(EXSWIMLANELib::exTopCenter);

C++ Builder

// HandCursorClick event - The uses clicks a part of the element that shows the had cursor.
void __fastcall TForm1::SwimLane1HandCursorClick(TObject *Sender,Exswimlanelib_tlb::IElement *Element,Exswimlanelib_tlb::ShowHandCursorOnEnum Hit,Variant Key)
{
	OutputDebugString( L"Key" );
}

SwimLane1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0") +
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" +
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" +
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
SwimLane1->HTMLPicture[L"pic1"] = TVariant("c:\\exontrol\\images\\zipdisk.gif");
SwimLane1->HTMLPicture[L"pic2"] = TVariant("c:\\exontrol\\images\\auction.gif");
Exswimlanelib_tlb::IElementPtr var_Element = SwimLane1->Elements->Add(TVariant("Caption"),TNoParam(),TNoParam(),TNoParam(),TNoParam(),TNoParam());
	var_Element->Pictures = L"1,2/pic1/pic2";
	var_Element->PicturesAlign = Exswimlanelib_tlb::ContentAlignmentEnum::exBottomCenter;
	var_Element->ShowHandCursorOn = Exswimlanelib_tlb::ShowHandCursorOnEnum::exShowHandCursorExtraPictures | Exswimlanelib_tlb::ShowHandCursorOnEnum::exShowHandCursorPictures | Exswimlanelib_tlb::ShowHandCursorOnEnum::exShowHandCursorIcon | Exswimlanelib_tlb::ShowHandCursorOnEnum::exShowHandCursorPicture;
	var_Element->CaptionAlign = Exswimlanelib_tlb::ContentAlignmentEnum::exTopCenter;

C#

// HandCursorClick event - The uses clicks a part of the element that shows the had cursor.
private void exswimlane1_HandCursorClick(object sender,exontrol.EXSWIMLANELib.Element Element,exontrol.EXSWIMLANELib.ShowHandCursorOnEnum Hit,object Key)
{
	System.Diagnostics.Debug.Print( Key.ToString() );
}
//this.exswimlane1.HandCursorClick += new exontrol.EXSWIMLANELib.exg2antt.HandCursorClickEventHandler(this.exswimlane1_HandCursorClick);

exswimlane1.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" +
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" +
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" +
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
exswimlane1.set_HTMLPicture("pic1","c:\\exontrol\\images\\zipdisk.gif");
exswimlane1.set_HTMLPicture("pic2","c:\\exontrol\\images\\auction.gif");
exontrol.EXSWIMLANELib.Element var_Element = exswimlane1.Elements.Add("Caption",null,null,null,null,null);
	var_Element.Pictures = "1,2/pic1/pic2";
	var_Element.PicturesAlign = exontrol.EXSWIMLANELib.ContentAlignmentEnum.exBottomCenter;
	var_Element.ShowHandCursorOn = exontrol.EXSWIMLANELib.ShowHandCursorOnEnum.exShowHandCursorExtraPictures | exontrol.EXSWIMLANELib.ShowHandCursorOnEnum.exShowHandCursorPictures | exontrol.EXSWIMLANELib.ShowHandCursorOnEnum.exShowHandCursorIcon | exontrol.EXSWIMLANELib.ShowHandCursorOnEnum.exShowHandCursorPicture;
	var_Element.CaptionAlign = exontrol.EXSWIMLANELib.ContentAlignmentEnum.exTopCenter;

JavaScript

<SCRIPT FOR="SwimLane1" EVENT="HandCursorClick(Element,Hit,Key)" LANGUAGE="JScript">
	alert( Key );
</SCRIPT>

<OBJECT classid="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
	SwimLane1.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" +
	"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" +
	"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" +
	"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
	SwimLane1.HTMLPicture("pic1") = "c:\\exontrol\\images\\zipdisk.gif";
	SwimLane1.HTMLPicture("pic2") = "c:\\exontrol\\images\\auction.gif";
	var var_Element = SwimLane1.Elements.Add("Caption",null,null,null,null,null);
		var_Element.Pictures = "1,2/pic1/pic2";
		var_Element.PicturesAlign = 33;
		var_Element.ShowHandCursorOn = 771;
		var_Element.CaptionAlign = 1;
</SCRIPT>

C# for /COM

// HandCursorClick event - The uses clicks a part of the element that shows the had cursor.
private void axSwimLane1_HandCursorClick(object sender, AxEXSWIMLANELib._ISwimLaneEvents_HandCursorClickEvent e)
{
	System.Diagnostics.Debug.Print( e.key.ToString() );
}
//this.axSwimLane1.HandCursorClick += new AxEXSWIMLANELib._ISwimLaneEvents_HandCursorClickEventHandler(this.axSwimLane1_HandCursorClick);

axSwimLane1.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" +
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" +
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" +
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
axSwimLane1.set_HTMLPicture("pic1","c:\\exontrol\\images\\zipdisk.gif");
axSwimLane1.set_HTMLPicture("pic2","c:\\exontrol\\images\\auction.gif");
EXSWIMLANELib.Element var_Element = axSwimLane1.Elements.Add("Caption",null,null,null,null,null);
	var_Element.Pictures = "1,2/pic1/pic2";
	var_Element.PicturesAlign = EXSWIMLANELib.ContentAlignmentEnum.exBottomCenter;
	var_Element.ShowHandCursorOn = EXSWIMLANELib.ShowHandCursorOnEnum.exShowHandCursorExtraPictures | EXSWIMLANELib.ShowHandCursorOnEnum.exShowHandCursorPictures | EXSWIMLANELib.ShowHandCursorOnEnum.exShowHandCursorIcon | EXSWIMLANELib.ShowHandCursorOnEnum.exShowHandCursorPicture;
	var_Element.CaptionAlign = EXSWIMLANELib.ContentAlignmentEnum.exTopCenter;

X++ (Dynamics Ax 2009)

// HandCursorClick event - The uses clicks a part of the element that shows the had cursor.
void onEvent_HandCursorClick(COM _Element,int _Hit,COMVariant _Key)
{
	;
	print( _Key );
}

public void init()
{
	COM com_Element;
	anytype var_Element;
	str var_s;
	;

	super();

	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/";
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/";
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx";
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN";
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=";
	exswimlane1.Images(COMVariant::createFromStr(var_s));
	exswimlane1.HTMLPicture("pic1","c:\\exontrol\\images\\zipdisk.gif");
	exswimlane1.HTMLPicture("pic2","c:\\exontrol\\images\\auction.gif");
	var_Element = COM::createFromObject(exswimlane1.Elements()).Add("Caption"); com_Element = var_Element;
		com_Element.Pictures("1,2/pic1/pic2");
		com_Element.PicturesAlign(33/*exBottomCenter*/);
		com_Element.ShowHandCursorOn(771/*exShowHandCursorExtraPictures | exShowHandCursorPictures | exShowHandCursorIcon | exShowHandCursorPicture*/);
		com_Element.CaptionAlign(1/*exTopCenter*/);
}

Delphi 8 (.NET only)

// HandCursorClick event - The uses clicks a part of the element that shows the had cursor.
procedure TWinForm1.AxSwimLane1_HandCursorClick(sender: System.Object; e: AxEXSWIMLANELib._ISwimLaneEvents_HandCursorClickEvent);
begin
	with AxSwimLane1 do
	begin
		OutputDebugString( e.key );
	end
end;

with AxSwimLane1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/' + 
	'oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/' + 
	'wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx' + 
	'3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	set_HTMLPicture('pic1','c:\exontrol\images\zipdisk.gif');
	set_HTMLPicture('pic2','c:\exontrol\images\auction.gif');
	with Elements.Add('Caption',Nil,Nil,Nil,Nil,Nil) do
	begin
		Pictures := '1,2/pic1/pic2';
		PicturesAlign := EXSWIMLANELib.ContentAlignmentEnum.exBottomCenter;
		ShowHandCursorOn := Integer(EXSWIMLANELib.ShowHandCursorOnEnum.exShowHandCursorExtraPictures) Or Integer(EXSWIMLANELib.ShowHandCursorOnEnum.exShowHandCursorPictures) Or Integer(EXSWIMLANELib.ShowHandCursorOnEnum.exShowHandCursorIcon) Or Integer(EXSWIMLANELib.ShowHandCursorOnEnum.exShowHandCursorPicture);
		CaptionAlign := EXSWIMLANELib.ContentAlignmentEnum.exTopCenter;
	end;
end

Delphi (standard)

// HandCursorClick event - The uses clicks a part of the element that shows the had cursor.
procedure TForm1.SwimLane1HandCursorClick(ASender: TObject; Element : IElement;Hit : ShowHandCursorOnEnum;Key : OleVariant);
begin
	with SwimLane1 do
	begin
		OutputDebugString( Key );
	end
end;

with SwimLane1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/' + 
	'oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/' + 
	'wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx' + 
	'3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	HTMLPicture['pic1'] := 'c:\exontrol\images\zipdisk.gif';
	HTMLPicture['pic2'] := 'c:\exontrol\images\auction.gif';
	with Elements.Add('Caption',Null,Null,Null,Null,Null) do
	begin
		Pictures := '1,2/pic1/pic2';
		PicturesAlign := EXSWIMLANELib_TLB.exBottomCenter;
		ShowHandCursorOn := Integer(EXSWIMLANELib_TLB.exShowHandCursorExtraPictures) Or Integer(EXSWIMLANELib_TLB.exShowHandCursorPictures) Or Integer(EXSWIMLANELib_TLB.exShowHandCursorIcon) Or Integer(EXSWIMLANELib_TLB.exShowHandCursorPicture);
		CaptionAlign := EXSWIMLANELib_TLB.exTopCenter;
	end;
end

VFP

*** HandCursorClick event - The uses clicks a part of the element that shows the had cursor. ***
LPARAMETERS Element,Hit,Key
	with thisform.SwimLane1
		DEBUGOUT( Key )
	endwith

with thisform.SwimLane1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.Object.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	with .Elements.Add("Caption")
		.Pictures = "1,2/pic1/pic2"
		.PicturesAlign = 33
		.ShowHandCursorOn = 771 && ShowHandCursorOnEnum.exShowHandCursorExtraPictures Or ShowHandCursorOnEnum.exShowHandCursorPictures Or ShowHandCursorOnEnum.exShowHandCursorIcon Or ShowHandCursorOnEnum.exShowHandCursorPicture
		.CaptionAlign = 1
	endwith
endwith

dBASE Plus

/*
with (this.ACTIVEX1.nativeObject)
	HandCursorClick = class::nativeObject_HandCursorClick
endwith
*/
// The uses clicks a part of the element that shows the had cursor.
function nativeObject_HandCursorClick(Element,Hit,Key)
	local oSwimLane
	oSwimLane = form.Activex1.nativeObject
	? Str(Key) 
return

local oSwimLane,var_Element

oSwimLane = form.Activex1.nativeObject
oSwimLane.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oSwimLane.Template = [HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"] // oSwimLane.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oSwimLane.Template = [HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"] // oSwimLane.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
var_Element = oSwimLane.Elements.Add("Caption")
	var_Element.Pictures = "1,2/pic1/pic2"
	var_Element.PicturesAlign = 33
	var_Element.ShowHandCursorOn = 771 /*exShowHandCursorExtraPictures | exShowHandCursorPictures | exShowHandCursorIcon | exShowHandCursorPicture*/
	var_Element.CaptionAlign = 1

XBasic (Alpha Five)

' The uses clicks a part of the element that shows the had cursor.
function HandCursorClick as v (Element as OLE::Exontrol.SwimLane.1::IElement,Hit as OLE::Exontrol.SwimLane.1::ShowHandCursorOnEnum,Key as A)
	Dim oSwimLane as P
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? Key 
end function

Dim oSwimLane as P
Dim var_Element as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oSwimLane.Template = "HTMLPicture(\"pic1\") = \"c:\exontrol\images\zipdisk.gif\"" ' oSwimLane.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oSwimLane.Template = "HTMLPicture(\"pic2\") = \"c:\exontrol\images\auction.gif\"" ' oSwimLane.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
var_Element = oSwimLane.Elements.Add("Caption")
	var_Element.Pictures = "1,2/pic1/pic2"
	var_Element.PicturesAlign = 33
	var_Element.ShowHandCursorOn = 771 'exShowHandCursorExtraPictures + exShowHandCursorPictures + exShowHandCursorIcon + exShowHandCursorPicture
	var_Element.CaptionAlign = 1

Visual Objects

METHOD OCX_Exontrol1HandCursorClick(Element,Hit,Key) CLASS MainDialog
	// HandCursorClick event - The uses clicks a part of the element that shows the had cursor.
	OutputDebugString(String2Psz( AsString(Key) ))
RETURN NIL

local var_Element as IElement

oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:[HTMLPicture,"pic1"] := "c:\exontrol\images\zipdisk.gif"
oDCOCX_Exontrol1:[HTMLPicture,"pic2"] := "c:\exontrol\images\auction.gif"
var_Element := oDCOCX_Exontrol1:Elements:Add("Caption",nil,nil,nil,nil,nil)
	var_Element:Pictures := "1,2/pic1/pic2"
	var_Element:PicturesAlign := exBottomCenter
	var_Element:ShowHandCursorOn := exShowHandCursorExtraPictures | exShowHandCursorPictures | exShowHandCursorIcon | exShowHandCursorPicture
	var_Element:CaptionAlign := exTopCenter

PowerBuilder

/*begin event HandCursorClick(oleobject Element,long Hit,any Key) - The uses clicks a part of the element that shows the had cursor.*/
/*
	OleObject oSwimLane
	oSwimLane = ole_1.Object
	MessageBox("Information",string( String(Key) ))
*/
/*end event HandCursorClick*/

OleObject oSwimLane,var_Element

oSwimLane = ole_1.Object
oSwimLane.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oSwimLane.HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
oSwimLane.HTMLPicture("pic2","c:\exontrol\images\auction.gif")
var_Element = oSwimLane.Elements.Add("Caption")
	var_Element.Pictures = "1,2/pic1/pic2"
	var_Element.PicturesAlign = 33
	var_Element.ShowHandCursorOn = 771 /*exShowHandCursorExtraPictures | exShowHandCursorPictures | exShowHandCursorIcon | exShowHandCursorPicture*/
	var_Element.CaptionAlign = 1

Visual DataFlex

// The uses clicks a part of the element that shows the had cursor.
Procedure OnComHandCursorClick Variant llElement OLEShowHandCursorOnEnum llHit Variant llKey
	Forward Send OnComHandCursorClick llElement llHit llKey
	Showln llKey
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Set ComHTMLPicture "pic2" to "c:\exontrol\images\auction.gif"
	Variant voElements
	Get ComElements to voElements
	Handle hoElements
	Get Create (RefClass(cComElements)) to hoElements
	Set pvComObject of hoElements to voElements
		Variant voElement
		Get ComAdd of hoElements "Caption" Nothing Nothing Nothing Nothing Nothing to voElement
		Handle hoElement
		Get Create (RefClass(cComElement)) to hoElement
		Set pvComObject of hoElement to voElement
			Set ComPictures of hoElement to "1,2/pic1/pic2"
			Set ComPicturesAlign of hoElement to OLEexBottomCenter
			Set ComShowHandCursorOn of hoElement to (OLEexShowHandCursorExtraPictures + OLEexShowHandCursorPictures + OLEexShowHandCursorIcon + OLEexShowHandCursorPicture)
			Set ComCaptionAlign of hoElement to OLEexTopCenter
		Send Destroy to hoElement
	Send Destroy to hoElements
End_Procedure

XBase++

PROCEDURE OnHandCursorClick(oSwimLane,Element,Hit,Key)
	DevOut( Transform(Key,"") )
RETURN

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

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

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

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:HandCursorClick := {|Element,Hit,Key| OnHandCursorClick(oSwimLane,Element,Hit,Key)} /*The uses clicks a part of the element that shows the had cursor.*/

		oSwimLane:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oSwimLane:SetProperty("HTMLPicture","pic1","c:\exontrol\images\zipdisk.gif")
		oSwimLane:SetProperty("HTMLPicture","pic2","c:\exontrol\images\auction.gif")
		oElement := oSwimLane:Elements():Add("Caption")
			oElement:Pictures := "1,2/pic1/pic2"
			oElement:PicturesAlign := 33/*exBottomCenter*/
			oElement:ShowHandCursorOn := 771/*exShowHandCursorExtraPictures+exShowHandCursorPictures+exShowHandCursorIcon+exShowHandCursorPicture*/
			oElement:CaptionAlign := 1/*exTopCenter*/

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