event PictureClick (Key as String)
Occurs when the user clicks a picture within an event ( Event.Pictures/ExtraPictures ).

TypeDescription
Key as String A String expression that specifies the picture being clicked. The Key parameter indicates the Key being used when Pictures.Add method has been called.
The PictureClick event is fired once the user clicks a picture inside an event. Use the Add method of the ExPictures collection to add new images to the control. Use the Images method to add a list of icons to be used in the control. The Pictures or ExtraPictures property of the Event object indicates the list of pictures to be displayed in the Event object. The Pictures or ExtraPictures property may display a single or multiple pictures on different levels, using separators like , multiple elements in the same line, or / for a new line/level. You can use the ShowHandCursor property to specify whether the hand cursor is shown when the cursor hovers the picture. Also, you can display the images/icons on the LongLabel/ExtraLabel using the <img> HTML tag that can be include to a <a> HTML tag, like <a pic1><img>pic1</img></a>. You can use the AnchorClick event to get notified once an anchor <a> element is clicked. A picture or icon is being displayed only, if the LongLabel/ExtraLabel properties are being displayed, else the ShortLabel is displayed, but it can not display HTML tags. In other words, if the event's body can not display the picture as being too large, you can use the Width/Height property of the ExPicture to adjust the size of the displaying picture. 

The PictureFromPoint property indicates the key of the picture from the cursor or empty string if no picture has been found. The EventFromPoint property may be used to get the Event object from the cursor.

Syntax for PictureClick event, /NET version, on: 

private void PictureClick(object sender,string Key)
{
}


Private Sub PictureClick(ByVal sender As System.Object,ByVal Key As String) Handles PictureClick
End Sub

Syntax for PictureClick event, /COM version, on: 

private void PictureClick(object sender, AxEXSCHEDULELib._IScheduleEvents_PictureClickEvent e)
{
}


void OnPictureClick(LPCTSTR Key)
{
}


void __fastcall PictureClick(TObject *Sender,BSTR Key)
{
}


procedure PictureClick(ASender: TObject; Key : WideString);
begin
end;


procedure PictureClick(sender: System.Object; e: AxEXSCHEDULELib._IScheduleEvents_PictureClickEvent);
begin
end;


begin event PictureClick(string Key)
end event PictureClick


Private Sub PictureClick(ByVal sender As System.Object, ByVal e As AxEXSCHEDULELib._IScheduleEvents_PictureClickEvent) Handles PictureClick
End Sub


Private Sub PictureClick(ByVal Key As String)
End Sub


Private Sub PictureClick(ByVal Key As String)
End Sub


LPARAMETERS Key



PROCEDURE OnPictureClick(oSchedule,Key)
RETURN

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

<SCRIPT EVENT="PictureClick(Key)" LANGUAGE="JScript">
</SCRIPT>


<SCRIPT LANGUAGE="VBScript">
Function PictureClick(Key)
End Function
</SCRIPT>


Procedure OnComPictureClick String llKey
	Forward Send OnComPictureClick llKey
End_Procedure


METHOD OCX_PictureClick(Key) CLASS MainDialog
RETURN NIL


void onEvent_PictureClick(str _Key)
{
}


function PictureClick as v (Key as C)
end function


function nativeObject_PictureClick(Key)
return

The following samples displays a message once a picture is clicked:

VBA (MS Access, Excell...)

' PictureClick event - Occurs when the user clicks a picture within an event ( Event.Pictures/ExtraPictures ).
Private Sub Schedule1_PictureClick(ByVal Key As String)
	With Schedule1
		Debug.Print( Key )
	End With
End Sub

