[Lazarus] lcl\include\canvas.inc

[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-ide.org/pipermail/lazarus/attachments/20151117/44abd82f/attachment-0002.html>