trichview.com

trichview.support




Re: read from textfile


Return to index


Author

Message

domi

Posted: 10/22/2003 12:28:42


thank you very mutch, it helps in my solution but in there source there is a

small error


case CommandChar of

      'b':

        if fsBold in fi.Style then

          fi.Style := fi.Style-[fsBold]

        else

          fi.Style := fi.Style+[fsBold];

      'i':

        if fsItalic in fi.Style then

          fi.Style := fi.Style-[fsItalic]

        else

          fi.Style := fi.Style+[fsItalic];

      'u':

        if fsUnderline in fi.Style then           ====>>>> they have writen

here fsItalic

          fi.Style := fi.Style-[fsUnderline]

        else

          fi.Style := fi.Style+[fsUnderline];

    end;


thank you very mutch


domi





Powered by ABC Amber Outlook Express Converter