TEXTBOX y su MARCO

HMG en Español

Moderator: Rathinagiri

Post Reply
User avatar
SALINETAS24
Posts: 667
Joined: Tue Feb 27, 2018 3:06 am
DBs Used: DBF
Contact:

TEXTBOX y su MARCO

Post by SALINETAS24 »

Hola,

¿hay alguna forma de hacer que el TEXTBOX no muestre ese cuadro alrededor del campo que se va a introducir ..?

Gracias por anticipado.
Como dijo el gran pensador Hommer Simpson..., - En este mundo solo hay 3 tipos de personas, los que saben contar y los que no. :shock:
User avatar
mustafa
Posts: 1158
Joined: Fri Mar 20, 2009 11:38 am
DBs Used: DBF
Location: Alicante - Spain
Contact:

Re: TEXTBOX y su MARCO

Post by mustafa »

Hola amic
No se lo que quieres ?
Mírate esta muestra que te mando haber si puede servir ?
La FUNCTION Chane_Style() hace un recuadro el el TEXTBOX
yo solo lo estoy utilizando para Decorar los Grid me hace un recuadro

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
Ya me contaras si te sirve ?
Un saludo
Mustafa
User avatar
SALINETAS24
Posts: 667
Joined: Tue Feb 27, 2018 3:06 am
DBs Used: DBF
Contact:

Re: TEXTBOX y su MARCO

Post by SALINETAS24 »

Muy chulo Mustafa.., y me gusta. Lo implemento.
Pero mi curiosidad es que no tuviese ningún cuadro.
Un servesta a tu salud..!!
Como dijo el gran pensador Hommer Simpson..., - En este mundo solo hay 3 tipos de personas, los que saben contar y los que no. :shock:
Post Reply