#include "minigui.ch" 
  
 Function Main() 
 Private n:=1 
  
    DEFINE WINDOW Form_1 ; 
       AT 0,0 ; 
       WIDTH 800 ; 
       HEIGHT 600 ; 
       MAIN; 
       TITLE 'MY WINDOW' ; 
       NOSIZE 
  
      DEFINE BUTTONEX Button_1 
             ROW    20 
             COL    70 
             WIDTH  110 
             HEIGHT 30 
             CAPTION "Change With SB"  
             ACTION {|| TestSB()} 
      END BUTTONEX   
  
       
       DEFINE STATUSBAR OF Form_1  
           STATUSITEM "Status-1" FONTCOLOR BLACK   
           STATUSITEM "Status-2" WIDTH 100 FONTCOLOR BLACK   
           STATUSITEM "Status-3" WIDTH 100 FONTCOLOR BLACK   
           STATUSITEM "Status-4" WIDTH 100 FONTCOLOR BLACK   
           STATUSITEM "Status-5" WIDTH 100 FONTCOLOR BLACK   
           STATUSITEM "Status-6" WIDTH 100 FONTCOLOR BLACK   
        
       END STATUSBAR 
       
        
    END WINDOW 
  
    CENTER WINDOW Form_1 
  
    ACTIVATE WINDOW Form_1 
  
 Return Nil 
 ************************* 
 FUNC MySetSb( cFormName,cControlName,nWidth,nitem,aProperty ) 
 LOCAL h, i ,j 
 Local ParentHandle:=GetControlHandle ( cControlName ,cFormName ) 
  
 hb_default(@nWidth,GetProperty( cFormName, cControlName,"Width",nitem)) 
 hb_default(@nitem,1) 
     
    if ParentHandle==0 
 return nil 
    endif     
  
 SetProperty( cFormName, cControlName,"Width",nitem,nWidth )  // ширину получилось сменить только так 
     
   FOR EACH h In _HMG_aControlContainerHandle 
 i := h:__enumIndex() 
    
     IF _HMG_aControlType [ i ] == "ITEMMESSAGE" .AND. h == ParentHandle 
              if i==nitem+2 
      for each j in aProperty 
 j[1]:=j[2] 
      next 
              endif 
     ENDIF 
   NEXT 
 InvalidateRect( _HMG_MainHandle, 0 ) // в принципе не нужна строка так как всегда срабатывает  
                                 // SetProperty( cFormName, cControlName,"Width",nitem,nWidth ) 
 RETURN Nil 
 ****************** 
 Func TestSb() 
   if n==1 
 n:=2   
 MysetSb("Form_1", "StatusBar",200,2,; 
                 {{_HMG_aControlCaption,"111"},; 
                  {_HMG_aControlBkColor,nRGB2Arr(RGB( 255,255,159))},;  
                  {_HMG_aControlSpacing,1},; 
                  {_HMG_aControlFontColor,BLACK}}) 
 InkeyGUI(500)                 
  
 MysetSb("Form_1", "StatusBar",,1,; 
                 {{_HMG_aControlCaption,"222"},; 
                  {_HMG_aControlBkColor,nRGB2Arr(RGB( 155,255,159))},;  
                  {_HMG_aControlSpacing,1},; 
                  {_HMG_aControlFontColor,RED}}) 
  
 InkeyGUI(500)                 
  
 MysetSb("Form_1", "StatusBar",,5,; 
                  {{_HMG_aControlBkColor,nRGB2Arr(RGB( 155,155,159))},;  
                   {_HMG_aControlFontColor,RED}}) 
  
 InkeyGUI(500)                 
  elseif n==2 
 n:=1                  
 MysetSb("Form_1", "StatusBar",Form_1.Width,1,; 
                 {{_HMG_aControlCaption,"Hello WORD ;)"},; 
                  {_HMG_aControlBkColor,nRGB2Arr(RGB( 255,255,159))},;  
                  {_HMG_aControlSpacing,1},; 
                  {_HMG_aControlFontColor,BLACK}}) 
  
  
   endif 
 return nil