AJUSTAR ALTURA DO CAMPO

[pena]

Boa tarde pessoal, como faço pra aplicar altura do campo em uso, não é o textbox e sim quando ele ganha o foco, parece estar flutuando, estar no meio do textbox e não bem embaixo.

[Fernando queiroz]

Algo parecido com isso

algo parecido com isso?????

[pena]

Isso ae meu amigo, e aproveita e já ensina como se coloca uma imagem aqui :% :% :% :% rsrsrsrs, printei a tela mas não consegui colocar

[Fernando queiroz]

Código: Selecionar todos

  INIT DIALOG oDlg TITLE "01 - Dinheiro" ;
    AT 508,86 SIZE 528,303 CLIPPER ;
		STYLE WS_POPUP+WS_CAPTION+DS_CENTER+DS_ABSALIGN

	FormDinheiro := oDlg

	hwg_SetColorinFocus( oDlg,, 13172680 )
	SET KEY 0,VK_ESCAPE TO {|| oDlg:Close() } 

   @ 215,23 SAY oSubTotal CAPTION TRANSFORM(nSubTotal,'@E 99,999,999,999.99')  SIZE 305,42 ;
		STYLE SS_RIGHT +WS_BORDER  ;
         COLOR 16711680  ;
        FONT HFont():Add( '',0,-35,400,,,)
   @ 5,33 SAY oLabel1 CAPTION "Sub-Total:"  SIZE 202,34 ;
        STYLE SS_RIGHT    ;
        FONT HFont():Add( '',0,-27,400,,,)
		
   @ 215,73 GET oDesconto VAR nDesconto  SIZE 120,42 VALID {|| PGTO_DINHEIRO_DESCONTO(  )};
        STYLE ES_RIGHT +WS_BORDER   PICTURE '@E 999.99' MAXLENGTH 6    ;
        FONT HFont():Add( '',0,-35,400,,,)
   @ 5,83 SAY oLabel2 CAPTION "Desconto:"  SIZE 202,34 ;
        STYLE SS_RIGHT    ;
        FONT HFont():Add( '',0,-27,400,,,)
   @ 344,77 SAY oLabel6 CAPTION "%"  SIZE 41,34    ;
        FONT HFont():Add( '',0,-35,400,,,)
		
   @ 215,123 SAY oTotal CAPTION  TRANSFORM(nTotal,'@E 99,999,999,999.99')  SIZE 305,42 ;
		STYLE SS_RIGHT +WS_BORDER  ;
         COLOR 16711680  ;
        FONT HFont():Add( '',0,-35,400,,,)
   @ 5,133 SAY oLabel3 CAPTION "Total:"  SIZE 202,34 ;
        STYLE SS_RIGHT    ;
        FONT HFont():Add( '',0,-27,400,,,)
   @ 4,175 LINE oLine1  LENGTH 548   

   @ 215,183 GET oValorRecebido VAR nValorRecebido  SIZE 305,42 VALID {|| PGTO_DINHEIRO_TROCO(  ) };
        STYLE ES_RIGHT +WS_BORDER   PICTURE '@E 99,999,999,999.99' MAXLENGTH 14    ;
        FONT HFont():Add( '',0,-35,400,,,)
   @ 4,193 SAY oLabel4 CAPTION "Valor Recebido:"  SIZE 202,34 ;
        STYLE SS_RIGHT    ;
        FONT HFont():Add( '',0,-27,400,,,)
		
   @ 215,233 SAY oTroco CAPTION  TRANSFORM(nTroco,'@E 99,999,999,999.99')  SIZE 305,42 ;
        STYLE SS_RIGHT +WS_BORDER  ;
         COLOR 255  ;
        FONT HFont():Add( '',0,-35,400,,,)
   @ 5,243 SAY oLabel5 CAPTION "Troco:"  SIZE 202,34 ;
        STYLE SS_RIGHT    ;
        FONT HFont():Add( '',0,-27,400,,,)
   @ 434,285 GET oFimTela VAR cFimTela  SIZE 0,0 

   ACTIVATE DIALOG oDlg ;
		ON ACTIVATE {|| PGTO_DINHEIRO_onDlgInit(  ) }

) ) ) )

[Fernando queiroz]

Lembre-se que estou usando a HWGUI ) ) ) ) )

[pena]

Pois é via que o código é diferente, eu uso minigui, então não rola

[Adalberto]

Caro amigo, boa tarde.

