Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Popup Doesn't Close
Message
 
To
20/06/2006 11:58:56
James Blackburn
Qualty Design Systems, Inc.
Kuna, Idaho, United States
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
01130251
Message ID:
01130284
Views:
14
I had SHORTCUT in there. I didn't have RELATIVE

>I think it is the key word "shortcut" that makes the difference.
>
>>Ok, that worked - although I'm not sure why. What does the RELATIVE clause have to
>>do with the popup closing???
>>
>>
>>
>>
>>>Try
>>>
DEFINE POPUP popMonths shortcut RELATIVE FROM MROW(),MCOL()
>>>
>>>>In a label I have:
>>>>
>>>>This.Parent.MonthClicked(This.Parent)
>>>>
>>>>
>>>>
>>>>and in the MonthClicked routine I have:
>>>>
>>>>
>>>>** PROCEDURE MonthClicked
>>>>LPARAMETERS oThis
>>>>
>>>>  WITH This
>>>>
>>>>    DEFINE POPUP popMonths FROM MROW(), MCOL() MARGIN
>>>>
>>>>    DEFINE BAR 1 OF popMonths PROMPT "\<January"
>>>>    DEFINE BAR 2 OF popMonths PROMPT "\<February"
>>>>    DEFINE BAR 3 OF popMonths PROMPT "\<March"
>>>>    DEFINE BAR 4 OF popMonths PROMPT "\<April"
>>>>    DEFINE BAR 5 OF popMonths PROMPT "\<May"
>>>>    DEFINE BAR 6 OF popMonths PROMPT "\<June"
>>>>    DEFINE BAR 7 OF popMonths PROMPT "\<July"
>>>>    DEFINE BAR 8 OF popMonths PROMPT "\<August"
>>>>    DEFINE BAR 9 OF popMonths PROMPT "\<September"
>>>>    DEFINE BAR 10 OF popMonths PROMPT "\<October"
>>>>    DEFINE BAR 11 OF popMonths PROMPT "\<November"
>>>>    DEFINE BAR 12 OF popMonths PROMPT "\<December"
>>>>	
>>>>    ON SELECTION POPUP popMonths oThis.MonthSelected()
>>>>    ACTIVATE POPUP popMonths
>>>>
>>>>ENDWITH
>>>>
>>>>RETURN
>>>>
>>>>
>>>>Here is the MonthSelected routine:
>>>>
>>>>
>>>>** PROCEDURE MonthSelected
>>>>
>>>>  LOCAL nMonth, nDay, nYear, tDateTime, dDate
>>>>
>>>>  WITH This
>>>>
>>>>    nMonth  = BAR()
>>>>    nDay    = ._nDay
>>>>    nYear   = ._nYear
>>>>		
>>>>    tDateTime =	DATETIME(nYear, nMonth, nDay)
>>>>    dDate     = TTOD(tDateTime)
>>>>
>>>>    .LoadCalendar(dDate)
>>>>	
>>>>  ENDWITH
>>>>
>>>>RETURN
>>>>
>>>>
>>>>When a bar is selected, the code in the MonthSelected routine runs, but the popup stays
>>>>open. What gives?
Everything makes sense in someone's mind
public class SystemCrasher :ICrashable
In addition, an integer field is not for irrational people
Previous
Reply
Map
View

Click here to load this message in the networking platform