IF xRet == NIL 
       xRet := 0x80004005 
    ENDIF 
 	IF ! ( xRet == 0x00000000 ) // 0x00000000 = success 
       cMess := "" 
 		IF xRet == 0x8007000E // out of memory 
 			cMess := "There is insufficient memory to complete the operation." 
 		ELSEIF xRet == 0x80070057 // invalid argument(s) 
 			cMess := "One or more arguments are not valid." 
 		ELSEIF xRet == 0x80004005 // Unspecified failure 
 			cMess := "Operation failed! (unknown reason)." 
 		ENDIF 
        
 		MsgExclamation( "Requested Icon          : " + hb_ntos( nIcon ) + hb_eol() + ; 
                       cMess + hb_eol() + ; 
                       "TaskDialog responded    : " + hb_ntos( xRet ) + "->" + MGM_GetWinErrorStr( xRet ) + hb_eol() + ; 
                       "(non-existent ?) resource ID: " + hb_ntos( nError ) + hb_eol(), "TaskDialog" ) 
 	ENDIF 
 

/* buttons */ 
 #define TDCBF_OK_BUTTON      1 // 0x1 
 #define TDCBF_YES_BUTTON     2 // 0x2 
 #define TDCBF_NO_BUTTON      4 // 0x4 
 #define TDCBF_CANCEL_BUTTON  8 // 0x8 
 #define TDCBF_RETRY_BUTTON  16 // 0x10 
 #define TDCBF_CLOSE_BUTTON  32 // 0x20 
  
 /* button-click return values */ 
 #define IDOK     1 
 #define IDCANCEL 2 
 #define IDABORT  3 
 #define IDRETRY  4 
 #define IDIGNORE 5 
 #define IDYES    6 
 #define IDNO     7 
 #define IDCLOSE  8 
  
 /* icons */ 
 #define TD_NO_ICON                 0 // No icon appears in the task dialog. This is the default. 
 #define TD_WARNING_ICON        65535 // An exclamation-point icon, along with warning sound. 
 #define TD_ERROR_ICON          65534 // A stop-sign icon, along with error sound. 
 #define TD_INFORMATION_ICON    65533 // An icon consisting of a lowercase letter `i` in a circle, along with info sound. 
 #define TD_SHIELD_ICON         65532 // A shield icon. NOTE: All shield icons have no sound! 
 #define TD_SHIELD_BLUE_ICON    65531 // A shield icon on a blue background. 
 #define TD_SHIELD_WARNING_ICON 65530 // An icon consisting of an exclamation-point in a shield. appears in yellow/orange background. 
 #define TD_SHIELD_ERROR_ICON   65529 // An icon consisting of a stop-sign in a shield. appears in red background. 
 #define TD_SHIELD_SUCCESS_ICON 65528 // An icon consisting of a tick-sign in a shield. appears in green background. 
 #define TD_SHIELD_BROWN_ICON   65527 // A shield icon on a brown background. 
 #define TD_QUESTION               99 // An icon consisting of a a question-mark in a circle, no sound!

 
 #translate System.WindowsFolder => GetWindowsFolder() 
  
 #translate Folder.Desktop      => GetDesktopFolder() 
 #translate Folder.MyDocuments  => GetMyDocumentsFolder() 
 #translate Folder.ProgramFiles => GetProgramFilesFolder() 
 #translate Folder.System       => GetSystemFolder() 
 #translate Folder.Temp         => GetTempFolder() 
 #translate Folder.Windows      => GetWindowsFolder()  
 

 
      DEFINE WINDOW wChild1   
 ... 
         CHILD ; 
 ... 
         nW := This.Width  - GetBorderWidth()*2 - 2 
  
 тип окна child C, т.е. _HMG_ThisType равно C 
  
 FUNCTION _SetThisFormInfo ( i ) 
 *-----------------------------------------------------------------------------* 
 #ifdef _HMG_COMPAT_ 
       _HMG_LastActiveFormIndex := i 
 #endif 
       _PushEventInfo() 
  
       _HMG_ThisFormIndex   := i 
       _HMG_ThisEventType   := 'DEFINE_WINDOW' 
       _HMG_ThisType        := _HMG_aFormType  [ _HMG_ThisFormIndex ]  
       _HMG_ThisIndex       := i 
       _HMG_ThisFormName    := _HMG_aFormNames [ _HMG_ThisFormIndex ] 
       _HMG_ThisControlName :=  "" 
  
 RETURN NIL 
  
 в i_this.ch везде проверяется iif ( _HMG_THISType == 'C' ,  GetControlHandle (...) , GetFormHandle (...) ) и путается с контролом 
 в 
 PROCEDURE _ProcessInitProcedure( i ) 
 ... 
       _HMG_ThisType := 'W' 
 ... 
 надо и в _SetThisFormInfo ( i ) тоже поставить  
       _HMG_ThisType := 'W'