Module SigCJStandardCalendarDemo.vw

     1Use Windows.pkg
     2Use DFClient.pkg
     3Use cSigCjCalendarControl.pkg
     4Use Cal_Date.DD
     5Use Cal_Cats.dd
     6Use Cal_Sys.dd
     7Use Calr_Pat.dd
     8Use Calevent.dd
     9
    10
    11Deferred_View Activate_oSigCJCalendarDemo_Standard_View for ;
    12Object oSigCJCalendarDemo_Standard_View is a dbView
    13    Set Border_Style to Border_Thick
    14    Set Size to 300 450
    15    Set Location to 8 3
    16    Set Maximize_Icon to True
    17    Set piMinSize to 200 300
    18    Set Label to "Codejock Demo - Standard Calendar"
    19    Set Icon to "SIG.ico" 
    20
    21    Object oCalevent_DD is a CalEvent_DataDictionary
    22    End_Object
    23
    24    Object oCalr_Pat_DD is a Calr_Pat_DataDictionary
    25    End_Object
    26
    27    Object oCal_Sys_DD is a Cal_Sys_DataDictionary
    28    End_Object
    29
    30    Object oCal_Cats_DD is a Cal_Cats_DataDictionary
    31    End_Object
    32
    33    Object oCal_Date_DD is a Cal_Date_DataDictionary
    34    End_Object
    35
    36    Set Main_DD to oCalevent_DD
    37    Set Server to oCalevent_DD
    38
    39    Object oSigCJCalendarControl1 is a cSigCJCalendarControl
    40        Set Size to 292 292
    41        Set Location to 4 4
    42        Set peAnchors to anAll
    43        Set peTimeScale to eCal_TimeScale_15
    44        Set ptmLunchEndTime to "13:15"
    45        Set ptmLunchStartTime to "12:30"
    46        Set pbUseScaleTimes to True
    47        Set ptmWorkDayStartTime to "08:30"
    48    End_Object
    49    
    50    Object oSigCJDatePicker1 is a cSigCJCalendarDatePicker
    51        Set Size to 100 135
    52        Set Location to 2 306
    53        Set peAnchors to anTopRight
    54    End_Object
    55
    56    Object oContainer3d1 is a Container3d
    57        Set Size to 170 151
    58        Set Location to 105 297
    59        Set peAnchors to anTopBottomRight
    60        Set Border_Style to Border_Normal
    61        
    62        Use oCalendar_Properties.pkg
    63    End_Object
    64    
    65    Object oPreview_Bn is a cSigCJPushButton
    66        Set Size to 26 26
    67        Set Location to 278 348
    68        Set peAnchors to anBottomRight
    69        Set psImage to "Cal_Preview32.ico"
    70
    71        Procedure OnClick
    72            Send ComPrintPreview of oSigCJCalendarControl1 True
    73        End_Procedure
    74    End_Object
    75
    76    Object oPrint_Bn is a cSigCJPushButton
    77        Set Size to 26 26
    78        Set Location to 278 378
    79        Set peAnchors to anBottomRight
    80        Set psImage to "Cal_Print32.ico" 
    81
    82        Procedure OnClick
    83            Send ComPrintCalendar2 of oSigCJCalendarControl1 True
    84        End_Procedure
    85    End_Object
    86
    87    Object oPrintSetup_bn is a cSigCJPushButton
    88        Set Size to 26 26
    89        Set Location to 278 408
    90        Set peAnchors to anBottomRight
    91        Set psImage to "Cal_PrintSetUp32.ico"
    92
    93        Procedure OnClick
    94            Boolean bRetval
    95            Get ComShowPrintPageSetup of oSigCJCalendarControl1 to bRetval
    96        End_Procedure
    97    End_Object
    98    
    99
   100Cd_End_Object
   101