---------------------------------------------------------------------------
| 1646 | |
| 1647 | //--------------------------------------------------------------------------- |
| 1648 | void __fastcall TMainF::M_Options_ShowMenuClick(TObject *Sender) |
| 1649 | { |
| 1650 | //ToolBar |
| 1651 | if (Sender==ToolBar_View_ShowMenu) |
| 1652 | M_Options_ShowMenu->Checked=!M_Options_ShowMenu->Checked; |
| 1653 | |
| 1654 | int Height_Save=ClientHeight; //To have the same client heigth with or without menu |
| 1655 | |
| 1656 | bool Visible=false; |
| 1657 | if (M_Options_ShowMenu->Checked) |
| 1658 | Visible=true; |
| 1659 | |
| 1660 | for (int Pos=MainMenu->Items->Count-1; Pos>=0; Pos--) |
| 1661 | MainMenu->Items->Items[Pos]->Visible=Visible; |
| 1662 | ToolBar_View_ShowMenu->Visible=!Visible; |
| 1663 | |
| 1664 | if (!M_Options_ShowMenu->Checked && !M_Options_ShowToolBar->Checked) |
| 1665 | { |
| 1666 | M_Options_ShowToolBar->Checked=true; |
| 1667 | M_Options_ShowToolBarClick(NULL); |
| 1668 | } |
| 1669 | |
| 1670 | ClientHeight=Height_Save; |
| 1671 | } |
| 1672 | |
| 1673 | //--------------------------------------------------------------------------- |
| 1674 | void __fastcall TMainF::M_Options_Theme_SystemClick(TObject *Sender) |