When more available space is not enough for text in CheckBoxes and as default in one line the text is cutted off...
- Screen45.png (7.63 KiB) Viewed 4835 times
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
