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:
Cita:
[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