paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 01:57:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: less warnings

Browse Source 
git-svn-id: trunk@40634 -
This commit is contained in:
mattias 2013-03-24 11:58:49 +00:00
parent 10b317edcd
commit 743dd613d4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/lazcanvas.pas
View File

@ -761,8 +761,8 @@ begin
Font.Bold := AFont.Bold;
Font.Italic := AFont.Italic;
Font.Underline := AFont.Underline;
{$IF (FPC_FULLVERSION<=20600) or (FPC_FULLVERSION=20602)}
Font.StrikeTrough := AFont.StrikeTrough; //old version with typo
{$IF (FPC_FULLVERSION<=20600)}
Font.{%H-}StrikeTrough := AFont.{%H-}StrikeTrough; //old version with typo
{$ELSE}
Font.StrikeThrough := AFont.StrikeThrough;
{$ENDIF}