paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-05 14:38:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: use Screen.SystemFont for various LCL dialogs

Browse Source 
git-svn-id: trunk@20283 -
This commit is contained in:
paul 2009-05-28 14:03:35 +00:00
parent 5a3658f85b
commit 0473402cf4
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/promptdialog.inc
View File

@ -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