Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus / 2015-11

lcl\include\canvas.inc

2 messages · 2 people ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Sandro Cumerlato

Hello,
I can't build Lazarus svn trunk (using FPC svn trunk):

canvas.inc(463,12) Error: Identifier not found "tagSIZE"
canvas.inc(463,19) Error: Error in type definition
canvas.inc(466,14) Error: Illegal qualifier
canvas.inc(467,14) Error: Illegal qualifier
graphics.pp(2876) Fatal: There were 4 errors compiling module, stopping
Fatal: Compilation aborted

It should be TSize instead of tagSIZE:

=================================================================== --- lcl/include/canvas.inc (revision 50370)
+++ lcl/include/canvas.inc (working copy)
@@ -460,7 +460,7 @@

 procedure TCanvas.DoGetTextSize(Text: string; var w, h: integer);
 var
-  TxtSize: tagSIZE;
+  TxtSize: TSize;
 begin
   TxtSize:=TextExtent(Text);
   w:=TxtSize.cx;

Am I wrong?

Sandro
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20151117/44abd82f/attachment.html>

Reply by email