ON RESIZE oSelf: SetSize ( nSizeType, nWidth, nHeight ) :: BuildDatePicker ( ) //CodeJock DatePicker on the left :: BuildCalex ( ) //CodeJock calendar on the right :: BuildPanels ( ) //two panels -left and right :: oGlbSettings: ResourceFile = ""ĭEFINE BUTTONBAR :: oBar OF :: oWndPL SIZE 50, 60 2010ĭEFINE BUTTON PROMPT "PREF" OF :: oBar MENU :: PLANMENU ( ) ToolTip "Préférences"Īction IF (:: oWndPL # nil,:: oWndPL: end ( ), ) ToolTip "Quitter" MsgStop ( "Section globalSettings inaccessible ! " )
#Codejock forums license#
:: oGlbSettings: License = "Calendar Control Copyright (c) 2003-2011 Codejock Software" + CRLF +
![codejock forums codejock forums](http://www.g2gnet.com/webboard/images/vb6/codejock/CodeJOckToolBar2018.png)
:: oGlbSettings := CreateObject ( "Codejock.CalendarGlobalSettings.15.0.2" ) MSGINFO ( "Composant enregistré sur cet ordinateur" ) IF ! isActiveX ( "Codejock.CalendarControl.15.0.2" ) // fichier pas enregistré :: ONOTIFIED := // Minutes reminderĭEFINE WINDOW :: oWndPL MDI MENU oMenu Title "Planning Visuel" VSCROLL HSCROLL FROM 0, 0 TO 800, 1150 PIXEL :: Oclientid := 01 // VAL(GETUSERNUM()) // Retreive the client userid from ini file, each terminal has a different id METHOD New (TPAR,DDATE,TSEL ) CLASS TPLANCJ METHOD SetSize ( nType, nWidth, nHeight ) METHOD RetrieveDocinit ( dtDate, oEvents ) METHOD RetrieveDayEvents ( dtDate, oEvents ) METHOD Histrecur (OEVENT,DREPETER,DREPOK,DMSG,OSAY ) METHOD handleEvent ( Event, aParms, pParams ) for repeat objectsĭATA lviewafterinsert // Flag for allowing view appdetails when inserted default TrueĭATA ONOTIFIED // ARRAY FOR ID EVENTS ADDED BY ANOTHER CLIENT AND ALREADY NOTIFIED SO WE DON'T ADD TWICE THE SAME EVENTSĭATA lNOTIFy // TRUE (default) for notifications, false when called from notification updates (recursivity)ĭATA lCut // set when cut is asked at context menuĭATA lPaste // set when Paste is asked at context menuĭATA lCutcopyID // set when cut or Copy is asked at context menu id of the CUT event in order to allow database deleteĭATA lnbPers // Nombre de personnes à afficher -//ĭATA OCATEG // Table désignation libellés catégories pour assigner les couleursĭATA Oclientid // client's id unique set from ini file, 1 per clientĭATA lDoInsert // Flag for inserting new events. OApp := TPLANCJ ( ): New (TPAR,DDATE,TSEL ) HWnd := FINDWINDOW ( 0, "Planning Visuel" ) // 1 seule instance acceptéeĬLOSEWINDOW (hWnd ) // fermer instance pour bien initialiser JJMMAA := SUBS (WDATE, 1, 2 ) + SUBS (WDATE, 4, 2 ) + SUBS (WDATE, 7, 4 )ĪAMMJJ := SUBS (WDATE, 7, 4 ) + SUBS (WDATE, 4, 2 ) + SUBS (WDATE, 1, 2 )ĭEFINE BUTTONBAR OBAR OF Ownd SIZE 80, 80 2010ĭEFINE BUTTON OBTN1 PROMPT "CODEJOCK" of OBAR ĭEFINE BUTTON OBTN2 PROMPT "EXIT" OF OBAR ĪCTION IF ( MSGYESNO ( "Want to quit ?", "please confirmr" ), (OWND: end ), ) SET STRICTREAD OFF // pour accélérer la réorg dbfcdx
![codejock forums codejock forums](https://forum.codejock.com/uploads/2724/cj_Ribbon_Missing_Sep.png)
#define xtpCalendarEO_InPlaceCreateEvent 14 //In-place event creation. Sent for a single event or for each selected event. #define xtpCalendarEO_DeleteEvent 13 //Delete event. #define xtpCalendarEO_DeleteSelectedEvents 12 //Delete selected events. #define xtpCalendarEO_Paste 11 //Paste event. #define xtpCalendarEO_Copy 10 //Copy events. #define xtpCalendarEO_Cut 9 //Cut events. #define xtpCalendarEO_EditSubject_AfterEventResize 8 //In-place edit event after resizing an event. #define xtpCalendarEO_EditSubject_ByTab 7 //In-place edit event tab key. #define xtpCalendarEO_EditSubject_ByMouseClick 6 //In-place edit event by mouse click. #define xtpCalendarEO_EditSubject_ByF2 5 //In-place edit event by pressing F2 key. #define xtpCalendarEO_DragResizeEnd 4 //Drag Resizing event end. #define xtpCalendarEO_DragResizeBegin 3 //Drag Resizing event begin. #define xtpCalendarEO_DragMove 2 //Drag move event. #define xtpCalendarEO_DragCopy 1 //Drag copy event. #define xtpCalendarEO_Unknown 0 //Unknown operation value. I have joined some images of what can be done with codejock, it is self explaining To Lucas, there is no way to compare the calex class to codejock, there is a lot to do for the same functions. Having more fivewinners using this control is good, we may share more expertise.
![codejock forums codejock forums](https://www.codeproject.com/KB/Articles/1213164/codecribber.png)
Special thanks also to Daniel Garcia Gil who helped me also getting stated a year ago. Initially the class was set by Reinaldo Crespo and Tim Stone and highly updated by me. If you need help, let me know, codejock is a fantastic product while their support is very bad.
![codejock forums codejock forums](http://nuke.vbcorner.net/Portals/0/VS6Installer62/VS6Installer62.gif)
You will find all the elements to get started with, i have joined the resources and images i use also. The class was made to fit my needs, i use it for scheduling, version 15.0.2 of the control installed one year ago.
#Codejock forums download#
You can download it from if any one else wants to download he is welcome, of course you will need to have the license from codejock and insert your own license number.