[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

--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus