paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 23:30:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

delay creating hintfont until it is asked for, PixelPerInch is then correctly initialized (fixes too large hint font)

Browse Source 
git-svn-id: trunk@8533 -
This commit is contained in:
vincents 2006-01-16 20:52:04 +00:00
parent 95a373e249
commit ce6dbded1c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/screen.inc
View File

@ -34,7 +34,6 @@ begin
FCustomFormsZOrdered:=TList.Create;
FFormList := TList.Create;
FPixelsPerInch:= ScreenInfo.PixelsPerInchX;
FHintFont := TFont.Create;
FSaveFocusedList := TList.Create;
end;
@ -427,6 +426,8 @@ end;
Function TScreen.GetHintFont: TFont;
begin
if (FHintFont=nil) then
FHintFont := TFont.Create;
if not WidgetSet.InitHintFont(FHintFont) then
begin
// FHintFont.Name := 'courier';