TExtCalendar - Calendario alternativo a TCalendar

[[egostar]]

Gracias Ñuño

Me parece muy interesante probar tu componente en delphi, también lo probaré en mi XE2 y en XE7.

Saludos

[Casimiro Noteví]

[Ñuño Martínez]

Empezado por dec

Caramba. Veo que entre la VCL y la LCL hay muchas más diferencias de lo que pensaba. ¡Incluso en la RTL! Se me hace extrañísimo que las funciones LeftStr y RightStr no estén definidas en SysUtils, o que TCanvas no tenga propiedades de ancho y alto (Width, Height).

Gracias por el informe. No sé si se podrá hacer compatible con Delphi.

[ecfisa]

Hola Ñuño.

Muchas gracias por compartirlo.

Saludos

[ecfisa]

Hola de nuevo Ñuño.

Probando en Delphi 7...

En principio, hay que declarar los tipos TTextLayout y TTextStyle previo a la declaración de la clase ya que no existe:

Código Delphi [-]
type
  TTextLayout = (tlTop, tlCenter, tlBottom);
    
  TTextStyle = packed record      
    Alignment: TAlignment;
    Layout: TTextLayout;
    SingleLine: Boolean;
    Clipping: Boolean;
    ExpandTabs: Boolean;
    ShowPrefix: Boolean;
    Wordbreak: Boolean;
    Opaque: Boolean;
    SystemFont: Boolean;
    RightToLeft: Boolean;
    EndEllipsis: Boolean;
  end;
  ...
  TCustomExtCalendar = CLASS (TGraphicControl)
  ...

Luego de eso me aparece:

[Error] extcalendar.pas(122): Method 'GetControlClassDefaultSize' not found in base class
[Error] extcalendar.pas(266): Property 'OnMouseEnter' does not exist in base class
[Error] extcalendar.pas(269): Property 'OnMouseLeave' does not exist in base class
[Fatal Error] extcalendar.pas(310): File not found: 'LazUTF8.dcu'

Estoy acostumbrado a lidiar con los enventos OnMouseEnter y OnMouseLeave en Delphi 7 y no vas a tener problemas con eso, versiones posteriores ya los incluyen. Si encuentro algo mas lo pongo aquí .

Saludos

[[nlsgarcia]]

Ñuño,

¡Excelente!

Nelson.

[Ñuño Martínez]

Gracias por los ánimos.

ecfisa: Gracias por la información. Aunque no sé si definir los tipos TTextLayout y TTextStyle, porque más adelante se utilizan como parámetro de un método de TCanvas (método que creo que no existe en la VCL).