Para Karinha

[FranciscoA]

Hola Karinha.
He leíodo en un post donde se habla de un calendario grande tuyo.
Sería posible que puedas compartirlo con este servidor?
Saludos.

[karinha]

Esto?

https://imgur.com/20wkVfN



Puedes bajar aqui:

http://www.pctoledo.com.br/forum/viewtopic.php?f=2&t=19203

Saludos.

[FranciscoA]

Karlnha.
Lo he descargado. Voy a tratar de adaptarlo a mi programa. Saludos.
Gracias.

[karinha]

Perdón, faltó el archivo * .CH - Obj2Hb.CH

Code: Select all  Expand view

//----------------------------------------------------------------------------//
//  AUTOR.....: Manuel Exp¢sito Su rez    Soft 4U '98                         //
//  e-Mail....: maex14@dipusevilla.es                                         //
//  CLASE.....: Obj2Hb.CH                                                     //
//  FECHA MOD.: 10/11/2000                                                    //
//  VERSION...: 9.00                                                          //
//  PROPOSITO.: Compatibiliza HARBOUR OOP con Objects                         //
//----------------------------------------------------------------------------//


#ifdef __HARBOUR__

    #xtranslate AS ALL     => AS ANYTYPE     // Compatible con OBJECTS
    #xtranslate AS BLOCK   => AS CODEBLOCK

    // Extraido de Objects.ch

    #xcommand DEFAULT <Desc> [, <DescN> ]      => ;
                      __DFT__( <Desc> ) [ ; __DFT__( <DescN> ) ]

    #xtranslate __DFT__( <Var> := <Dft> ) => ;
                if( <Var> == nil, <Var> := <Dft>, )

    #xtranslate __DFT__( <Var> = <Dft> )  => ;
                __DFT__( <Var> := <Dft> )

    #xtranslate BYNAME <V> [, <VN> ]     => ::<V> := <V> [; ::<VN> := <VN> ]
    #xtranslate BYNAME <V> DEFAULT <Val> => ::<V> := BYDEFAULT <V>, <Val>
    #xtranslate BYDEFAULT <V>, <Val>     => if( <V> == NIL, <Val>, <V> )
    #xtranslate BYNAME <V> IFNONIL       => ;
                                if <V> != NIL ;;
                                    ::<V> := <V> ;;
                                end
    #xtranslate BYDEFAULT <V>, <Val>     => if( <V> == NIL, <Val>, <V> )

    #include "HBClass.ch"

#else

    #include "Objects.ch"

#endif

//----------------------------------------------------------------------------//
 

[karinha]

Acá hay otro modelo, pero no me gusta. by Daniel Garcia Gil.

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=18594&start=0

Acá otra versión del que uso.

http://fivewin.com.br/index.php?/topic/16640-altera%C3%A3%C2%A7%C3%A3%C2%A3o-na-classe-tcalendar/#comment-4218

Saludos.

[FranciscoA]

Gracias, Karinha.