paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 15:39:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixes compilation of Lazarus with FPC trunk due to the fix to spelling mistake in TFPCustomFont

Browse Source 
git-svn-id: trunk@39870 -
This commit is contained in:
sekelsenmat 2013-01-17 09:17:52 +00:00
parent 154caf4c01
commit f758bdf235
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/aggpas/src/agg_fpimage.pas
View File

@ -382,7 +382,7 @@ type
property Bold; // only windows property Bold; // only windows
property Italic; // only windows property Italic; // only windows
property Underline; // not supported property Underline; // not supported
property StrikeTrough; // not supported //property StrikeThrough; // not supported, uncomment when FPC 2.6.2+ only is supported
end; end;
{ TAggFPPath } { TAggFPPath }

2
components/fpvectorial/fpvectorial.pas
View File

@ -1198,7 +1198,7 @@ begin
ADest.Font.Bold := Font.Bold; ADest.Font.Bold := Font.Bold;
ADest.Font.Italic := Font.Italic; ADest.Font.Italic := Font.Italic;
ADest.Font.Underline := Font.Underline; ADest.Font.Underline := Font.Underline;
ADest.Font.StrikeTrough := Font.StrikeThrough; //ADest.Font.StrikeThrough := Font.StrikeThrough; uncomment when FPC 2.6.2+ only is supported
{$ifdef USE_LCL_CANVAS} {$ifdef USE_LCL_CANVAS}
ALCLDest.Font.Orientation := Round(Font.Orientation * 16); ALCLDest.Font.Orientation := Round(Font.Orientation * 16);
{$endif} {$endif}

2
lcl/interfaces/customdrawn/customdrawnwinapi.inc
View File

@ -4090,7 +4090,7 @@ begin
TM.tmBreakChar := '?'; TM.tmBreakChar := '?';
TM.tmItalic := Ord(lFont.Italic); TM.tmItalic := Ord(lFont.Italic);
TM.tmUnderlined := Ord(lFont.Underline); TM.tmUnderlined := Ord(lFont.Underline);
TM.tmStruckOut := Ord(lFont.StrikeTrough); //TM.tmStruckOut := Ord(lFont.StrikeThrough); uncomment when FPC 2.6.2+ only is supported
{ Defaults to a TrueType font. { Defaults to a TrueType font.
Note that the meaning of the FIXED_PITCH constant is the opposite of Note that the meaning of the FIXED_PITCH constant is the opposite of

2
lcl/lazcanvas.pas
View File

@ -761,7 +761,7 @@ begin
Font.Bold := AFont.Bold; Font.Bold := AFont.Bold;
Font.Italic := AFont.Italic; Font.Italic := AFont.Italic;
Font.Underline := AFont.Underline; Font.Underline := AFont.Underline;
Font.StrikeTrough := AFont.StrikeTrough; //Font.StrikeThrough := AFont.StrikeThrough; uncomment when FPC 2.6.2+ only is supported
end; end;
{ TFPWindowsSharpInterpolation } { TFPWindowsSharpInterpolation }