Error MGERROR/0 Control: Say_02 Of oDlg Not defined. Program terminated. 
 --------------------------------- Stack Trace --------------------------------- 
 Called from MSGMINIGUIERROR(0) 
 Called from VERIFYCONTROLDEFINED(0) 
 Called from SETPROPERTY(0) 
 Called from (b)SHOWERROR(254) in module: errorsys2.prg 
 Called from DO_WINDOWEVENTPROCEDURE(0) 
 Called from FILLDLG(0) 
 Called from HMG_ALERT(0) 
 Called from SHOWERROR(267) in module: errorsys2.prg 
 Called from DEFERROR(150) in module: errorsys2.prg 
 Called from (b)ERRORSYS(66) in module: errorsys2.prg 
 Called from MYPRINTCARD(3064) in module: tbrw_fcard.prg 
 Called from (b)MYMENUBUTTONCARD(2912) in module: tbrw_fcard.prg 
 Called from (b)METRO3BUTTON(53) in module: metro3button.prg  
 ......

   SET MSGALERT FONTCOLOR TO WHITE 
       IF Hb_LangSelect() == "ru.RU1251"  
          aOptions := { '&Просмотр ошибки', '&Выход' } 
          cMsg     := "****** Произошла ошибка в программе ! ******;" 
          cMsg     += "*** НЕОБХОДИМО СВЯЗАТЬСЯ С ПРОГРАММИСТОМ ***;;"  
          IF M->nProgLang == 3  // укр. 
             aOptions := {'&Перегляд помилки', '&Вихід'} 
             cMsg     := " Сталася помилка в програмі ! ;" 
             cMsg     += "*** НЕОБХІДНО КОНТАКТИ З програмістів ***;;"           
          ENDIF 
       ELSE    
          aOptions := { '&View error', '&Exit'} 
          cMsg     := "A Run-Time Error Has Occured !;"                
          cMsg     += "*** IT IS NECESSARY TO CONTACT THE PROGRAMMER ***;;" 
       ENDIF 
  
       bInit   := {|| SetProperty("oDlg", "Say_01" , "FontColor", YELLOW   ) ,; 
                      SetProperty("oDlg", "Say_01" , "Alignment", "CENTER" ) ,; 
                      SetProperty("oDlg", "Say_02" , "FontColor", YELLOW   ) ,; 
                      SetProperty("oDlg", "Say_02" , "Alignment", "CENTER" ) ,; 
                      This.TopMost := .T. }  
       ............ 
       HMG_Alert_MaxLines( 35 )   // это Григорий добавил ! 
  
       IF HMG_Alert( cMsg, aOptions, "Program Error", nDefBtn, "iStop64", 64, aColors, bInit, .T. ) == 1 
         ShellExecute( , 'open', _HMG_ErrorLogFile, , , SW_SHOWNORMAL) 
       ENDIF    
       ....

bInit   := {|| SetProperty("oDlg", "Say_01" , "FontColor", YELLOW   ) ,; 
                      SetProperty("oDlg", "Say_01" , "Alignment", "CENTER" ) ,; 
                      This.TopMost := .T. } 

      bInit := {|| iif( GetControlType( "Say_01", "oDlg" ) == "EDIT", , ( ; 
          SetProperty( "oDlg", "Say_01", "FontColor", YELLOW ), ; 
          SetProperty( "oDlg", "Say_01", "Alignment", "CENTER" ), ; 
          SetProperty( "oDlg", "Say_02", "FontColor", YELLOW ), ; 
          SetProperty( "oDlg", "Say_02", "Alignment", "CENTER" ) ) ), ; 
          This.TopMost := .T. } 
 

 
             cMsg     := " Сталася помилка в програмі ! " + CRLF 
             cMsg     += "*** НЕОБХІДНО КОНТАКТИ З програмістів ***" + CRLF + CRLF           
             cMsg    += iif( _lShowDetailError(), cErrorMessage, ErrorMessage( oError ) )