#include "i_winuser.ch" 
 #include "minigui.ch" 
  
 #define APP_TITLE "Hello World!" 
  
 #define SB_SETTEXT        (WM_USER+1) 
 #define SBT_OWNERDRAW     0x1000 
  
 #define IDS_STATUSBAR     0 
 /* 
 */ 
 Function Main 
 	Local hwndSb 
  
 	SET EVENTS FUNCTION TO MYEVENTS 
  
 	DEFINE WINDOW Win_1 ; 
 		AT 0,0 ; 
 		WIDTH 400 ; 
 		HEIGHT 400 ; 
 		TITLE APP_TITLE ; 
 		MAIN 
  
 		DEFINE STATUSBAR FONT "Arial" SIZE 12 
 			hwndSb := GetControlHandle ( _HMG_ActiveMessageBarname, _HMG_ActiveFormName ) 
 			STATUSITEM "Dummy" 
 			STATUSITEM "Dummy" WIDTH 92 
 		END STATUSBAR 
  
 	END WINDOW 
  
 	SendMessage( hwndSb, SB_SETTEXT, hb_BitOr( IDS_STATUSBAR, SBT_OWNERDRAW ), IDS_STATUSBAR ) 
 	SendMessage( hwndSb, SB_SETTEXT, hb_BitOr( 1, SBT_OWNERDRAW ), 1 ) 
  
 	CENTER WINDOW Win_1 
 	ACTIVATE WINDOW Win_1 
  
 Return Nil 
  
  
 *----------------------------------------------------------* 
 Function MyEvents ( hWnd, nMsg, wParam, lParam ) 
 *----------------------------------------------------------* 
 	local i, a, hBrush 
  
 	do case 
  
         **************************************************** 
 	case nMsg == WM_DRAWITEM 
         **************************************************** 
  
 	i := AScan ( _HMG_aFormHandles , hWnd ) 
  
 	IF i > 0 .AND. _IsControlDefined ( "StatusBar" , _HMG_aFormNames [ i ] ) 
  
 		a := GETOWNBTNRECT(lParam) 
  
 		hBrush := CreateSolidBrush( 255, 255, 225 ) 
 		FillRect( GETOWNBTNDC(lParam), a[ 1 ], a[ 2 ], a[ 3 ], a[ 4 ], hBrush ) 
 		DeleteObject( hBrush ) 
 		IF GETOWNBTNITEMID(lParam) == IDS_STATUSBAR 
 			TextOut( a[ 1 ] + 1, a[ 2 ] + 1, "New Value", GETOWNBTNDC(lParam), RGB( 0, 0, 255 ) ) 
 		ELSE 
 			TextOut( a[ 1 ] + 1, a[ 2 ] + 1, "New Value", GETOWNBTNDC(lParam), RGB( 255, 0, 0 ) ) 
 		ENDIF 
  
 	ENDIF 
  
 	otherwise 
  
 		Events( hWnd, nMsg, wParam, lParam ) 
  
     endcase 
  
 Return (0) 
  
  
 #pragma BEGINDUMP 
  
 #include "hbapi.h" 
 #include "windows.h" 
  
 HB_FUNC ( TEXTOUT ) 
 { 
    HDC hdc = (HDC) hb_parnl( 4 ); 
  
    SetTextColor( hdc, hb_parnl( 5 ) ); 
    SetBkMode( hdc, TRANSPARENT ); 
  
    TextOut( hdc, hb_parni(1), hb_parni(2), 
                hb_parc(3), 
                strlen(hb_parc(3)) ) ; 
  
    SetBkMode( hdc, OPAQUE ); 
  
    DeleteDC( hdc ) ; 
 } 
  
 #pragma ENDDUMP

