BOOL TSteering::ExecuteNextCmd( void )
{
if (TheCmd->nFailureId)
{
MessageBox( GetFocus(), "Macro execution failed !", "Steerng", MBSTOP );
if (TheCmd)
{
delete TheCmd;
TheCmd = NULL;
}
return FALSE;
}
if (TheCmd)
{
delete TheCmd;
TheCmd = NULL;
}
// Function tested; Last changes 950814
if (TheCmdList[nCmdIdx].Id == Inquire)
//bInquireResult wird nirgendwo verändert!
nCmdIdx += (bInquireResult) ? 2 : 1;
else
nCmdIdx++;
switch (TheCmdList[nCmdIdx].Id)
{
case Stop:
// Kontrolle an Steuerfenster übergeben
NotifyMacroReady();
return FALSE;
case GotoLine:
nCmdIdx = TheCmdList[nCmdIdx].P1;
if((TheCmdList[nCmdIdx].Id == Stop) || (nCmdIdx > TheMacro->Length-1))
{
NotifyMacroReady();
return FALSE;
}
return TRUE;
default:
StartCmdExecution( TheCmdList[nCmdIdx] );
return TRUE;
}
}
Zurück zu SteeringReadyReaction()