Eu acho que o que você precisa é que os textos LABEL sejam centralizados no campo GETBOX.

Para isso você pode definir a altura (HEIGHT do controle LABEL), bem como o HEIGHT do controle GETBOX, e no controle LABEL use a cláusula CENTERALIGN

Espero que seja útil.

Um grande abrazo, Adalberto.

[JoséQuintas]

Já comentei aqui: tem que ficar craque em Harbour antes de partir pra outra coisa.
Pra facilitar questões futuras, apenas uma ajuda que pode ser obtida por fontes PRG/CH:

Comandos são definidos em CH.
O central da minigui costuma ser minigui.ch
Esse tem #include "i_textbox.ch", que pelo nome, só pode ser textbox
E no i_textbox.ch:

// TEXTBOX

#command @ <row>, <col> TEXTBOX <name> ;
[ID <nId>] ;
[ <dummy1: OF, PARENT, DIALOG> <parent> ] ;
[ HEIGHT <height> ] ;
[ WIDTH <width> ] ;
[ FIELD <field> ] ;
[ VALUE <value> ] ;
[ < readonly: READONLY > ] ;
[ FONT <fontname> ] ;
[ SIZE <fontsize> ] ;
[ <bold : BOLD> ] ;
[ <italic : ITALIC> ] ;
[ <underline : UNDERLINE> ] ;
[ <strikeout : STRIKEOUT> ] ;
[ TOOLTIP <tooltip> ] ;
[ BACKCOLOR <backcolor> ] ;
[ FONTCOLOR <fontcolor> ] ;
[ MAXLENGTH <maxlength> ] ;
[ <upper: UPPERCASE> ] ;
[ <lower: LOWERCASE> ] ;
[ <numeric: NUMERIC> ] ;
[ <password: PASSWORD> ] ;
[ ON CHANGE <change> ] ;
[ ON GOTFOCUS <gotfocus> ] ;
[ ON LOSTFOCUS <lostfocus> ] ;
[ ON ENTER <enter> ] ;
[ <RightAlign: RIGHTALIGN> ] ;
[ <invisible: INVISIBLE> ] ;
[ <notabstop: NOTABSTOP> ] ;
[ <noborder: NOBORDER> ] ;
[ HELPID <helpid> ] ;
[ <cuebanner : CUEBANNER, PLACEHOLDER> <CueText> ] ;
=>;
_DefineTextBox( <"name">, <"parent">, <col>, <row>, <width>, <height>, <value>, <fontname>, <fontsize>, <tooltip>, <maxlength>, ;
<.upper.>, <.lower.>, <.numeric.>, <.password.>, <{lostfocus}>, <{gotfocus}>, <{change}>, <{enter}>, ;
<.RightAlign.>, <helpid>, <.readonly.>, <.bold.>, <.italic.>, <.underline.>, <.strikeout.>, <"field">, ;
<backcolor> , <fontcolor> , <.invisible.> , <.notabstop.> , <.noborder.> , [<CueText>] , <nId> )

Height e Width só podem ser pra altura e largura.
Se está pequeno, é só aumentar.
Esse seria um ponto de partida.

[pena]

Gente eu acho que não estou me expressando direito, vamos lá, primeira coisa, qual a diferença entre getbox e textbox?
Bem agora é o seguinte WIDTH é o comprimento e HEIGHT é a altura, pois então, o que acontece é que o texto fica no meio do HEIGHT, parece estar flutuando, gostaria de deixar o texto/cursor bem abaixo no textbox, e não no meio dele

[JoséQuintas]

Poste um exemplo reduzido, e a imagem de como fica.
Pode ter relação com o fonte utilizado, ou outra coisa, então um fonte de exemplo é sempre útil.

[pena]

Me desculpe a ignorância mas como faço pra postar uma imagem :% :% :%

[rubens]

Bom dia
logo abaixo do campo de edição tem opção Anexar Arquivo...

Rubens

[pena]

notem que a descrição dentro do textbox, parece estar flutuando, foto foi em anexo

[JoséQuintas]

Pra mim parece normal.
Não gosto desse efeito 3D, talvez seja ele que dê a impressão de que o texto está pra cima. É que a sombra de cima fica pra dentro do textbox, o que dá a impressão de que encima está menor.
Isso era o default do Visual Basic 6, que não é mais no VB.NET, talvez até por esse motivo.

[pena]

Vou tentar me acostumar então, me diz uma coisa qual a diferença entre textbox e getbox?