---------------------------------------------------------------------------
| 1382 | } |
| 1383 | //--------------------------------------------------------------------------- |
| 1384 | void __fastcall TMainForm::aRotatePrevExecute(TObject *Sender) |
| 1385 | { |
| 1386 | TStorageFile * sf = fdb->GetByNumber( FileNumber ); |
| 1387 | if( ! sf ) |
| 1388 | return; |
| 1389 | if( ! sf->IsRotationEnable() ) |
| 1390 | return; |
| 1391 | String f = sf->RotationLogGetItem(FileRotationNumber+1); |
| 1392 | if( f.IsEmpty() ) |
| 1393 | return; |
| 1394 | if( ! FileExists(f) ) |
| 1395 | return; |
| 1396 | FileRotationNumber++; |
| 1397 | SetFile( f ); |
| 1398 | UpdateRotationViewControl(); |
| 1399 | } |
| 1400 | //--------------------------------------------------------------------------- |
| 1401 | void __fastcall TMainForm::aRotateNextExecute(TObject *Sender) |
| 1402 | { |
nothing calls this directly
no test coverage detected