SET MSGFUNCT FONT TO cFont, nFontSize  

SET FONT TO cFont, nFontSize 

SET MSGFUNCT SIZE 256  // или 48, 64, 72, 96, 128 
 SET MSGINFO  SIZE 64 ICO "INFO64.ICO"

SET MSGINFO  BACKCOLOR aDim1 FONTCOLOR aDim2 
 SET MSGSTOP  BACKCOLOR aDim1 FONTCOLOR aDim2 
 SET MSGEXCL  BACKCOLOR aDim1 FONTCOLOR aDim2 
 SET MSGDEBUG BACKCOLOR aDim1 FONTCOLOR aDim2

Msg2Info(), Msg2Stop(), Msg2Exclamation(), Msg2Debug() 
 

SET MSG2FUNCT FONT TO cFont, nFontSize   
 SET MS2GINFO  SIZE 64 ICO "INFO64.ICO" 
  
 Msg2Info( cMsg , "Инфо", ......, cFont, nFontSize, 64, "INFO64.ICO", aDim1, aDim2 )

 
    DEFINE TBROWSE Tsb_Alert AT nY,nX WIDTH nW HEIGHT nH ALIAS xArray CELL 
     :nHeightHead  := 1    
    END TBROWSE    
 

 
 /* 
  * MINIGUI - Harbour Win32 GUI library Demo 
  * 
 */ 
  
 #include "minigui.ch" 
  
 FUNCTION Main 
    LOCAL cVal := ' demo ', i, cTxt := '' 
  
    cVal += repl('_', 150)+' '+cVal+CRLF 
    FOR i := 1 TO 9500 
        cTxt += str(i,4)+cVal 
    NEXT 
  
    DEFINE WINDOW Form_1 ; 
       AT 0, 0 ; 
       WIDTH 640 HEIGHT 480 ; 
       TITLE 'Harbour MiniGUI Demo' ; 
       ICON 'demo.ico' ; 
       MAIN ; 
       ON INIT ( Form_1.Edit_1.Value := cTxt ) ; 
       FONT 'Arial' SIZE 10 
  
       DEFINE STATUSBAR 
          STATUSITEM 'HMG Power Ready!' 
       END STATUSBAR 
  
       @ 30, 10 EDITBOX Edit_1 ; 
          WIDTH 410 ; 
          HEIGHT 140 ; 
          VALUE '' READONLY ; 
          TOOLTIP 'EditBox' ; 
          MAXLENGTH len(cTxt)+100 ; 
          ON CHANGE ShowRowCol() // NOHSCROLL 
  
       DEFINE BUTTON B 
          ROW 250 
          COL 10 
          CAPTION 'Set CaretPos' 
          ACTION ( Form_1.Edit_1.CaretPos := Val( InputBox( 'Set Caret Position', '' ) ), Form_1.Edit_1.SetFocus ) 
       END BUTTON 
  
       DEFINE TIMER Timer_1 INTERVAL 100 ACTION ShowRowCol() 
  
    END WINDOW 
  
    Form_1.Center() 
  
    Form_1.Activate() 
  
 RETURN NIL 
  
  
 PROCEDURE ShowRowCol 
  
    LOCAL s, c, i, e, q 
 	 
    s := Form_1.Edit_1.Value 
    c := Form_1.Edit_1.CaretPos 
    e := 0 
    q := 0 
  
    FOR i := 1 TO c 
       IF SubStr ( s, i, 1 ) == Chr( 13 ) 
          e++ 
          q := 0 
       ELSE 
          q++ 
       ENDIF 
    NEXT i 
  
    Form_1.StatusBar.Item( 1 ) := 'Row: ' + hb_ntos( e + 1 ) + ' Col: ' + hb_ntos( q ) 
  
    IF e < 7 
       Form_1.Edit_1.Refresh 
    ENDIF 
  
 RETURN 
 

 
 		cText  := "" 
 		FOR nI := 1 TO 2150 
 			cText  += "Квартира: " + HB_NtoS(nI) + " не заполнен тариф оплаты !  . ;" 
 		NEXT 
 ... 
 	cMsg := cText 
  
 	// высчитываем размерность текста 
 	cMsg := AtRepl( ";", cMsg, CRLF ) 
 	cMsg := StrTran(cMsg, CRLF, chr(10)) // если текст кривой 
 	cMsg := StrTran(cMsg, chr(10), CRLF) 
 ... 
 		 @ nG, nCMemo EDITBOX Edit_Memo WIDTH nWMemo HEIGHT nHMemo ; 
 			VALUE cMsg  READONLY ; 
 			BACKCOLOR aEBoxBack FONTCOLOR aFontColor 
 ... 
 

 
 Квартира: 1 не заполнен тариф оплаты !  .  
 Квартира: 2 не заполнен тариф оплаты !  .       
  
 Квартира: 3 не заполнен тариф оплаты !  .  
 Квартира: 4 не заполнен тариф оплаты !  .      
  
 Квартира: 5 не заполнен тариф оплаты !  .  
 Квартира: 6 не заполнен тариф оплаты !  .      
  
 Квартира: 7 не заполнен тариф оплаты !  .  
 Квартира: 8 не заполнен тариф оплаты !  .      
 ... 
 Квартира: 2133 не заполнен тариф оплаты !  .  
 Квартира: 2134 не         
 заполнен тариф оплаты !  .  
 Квартира: 2135 не заполнен тариф оплаты !  .  
 Квартира: 2136   
 не заполнен тариф оплаты !  .  
 Квартира: 2137 не заполнен тариф оплаты !  .  
 Квартира:     
 2138 не заполнен тариф оплаты !  .  
 Квартира: 2139 не заполнен тариф оплаты !  .           
  
 Квартира: 2140 не заполнен тариф оплаты !  .  
 Квартира: 2141 не заполнен тариф оплаты !   
 .  
 Квартира: 2142 не заполнен тариф оплаты !  .  
 Квартира: 2143 не заполнен тариф оплаты ! 
  .  
 Квартира: 2144 не заполнен тариф оплаты !  .  
 Квартира: 2145 не заполнен тариф оплаты  
 !  .  
 Квартира: 2146 не заполнен тариф оплаты !  .  
 Квартира: 2147 не заполнен тариф       
 оплаты !  .  
 Квартира: 2148 не заполнен тариф оплаты !  .  
 Квартира: 2149 не заполнен      
 тариф оплаты !  .  
 Квартира: 2150 не заполнен тариф оплаты !  .  
 

 
       // удаление/восстановление записи разрешена 
       // кнопка для удаления, будет работать и на восстановление 
       :SetDeleteMode( .T., .F., {|| AlertYesNo(iif((oBrw:cAlias)->(Deleted()), "Восстановить", "Удалить") + ; 
                                                   " запись в таблице ?", "Подтверждение") } )

   lDelete := (oBrw:cAlias)->(Deleted()) 
    ..... 
    IF !lDelete 
       cMsg := "1) ....;;" 
       cMsg += "Вы действительно хотите удалить запись в таблице ?" 
       aColors  := _SetMsgAlertColors( {179, 30, 173} ) 
       IF !AlertYesNo( cMsg, "Выбор действия", , "Cancel64x1", 64 , {RED,LGREEN} ) 
          RETURN NIL 
       ENDIF 
       SET MSGALERT BACKCOLOR TO aColors 
    ENDIF 
  
    // встроенный метод для удаления текущей записи 
    lChange := oBrw:DeleteRow(.F., .T.) 
 ....

