//=============================================================================
// Project : SigCj - VDF Classes for Codejock
// File : SigCjCalendar_Event.dg
// Description : VDF Class for Codejock control
//
// Revision : $Rev: $
// $Date: $
// $Author: $
//
// Requirements : Visual DataFlex 14.1+
// Codejock SuitePro - Version 13.4.0+
//
// Copyright : Copyright © 2009-2012 VDF SIG UK, All rights reserved.
// Visual DataFlex Special Interest Group UK.
// http://www.vdfsig.co.uk/
//
// This file is part of SigCj.
//
// SigCj is free software: you can redistribute it and/or modify
// it under the terms of the GNU Lesser General Public License
// as published by the Free Software Foundation, either version
// 2.1 of the License, or (at your option) any later version.
//
// SigCj is distributed in the hope that it will be useful, but
// WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU Lesser General Public License for more details.
//
// If you have the complete SigCj workspace then a copy of the
// GNU Lesser General Public License is in the Docs folder. If
// not, see <http://www.gnu.org/licenses/>.
//
//=============================================================================
Use Windows.pkg
Use cSigCJdbForm.pkg
Use dfLine.pkg
Use cTextEdit.pkg
Use Calendar_v2\cSigCJCalendar_DialogClasses.pkg
Use Calendar_v2\SigCjCalendar_RecPattern.dg
Use Calendar_v2\SigCjCalendar_DB_Link.dg
Use Calendar_v2\SigCjCalendar_Icons.dg
Use Calendar_v2\SigCjCalendar_Properties.dg
Object oSigCJCalendar_Event_Panel is a ModalPanel
Set Size to 196 385
Set Label to "Event"
Set piMinSize to 196 385
Set Location to 2 2
Property tdSigCjCal_Dialog_Info ptDialogInfo
Set Border_Style to Border_Normal
Set piMaxSize to 196 385
Object oSubject is a Form
Set Size to 13 177
Set Location to 5 40
Set Label_Col_Offset to 2
Set Label_Justification_Mode to JMode_Right
Set Label to "Subject"
End_Object
Object oLocation is a Form
Set Size to 13 177
Set Location to 20 40
Set Label_Col_Offset to 2
Set Label_Justification_Mode to JMode_Right
Set Label to "Location"
End_Object
Object oH_Line1 is a LineControl
Set Size to 2 215
Set Location to 38 5
End_Object
Object oStartDate is a Form
Set Size to 13 60
Set Location to 44 40
Set Label_Col_Offset to 2
Set Label_Justification_Mode to JMode_Right
Set Label to "Start Time"
Set Prompt_Button_Mode to PB_PromptOn
Set Form_Button_Bitmap 0 to "CalendarPrompt.Bmp"
Set Prompt_Object to (oSigCJMonthCalendar_Lookup(Self))
End_Object
Object oStartTime is a cSigCJCalendar_TimePicker
Set Location to 44 106
Set peFormat to eDTP_HM00
End_Object
Object oAllDayEvent is a CheckBox
Set Size to 10 50
Set Location to 46 158
Set Label to "All Day Event"
Set AlignmentMode to taLeftJustify
Procedure OnChange
If (Checked_State(Self)) Begin
Set pbEnabled of oStartTime to False
Set pbEnabled of oEndTime to False
End
Else Begin
Set pbEnabled of oStartTime to True
Set pbEnabled of oEndTime to True
End
End_Procedure
End_Object
Object oEndDate is a Form
Set Size to 13 60
Set Location to 59 40
Set Label_Col_Offset to 2
Set Label_Justification_Mode to JMode_Right
Set Label to "End Time"
Set Prompt_Button_Mode to PB_PromptOn
Set Form_Button_Bitmap 0 to "CalendarPrompt.Bmp"
Set Prompt_Object to (oSigCJMonthCalendar_Lookup(Self))
End_Object
Object oEndTime is a cSigCJCalendar_TimePicker
Set Location to 59 106
Set peFormat to eDTP_HM59
End_Object
Object oReminder is a CheckBox
Set Auto_Size_State to False
Set Size to 10 43
Set Location to 76 6
Set Label to "Reminder"
Set AlignmentMode to taLeftJustify
Procedure OnChange
If (Checked_State(Self)) Begin
Set Enabled_State of oReminderBefore to True
End
Else Begin
Set Enabled_State of oReminderBefore to False
End
End_Procedure
End_Object
Object oReminderBefore is a cSigCJCalendar_ComboForm
Set Size to 13 54
Set Location to 74 60
Set Label_Col_Offset to 2
Set Label_Justification_Mode to JMode_Right
Set Combo_Sort_State to False
Procedure Combo_Fill_List
Send Combo_Delete_Data
Send Combo_Add_Item "1 Minute" 1
Send Combo_Add_Item "5 Minutes" 5
Send Combo_Add_Item "10 Minutes" 10
Send Combo_Add_Item "15 Minutes" 15
End_Procedure
End_Object
Object oRecurring is a Button
Set Location to 74 168
Set Label to "Recurring"
Procedure OnClick
tdSigCjCal_Dialog_Info tDialogInfo
Get ptDialogInfo to tDialogInfo
Get Show_Dialog of oSigCjCalendar_RecPattern_Panel tDialogInfo.tDialog_RecPattern to tDialogInfo.tDialog_RecPattern
If ((tDialogInfo.tDialog_RecPattern.eAction <> eCal_Dialog_Action_None ) and ;
(tDialogInfo.tDialog_RecPattern.eAction <> eCal_Dialog_Action_Exists)) Begin
Set ptDialogInfo to tDialogInfo
End
End_Procedure
End_Object
Object oH_Line2 is a LineControl
Set Size to 2 215
Set Location to 92 5
End_Object
Object oBody is a cTextEdit
Set Size to 71 177
Set Location to 98 40
Set Label to "Body Text"
Set Label_Justification_Mode to JMode_Right
Set Label_Col_Offset to 2
End_Object
Object oV_Line1 is a LineControl
Set Size to 165 3
Set Location to 5 225
Set Horizontal_State to False
End_Object
Object oTimeAs is a cSigCJCalendar_ComboForm
Set Size to 13 100
Set Location to 5 280
Set Label_Col_Offset to 2
Set Label_Justification_Mode to JMode_Right
Set Label to "Show Time As"
Set Combo_Sort_State to False
Procedure Combo_Fill_List
Send Combo_Delete_Data
Send Combo_Add_Item "Free" 0
Send Combo_Add_Item "Tentative" 1
Send Combo_Add_Item "Busy" 2
Send Combo_Add_Item "Out of Office" 3
End_Procedure
End_Object
Object oMeeting is a CheckBox
Set Auto_Size_State to False
Set Size to 10 38
Set Location to 21 251
Set Label to "Meeting"
Set AlignmentMode to taLeftJustify
End_Object
Object oPrivate is a CheckBox
Set Auto_Size_State to False
Set Size to 10 34
Set Location to 21 330
Set Label to "Private"
Set AlignmentMode to taLeftJustify
End_Object
Object oImportance is a cSigCJCalendar_ComboForm
Set Size to 13 100
Set Location to 35 280
Set Label_Col_Offset to 2
Set Label_Justification_Mode to JMode_Right
Set Label to "Importance"
Set Combo_Sort_State to False
Procedure Combo_Fill_List
Send Combo_Delete_Data
Send Combo_Add_Item "Low" 1
Send Combo_Add_Item "Normal" 2
Send Combo_Add_Item "High" 3
End_Procedure
End_Object
Object oCategorySelected is a Form
Set Size to 13 100
Set Location to 50 280
Set Entry_State to False
End_Object
Object oCategory is a cSigCJCalendar_CategoryList
Set Size to 104 100
Set Location to 65 280
Set Label_Col_Offset to 2
Set Label_Justification_Mode to JMode_Right
Set Label to "Category"
Set pbBindValue to False
Property Integer[] piaIDs
Property String[] psaNames
Procedure OnCreate
Integer iSchedule_ID
Forward Send OnCreate
Send Load_Categories iSchedule_ID
Set Selected_Value to (Private_piData(Self))
End_Procedure
Procedure Load_Categories //Integer iSchedule_ID
Boolean bChecked
Integer iCount iLoop iIndex iSchedule_Count iSchedule_Loop iSchedules_Selected //iSchedule_Index
String sName
Integer[] iaAllCat_IDs
Integer[] iaAllCat_Count
Integer[] iaIDs
String[] saNames
tdSigCjCal_Dialog_Info tDialogInfo
tdSigCjCal_Category[] taCateogies
If (IsComObjectCreated(Self)) Begin
Get ptDialogInfo to tDialogInfo
Move (SizeOfArray(tDialogInfo.taSchedules[0].taCateogies) - 1) to iCount
For iLoop from 0 to iCount
Move (SizeOfArray(iaIDs)) to iIndex
Move tDialogInfo.taSchedules[iSchedule_Loop].taCateogies[iLoop].iID to iaIDs[iIndex]
Move tDialogInfo.taSchedules[iSchedule_Loop].taCateogies[iLoop].sName to saNames[iIndex]
Move tDialogInfo.taSchedules[iSchedule_Loop].taCateogies[iLoop] to taCateogies[iIndex]
Loop
Send ComClear
Move (SizeOfArray(iaIDs) - 1) to iCount
For iLoop from 0 to iCount
Send AddItem taCateogies[iLoop]
Loop
Get Value of oCategorySelected to sName
Move (SearchArray(sName, saNames)) to iIndex
If (iIndex = -1) Begin
//previously selected categpry no longer valid so clear value
Set Value of oCategorySelected to ""
End
Set piaIDs to iaIDs
Set psaNames to saNames
End
End_Procedure
Procedure OnComClick
Integer iIndex iData
Integer[] iaIDs
String[] saNames
Forward Send OnComClick
Get piaIDs to iaIDs
Get psaNames to saNames
Get ComListIndex to iIndex
Get ComItemData iIndex to iData
Move (SearchArray(iData,iaIDs)) to iIndex
If (iIndex <> -1) Begin
Set Value of oCategorySelected to saNames[iIndex]
Set Private_piData to iaIDs[iIndex]
End
End_Procedure
End_Object
Object oH_Line3 is a LineControl
Set Size to 2 375
Set Location to 173 5
End_Object
Object oDB_Link is a Button
Set Location to 179 7
Set Label to "DB Link"
Procedure OnClick
tdSigCjCal_Dialog_Info tDialog_Info
Get ptDialogInfo to tDialog_Info
Get Show_Dialog of oSigCjCalendar_DB_Link_Panel tDialog_Info.tDialog_DB_Link to tDialog_Info.tDialog_DB_Link
Set ptDialogInfo to tDialog_Info
End_Procedure
End_Object
Object oCust_Props is a Button
Set Location to 179 71
Set Label to "Properties"
Procedure OnClick
tdSigCjCal_Dialog_Info tDialog_Info
Get ptDialogInfo to tDialog_Info
Get Show_Dialog of oSigCjCalendar_CustomProperties_Panel tDialog_Info.tDialog_CustomProperty to tDialog_Info.tDialog_CustomProperty
Set ptDialogInfo to tDialog_Info
End_Procedure
End_Object
Object oCust_Icons is a Button
Set Location to 179 136
Set Label to "Icons"
Procedure OnClick
tdSigCjCal_Dialog_Info tDialog_Info
Get ptDialogInfo to tDialog_Info
Get Show_Dialog of oSigCjCalendar_CustomIcons_Panel tDialog_Info.tDialog_CustomIcon to tDialog_Info.tDialog_CustomIcon
Set ptDialogInfo to tDialog_Info
End_Procedure
End_Object
Object oOK_Btn is a Button
Set Label to "&OK"
Set Location to 179 276
Set peAnchors To anBottomRight
Procedure OnClick
Send Update_Dialog_Data
Send Close_Panel
End_Procedure
End_Object
Object oCancel_Btn is a Button
Set Label to "&Cancel"
Set Location to 179 331
Set peAnchors to anBottomRight
Procedure OnClick
tdSigCjCal_Dialog_Info tDialogInfo
Get ptDialogInfo to tDialogInfo
Move eCal_Dialog_Action_None to tDialogInfo.eAction_Event
Set ptDialogInfo to tDialogInfo
Send Close_Panel
End_Procedure
End_Object
On_Key Key_Alt+Key_O Send KeyAction of oOK_Btn
On_Key Key_Alt+Key_C Send KeyAction of oCancel_Btn
Function Schedule_Index Integer iSchedule_ID Returns Integer
Integer iCount iLoop iIndex
tdSigCjCal_Dialog_Info tDialogInfo
Get ptDialogInfo to tDialogInfo
Move (SizeOfArray(tDialogInfo.taSchedules) -1) to iCount
For iLoop from 0 to iCount
If (tDialogInfo.taSchedules[iLoop].iID = iSchedule_ID) Begin
Move iLoop to iIndex
Move (iCount + 1) to iLoop //bomb loop
End
Loop
If (iIndex = -1) Begin
Error 501 ("Cannot find Schedule (ID: " + String(iSchedule_ID) + ")")
End
Function_Return iIndex
End_Function
Procedure Populate_Dialog tdSigCjCal_Dialog_Info tDialogInfo
Set ptDialogInfo to tDialogInfo
Set Checked_State of oAllDayEvent to tDialogInfo.tEvent.bAllDayEvent
Set Value of oBody to tDialogInfo.tEvent.sBody
Set Value of oEndDate to tDialogInfo.tEvent.dEndDate
Set Time_Value of oEndTime to tDialogInfo.tEvent.tmEndTime
Set Value of oLocation to tDialogInfo.tEvent.sLocation
Set Checked_State of oMeeting to tDialogInfo.tEvent.bMeetingFlag
Set Checked_State of oPrivate to tDialogInfo.tEvent.bPrivateFlag
Set Checked_State of oReminder to tDialogInfo.tEvent.bReminder
Set Value of oStartDate to tDialogInfo.tEvent.dStartDate
Set Time_Value of oStartTime to tDialogInfo.tEvent.tmStartTime
Set Value of oSubject to tDialogInfo.tEvent.sSubject
Set piInitalValue of oTimeAs to tDialogInfo.tEvent.eBusyStatus
Set piInitalValue of oImportance to tDialogInfo.tEvent.eImportance
Set piInitalValue of oReminderBefore to tDialogInfo.tEvent.iRem_MinsBefore
Set Selected_Value of oCategory to tDialogInfo.tEvent.sCategories
End_Procedure
Procedure Update_Dialog_Data
tdSigCjCal_Dialog_Info tDialogInfo
Get ptDialogInfo to tDialogInfo
Get Checked_State of oAllDayEvent to tDialogInfo.tEvent.bAllDayEvent
Get Value of oBody to tDialogInfo.tEvent.sBody
Get Value of oEndDate to tDialogInfo.tEvent.dEndDate
Get Time_Value of oEndTime to tDialogInfo.tEvent.tmEndTime
Get Value of oLocation to tDialogInfo.tEvent.sLocation
Get Checked_State of oMeeting to tDialogInfo.tEvent.bMeetingFlag
Get Checked_State of oPrivate to tDialogInfo.tEvent.bPrivateFlag
Get Checked_State of oReminder to tDialogInfo.tEvent.bReminder
Get Value of oStartDate to tDialogInfo.tEvent.dStartDate
Get Time_Value of oStartTime to tDialogInfo.tEvent.tmStartTime
Get Value of oSubject to tDialogInfo.tEvent.sSubject
Get Selected_Value of oTimeAs to tDialogInfo.tEvent.eBusyStatus
Get Selected_Value of oImportance to tDialogInfo.tEvent.eImportance
Get Selected_Value of oReminderBefore to tDialogInfo.tEvent.iRem_MinsBefore
Get Selected_Value of oCategory to tDialogInfo.tEvent.sCategories
Set ptDialogInfo to tDialogInfo
End_Procedure
Function Show_Dialog tdSigCjCal_Dialog_Info tDialogInfo Returns tdSigCjCal_Dialog_Info
Send Populate_Dialog tDialogInfo
Send Popup
Get ptDialogInfo to tDialogInfo
Function_Return tDialogInfo
End_Function
End_Object