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

lcl: add Orientation to the TFontData structure (fixes issue #0009754)

Browse Source 
git-svn-id: trunk@20868 -
This commit is contained in:
paul 2009-07-16 01:21:29 +00:00
parent 541321edb8
commit 6eb542a6f7
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/graphics.pp
View File

@ -69,6 +69,7 @@ type
CharSet: TFontCharSet;
Quality: TFontQuality;
Name: TFontDataName;
Orientation: Integer;
end;
const
@ -83,7 +84,8 @@ const
Style: [];
Charset: DEFAULT_CHARSET;
Quality: fqDefault;
Name: 'default'
Name: 'default';
Orientation: 0;
);
type

3
lcl/include/font.inc
View File

@ -165,6 +165,7 @@ begin
else
Pitch := fpDefault;
end;
Orientation := lfOrientation;
Handle := Font;
end;
end;
@ -1214,6 +1215,7 @@ begin
Result.CharSet := CharSet;
Result.Quality := Quality;
Result.Name := LeftStr(Name, SizeOf(Result.Name) - 1);
Result.Orientation := Orientation;
end;
function TFont.GetIsMonoSpace: boolean;
@ -1267,6 +1269,7 @@ begin
inherited SetFlags(7, fsUnderline in FStyle);
if (fsStrikeOut in OldStyle)<>(fsStrikeOut in FStyle) then
inherited SetFlags(8, fsStrikeOut in FStyle);
FOrientation := FontData.Orientation;
Changed;
end;
end;