<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=ISO-8859-15">
</head>
<body bgcolor="#FFFFFF" text="#000000">
Hi,<br>
<br>
i cannot compile actual lazarus trunk version:<br>
<br>
Stops here:<br>
<br>
procedure TLazCanvas.AssignFontData(AFont: TFPCustomFont);<br>
begin<br>
if AFont = nil then Exit;<br>
Font.FPColor := AFont.FPColor;<br>
Font.Name := AFont.Name;<br>
Font.Size := AFont.Size;<br>
Font.Bold := AFont.Bold;<br>
Font.Italic := AFont.Italic;<br>
Font.Underline := AFont.Underline;<br>
<font color="#ff0000"> {$IF (FPC_FULLVERSION=20601) or
(FPC_FULLVERSION>=20701)} //changed in 2.6.1 and 2.7; remove
when FPC 2.6.2+ only is supported<br>
Font.StrikeThrough := AFont.StrikeThrough;<br>
</font> {$ELSE}<br>
Font.StrikeTrough := AFont.StrikeTrough; //old version with typo<br>
{$ENDIF}<br>
end;<br>
<br>
error message is:<br>
<br>
C:\lazarus\lcl\lazcanvas.pas(765,8) Error: identifier idents no
member "StrikeThrough"<br>
<br>
<br>
Lazarus:<br>
<br>
Lazarus 1.1 r39792 FPC 2.6.1 i386-win32-win32/win64<br>
<br>
</body>
</html>