---------------------------------------------------------------------------
| 1399 | } |
| 1400 | //--------------------------------------------------------------------------- |
| 1401 | void __fastcall TMainForm::aRotateNextExecute(TObject *Sender) |
| 1402 | { |
| 1403 | TStorageFile * sf = fdb->GetByNumber( FileNumber ); |
| 1404 | if( ! sf ) |
| 1405 | return; |
| 1406 | if( ! sf->IsRotationEnable() ) |
| 1407 | return; |
| 1408 | String f = sf->RotationLogGetItem(FileRotationNumber-1); |
| 1409 | if( f.IsEmpty() ) |
| 1410 | return; |
| 1411 | if( ! FileExists(f) ) |
| 1412 | return; |
| 1413 | FileRotationNumber--; |
| 1414 | SetFile( f ); |
| 1415 | UpdateRotationViewControl(); |
| 1416 | } |
| 1417 | //--------------------------------------------------------------------------- |
| 1418 | void __fastcall TMainForm::UpdateRotationViewControl(void) |
| 1419 | { |
nothing calls this directly
no test coverage detected