paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 19:49:18 +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; accessoryView: NSView;
lRect: NSRect; lRect: NSRect;
okButton, cancelButton: NSButton; okButton, cancelButton: NSButton;
fn : NSFont;
begin begin
{$IFDEF VerboseWSClass} {$IFDEF VerboseWSClass}
DebugLn('TCocoaWSFontDialog.ShowModal for ' + ACommonDialog.Name); DebugLn('TCocoaWSFontDialog.ShowModal for ' + ACommonDialog.Name);
@ -557,7 +558,10 @@ begin
fontPanel := NSFontPanel.sharedFontPanel(); fontPanel := NSFontPanel.sharedFontPanel();
inFont := TCocoaFont(FontDialog.Font.Handle); 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 := TFontPanelDelegate.alloc.init();
FontDelegate.FontPanel := FontPanel; FontDelegate.FontPanel := FontPanel;