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);
--
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus-ide.org
http://lists.lazarus-ide.org/listinfo/lazarus
