mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-19 09:59:10 +02:00
LCL-Carbon: Fix FontDialog chosen font size. Issue #31213, patch from AlexeyT.
git-svn-id: trunk@53983 -
This commit is contained in:
parent
af53f65190
commit
738e927a6c
@ -523,7 +523,8 @@ begin
|
||||
nil, SizeOf(Size), nil, @Size) = noErr then
|
||||
begin
|
||||
//DebugLn('Size: ' + DbgS(RoundFixed(Size)));
|
||||
FontDialog.Font.Size := RoundFixed(Size);
|
||||
//API gives "size" which equals to LCL's height (LCL height has minus)
|
||||
FontDialog.Font.Height := -RoundFixed(Size);
|
||||
end;
|
||||
|
||||
if GetEventParameter(AEvent, kEventParamFontColor, typeFontColor,
|
||||
|
Loading…
Reference in New Issue
Block a user