SaveAs and DefautlIOFormat

Hi Julian,

please do the following steps to reproduce:

1. New Project
2. TWPRichText and TButton on Form
3. WPRichText1.DefaultIOFormat := 'RTF'
4. ButtonOnClick : WPRichText.SaveAs();
5. Some Text in WPRichText
6. ButtonClick
7. Save in txt format.
8. Open file with notepad, format is RTF...

I think problem starts in WPCTRRich at line 3098

if DefaultIOFormat <> '' then def := DefaultIOFormat
    else def := TextSaveFormat;

Thanks
Patrick

Which filter did you select in the combo?

text (*.txt)

Patrick

any Update?

is there anything in the Version 5.30 solving this problem?

Regards
Patrick

You can add this line (at the end)

then case dia.FilterIndex of
2: def := 'HTML' + '-__' + def; // Reuse the options defined in the format !
3: def := 'ANSI' + '-__' + def;
4: def := 'WPT' + '-__' + def;
1: def := 'RTF' + '-__' + def;
end
else def := 'AUTO' + '-__' + def; //<----------- !!!

But you should use

DefaultIOFormat := 'AUTO'