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

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

*new TMenuItem( "10->16", Dec2HexCmd, kbAltG ) +

newLine() +

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

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

*new TMenuItem( "16->10", Hex2DecCmd, kbAltG )

);

}

//функція, що ініціалізує лінійку стану та забезпечує її роботу

TStatusLine *TProgApp::initStatusLine( TRect r )

{

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

return new TStatusLine( r,

*new TStatusDef( 0, 0xFFFF ) +

*new TStatusItem( "~Alt-X~ - Exit", kbAltX, cmQuit ) +

*new TStatusItem( "~Alt-I~ - iнформацiя про програму", kbAltI, InfoCmd ) +

*new TStatusItem( "~F1~ - довiдка", kbF1, HelpCmd ) +

*new TStatusItem( 0, kbF10, cmMenu )

);

}//функція, яка виводить початкову заставку при старті програми

void StartWindow()

{

int i,j;

textcolor(WHITE);

textbackground(BLACK);