First I have a container class with a time picker ocx or two on it. In the
ocx mousedown I have the following
*** ActiveX Control Event ***
LPARAMETERS button, shift, x, y
this.Parent.isright = (button = 2)
this.Parent.mouseleft = x
In the click event
*** ActiveX Control Event ***
IF this.Parent.isright then
NODEFAULT
IF this.Parent.mouseleft <=12
DIMENSION lamenu(24)
lamenu(1) = "0"
lamenu(2) = "1"
lamenu(3) = "2"
lamenu(4) = "3"
lamenu(5) = "4"
lamenu(6) = "5"
lamenu(7) = "6"
lamenu(8) = "7"
lamenu(9) = "8"
lamenu(10) = "9"
lamenu(11) = "10"
lamenu(12) = "11"
lamenu(13) = "12"
lamenu(14) = "13"
lamenu(15) = "14"
lamenu(16) = "15"
lamenu(17) = "16"
lamenu(18) = "17"
lamenu(19) = "18"
lamenu(20) = "19"
lamenu(21) = "20"
lamenu(22) = "21"
lamenu(23) = "22"
lamenu(24) = "23"
coord.smenu.showmenu(@lamenu)
IF BAR() > 0
this.Parent.timefrom.oBJECT.Hour=BAR()-1
endif
else
DIMENSION lamenu(12)
lamenu(1) = "0"
lamenu(2) = "5"
lamenu(3) = "10"
lamenu(4) = "15"
lamenu(5) = "20"
lamenu(6) = "25"
lamenu(7) = "30"
lamenu(8) = "35"
lamenu(9) = "40"
lamenu(10) = "45"
lamenu(11) = "50"
lamenu(12) = "55"
coord.smenu.showmenu(@lamenu)
IF BAR() > 0
this.Parent.timefrom.oBJECT.Minute = (BAR()-1)*5
endif
endif
this.parent.starttime = this.hour * 100 + this.minute
ENDIF
Note that starttime is in the container class and a second one in my case
has an endtime. You can play with the result to do what you need.
Smenu is an adaption of the shortcut menu class that comes with VFP. A
shortcut menu. Mouseleft is also a property of the container class to keep
an eye on the position of the mouse during the mousedown.
Simple really
Allen
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On
Behalf Of Paul Newton
Sent: 25 September 2007 20:30
To: [EMAIL PROTECTED]
Subject: Re: Date and time control
Allen wrote:
> I used the MS date time picker control but added some right click
> menus to allow easy picking of the hour and minute.
>
Would you care to share that, Allen ?
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.5.488 / Virus Database: 269.13.30/1029 - Release Date: 24/09/2007
19:09
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message: http://leafe.com/archives/byMID/profox/[EMAIL PROTECTED]
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
