Навчальна програма переведення дійсних чисел з 2,8,10,16 у 2,8,10,16 системи числення

}

}

//функція, що ініціалізує головне меню та забезпечує його роботу

TMenuBar *TProgApp::initMenuBar( TRect r )

{

r.b.y = r.a.y+1;

return new TMenuBar( r,

*new TSubMenu( "~М~еню", kbAltV ) +

*new TMenuItem( "~К~алькулятор...", CalcCmd, kbAltJ ) +

newLine() +

*new TMenuItem( "~В~ихiд", cmQuit, cmQuit, hcNoContext, "Alt-X" ) +

*new TSubMenu( "~Д~овiдка", kbAltL ) +

*new TMenuItem( "~П~ро програму...", InfoCmd, kbAltG ) +

newLine() +

*new TMenuItem( "~Д~опомога", HelpCmd, kbAltG ) +

newLine() +

*new TMenuItem( "2->8", Bin2OctCmd, kbAltG ) +

*new TMenuItem( "2->10", Bin2DecCmd, kbAltG ) +

*new TMenuItem( "2->16", Bin2HexCmd, kbAltG ) +

newLine() +

*new TMenuItem( "8->2", Oct2BinCmd, kbAltG ) +

*new TMenuItem( "8->10", Oct2DecCmd, kbAltG ) +

*new TMenuItem( "8->16", Oct2HexCmd, kbAltG ) +

newLine() +

*new TMenuItem( "10->2", Dec2BinCmd, kbAltG ) +