어제 제가 같은 질문을 드린 내용이 있는데 제가 원하는 답이 아니더군요...
답변을 해주신 분들께 감사드립니다.
if(Fonts.Execute) then begin
ed_Font2.Text := Fonts.Font.Name;
ed_Size2.Text := IntToStr(Fonts.Font.Size);
end;
위와 같이하면 폰트의 이름과 사이즈를 가져오는데
폰트의 스타일(굵게, 이태릭, 밑줄)을 선택했을 때 위와같이
Edit에 뿌려주고 싶거든요....
사용했던 폰트의 내역을 저장하고 싶어서 입니다.
ed_Style2.Text := '';
if fsBold in Fonts.Font.Style ed_Style2.Text := ed_Style2.Text + 'BOLD ';
if fsItalic in Fonts.Font.Style ed_Style2.Text := ed_Style2.Text + 'Italic ';
if fsUnderline in Fonts.Font.Style ed_Style2.Text := ed_Style2.Text + 'Underline ';
if fsStrikeOut in Fonts.Font.Style ed_Style2.Text := ed_Style2.Text + 'StrikeOut ';