#include "i_winuser.ch" 
 #include "minigui.ch" 
  
 #define APP_TITLE "Hello World!" 
  
 #define SB_SETTEXT        (WM_USER+1) 
 #define SBT_OWNERDRAW     0x1000 
  
 #define IDS_STATUSBAR     0 
 /* 
 */ 
 Function Main 
 	Local hwndSb 
  
 	SET EVENTS FUNCTION TO MYEVENTS 
  
 	DEFINE WINDOW Win_1 ; 
 		AT 0,0 ; 
 		WIDTH 400 ; 
 		HEIGHT 400 ; 
 		TITLE APP_TITLE ; 
 		MAIN 
  
 		DEFINE STATUSBAR FONT "Arial" SIZE 12 
 			hwndSb := GetControlHandle ( _HMG_ActiveMessageBarname, _HMG_ActiveFormName ) 
 			STATUSITEM "Item 0" 
 			STATUSITEM "Item 1" WIDTH 92 
 			STATUSITEM "Item 2" WIDTH 92 
 		END STATUSBAR 
  
 	END WINDOW 
  
 //	SendMessage( hwndSb, SB_SETTEXT, hb_BitOr( IDS_STATUSBAR, SBT_OWNERDRAW ), IDS_STATUSBAR ) 
 	SendMessage( hwndSb, SB_SETTEXT, hb_BitOr( 1, SBT_OWNERDRAW ), 1 ) 
 //	SendMessage( hwndSb, SB_SETTEXT, hb_BitOr( 2, SBT_OWNERDRAW ), 2 ) 
  
 	CENTER WINDOW Win_1 
 	ACTIVATE WINDOW Win_1 
  
 Return Nil 
  
  
 *----------------------------------------------------------* 
 Function MyEvents ( hWnd, nMsg, wParam, lParam ) 
 *----------------------------------------------------------* 
 	local i, a, hBrush, hDC 
  
 	do case 
  
         **************************************************** 
 	case nMsg == WM_DRAWITEM 
         **************************************************** 
  
 	i := AScan ( _HMG_aFormHandles, hWnd ) 
  
 	IF i > 0 .AND. _IsControlDefined ( "StatusBar", _HMG_aFormNames [ i ] ) 
  
 		a := GETOWNBTNRECT( lParam ) 
 		hDC := GETOWNBTNDC( lParam ) 
  
 		IF GETOWNBTNITEMID( lParam ) == IDS_STATUSBAR 
 			hBrush := CreateSolidBrush( 225, 225, 225 ) 
 			FillRect( hDC, a[ 1 ], a[ 2 ], a[ 3 ], a[ 4 ], hBrush ) 
 			DeleteObject( hBrush ) 
 			TextOut( a[ 1 ] + 1, a[ 2 ], "New Value", hDC, RGB( 0, 0, 255 ) ) 
 		ELSE 
 			hBrush := CreateSolidBrush( 225, 225, 0 ) 
 			FillRect( hDC, a[ 1 ], a[ 2 ], a[ 3 ], a[ 4 ], hBrush ) 
 			DeleteObject( hBrush ) 
 			TextOut( a[ 1 ] + 1, a[ 2 ], "New Value", hDC, RGB( 255, 0, 0 ) ) 
 		ENDIF 
  
 	ENDIF 
  
 	otherwise 
  
 		Events( hWnd, nMsg, wParam, lParam ) 
  
     endcase 
  
 Return (0) 
  
  
 #pragma BEGINDUMP 
  
 #include "hbapi.h" 
 #include "windows.h" 
  
 HB_FUNC ( TEXTOUT ) 
 { 
    HDC hdc = ( HDC ) hb_parnl( 4 ); 
  
    SetTextColor( hdc, hb_parnl( 5 ) ); 
    SetBkMode( hdc, TRANSPARENT ); 
  
    TextOut( hdc, hb_parni( 1 ), hb_parni( 2 ), hb_parc( 3 ), strlen( hb_parc( 3 ) ) ); 
  
    SetBkMode( hdc, OPAQUE ); 
 } 
  
 #pragma ENDDUMP