HMGforum.com

Code: Select all

#include <hmg.ch>

#define BS_MULTILINE         8192
#define BS_CENTER            768

Function Main()
DEFINE WINDOW Demo AT 426, 890 WIDTH 215 HEIGHT 256 TITLE "CheckBox Multiline" MAIN NOMAXIMIZE NOMINIMIZE NOSIZE 

    DEFINE CHECKBOX Check_1
		ROW    25
        COL    30
        WIDTH  150
        HEIGHT 42
        CAPTION "CheckBox Centered and Multine Item"
        VALUE .F.
        FONTNAME "Arial"
        FONTSIZE 9
		FONTBOLD .T.
		BACKCOLOR {180,180,180}
        FONTCOLOR {128,0,0}
		TRANSPARENT .F.
    END CHECKBOX
	
	DEFINE CHECKBOX Check_2
	    ROW    95
        COL    30
        WIDTH  150
        HEIGHT 42
		CAPTION "CheckBox Centered and Multine Item"
        VALUE .F.
        FONTNAME "Arial"
        FONTSIZE 9
		FONTBOLD .T.
		BACKCOLOR {180,180,180}
        FONTCOLOR {128,0,0}
		TRANSPARENT .F.
    END CHECKBOX
	
	DEFINE CHECKBOX Check_3
	    ROW    165
        COL    30
        WIDTH  150
        HEIGHT 42
		CAPTION "CheckBox Centered "+CRLF+"   and Multine Item"
        VALUE .F.
        FONTNAME "Arial"
        FONTSIZE 9
		FONTBOLD .T.
		BACKCOLOR {180,180,180}
        FONTCOLOR {128,0,0}
		TRANSPARENT .F.
    END CHECKBOX

END WINDOW
Demo.Center

HMG_ChangeWindowStyle ( GetControlHandle("Check_2","Demo"), BS_MULTILINE+BS_CENTER, NIL, .F. ) // MULTILINE
HMG_ChangeWindowStyle ( GetControlHandle("Check_3","Demo"), BS_MULTILINE+BS_CENTER, NIL, .F. ) // MULTILINE

Demo.Activate
Return Nil