pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

carbon: fix for incorrect font size set

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@960 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2009-09-18 10:28:07 +00:00
parent 43e0ffe21f
commit 06f6bd2021
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/richmemo/carbon/carbonrichmemo.pas
View File

@ -176,7 +176,7 @@ procedure AttrSetSize(FontSize: Integer; var Attr: TXNTypeAttributes);
begin
Attr.tag := kTXNQDFontSizeAttribute;
Attr.size := kTXNQDFontSizeAttributeSize;
Attr.data.dataValue := FontSize;
Attr.data.dataValue := Long2Fix(FontSize);
end;
procedure AttrSetStyle(FontStyle: TFontStyles; var Attr: TXNTypeAttributes);