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