---------------------------------------------------------------------------
| 40 | } |
| 41 | //--------------------------------------------------------------------------- |
| 42 | void __fastcall TFileFr::SpeedButton2Click(TObject *Sender) |
| 43 | { |
| 44 | OpenDialog->Title = "Select file"; |
| 45 | OpenDialog->Filter = "All files (*.*)|*.*"; |
| 46 | OpenDialog->DefaultExt = ""; |
| 47 | if( OpenDialog->Execute() ) |
| 48 | FileEdit->Text = OpenDialog->FileName; |
| 49 | } |
| 50 | //--------------------------------------------------------------------------- |
| 51 | void TFileFr::ToDialog(TStorageFile * p) |
| 52 | { |