//=============================================================================
// Project      : SigCj - VDF Classes for Codejock
// File         : SigCjCalendar_Series.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 Calendar_v2\cSigCjCalendar_DialogClasses.pkg
Use cSigCjCalendar_Public.pkg

Object oSigCjCalendar_Series_Panel is a ModalPanel
    Set Size to 78 115
    Set Label to "Recurring Event"
    Set piMinSize to 78 115
    Set Location to 2 2
    Set Border_Style to Border_Thick
    
    Property Integer piEditWhat 0

    Object oEditWhat is a cSigCJCalendar_RadioGroup_NB
        Set Location to 5 9
        Set Size to 47 99
        Set Border_Style to Border_None
    
        Object oRadio1 is a Radio
            Set Auto_Size_State to False
            Set Label to "? the Series"
            Set Size to 10 85
            Set Location to 10 5
            Set AlignmentMode to taLeftJustify
        End_Object
    
        Object oRadio2 is a Radio
            Set Auto_Size_State to False
            Set Label to "? this Occurrence"
            Set Size to 10 85
            Set Location to 25 5
            Set AlignmentMode to taLeftJustify
        End_Object
    
        Procedure Notify_Select_State Integer iToItem Integer iFromItem
            Forward Send Notify_Select_State iToItem iFromItem

            If (iToItem = 0) Set piEditWhat to eCal_Series_All
            Else             Set piEditWhat to eCal_Series_Single
        End_Procedure
    
        Set Current_Radio to 0
    End_Object

    Object oOK_Btn is a Button
        Set Label    to "&OK"
        Set Location to 60 6
        Set peAnchors To anBottomRight

        Procedure OnClick
            Send Close_Panel
        End_Procedure

    End_Object

    Object oCancel_Btn is a Button
        Set Label    to "&Cancel"
        Set Location to 60 61
        Set peAnchors to anBottomRight

        Procedure OnClick
            Set piEditWhat to eCal_Series_Abort
            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 Show_Dialog Integer eAction Returns Integer
        If (eAction = eCal_Dialog_Action_Edit) Begin
            Set Label of oRadio1 to "Edit the Series"
            Set Label of oRadio2 to "Edit this Occurrence"
        End
        If (eAction = eCal_Dialog_Action_Delete) Begin
            Set Label of oRadio1 to "Delete the Series"
            Set Label of oRadio2 to "Delete this Occurrence"
        End

        Send Popup
               
        Function_Return (piEditWhat(Self))
    End_Function
End_Object