[Lazarus] trunk compile error Win XP : Error: identifier idents no member "StrikeThrough"

[John Landmesser]

Hi,

i cannot compile actual lazarus trunk version:

Stops here:

procedure TLazCanvas.AssignFontData(AFont: TFPCustomFont);
begin
   if AFont = nil then Exit;
   Font.FPColor := AFont.FPColor;
   Font.Name := AFont.Name;
   Font.Size := AFont.Size;
   Font.Bold := AFont.Bold;
   Font.Italic := AFont.Italic;
   Font.Underline := AFont.Underline;
   {$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
   Font.StrikeThrough := AFont.StrikeThrough;
   {$ELSE}
   Font.StrikeTrough := AFont.StrikeTrough; //old version with typo
   {$ENDIF}
end;

error message is:

C:\lazarus\lcl\lazcanvas.pas(765,8) Error: identifier idents no member 
"StrikeThrough"


Lazarus:

Lazarus 1.1 r39792 FPC 2.6.1 i386-win32-win32/win64

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20130123/c732fae2/attachment-0002.html>