missing vcalenda.ch

[Antonio Linares]

Could someone provide vcalenda.ch ?

many thanks

[Antonio Linares]

Code: Select all  Expand view  RUN

#xcommand @ <nTop>, <nLeft> VCALENDAR [ <oCalen> ] ;
               [ SIZE <nWidth>, <nHeigth> ] ;
               [ SINGLESIZE <nWCalen>[, <nHCalen> ]] ;
               [ <dlg:OF,DIALOG> <oDlg> ] ;
               [ DATE <dDate> ] ;
               [ ACTION <uAction,...> ] ;
               [ <lBtnClose: BTNCLOSE> ] ;
               [ <lBtnYear: BTNSYEAR> ] ;
               [ COLORHDR <nClrTHdr> [,<nClrPHdr> [,<nClrPHdr2> ]]] ;
               [ COLORARROW <nClrArrow> ] ;
               [ FONT <oFont> ] ;
               [ <color: COLOR, COLORS> <nClrText> [,<nClrPane> ] ] ;
               [ <lActClick: CLICK > ];
               [ <lMirrowHdr: MIRROWHDR> ] ;
               [ <lBorder: NOBORDER> ] ;
               [ COLORBORDER <nClrBorder> ] ;
      => ;
  [ <oCalen> := ] TCalendar():New( <nTop>, <nLeft>, <nWidth>, <nHeigth>, <oDlg> ,;
                         <dDate>                                                 ,;
                         [{|this|<uAction>} ]                                    ,;
                         <.lBtnClose.>                                           ,;
                          <nClrPHdr>                                             ,;
                          <nClrTHdr>                                             ,;
                          <oFont>                                                ,;
                          <nClrText>                                             ,;
                          <nClrPane>                                             ,;
                          <nClrArrow>                                            ,;
                          <.lActClick.>                                          ,;
                          <nWCalen>                                              ,;
                          <nHCalen>                                              ,;
                          <.lBtnYear.>                                           ,;
                          <nClrPHdr2>                                            ,;
                          <.lMirrowHdr.>                                         ,;
                          !<.lBorder.>                                           ,;
                          <nClrBorder>  )


#xcommand REDEFINE VCALENDAR [ <oCalen> ] ;
               ID <nId> ;
               [ SINGLESIZE <nWCalen>[, <nHCalen> ]] ;
               [ <dlg:OF,DIALOG> <oDlg> ] ;
               [ DATE <dDate> ] ;
               [ ACTION <uAction,...> ] ;
               [ <lBtnClose: BTNCLOSE> ] ;
               [ <lBtnYear: BTNSYEAR> ] ;
               [ COLORHDR <nClrTHdr> [,<nClrPHdr> [,<nClrPHdr2>]]] ;
               [ COLORARROW <nClrArrow> ] ;
               [ FONT <oFont> ] ;
               [ <color: COLOR, COLORS> <nClrText> [,<nClrPane> ] ] ;
               [ <lActClick: CLICK > ];
               [ <lMirrowHdr: MIRROWHDR> ] ;
               [ <lBorder: NOBORDER> ] ;
               [ COLORBORDER <nClrBorder> ] ;
       => ;
  [ <oCalen> := ] TCalendar():Redefine( <oDlg>, <nId>, ;
                         <dDate>                                                 ,;
                         [{|this|<uAction>} ]                                    ,;
                         <.lBtnClose.>                                           ,;
                          <nClrPHdr>                                             ,;
                          <nClrTHdr>                                             ,;
                          <oFont>                                                ,;
                          <nClrText>                                             ,;
                          <nClrPane>                                             ,;
                          <nClrArrow>                                            ,;
                          <.lActClick.>                                          ,;
                          <nWCalen>                                              ,;
                          <nHCalen>                                              ,;
                          <.lBtnYear.>                                           ,;
                          <nClrPHdr2>                                            ,;
                          <.lMirrowHdr.>                                         ,;
                          !<.lBorder.>                                         ,;
                          <nClrBorder>  )

 

[Silvio.Falconi]

Who is the author of this Class ?

[joseluisysturiz]

Saludos AL, alguna imagen haber como pinta esa clase..? gracias...

[Antonio Linares]

Un usuario me envío el fichero de cabecera pero no tenemos el PRG de momento

[joseluisysturiz]

Un usuario me envío el fichero de cabecera pero no tenemos el PRG de momento

Ah ok, ni modo, quedara esperar...saludos...gracias...

[Silvio.Falconi]

Vcalendar is made byVagner many years ago...as vBar, vGet and others