Q&A

  • 폰트 다이얼로그에서 폰트의 Sytle을 가져오기....
어제 제가 같은 질문을 드린 내용이 있는데 제가 원하는 답이 아니더군요...

답변을 해주신 분들께 감사드립니다.

    if(Fonts.Execute) then begin
       ed_Font2.Text := Fonts.Font.Name;
       ed_Size2.Text := IntToStr(Fonts.Font.Size);
    end;

위와 같이하면 폰트의 이름과 사이즈를 가져오는데

폰트의 스타일(굵게, 이태릭, 밑줄)을 선택했을 때 위와같이

Edit에 뿌려주고 싶거든요....

사용했던 폰트의 내역을 저장하고 싶어서 입니다.
2  COMMENTS
  • Profile
    김수경 2002.07.04 20:07
    원하시는 결과가 나올지 모르겠네요. 참고만 하세요.

    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 ';


  • Profile
    cell 2002.07.05 02:20
    감사...