HMGforum.com

Code: Select all

#include <hmg.ch>

#define BS_LEFTTEXT      0x00000020

Function Main()

DEFINE WINDOW Drives AT 426, 890 WIDTH 288 HEIGHT 166 TITLE "CheckBox Left Text" MAIN

    DEFINE CHECKBOX Check_1
		ROW    30
        COL    30
        WIDTH  210
        HEIGHT 28
        CAPTION " CheckBox with text on the RIGHT"
        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    70
        COL    30
        WIDTH  210
        HEIGHT 28
		CAPTION " CheckBox with text on the LEFT"
        VALUE .F.
        FONTNAME "Arial"
        FONTSIZE 9
		FONTBOLD .T.
		BACKCOLOR {180,180,180}
        FONTCOLOR {128,0,0}
		TRANSPARENT .F.
    END CHECKBOX

END WINDOW
Drives.Center

HMG_ChangeWindowStyle ( GetControlHandle("Check_2","Drives"), BS_LEFTTEXT, NIL, .F. ) // LEFTJUSTIFY

Drives.Activate
Return Nil