Skip to content

pdSeedValue - cMonthCalendarPrompt

Used to define a seed value for the calendar when update mode is custom or non-invoking

Type: Property
Access: Read/Write
Data Type: Date
Parameters: None

Syntax

Property Date pdSeedValue
Access Type Syntax
Read Access: Get pdSeedValue to DateVariable
Write Access: Set pdSeedValue to DateVariable/Value

Description

When peUpdateMode is umPromptCustom or umPromptNonInvoking, you can use pdSeedValue and pdSeedValue2 to define a seed value. This is used to seed the calendar. See OnSeedData for a complete description of this process.

If peUpdateMode is umPromptCustom, pdSeedValue will probably be set in the invoking object's Prompt_Callback event. 

Object oButton1 is a Button
    Set Location to 121 100
    Set Label to 'Change'

    Procedure Prompt_Callback Integer hoPrompt
        Date dDate
        Get Value of oDateTextBox to dDate
        Set peUpdateMode of hoPrompt to umPromptCustom
        Set pdSeedValue of hoPrompt to dDate
        Set phmPromptUpdateCallback of hoPrompt to (RefProc(DoDateUpdate))
    End_Procedure

    Procedure DoDateUpdate Integer hoSel Date dDate1 Date dDate2
        Set Value of oDateTextBox to dDate1
    End_Procedure

    Procedure OnClick
        Send Popup of oMonthCalendarPrompt
    End_Procedure

End_Object

If peUpdateMode is umPromptNonInvoking, pdSeedValue and pdSeedValue2 will probably be set inside of a custom method within the prompt object's modal panel object.

Object oButton1 is a Button
    Set Location to 121 100
    Set Label to 'Change'

    Procedure Prompt_Callback Integer hoPrompt
        Date dDate
        Get Value of oDateTextBox to dDate
        Set peUpdateMode of hoPrompt to umPromptCustom
        Set pdSeedValue of hoPrompt to dDate
        Set phmPromptUpdateCallback of hoPrompt to (RefProc(DoDateUpdate))
    End_Procedure

    Procedure DoDateUpdate Integer hoSel Date dDate1 Date dDate2
        Set Value of oDateTextBox to dDate1
    End_Procedure

    Procedure OnClick
        Send Popup of oMonthCalendarPrompt
    End_Procedure

End_Object