//AB/ CLASSDEF
Class cMonthCal is a BitmapContainer

    //disable DataBase tab page in Properties
    Set Drop_Allowed To False
    Set Control_Type To ctBASE
    Set Size_Allowed To False
    Set ObjectNameMask To "oMonthCal<count>"
    Set ClassPackage To "cMonthCal.pkg"
    Set ClassHelpName To ""


    //don't show location
    Property Complex Location 0 0
    Property No_Visible Complex Size 95 129

    // Calendar
    Property No_Execute Boolean pbDayState            False // Requires manual coding
    Property No_Execute Boolean pbMultiSelect         False // Allows date range selection
    Property No_Execute Boolean pbWeekNumbers         True  // Showes week numbers
    Property No_Execute Boolean pbNoTodayCircle       False // Do not paint today circle
    Property No_Execute Boolean pbNoToday             False // Removes 'Today' label from body
    Property No_Execute Boolean pbAutoSize            True  // Maintains own size automatically depending on options selected

    Property No_Execute Integer Selection_Count       0     // If pbMultiSelect set to true, specifies how many days you may select per time
    Property No_Execute Integer Month_Delta           0     // Specifies listing count for next/previous monthes. If current month is Jan and Month_Delta = 3, then next month will be April.

    Property No_Execute Color   piBackGroundColor      clWhite  // Calendar Background color
    Property No_Execute Color   piTextColor            clBlack  // Day labels color
    Property No_Execute Color   piTitleBkColor         clNavy   // Calendar Title background color
    Property No_Execute Color   piTitleTextColor       clWhite  // Calendar Title text color
    Property No_Execute Color   piMonthBkColor         clWhite  // Month/Weeks labels background color
    Property No_Execute Color   piTrailingTextColor    clLtGray // Previous/Next day month text color (shadowed)

    Property No_Execute Mode    piFirstDayOfWeek       MCD_MONDAY MCD_MONDAY MCD_SUNDAY // Specifies first day of the week (Monday or Sunday)
    Property No_Execute Mode    piMonthCount           1 1 2 3 // How many month layouts should show calendar 

    //show this bitmap on control
    Property No_Visible No_Generate String Bitmap "Calendar.bmp"
    Property No_Visible No_Generate Integer Bitmap_Style Bitmap_Center
    Property No_Visible No_Generate Mode Border_Style Border_None
    // Property Color clWhite
End_Class