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

cocoa: updating font dialog initialization. bug #33990

Browse Source 
git-svn-id: trunk@62529 -
This commit is contained in:
dmitry 2020-01-12 00:45:13 +00:00
parent 4ac51dd8f4
commit 18ce1577f9
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/cocoa/cocoawsdialogs.pas
View File

@ -548,6 +548,7 @@ var
accessoryView: NSView;
lRect: NSRect;
okButton, cancelButton: NSButton;
fn : NSFont;
begin
{$IFDEF VerboseWSClass}
DebugLn('TCocoaWSFontDialog.ShowModal for ' + ACommonDialog.Name);
@ -557,7 +558,10 @@ begin
fontPanel := NSFontPanel.sharedFontPanel();
inFont := TCocoaFont(FontDialog.Font.Handle);
fontPanel.setPanelFont_isMultiple(inFont.Font, False);
fn := inFont.Font;
if (CocoaBasePPI<>72) and (CocoaBasePPI<>0) then
fn := NSFont.fontWithDescriptor_size(fn.fontDescriptor, fn.pointSize / CocoaBasePPI * 72);
fontPanel.setPanelFont_isMultiple(fn, False);
FontDelegate := TFontPanelDelegate.alloc.init();
FontDelegate.FontPanel := FontPanel;