Type | Description | |||
Shift as Integer | An integer that corresponds to the state of the SHIFT, CTRL, and ALT keys. | |||
X as OLE_XPOS_PIXELS | A single that specifies the current X location of the mouse pointer. The x values is always expressed in container coordinates. | |||
Y as OLE_YPOS_PIXELS | A single that specifies the current Y location of the mouse pointer. The y values is always expressed in container coordinates |
During Click event you can use the ...FromPoint(-1,-1) properties to get UI elements of the scheduler from the cursor as follows:
All ...FromPoint properties that returns an Object, may return Nothing, Empty or NULL, if no object is found.
Syntax for DblClick event, /NET version, on:
private void DblClick(object sender,short Shift,int X,int Y) { } Private Sub DblClick(ByVal sender As System.Object,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles DblClick End Sub |
private void DblClick(object sender, AxEXSCHEDULELib._IScheduleEvents_DblClickEvent e) { } void OnDblClick(short Shift,long X,long Y) { } void __fastcall DblClick(TObject *Sender,short Shift,int X,int Y) { } procedure DblClick(ASender: TObject; Shift : Smallint;X : Integer;Y : Integer); begin end; procedure DblClick(sender: System.Object; e: AxEXSCHEDULELib._IScheduleEvents_DblClickEvent); begin end; begin event DblClick(integer Shift,long X,long Y) end event DblClick Private Sub DblClick(ByVal sender As System.Object, ByVal e As AxEXSCHEDULELib._IScheduleEvents_DblClickEvent) Handles DblClick End Sub Private Sub DblClick(Shift As Integer,X As Single,Y As Single) End Sub Private Sub DblClick(ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long) End Sub LPARAMETERS Shift,X,Y PROCEDURE OnDblClick(oSchedule,Shift,X,Y) RETURN |
<SCRIPT EVENT="DblClick(Shift,X,Y)" LANGUAGE="JScript"> </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function DblClick(Shift,X,Y) End Function </SCRIPT> Procedure OnComDblClick Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY Forward Send OnComDblClick llShift llX llY End_Procedure METHOD OCX_DblClick(Shift,X,Y) CLASS MainDialog RETURN NIL void onEvent_DblClick(int _Shift,int _X,int _Y) { } function DblClick as v (Shift as N,X as OLE::Exontrol.Schedule.1::OLE_XPOS_PIXELS,Y as OLE::Exontrol.Schedule.1::OLE_YPOS_PIXELS) end function function nativeObject_DblClick(Shift,X,Y) return |
The following sample displays the date being double clicked.
VBA (MS Access, Excell...)
' DblClick event - Occurs when the user dblclk the left mouse button over an object. Private Sub Schedule1_DblClick(ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long) With Schedule1 Debug.Print( .DateTimeFromPoint(-1,-1) ) End With End Sub With Schedule1 .AllowToggleSchedule = 0 End With
VB6
' DblClick event - Occurs when the user dblclk the left mouse button over an object. Private Sub Schedule1_DblClick(Shift As Integer,X As Single,Y As Single) With Schedule1 Debug.Print( .DateTimeFromPoint(-1,-1) ) End With End Sub With Schedule1 .AllowToggleSchedule = exDisallow End With
VB.NET
' DblClick event - Occurs when the user dblclk the left mouse button over an object. Private Sub Exschedule1_DblClick(ByVal sender As System.Object,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exschedule1.DblClick With Exschedule1 Debug.Print( .get_DateTimeFromPoint(-1,-1) ) End With End Sub With Exschedule1 .AllowToggleSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow End With
VB.NET for /COM
' DblClick event - Occurs when the user dblclk the left mouse button over an object. Private Sub AxSchedule1_DblClick(ByVal sender As System.Object, ByVal e As AxEXSCHEDULELib._IScheduleEvents_DblClickEvent) Handles AxSchedule1.DblClick With AxSchedule1 Debug.Print( .get_DateTimeFromPoint(-1,-1) ) End With End Sub With AxSchedule1 .AllowToggleSchedule = EXSCHEDULELib.AllowKeysEnum.exDisallow End With
C++
// DblClick event - Occurs when the user dblclk the left mouse button over an object. void OnDblClickSchedule1(short Shift,long X,long Y) { /* 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( _bstr_t(spSchedule1->GetDateTimeFromPoint(-1,-1)) ); } EXSCHEDULELib::ISchedulePtr spSchedule1 = GetDlgItem(IDC_SCHEDULE1)->GetControlUnknown(); spSchedule1->PutAllowToggleSchedule(EXSCHEDULELib::exDisallow);
C++ Builder
// DblClick event - Occurs when the user dblclk the left mouse button over an object. void __fastcall TForm1::Schedule1DblClick(TObject *Sender,short Shift,int X,int Y) { OutputDebugString( PChar(Schedule1->DateTimeFromPoint[-1,-1]) ); } Schedule1->AllowToggleSchedule = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
C#
// DblClick event - Occurs when the user dblclk the left mouse button over an object.
private void exschedule1_DblClick(object sender,short Shift,int X,int Y)
{
System.Diagnostics.Debug.Print( exschedule1.get_DateTimeFromPoint(-1,-1).ToString() );
}
//this.exschedule1.DblClick += new exontrol.EXSCHEDULELib.exg2antt.DblClickEventHandler(this.exschedule1_DblClick);
exschedule1.AllowToggleSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow;
JavaScript
<SCRIPT FOR="Schedule1" EVENT="DblClick(Shift,X,Y)" LANGUAGE="JScript"> alert( Schedule1.DateTimeFromPoint(-1,-1) ); </SCRIPT> <OBJECT classid="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT> <SCRIPT LANGUAGE="JScript"> Schedule1.AllowToggleSchedule = 0; </SCRIPT>
C# for /COM
// DblClick event - Occurs when the user dblclk the left mouse button over an object.
private void axSchedule1_DblClick(object sender, AxEXSCHEDULELib._IScheduleEvents_DblClickEvent e)
{
System.Diagnostics.Debug.Print( axSchedule1.get_DateTimeFromPoint(-1,-1).ToString() );
}
//this.axSchedule1.DblClick += new AxEXSCHEDULELib._IScheduleEvents_DblClickEventHandler(this.axSchedule1_DblClick);
axSchedule1.AllowToggleSchedule = EXSCHEDULELib.AllowKeysEnum.exDisallow;
X++ (Dynamics Ax 2009)
// DblClick event - Occurs when the user dblclk the left mouse button over an object. void onEvent_DblClick(int _Shift,int _X,int _Y) { ; print( exschedule1.DateTimeFromPoint(-1,-1) ); } public void init() { ; super(); exschedule1.AllowToggleSchedule(0/*exDisallow*/); }
Delphi 8 (.NET only)
// DblClick event - Occurs when the user dblclk the left mouse button over an object.
procedure TWinForm1.AxSchedule1_DblClick(sender: System.Object; e: AxEXSCHEDULELib._IScheduleEvents_DblClickEvent);
begin
with AxSchedule1 do
begin
OutputDebugString( get_DateTimeFromPoint(-1,-1) );
end
end;
with AxSchedule1 do
begin
AllowToggleSchedule := EXSCHEDULELib.AllowKeysEnum.exDisallow;
end
Delphi (standard)
// DblClick event - Occurs when the user dblclk the left mouse button over an object. procedure TForm1.Schedule1DblClick(ASender: TObject; Shift : Smallint;X : Integer;Y : Integer); begin with Schedule1 do begin OutputDebugString( DateTimeFromPoint[-1,-1] ); end end; with Schedule1 do begin AllowToggleSchedule := EXSCHEDULELib_TLB.exDisallow; end
VFP
*** DblClick event - Occurs when the user dblclk the left mouse button over an object. *** LPARAMETERS Shift,X,Y with thisform.Schedule1 DEBUGOUT( .DateTimeFromPoint(-1,-1) ) endwith with thisform.Schedule1 .AllowToggleSchedule = 0 endwith
dBASE Plus
/* with (this.ACTIVEX1.nativeObject) DblClick = class::nativeObject_DblClick endwith */ // Occurs when the user dblclk the left mouse button over an object. function nativeObject_DblClick(Shift,X,Y) local oSchedule oSchedule = form.Activex1.nativeObject ? Str(oSchedule.DateTimeFromPoint(-1,-1)) return local oSchedule oSchedule = form.Activex1.nativeObject oSchedule.AllowToggleSchedule = 0
XBasic (Alpha Five)
' Occurs when the user dblclk the left mouse button over an object. function DblClick as v (Shift as N,X as OLE::Exontrol.Schedule.1::OLE_XPOS_PIXELS,Y as OLE::Exontrol.Schedule.1::OLE_YPOS_PIXELS) Dim oSchedule as P oSchedule = topparent:CONTROL_ACTIVEX1.activex ? oSchedule.DateTimeFromPoint(-1,-1) end function Dim oSchedule as P oSchedule = topparent:CONTROL_ACTIVEX1.activex oSchedule.AllowToggleSchedule = 0
Visual Objects
METHOD OCX_Exontrol1DblClick(Shift,X,Y) CLASS MainDialog
// DblClick event - Occurs when the user dblclk the left mouse button over an object.
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[DateTimeFromPoint,-1,-1]) ))
RETURN NIL
oDCOCX_Exontrol1:AllowToggleSchedule := exDisallow
PowerBuilder
/*begin event DblClick(integer Shift,long X,long Y) - Occurs when the user dblclk the left mouse button over an object.*/
/*
OleObject oSchedule
oSchedule = ole_1.Object
MessageBox("Information",string( String(oSchedule.DateTimeFromPoint(-1,-1)) ))
*/
/*end event DblClick*/
OleObject oSchedule
oSchedule = ole_1.Object
oSchedule.AllowToggleSchedule = 0