paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-28 15:17:11 +01: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; CharSet: TFontCharSet;
Quality: TFontQuality; Quality: TFontQuality;
Name: TFontDataName; Name: TFontDataName;
Orientation: Integer;
end; end;
const const
@ -83,7 +84,8 @@ const
Style: []; Style: [];
Charset: DEFAULT_CHARSET; Charset: DEFAULT_CHARSET;
Quality: fqDefault; Quality: fqDefault;
Name: 'default' Name: 'default';
Orientation: 0;
); );
type type

3
lcl/include/font.inc
View File

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