Information générale
Catégorie:
Contrôles ActiveX en VFP
Versions des environnements
1. set ctmday1 with this parameters
Thisform.ctMDay1.timetextwidth=50
Thisform.ctMDay1.timestart=9*60 && 9 AM
Thisform.ctMDay1.timeend=20*60 && 8 PM
Thisform.ctMDay1.displaycolumns = HOWMANYCOLUMNS
Thisform.ctMDay1.virtualColumns = 15
Thisform.ctMDay1.HeightOffset=1
Thisform.ctMDay1.timetype =1
Thisform.ctMDay1.TaskBars = .F.
Thisform.ctMDay1.TimeUnits = 4
Thisform.ctMDay1.primetimecolor=COLOR1
Thisform.ctMDay1.nonprimecolor=COLOR2
Thisform.ctMDay1.BackColor=COLOR3
Thisform.ctMDay1.barmovecolor=COLOR4
2. create appointment
be carreful! ctMDay1 CLICK METHODS
* u have to select block
SAYRAN = RAND(-1) && any random number
nStart =Thisform.ctMDay1.SelectStartTime
nEnd =Thisform.ctMDay1.SelectEndTime
nDate = Thisform.ctMDay1.FindColumnDate( Thisform.ctMDay1.SelectColumn() )
nColumn= Thisform.ctMDay1.SelectColumn()
nCode = Thisform.ctMDay1.FindColumnCode(nColumn)
nInsert = Thisform.ctMDay1.Object.AddAppointment(nStart, nEnd, 0, "" )
Thisform.ctMDay1.AppointCode(nInsert) = nCode
Thisform.ctMDay1.AppointLocateText(nInsert) = Alltrim(DETAIL_ABOUT_APPOINTMENT )
Thisform.ctMDay1.AppointText(nInsert) = Alltrim(PERSON_NAME)
Thisform.ctMDay1.AppointBackColor(nInsert) = COLOR1
Thisform.ctMDay1.AppointForeColor(nInsert) = COLOR2
Thisform.ctMDay1.AppointItemData(nInsert)=SAYRAN
Thisform.ctMDay1.AppointHorzLock(nInsert) =.T.
Thisform.ctMDay1.AppointReadOnly(nInsert)=.T. && OR .F.
Thisform.ctMDay1.AppointLockTimes(nInsert)=.T. && OR .F.
3. select appointment
be careful ! ctMDay1.APPSELECT METHODS
SAYRAN = THISFORM.ctMDay1.AppointItemData(nindex)
nStart = THISFORM.ctMDay1.AppointTimeStart(nindex)
nEnd = THISFORM.ctMDay1.AppointTimeEnd(nindex)
nDate = THISFORM.ctMDay1.AppointDate(nindex)
nColumn= THISFORM.ctMDay1.SelectColumn()
nCode = THISFORM.ctMDay1.FindColumnCode(nColumn)
doktorkod=THISFORM.ctMDay1.AppointCode(nindex)
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement