TEXTBOX y su MARCO

HMG en Español

Moderator: Rathinagiri

Post Reply
User avatar
SALINETAS24
Posts: 227
Joined: Tue Feb 27, 2018 3:06 am
DBs Used: DBF
Has thanked: 2 times
Been thanked: 6 times

TEXTBOX y su MARCO

Post by SALINETAS24 » Sun Nov 25, 2018 10:51 pm

Hola,

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

Gracias por anticipado.

User avatar
mustafa
Posts: 714
Joined: Fri Mar 20, 2009 11:38 am
Location: Alicante - Spain
Been thanked: 86 times

Post by mustafa » Mon Nov 26, 2018 11:31 am

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: 227
Joined: Tue Feb 27, 2018 3:06 am
DBs Used: DBF
Has thanked: 2 times
Been thanked: 6 times

Post by SALINETAS24 » Tue Nov 27, 2018 5:53 pm

Muy chulo Mustafa.., y me gusta. Lo implemento.
Pero mi curiosidad es que no tuviese ningún cuadro.
Un servesta a tu salud..!!

Post Reply