---------------------------------------------------------------------------
| 326 | } |
| 327 | //--------------------------------------------------------------------------- |
| 328 | void __fastcall TSetupForm::AddFileButtonClick(TObject *Sender) |
| 329 | { |
| 330 | TStorageFile * p = new TStorageFile; |
| 331 | p->number = localSFL->GetNewNumber(); |
| 332 | localSFL->Add(p); |
| 333 | DrawGrid->RowCount = 1 + localSFL->Count; |
| 334 | DrawGrid->Row = DrawGrid->RowCount - 1; |
| 335 | DrawGrid->FixedRows = 1; |
| 336 | } |
| 337 | //--------------------------------------------------------------------------- |
| 338 | void __fastcall TSetupForm::DelFileButtonClick(TObject *Sender) |
| 339 | { |
nothing calls this directly
no test coverage detected