pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

extctrls/exquestiondlg: Do not use an empty string as font name

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8155 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-11-23 17:36:26 +00:00
parent aad769d418
commit 007e6e7dc9
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/exctrls/source/exquestiondlg.pas
View File

@ -478,6 +478,9 @@ var
QForm: TQForm; QForm: TQForm;
begin begin
QForm := TQForm.CreateNew(Screen.ActiveCustomForm); QForm := TQForm.CreateNew(Screen.ActiveCustomForm);
if QuestionDlgEx_FontName = '' then
QForm.Font.Name := 'default'
else
QForm.Font.Name := QuestionDlgEx_FontName; QForm.Font.Name := QuestionDlgEx_FontName;
QForm.Font.Size := QuestionDlgEx_FontSize; QForm.Font.Size := QuestionDlgEx_FontSize;
QForm.ButtonAlignment := QuestionDlgEx_ButtonAlignment; QForm.ButtonAlignment := QuestionDlgEx_ButtonAlignment;