FiveTech Support Forums

can you explain us how you insert a new record and create box color into ?
Do you use mouse move or not ?

Maurizio,

Please describe the changes you made.

Regards,
James

Hello James

In the method ::oCalex:LoadDates you cann specify the color

nColorText and aGrad

::oCalex:LoadDates( ( ::cAlias )->START,;
( ::cAlias )->END, ;
( ::cAlias )->DSTART, ;
( ::cAlias )->DEND, ;
( ::cAlias )->TEXT, ;
( ::cAlias )->SUBJECT ,;
nColorText,;
{ { 1.00,aGrad,16777215 },{ 0.00,16777215,aGrad } };
)

You cann use this for call a Dialog

::oCalex:bLDblClick := {|nRow, nCol, nKeyFlags | ::Dialog(nRow, nCol, nKeyFlags)}

in the Dialog you have the value

::oCalex:oCalInfo:nStart 
::oCalex:oCalInfo:nEnd  
::oCalex:oCalInfo:dStart 
::oCalex:oCalInfo:dEnd

Regards Maurizio

Sorry,
but I add a method Dialog_InS(nRow, nCol, nKeyFlags) to SampleCalex

and I insert this row at buildcalex method line 162
::oCalex:bLDblClick := {|nRow, nCol, nKeyFlags |::Dialog_InS(nRow, nCol, nKeyFlags)}
before of ::oPanelCalex:oClient = ::oCalex

on Dialog_Ins method I insert only these lines :

METHOD Dialog_InS(nRow, nCol, nKeyFlags) CLASS SampleCalex
?"w"
msginfo(::oCalex:oCalInfo:nStart)
msginfo(::oCalex:oCalInfo:nEnd )
msginfo(dtoc(::oCalex:oCalInfo:dStart))
msginfo(::oCalex:oCalInfo:dEnd)

RETURN nil

when I click o n a cell it make this error

Error description: Error BASE/1004 Class: 'NIL' has no exported method: NSTART

where is the error ?

I can see only these variables :
oView:dDate
oView:nStartHour
oView:nEndHour

NOT RUN !!!
MAKE ERROR!!

METHOD Dialog_InS(nRow, nCol, nKeyFlags) CLASS SampleCalex

Local oFrmIns
Local cIniFecha
Local cFinFecha
Local cIniTime
Local cFinTime

Local oGet[4]

cIniFecha := ::oCalex:oCalInfo:dStart
cFinFecha := ::oCalex:oCalInfo:dEnd
cIniTime := ::oCalex:oCalInfo:nStart
cFinTime := ::oCalex:oCalInfo:nEnd

DEFINE DIALOG oFrmIns

@ 5, 3 SAY "&Date:" SIZE 25, 7 PIXEL OF oFrmIns COLOR 0, 14215660
@ 4, 42 GET oGet[1] VAR cIniFecha SIZE 30, 10 PIXEL OF oFrmIns

ACTIVATE DIALOG oFrmIns

RETURN nil

Daniel or Reinaldo,
Can You tell us How Make it Please ?

Mdasolution, you code works perfectly. I add just the code and no problems, it just show all the data when we dobleclick in an appointment.

Someone knows how to start the calendar in Monday or what I have to modify for it ?

Thanks.

Hello

Modify METHOD PaintHeader

dFirstDateWeek += 1

Regards Maurizio

www.nipeservice.com

Thanks Maurizio working perfectly.

run ok for me thanks Mda and Maurizio

how I can have the subject field ?

this for modfy a record

and to insert a new record do you found a solution ?

Maurizio,
I made on
METHOD GetFirstDateWeek() CLASS TCalEx

if ::Classname() != "TDAYVIEW" .or. ::Classname() != "TMonthView"
dFirstDateWeek += 1
endif

it run only for TDAYVIEW but not for tmonthview

HOW i CAN MAKE TO SHOW ON TDAYVIEW

FROM 00:00 TO 24:00 ?

AND THE SAME FOR THE WEEK

THANKS