1 #include "workflow\TSetFileNameCmd.h"
    2 
    3 extern TMain Main;
    4 
    5 TSetFileNameCmd::TSetFileNameCmd ( TCmdTag ct ) : TCmd(ct)
    6 {
    7         eStep= CReady;
    8         switch (ct.P1)
    9         {
   10                 case ForScan:
   11                         ScanW= (TScanWindow*)Main.ScanWindow;
   12                         if (ScanW)
   13                                 ScanW->SetFileName(ct.P3);
   14                         break;
   15 
   16                 case ForAreaScan:
   17                         AreaScanW= (TAreaScanWindow*)Main.ScanWindow;
   18                         if (AreaScanW)
   19                                 AreaScanW->SetFileName(ct.P3);
   20                         break;
   21         }
   22         bNoMeasure= TRUE;
   23 };
   24 
   25 void TSetFileNameCmd::GetName ( LPSTR aName )
   26 {
   27         strcpy( aName, "SetFileName" );
   28 };
   29 
   30 bool TSetFileNameCmd::GetShowData ( LPSTR buffer )
   31 {
   32         buffer[0]= 0;
   33         if ( eStep == CReady )
   34         {
   35                 if (nFailureId == 1)
   36                 {
   37                         #ifdef GermanVersion
   38                                 sprintf(buffer, "\"SetFileName\"-Kommando fehlgeschlagen.");
   39                         #else
   40                                 sprintf(buffer, "\"SetFileName\"-Command failed.");
   41                         #endif
   42                 }
   43                 else
   44                 {
   45                         #ifdef GermanVersion
   46                                 sprintf(buffer, "\"SetFileName\"-Kommando erfolgreich.");
   47                         #else
   48                                 sprintf(buffer, "\"SetFileName\"-Command ready.");
   49                         #endif
   50                 }
   51         }
   52         return true;
   53 }
   54