예제 #1
0
shotGun::shotGun()
{
createMenu();
createBoxes();

QVBoxLayout *mainLayout = new QVBoxLayout;
mainLayout->setMenuBar(menuBar);
mainLayout->addWidget(shootBox);
mainLayout->addWidget(corruptBox);
setLayout(mainLayout);

setWindowTitle(tr("Shoot files!"));
}
예제 #2
0
void __fastcall TfrmRetrieveMain::btnSaveListClick( TObject *Sender ) {
	String error;
	try {
		LPDbBoxType * boxType = getBoxType( );
		if( boxType == NULL ) {
			return;
		}
		LCDbCryoJob * job = createJob( );
		if( job == NULL ) {
			return;
		}
		Screen->Cursor = crSQLWait;
		createBoxes( *job, *boxType );

	} catch( Exception & ex ) {
		error = ex.Message;
	}
	Screen->Cursor = crDefault;
	if( error.IsEmpty( ) ) {
		ModalResult = mrOk;
	} else {
		Application->MessageBox( error.c_str( ), NULL, MB_OK );
	}
}