[Lazarus] Animation library

[Graeme Geldenhuys]

On 2017-02-27 12:55, José Mejuto via Lazarus wrote:
> It has been tested with Lazarus 1.6 and fpc 3.0.0 in Windows, but Linux 
> should work also.

I tried to compile the "Animated Controls Sample" project and got the
following errors under 64bit FreeBSD using FPC 3.0.1


==============================
Hint: Start of reading config file /home/graemeg/.fpc.cfg
Hint: End of reading config file /home/graemeg/.fpc.cfg
Verbose: Free Pascal Compiler version 3.0.1 [2016/05/09] for x86_64
Verbose: Copyright (c) 1993-2015 by Florian Klaempfl and others
Verbose: Target OS: FreeBSD for x86-64
Verbose: Compiling controlsample.lpr
Verbose: Compiling frmcontrolsample.pas
Verbose: Compiling /tmp/test/src/uanimationbasic.pas
Verbose: Compiling /tmp/test/src/uanimationtypes.pas
uanimationbasic.pas(619,3) Note: Local variable "lUseHighPrecision" not used
Verbose: Compiling /tmp/test/src/uanimationcontrol.pas
uanimationcontrol.pas(619,11) Error: identifier idents no member "Width"
uanimationcontrol.pas(620,11) Error: identifier idents no member "Height"
uanimationcontrol.pas(672,0) Verbose: There were 2 errors compiling
module, stopping
Verbose: Compilation aborted

==============================

I then tried with FPC 3.0.0 and got the exact same error.


According to FPC's types.pp unit, the TRect doesn't have a Width and
Height property.

============================================
{$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;
============================================


Regards,
  Graeme

-- 
fpGUI Toolkit - a cross-platform GUI toolkit using Free Pascal
http://fpgui.sourceforge.net/

My public PGP key:  http://tinyurl.com/graeme-pgp