| 272 | //--------------------------------------------------------------------------- |
| 273 | |
| 274 | void __fastcall TExportF::Name_FileSelectClick(TObject *Sender) |
| 275 | { |
| 276 | SaveDialog1->InitialDir=Name->Text; |
| 277 | |
| 278 | if (!SaveDialog1->Execute()) |
| 279 | return; |
| 280 | |
| 281 | Name->Text=SaveDialog1->FileName; |
| 282 | Name_Adapt(); |
| 283 | } |
| 284 | //--------------------------------------------------------------------------- |
| 285 | |
| 286 | void TExportF::Export_Run() |