Не совсем понимаю, зачем фильтр при сохранении
Ну если очень хочется, то вот и пример:
Кусочек
Add(MainForm,2953706,154,70)
{
}
Add(SDialog,3749277,217,126)
{
Point(doFileName)
Point(FileName)
link(onExecute,11296997:doText,[])
link(FileName,12389720:String,[])
}
Add(Button,12280069,154,126)
{
Left=80
Top=20
Caption="Save"
link(onClick,3749277:doExecute,[])
}
Add(Edit,11296997,266,126)
{
Left=25
Top=115
Width=310
}
Add(ComboBox,12389720,210,63)
{
Left=10
Top=20
Height=21
Strings=#5:*.ipg|5:*.bmp|5:*.ini|5:*.sha|5:*.exe|5:*.txt|
link(onClick,3749277:doFileName,[(249,76)(249,118)(207,118)(207,139)])
}