---------------------------------------------------------------------------
| 1366 | } |
| 1367 | //--------------------------------------------------------------------------- |
| 1368 | void __fastcall TMainForm::aHideBarsExecute(TObject *Sender) |
| 1369 | { |
| 1370 | if( ToolBar->Visible ) |
| 1371 | { |
| 1372 | GroupBox1->Visible = false; |
| 1373 | ToolBar->Visible = false; |
| 1374 | aHideBars->Caption = "Show tool bars"; |
| 1375 | } |
| 1376 | else |
| 1377 | { |
| 1378 | GroupBox1->Visible = true; |
| 1379 | ToolBar->Visible = true; |
| 1380 | aHideBars->Caption = "Hide tool bars"; |
| 1381 | } |
| 1382 | } |
| 1383 | //--------------------------------------------------------------------------- |
| 1384 | void __fastcall TMainForm::aRotatePrevExecute(TObject *Sender) |
| 1385 | { |
nothing calls this directly
no outgoing calls
no test coverage detected