Normally (by default) we have CheckBox texts aligned to the right side of clickable box but when we need to align text to left you can do it changing its style making in this way:
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
Just for fan.