From 0473402cf42dd88e8d57318ec7b1ab1cdd54b6de Mon Sep 17 00:00:00 2001 From: paul Date: Thu, 28 May 2009 14:03:35 +0000 Subject: [PATCH] lcl: use Screen.SystemFont for various LCL dialogs git-svn-id: trunk@20283 - --- lcl/include/promptdialog.inc | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lcl/include/promptdialog.inc b/lcl/include/promptdialog.inc index 0bbd46b81b..4c1cb4fe52 100644 --- a/lcl/include/promptdialog.inc +++ b/lcl/include/promptdialog.inc @@ -286,8 +286,8 @@ begin // calculate the width & height we need to display the Message // calculate the needed size for the text - TextBox := Rect(0,0, Screen.Width div 2,Screen.Height - 100); - SelectObject(Canvas.Handle, GetStockObject(DEFAULT_GUI_FONT)); + TextBox := Rect(0, 0, Screen.Width div 2, Screen.Height - 100); + SelectObject(Canvas.Handle, Screen.SystemFont.Reference.Handle); DrawText(Canvas.Handle, PChar(MSG), Length(MSG), TextBox, DT_WORDBREAK or DT_INTERNAL or DT_CALCRECT); @@ -415,7 +415,7 @@ begin // calculate the needed size for the text TextBox := Rect(0, 0, cTextWidth, Screen.Height - 100); - SelectObject(Canvas.Handle, GetStockObject(DEFAULT_GUI_FONT)); + SelectObject(Canvas.Handle, Screen.SystemFont.Reference.Handle); DrawText(Canvas.Handle, PChar(MSG), Length(MSG), TextBox, DT_WORDBREAK or DT_INTERNAL or DT_CALCRECT); @@ -602,7 +602,7 @@ begin MessageTxt := ' '; TextBox := Rect(0, 0, Screen.Width div 2, Screen.Height - 100); Flags := DT_CalcRect or DT_INTERNAL or DT_WordBreak; - SelectObject(Canvas.Handle, GetStockObject(DEFAULT_GUI_FONT)); + SelectObject(Canvas.Handle, Screen.SystemFont.Reference.Handle); DrawText(Canvas.Handle, PChar(MessageTxt), Length(MessageTxt), TextBox, Flags); // calculate the width we need to display the buttons