With Schedule1
	.BeginUpdate 
	.OnResizeControl = 3073
	.Calendar.Selection = #5/24/2012#
	With .Pictures
		With .Add("pic1","c:\exontrol\images\card.png")
			.Width = 48
			.Height = 48
		End With
		With .Add("pic2","c:\exontrol\images\diary.png")
			.Width = 48
			.Height = 48
		End With
	End With
	With .Events
		.Add(#5/24/2012 8:45:00 AM#,#5/24/2012 2:30:00 PM#).Pictures = "pic1"
		With .Add(#5/24/2012 9:45:00 AM#,#5/24/2012 3:45:00 PM#)
			.ExtraPictures = "pic1,pic2"
			.ExtraPicturesAlign = 34
		End With
	End With
	.EndUpdate 
End With

VB6

' PictureClick event - Occurs when the user clicks a picture within an event ( Event.Pictures/ExtraPictures ).
Private Sub Schedule1_PictureClick(ByVal Key As String)
	With Schedule1
		Debug.Print( Key )
	End With
End Sub

With Schedule1
	.BeginUpdate 
	.OnResizeControl = OnResizeControlEnum.exResizePanelRight Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exCalendarAutoHide
	.Calendar.Selection = #5/24/2012#
	With .Pictures
		With .Add("pic1","c:\exontrol\images\card.png")
			.Width = 48
			.Height = 48
		End With
		With .Add("pic2","c:\exontrol\images\diary.png")
			.Width = 48
			.Height = 48
		End With
	End With
	With .Events
		.Add(#5/24/2012 8:45:00 AM#,#5/24/2012 2:30:00 PM#).Pictures = "pic1"
		With .Add(#5/24/2012 9:45:00 AM#,#5/24/2012 3:45:00 PM#)
			.ExtraPictures = "pic1,pic2"
			.ExtraPicturesAlign = exBottomRight
		End With
	End With
	.EndUpdate 
End With

VB.NET

' PictureClick event - Occurs when the user clicks a picture within an event ( Event.Pictures/ExtraPictures ).
Private Sub Exschedule1_PictureClick(ByVal sender As System.Object,ByVal Key As String) Handles Exschedule1.PictureClick
	With Exschedule1
		Debug.Print( Key )
	End With
End Sub

With Exschedule1
	.BeginUpdate()
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarFit Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide
	.Calendar.Selection = #5/24/2012#
	With .Pictures
		With .Add("pic1","c:\exontrol\images\card.png")
			.Width = 48
			.Height = 48
		End With
		With .Add("pic2","c:\exontrol\images\diary.png")
			.Width = 48
			.Height = 48
		End With
	End With
	With .Events
		.Add(#5/24/2012 8:45:00 AM#,#5/24/2012 2:30:00 PM#).Pictures = "pic1"
		With .Add(#5/24/2012 9:45:00 AM#,#5/24/2012 3:45:00 PM#)
			.ExtraPictures = "pic1,pic2"
			.ExtraPicturesAlign = exontrol.EXSCHEDULELib.ContentAlignmentEnum.exBottomRight
		End With
	End With
	.EndUpdate()
End With

VB.NET for /COM

' PictureClick event - Occurs when the user clicks a picture within an event ( Event.Pictures/ExtraPictures ).
Private Sub AxSchedule1_PictureClick(ByVal sender As System.Object, ByVal e As AxEXSCHEDULELib._IScheduleEvents_PictureClickEvent) Handles AxSchedule1.PictureClick
	With AxSchedule1
		Debug.Print( e.key )
	End With
End Sub

With AxSchedule1
	.BeginUpdate()
	.OnResizeControl = EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight Or EXSCHEDULELib.OnResizeControlEnum.exCalendarFit Or EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide
	.Calendar.Selection = #5/24/2012#
	With .Pictures
		With .Add("pic1","c:\exontrol\images\card.png")
			.Width = 48
			.Height = 48
		End With
		With .Add("pic2","c:\exontrol\images\diary.png")
			.Width = 48
			.Height = 48
		End With
	End With
	With .Events
		.Add(#5/24/2012 8:45:00 AM#,#5/24/2012 2:30:00 PM#).Pictures = "pic1"
		With .Add(#5/24/2012 9:45:00 AM#,#5/24/2012 3:45:00 PM#)
			.ExtraPictures = "pic1,pic2"
			.ExtraPicturesAlign = EXSCHEDULELib.ContentAlignmentEnum.exBottomRight
		End With
	End With
	.EndUpdate()
End With

C++

// PictureClick event - Occurs when the user clicks a picture within an event ( Event.Pictures/ExtraPictures ).
void OnPictureClickSchedule1(LPCTSTR Key)
{
	/*
		Copy and paste the following directives to your header file as
		it defines the namespace 'EXSCHEDULELib' for the library: 'ExSchedule 1.0 Control Library'
		#import <ExSchedule.dll>
		using namespace EXSCHEDULELib;
	*/
	EXSCHEDULELib::ISchedulePtr spSchedule1 = GetDlgItem(IDC_SCHEDULE1)->GetControlUnknown();
	OutputDebugStringW( L"Key" );
}

EXSCHEDULELib::ISchedulePtr spSchedule1 = GetDlgItem(IDC_SCHEDULE1)->GetControlUnknown();
spSchedule1->BeginUpdate();
spSchedule1->PutOnResizeControl(EXSCHEDULELib::OnResizeControlEnum(EXSCHEDULELib::exResizePanelRight | EXSCHEDULELib::exCalendarFit | EXSCHEDULELib::exCalendarAutoHide));
spSchedule1->GetCalendar()->PutSelection("5/24/2012");
EXSCHEDULELib::IExPicturesPtr var_ExPictures = spSchedule1->GetPictures();
	EXSCHEDULELib::IExPicturePtr var_ExPicture = var_ExPictures->Add(L"pic1","c:\\exontrol\\images\\card.png");
		var_ExPicture->PutWidth(48);
		var_ExPicture->PutHeight(48);
	EXSCHEDULELib::IExPicturePtr var_ExPicture1 = var_ExPictures->Add(L"pic2","c:\\exontrol\\images\\diary.png");
		var_ExPicture1->PutWidth(48);
		var_ExPicture1->PutHeight(48);
EXSCHEDULELib::IEventsPtr var_Events = spSchedule1->GetEvents();
	var_Events->Add("5/24/2012 8:45:00 AM","5/24/2012 2:30:00 PM")->PutPictures(L"pic1");
	EXSCHEDULELib::IEventPtr var_Event = var_Events->Add("5/24/2012 9:45:00 AM","5/24/2012 3:45:00 PM");
		var_Event->PutExtraPictures(L"pic1,pic2");
		var_Event->PutExtraPicturesAlign(EXSCHEDULELib::exBottomRight);
spSchedule1->EndUpdate();

C++ Builder

// PictureClick event - Occurs when the user clicks a picture within an event ( Event.Pictures/ExtraPictures ).
void __fastcall TForm1::Schedule1PictureClick(TObject *Sender,BSTR Key)
{
	OutputDebugString( L"Key" );
}

Schedule1->BeginUpdate();
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exResizePanelRight | Exschedulelib_tlb::OnResizeControlEnum::exCalendarFit | Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,5,24).operator double()));
Exschedulelib_tlb::IExPicturesPtr var_ExPictures = Schedule1->Pictures;
	Exschedulelib_tlb::IExPicturePtr var_ExPicture = var_ExPictures->Add(L"pic1",TVariant("c:\\exontrol\\images\\card.png"));
		var_ExPicture->Width = 48;
		var_ExPicture->Height = 48;
	Exschedulelib_tlb::IExPicturePtr var_ExPicture1 = var_ExPictures->Add(L"pic2",TVariant("c:\\exontrol\\images\\diary.png"));
		var_ExPicture1->Width = 48;
		var_ExPicture1->Height = 48;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
	var_Events->Add(TVariant(TDateTime(2012,5,24,8,45,00,0).operator double()),TVariant(TDateTime(2012,5,24,14,30,00,0).operator double()))->Pictures = L"pic1";
	Exschedulelib_tlb::IEventPtr var_Event = var_Events->Add(TVariant(TDateTime(2012,5,24,9,45,00,0).operator double()),TVariant(TDateTime(2012,5,24,15,45,00,0).operator double()));
		var_Event->ExtraPictures = L"pic1,pic2";
		var_Event->ExtraPicturesAlign = Exschedulelib_tlb::ContentAlignmentEnum::exBottomRight;
Schedule1->EndUpdate();

C#

// PictureClick event - Occurs when the user clicks a picture within an event ( Event.Pictures/ExtraPictures ).
private void exschedule1_PictureClick(object sender,string Key)
{
	System.Diagnostics.Debug.Print( Key.ToString() );
}
//this.exschedule1.PictureClick += new exontrol.EXSCHEDULELib.exg2antt.PictureClickEventHandler(this.exschedule1_PictureClick);

exschedule1.BeginUpdate();
exschedule1.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight | exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarFit | exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide;
exschedule1.Calendar.Selection = Convert.ToDateTime("5/24/2012",System.Globalization.CultureInfo.GetCultureInfo("en-US"));
exontrol.EXSCHEDULELib.ExPictures var_ExPictures = exschedule1.Pictures;
	exontrol.EXSCHEDULELib.ExPicture var_ExPicture = var_ExPictures.Add("pic1","c:\\exontrol\\images\\card.png");
		var_ExPicture.Width = 48;
		var_ExPicture.Height = 48;
	exontrol.EXSCHEDULELib.ExPicture var_ExPicture1 = var_ExPictures.Add("pic2","c:\\exontrol\\images\\diary.png");
		var_ExPicture1.Width = 48;
		var_ExPicture1.Height = 48;
exontrol.EXSCHEDULELib.Events var_Events = exschedule1.Events;
	var_Events.Add(Convert.ToDateTime("5/24/2012 8:45:00 AM",System.Globalization.CultureInfo.GetCultureInfo("en-US")),Convert.ToDateTime("5/24/2012 2:30:00 PM",System.Globalization.CultureInfo.GetCultureInfo("en-US"))).Pictures = "pic1";
	exontrol.EXSCHEDULELib.Event var_Event = var_Events.Add(Convert.ToDateTime("5/24/2012 9:45:00 AM",System.Globalization.CultureInfo.GetCultureInfo("en-US")),Convert.ToDateTime("5/24/2012 3:45:00 PM",System.Globalization.CultureInfo.GetCultureInfo("en-US")));
		var_Event.ExtraPictures = "pic1,pic2";
		var_Event.ExtraPicturesAlign = exontrol.EXSCHEDULELib.ContentAlignmentEnum.exBottomRight;
exschedule1.EndUpdate();

JavaScript

<SCRIPT FOR="Schedule1" EVENT="PictureClick(Key)" LANGUAGE="JScript">
	alert( Key );
</SCRIPT>

<OBJECT classid="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
	Schedule1.BeginUpdate();
	Schedule1.OnResizeControl = 3073;
	Schedule1.Calendar.Selection = "5/24/2012";
	var var_ExPictures = Schedule1.Pictures;
		var var_ExPicture = var_ExPictures.Add("pic1","c:\\exontrol\\images\\card.png");
			var_ExPicture.Width = 48;
			var_ExPicture.Height = 48;
		var var_ExPicture1 = var_ExPictures.Add("pic2","c:\\exontrol\\images\\diary.png");
			var_ExPicture1.Width = 48;
			var_ExPicture1.Height = 48;
	var var_Events = Schedule1.Events;
		var_Events.Add("5/24/2012 8:45:00 AM","5/24/2012 2:30:00 PM").Pictures = "pic1";
		var var_Event = var_Events.Add("5/24/2012 9:45:00 AM","5/24/2012 3:45:00 PM");
			var_Event.ExtraPictures = "pic1,pic2";
			var_Event.ExtraPicturesAlign = 34;
	Schedule1.EndUpdate();
</SCRIPT>

C# for /COM

// PictureClick event - Occurs when the user clicks a picture within an event ( Event.Pictures/ExtraPictures ).
private void axSchedule1_PictureClick(object sender, AxEXSCHEDULELib._IScheduleEvents_PictureClickEvent e)
{
	System.Diagnostics.Debug.Print( e.key.ToString() );
}
//this.axSchedule1.PictureClick += new AxEXSCHEDULELib._IScheduleEvents_PictureClickEventHandler(this.axSchedule1_PictureClick);

axSchedule1.BeginUpdate();
axSchedule1.OnResizeControl = EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight | EXSCHEDULELib.OnResizeControlEnum.exCalendarFit | EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide;
axSchedule1.Calendar.Selection = Convert.ToDateTime("5/24/2012",System.Globalization.CultureInfo.GetCultureInfo("en-US"));
EXSCHEDULELib.ExPictures var_ExPictures = axSchedule1.Pictures;
	EXSCHEDULELib.ExPicture var_ExPicture = var_ExPictures.Add("pic1","c:\\exontrol\\images\\card.png");
		var_ExPicture.Width = 48;
		var_ExPicture.Height = 48;
	EXSCHEDULELib.ExPicture var_ExPicture1 = var_ExPictures.Add("pic2","c:\\exontrol\\images\\diary.png");
		var_ExPicture1.Width = 48;
		var_ExPicture1.Height = 48;
EXSCHEDULELib.Events var_Events = axSchedule1.Events;
	var_Events.Add(Convert.ToDateTime("5/24/2012 8:45:00 AM",System.Globalization.CultureInfo.GetCultureInfo("en-US")),Convert.ToDateTime("5/24/2012 2:30:00 PM",System.Globalization.CultureInfo.GetCultureInfo("en-US"))).Pictures = "pic1";
	EXSCHEDULELib.Event var_Event = var_Events.Add(Convert.ToDateTime("5/24/2012 9:45:00 AM",System.Globalization.CultureInfo.GetCultureInfo("en-US")),Convert.ToDateTime("5/24/2012 3:45:00 PM",System.Globalization.CultureInfo.GetCultureInfo("en-US")));
		var_Event.ExtraPictures = "pic1,pic2";
		var_Event.ExtraPicturesAlign = EXSCHEDULELib.ContentAlignmentEnum.exBottomRight;
axSchedule1.EndUpdate();

X++ (Dynamics Ax 2009)

// PictureClick event - Occurs when the user clicks a picture within an event ( Event.Pictures/ExtraPictures ).
void onEvent_PictureClick(str _Key)
{
	;
	print( _Key );
}

public void init()
{
	COM com_Event,com_Events,com_ExPicture,com_ExPicture1,com_ExPictures;
	anytype var_Event,var_Events,var_ExPicture,var_ExPicture1,var_ExPictures;
	;

	super();

	exschedule1.BeginUpdate();
	exschedule1.OnResizeControl(3073/*exResizePanelRight | exCalendarFit | exCalendarAutoHide*/);
	exschedule1.Calendar().Selection(COMVariant::createFromDate(str2Date("5/24/2012",213)));
	var_ExPictures = exschedule1.Pictures(); com_ExPictures = var_ExPictures;
		var_ExPicture = com_ExPictures.Add("pic1","c:\\exontrol\\images\\card.png"); com_ExPicture = var_ExPicture;
			com_ExPicture.Width(48);
			com_ExPicture.Height(48);
		var_ExPicture1 = com_ExPictures.Add("pic2","c:\\exontrol\\images\\diary.png"); com_ExPicture1 = var_ExPicture1;
			com_ExPicture1.Width(48);
			com_ExPicture1.Height(48);
	var_Events = exschedule1.Events(); com_Events = var_Events;
		var_Event = COM::createFromObject(com_Events.Add(COMVariant::createFromUtcDateTime(str2Datetime("5/24/2012 8:45:00",213)),COMVariant::createFromUtcDateTime(str2Datetime("5/24/2012 14:30:00",213)))); com_Event = var_Event;
		com_Event.Pictures("pic1");
		var_Event = com_Events.Add(COMVariant::createFromUtcDateTime(str2Datetime("5/24/2012 9:45:00",213)),COMVariant::createFromUtcDateTime(str2Datetime("5/24/2012 15:45:00",213))); com_Event = var_Event;
			com_Event.ExtraPictures("pic1,pic2");
			com_Event.ExtraPicturesAlign(34/*exBottomRight*/);
	exschedule1.EndUpdate();
}

Delphi 8 (.NET only)

// PictureClick event - Occurs when the user clicks a picture within an event ( Event.Pictures/ExtraPictures ).
procedure TWinForm1.AxSchedule1_PictureClick(sender: System.Object; e: AxEXSCHEDULELib._IScheduleEvents_PictureClickEvent);
begin
	with AxSchedule1 do
	begin
		OutputDebugString( e.key );
	end
end;

with AxSchedule1 do
begin
	BeginUpdate();
	OnResizeControl := Integer(EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight) Or Integer(EXSCHEDULELib.OnResizeControlEnum.exCalendarFit) Or Integer(EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide);
	Calendar.Selection := '5/24/2012';
	with Pictures do
	begin
		with Add('pic1','c:\exontrol\images\card.png') do
		begin
			Width := 48;
			Height := 48;
		end;
		with Add('pic2','c:\exontrol\images\diary.png') do
		begin
			Width := 48;
			Height := 48;
		end;
	end;
	with Events do
	begin
		Add('5/24/2012 8:45:00 AM','5/24/2012 2:30:00 PM').Pictures := 'pic1';
		with Add('5/24/2012 9:45:00 AM','5/24/2012 3:45:00 PM') do
		begin
			ExtraPictures := 'pic1,pic2';
			ExtraPicturesAlign := EXSCHEDULELib.ContentAlignmentEnum.exBottomRight;
		end;
	end;
	EndUpdate();
end

Delphi (standard)

// PictureClick event - Occurs when the user clicks a picture within an event ( Event.Pictures/ExtraPictures ).
procedure TForm1.Schedule1PictureClick(ASender: TObject; Key : WideString);
begin
	with Schedule1 do
	begin
		OutputDebugString( Key );
	end
end;

with Schedule1 do
begin
	BeginUpdate();
	OnResizeControl := Integer(EXSCHEDULELib_TLB.exResizePanelRight) Or Integer(EXSCHEDULELib_TLB.exCalendarFit) Or Integer(EXSCHEDULELib_TLB.exCalendarAutoHide);
	Calendar.Selection := '5/24/2012';
	with Pictures do
	begin
		with Add('pic1','c:\exontrol\images\card.png') do
		begin
			Width := 48;
			Height := 48;
		end;
		with Add('pic2','c:\exontrol\images\diary.png') do
		begin
			Width := 48;
			Height := 48;
		end;
	end;
	with Events do
	begin
		Add('5/24/2012 8:45:00 AM','5/24/2012 2:30:00 PM').Pictures := 'pic1';
		with Add('5/24/2012 9:45:00 AM','5/24/2012 3:45:00 PM') do
		begin
			ExtraPictures := 'pic1,pic2';
			ExtraPicturesAlign := EXSCHEDULELib_TLB.exBottomRight;
		end;
	end;
	EndUpdate();
end

VFP

*** PictureClick event - Occurs when the user clicks a picture within an event ( Event.Pictures/ExtraPictures ). ***
LPARAMETERS Key
	with thisform.Schedule1
		DEBUGOUT( Key )
	endwith

with thisform.Schedule1
	.BeginUpdate
	.OnResizeControl = 3073
	.Calendar.Selection = {^2012-5-24}
	with .Pictures
		with .Add("pic1","c:\exontrol\images\card.png")
			.Width = 48
			.Height = 48
		endwith
		with .Add("pic2","c:\exontrol\images\diary.png")
			.Width = 48
			.Height = 48
		endwith
	endwith
	with .Events
		.Add({^2012-5-24 8:45:00},{^2012-5-24 14:30:00}).Pictures = "pic1"
		with .Add({^2012-5-24 9:45:00},{^2012-5-24 15:45:00})
			.ExtraPictures = "pic1,pic2"
			.ExtraPicturesAlign = 34
		endwith
	endwith
	.EndUpdate
endwith

dBASE Plus

/*
with (this.ACTIVEX1.nativeObject)
	PictureClick = class::nativeObject_PictureClick
endwith
*/
// Occurs when the user clicks a picture within an event ( Event.Pictures/ExtraPictures ).
function nativeObject_PictureClick(Key)
	local oSchedule
	oSchedule = form.Activex1.nativeObject
	? Str(Key) 
return

local oSchedule,var_Event,var_Event1,var_Events,var_ExPicture,var_ExPicture1,var_ExPictures

oSchedule = form.Activex1.nativeObject
oSchedule.BeginUpdate()
oSchedule.OnResizeControl = 3073 /*exResizePanelRight | exCalendarFit | exCalendarAutoHide*/
oSchedule.Calendar.Selection = "05/24/2012"
var_ExPictures = oSchedule.Pictures
	var_ExPicture = var_ExPictures.Add("pic1","c:\exontrol\images\card.png")
		var_ExPicture.Width = 48
		var_ExPicture.Height = 48
	var_ExPicture1 = var_ExPictures.Add("pic2","c:\exontrol\images\diary.png")
		var_ExPicture1.Width = 48
		var_ExPicture1.Height = 48
var_Events = oSchedule.Events
	// var_Events.Add("05/24/2012 08:45:00","05/24/2012 14:30:00").Pictures = "pic1"
	var_Event = var_Events.Add("05/24/2012 08:45:00","05/24/2012 14:30:00")
	with (oSchedule)
		TemplateDef = [Dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.Pictures = "pic1"]
	endwith
	var_Event1 = var_Events.Add("05/24/2012 09:45:00","05/24/2012 15:45:00")
		var_Event1.ExtraPictures = "pic1,pic2"
		var_Event1.ExtraPicturesAlign = 34
oSchedule.EndUpdate()

XBasic (Alpha Five)

' Occurs when the user clicks a picture within an event ( Event.Pictures/ExtraPictures ).
function PictureClick as v (Key as C)
	Dim oSchedule as P
	oSchedule = topparent:CONTROL_ACTIVEX1.activex
	? Key 
end function

Dim oSchedule as P
Dim var_Event as P
Dim var_Event1 as P
Dim var_Events as P
Dim var_ExPicture as P
Dim var_ExPicture1 as P
Dim var_ExPictures as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
oSchedule.OnResizeControl = 3073 'exResizePanelRight + exCalendarFit + exCalendarAutoHide
oSchedule.Calendar.Selection = {05/24/2012}
var_ExPictures = oSchedule.Pictures
	var_ExPicture = var_ExPictures.Add("pic1","c:\exontrol\images\card.png")
		var_ExPicture.Width = 48
		var_ExPicture.Height = 48
	var_ExPicture1 = var_ExPictures.Add("pic2","c:\exontrol\images\diary.png")
		var_ExPicture1.Width = 48
		var_ExPicture1.Height = 48
var_Events = oSchedule.Events
	' var_Events.Add({05/24/2012 08:45:00},{05/24/2012 14:30:00}).Pictures = "pic1"
	var_Event = var_Events.Add({05/24/2012 08:45:00},{05/24/2012 14:30:00})
	oSchedule.TemplateDef = "Dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.Pictures = \"pic1\""

	var_Event1 = var_Events.Add({05/24/2012 09:45:00},{05/24/2012 15:45:00})
		var_Event1.ExtraPictures = "pic1,pic2"
		var_Event1.ExtraPicturesAlign = 34
oSchedule.EndUpdate()

Visual Objects

METHOD OCX_Exontrol1PictureClick(Key) CLASS MainDialog
	// PictureClick event - Occurs when the user clicks a picture within an event ( Event.Pictures/ExtraPictures ).
	OutputDebugString(String2Psz( AsString(Key) ))
RETURN NIL

local var_Event as IEvent
local var_Events as IEvents
local var_ExPicture,var_ExPicture1 as IExPicture
local var_ExPictures as IExPictures

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:OnResizeControl := exResizePanelRight | exCalendarFit | exCalendarAutoHide
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
var_ExPictures := oDCOCX_Exontrol1:Pictures
	var_ExPicture := var_ExPictures:Add("pic1","c:\exontrol\images\card.png")
		var_ExPicture:Width := 48
		var_ExPicture:Height := 48
	var_ExPicture1 := var_ExPictures:Add("pic2","c:\exontrol\images\diary.png")
		var_ExPicture1:Width := 48
		var_ExPicture1:Height := 48
var_Events := oDCOCX_Exontrol1:Events
	var_Events:Add(SToD("20120524 08:45:00"),SToD("20120524 14:30:00")):Pictures := "pic1"
	var_Event := var_Events:Add(SToD("20120524 09:45:00"),SToD("20120524 15:45:00"))
		var_Event:ExtraPictures := "pic1,pic2"
		var_Event:ExtraPicturesAlign := exBottomRight
oDCOCX_Exontrol1:EndUpdate()

PowerBuilder

/*begin event PictureClick(string Key) - Occurs when the user clicks a picture within an event ( Event.Pictures/ExtraPictures ).*/
/*
	OleObject oSchedule
	oSchedule = ole_1.Object
	MessageBox("Information",string( String(Key) ))
*/
/*end event PictureClick*/

OleObject oSchedule,var_Event,var_Events,var_ExPicture,var_ExPicture1,var_ExPictures

oSchedule = ole_1.Object
oSchedule.BeginUpdate()
oSchedule.OnResizeControl = 3073 /*exResizePanelRight | exCalendarFit | exCalendarAutoHide*/
oSchedule.Calendar.Selection = 2012-05-24
var_ExPictures = oSchedule.Pictures
	var_ExPicture = var_ExPictures.Add("pic1","c:\exontrol\images\card.png")
		var_ExPicture.Width = 48
		var_ExPicture.Height = 48
	var_ExPicture1 = var_ExPictures.Add("pic2","c:\exontrol\images\diary.png")
		var_ExPicture1.Width = 48
		var_ExPicture1.Height = 48
var_Events = oSchedule.Events
	var_Events.Add(DateTime(2012-05-24,08:45:00),DateTime(2012-05-24,14:30:00)).Pictures = "pic1"
	var_Event = var_Events.Add(DateTime(2012-05-24,09:45:00),DateTime(2012-05-24,15:45:00))
		var_Event.ExtraPictures = "pic1,pic2"
		var_Event.ExtraPicturesAlign = 34
oSchedule.EndUpdate()