[Lazarus] Animation library

José Mejuto joshyfun at gmail.com
Mon Feb 27 14:53:10 CET 2017


El 27/02/2017 a las 14:50, Graeme Geldenhuys via Lazarus escribió:

> uanimationcontrol.pas(619,11) Error: identifier idents no member "Width"
> uanimationcontrol.pas(620,11) Error: identifier idents no member "Height"
> ============================================
> {$ifdef Windows}
>   TRect = Windows.TRect;
> {$else}
>   TRect =
> {$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
>   packed
> {$endif FPC_REQUIRES_PROPER_ALIGNMENT}
>   record
>     case Integer of
>       0: (Left,Top,Right,Bottom : Longint);
>       1: (TopLeft,BottomRight : TPoint);
>     end;
> {$endif Windows}
>   PRect = ^TRect;
> ============================================

Hello,

Correct, swapped compilers :-( a few days ago :-(. Just change 
declaration of NRect from TRect to TAnimationRect and a bit below the:

DoMoveControlAsRect(NRect);

to:

DoMoveControlAsRect(NRect.GetAsRect);


-- 



More information about the Lazarus mailing list