Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://www.hmgforum.com/
Code: Select all
#include <hmg.ch>
DEFINE WINDOW Form_1 ;
AT 0, 0 ;
WIDTH 475 HEIGHT 375 ;
TITLE "" ;
ICON "" ;
BACKCOLOR {128,128,255} ;
MAIN ;
NOMAXIMIZE NOSIZE ;
FONT "Arial" SIZE 9
ON KEY ESCAPE ACTION Form_1.Release
DEFINE TEXTBOX Text_1
ROW 083
COL 175
WIDTH 140
HEIGHT 030
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
ONCHANGE NIL
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
ONENTER Nil
HELPID Nil
TABSTOP .T.
VISIBLE .T.
READONLY .F.
RIGHTALIGN .F.
DISABLEDBACKCOLOR { 218,254,218 }
DISABLEDFONTCOLOR { 000,000,000 }
BACKCOLOR { 218,254,218 }
FONTCOLOR { 000,000,000 }
FORMAT Nil
INPUTMASK NIL
VALUE NIL
MAXLENGTH NIL
UPPERCASE .F.
LOWERCASE .T.
END TEXTBOX
DEFINE TEXTBOX Text_2
ROW 133
COL 175
WIDTH 140
HEIGHT 030
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
ONCHANGE NIL
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
ONENTER Nil
HELPID Nil
TABSTOP .T.
VISIBLE .T.
READONLY .F.
RIGHTALIGN .F.
DISABLEDBACKCOLOR { 218,254,218 }
DISABLEDFONTCOLOR { 000,000,000 }
BACKCOLOR { 218,254,218 }
FONTCOLOR { 000,000,000 }
FORMAT Nil
INPUTMASK NIL
VALUE NIL
MAXLENGTH NIL
UPPERCASE .F.
LOWERCASE .T.
END TEXTBOX
DEFINE BUTTON Button_4
ROW 270
COL 180
WIDTH 140
HEIGHT 35
CAPTION SPACE(09)-"&Exit"
ACTION Form_1.Release
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP "Exit"
FONTBOLD .T.
FONTITALIC .T.
PICTURE "Resource\Cancel.bmp"
PICTALIGNMENT LEFT
END BUTTON
END WINDOW
Chane_Style()
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
Return
*--------------------------------------------------------------------------------------------*
FUNCTION Chane_Style()
*--------------------------------------------------------------------------------------------*
HMG_ChangeWindowStyle ( GetControlHandle("Text_1","Form_1"), LVS_REPORT, NIL, .T. )
HMG_ChangeWindowStyle ( GetControlHandle("Text_2","Form_1"), LVS_REPORT, NIL, .T. )
Return