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
-- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