Error BASE/1132 Переполнение массива: Неверное количество аргументов Args: [1] = A { ... } length: 2 [2] = N 3 
 --------------------------------- Stack Trace --------------------------------- 
 Called from EVENTS(337) in module: h_events.prg 
 Called from DOMESSAGELOOP(0) 
 Called from _ACTIVATEWINDOW(1514) in module: h_windows.prg 
 Called from HMG_ALERT(176) in module: h_alert.prg 
 Called from _ALERT(115) in module: h_alert.prg 
 Called from ALERTYESNO(20) in module: h_alert.prg 
 Called from (b)MYSETEDITTSB(778) in module: Forma_D40setup.prg 
 Called from TSBROWSE:DELETEROW(3102) in module: h_tbrowse.prg 
 Called from MYRECNODELETERECOVER(1277) in module: Forma_D40setup.prg 
 Called from (b)FORM_D40SETUP(272) in module: Forma_D40setup.prg 
 Called from DO_CONTROLEVENTPROCEDURE(58) in module: h_objmisc.prg 
 Called from TWNDDATA:DOEVENT(729) in module: h_objects.prg 
 Called from DO_ONWNDLAUNCH(240) in module: h_objmisc.prg 
 Called from (b)INIT(123) in module: h_init.prg 
 Called from EVENTS(1224) in module: h_events.prg 
 Called from DOMESSAGELOOP(0) 
 Called from _ACTIVATEWINDOW(1514) in module: h_windows.prg