Проблема с FontDialog
Добрый день!
Помогите пожалуйста решить мою проблему при работе с FontDialog. Проблема заключается в том, что я не знаю как синтаксически правильно задать стиль букв - подчеркнутый шрифт, зачеркнутый, жирный или курсив. (Все остальные опции я знаю как задавать).
Записывая следующий код система выдает ошибку:
if fontDialog1.Execute then
begin
...................
memo1.font.style.fsitalic:=fontdialog1.font.style.fsitalic;
.............................
end;
В справочной ситеме Delphi я, к сожалению, ничего не нашел по данному вопросу.
Заранеее всем благодарен.
Помогите пожалуйста решить мою проблему при работе с FontDialog. Проблема заключается в том, что я не знаю как синтаксически правильно задать стиль букв - подчеркнутый шрифт, зачеркнутый, жирный или курсив. (Все остальные опции я знаю как задавать).
Записывая следующий код система выдает ошибку:
if fontDialog1.Execute then
begin
...................
memo1.font.style.fsitalic:=fontdialog1.font.style.fsitalic;
.............................
end;
В справочной ситеме Delphi я, к сожалению, ничего не нашел по данному вопросу.
Заранеее всем благодарен.
В твоем случае вот так
И просто на будущее
Код:
Font.Style := FontDialog1.Font.Style;
И просто на будущее
Код:
Font.Style := [fsBold];//жирный
Font.Style := [fsItalic, fsUnderline];//курсив + подчеркивание
Font.Style := [];//Нормалный
Font.Style := Font.Style + [fsItalic];//Можно еще и вот так делать
Font.Style := [fsItalic, fsUnderline];//курсив + подчеркивание
Font.Style := [];//Нормалный
Font.Style := Font.Style + [fsItalic];//Можно еще и вот так делать
А еще лучше почитать про перечислимые и множественные типы данных в Delphi ;)
