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

//конструктор основного класу

TProgApp::TProgApp() :

TProgInit( &TProgApp::initStatusLine,

&TProgApp::initMenuBar,

&TProgApp::initDeskTop

)

{

struct DialogData DialogData;

struct DialogData *DataPtr;

DataPtr->from=1;

DataPtr->to=2;

strcpy(DataPtr->InputLine,"0000000000000");

strcpy(DataPtr->OutputLine,"xXx");

}

//калькулятор, виводить на екран діалогове вікно, у якому користувач може

//перевести числа в різні системи числення

ushort TProgApp::calculator()

{

struct DialogData *DataPtr;

do{

TDialog *d = new TDialog(TRect( 14, 5, 66, 16 ), "Виберiть варiант переведення числа" );

d->insert( new TButton( TRect( 30, 8, 39, 10 ), " OK! ", cmOK, bfDefault ) );

d->insert( new TButton( TRect( 39, 8, 48, 10 ), "Cancel", cmCancel, bfNormal ) );

TCluster *b=new TRadioButtons(TRect(1,4,8,8),

new TSItem("2",