You've already forked lazarus-ccr
extctrls/exquestiondlg: Do not use an empty string as font name
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8155 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@ -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;
|
||||||
|
Reference in New Issue
Block a user