Clipper On Line • Ver Tópico - Dúvida sobre o controle Texbox

Dúvida sobre o controle Texbox

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Dúvida sobre o controle Texbox

Mensagempor Paulo_CPV » 24 Jun 2013 11:32

Bom dia! A todos do grupo,

Estou uqerendo tirar a borda do comando Textbox para ficar no estilo do Clipper, mas não estou conseguindo, será que alguém do grupo pode me ajudar? Estou fazendo da seguinte forma:
Define Textbox text_1

NOBORDER .t. <- Aqui dá erro de sintaxe

End Textbox



[]'s
Paulo Jacareí/SP
Paulo_CPV
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 178
Data de registro: 07 Mar 2013 10:27
Cidade/Estado: Jacarei/SP
Curtiu: 0 vez
Mens.Curtidas: 1 vez

Dúvida sobre o controle Texbox

Mensagempor Mario Mesquita » 24 Jun 2013 19:54

Olá.

É HMG mesmo?

Pela IDE não tem essa propriedade NoBorder...
Avatar de usuário

Mario Mesquita
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 557
Data de registro: 08 Dez 2009 12:47
Cidade/Estado: Rio de Janeiro
Curtiu: 73 vezes
Mens.Curtidas: 13 vezes

Dúvida sobre o controle Texbox

Mensagempor Pablo César » 24 Jun 2013 22:22

Oi Paulo, eu nunca vi esse NoBorder. Ai pesquisando vi que para Minigui Extended e para HMG só tem para:

- @ ... PRINT RECTANGLE (C:\MiniGUI\SAMPLES\BASIC\miniprint\demo.prg)
- DRAW GRAPH (C:\MiniGUI\SAMPLES\BASIC\Histogram\demo.prg e C:\hmg.3.1.4\SAMPLES\Controls\Graph\GRAPH.03\demo.prg)
- @ ... ANIMATEBOX (C:\MiniGUI\SAMPLES\BASIC\ANIMATEDEMO\demo.prg)

Mas para TextBox, agora vi que a instrução é para apenas colocar NOBORDER (sem o .T.) em Minigui Extended e em HMG não existe isso.
Um clip-abraço !

Pablo César Arrascaeta
Compartilhe suas dúvidas e soluções com todos os colegas aqui do fórum.
Evite enviar as dúvidas técnicas por MPs ou eMails, assim todos iremos beneficiar-nos.
Avatar de usuário

Pablo César
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 5312
Data de registro: 31 Mai 2006 10:22
Cidade/Estado: Curitiba - Paraná
Curtiu: 142 vezes
Mens.Curtidas: 152 vezes

Dúvida sobre o controle Texbox

Mensagempor Paulo_CPV » 25 Jun 2013 07:56

Bom dia! Colhas do grupo,

A cláusula realmente faz parte da Minigui Extend na versão 223b. A mesma NOBORDER está citada na documentação da Minigui na pasta C:|Minigui\Doc, arquivo Minigui.chm na opção Controls Command e Textbox.

[]'s
Paulo - Jacareí/SP
Paulo_CPV
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 178
Data de registro: 07 Mar 2013 10:27
Cidade/Estado: Jacarei/SP
Curtiu: 0 vez
Mens.Curtidas: 1 vez

Dúvida sobre o controle Texbox

Mensagempor Paulao » 22 Nov 2013 11:15

Boa tarde aos amigos do forum, alquem conseguiu resolver o problema do noborder com o controle textbox, uso a minigui extended e enfrento o mesmo problema, no help do controle aparece a opcao noborder, mas da erro qdo gero o sistema, e eu coloco simplesmente NOBORDER retorna o erro Error E0020 Incomplete statement or unbalanced delimiters, Se coloco NOBORDER .T. retorna o erro Error E0030 Syntax error "syntax error at '.T.'".

Grande abraço
Paulao
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 183
Data de registro: 09 Jul 2004 11:03
Cidade/Estado: Franca
Curtiu: 0 vez
Mens.Curtidas: 1 vez

Dúvida sobre o controle Texbox

Mensagempor Toledo » 22 Nov 2013 14:36

Paulao, realmente o TEXTBOX está com problema no NOBORDER quando se usa a sintaxe DEFINE TEXTBOX.... END TEXTBOX. Mas se você usar @ nRow, nCol TEXTBOX, o NOBORDER funciona corretamente.

#include "minigui.ch"

Function Main

   SET NAVIGATION EXTENDED

   DEFINE WINDOW Form_1 ;
      AT 0,0 ;
      WIDTH 640 HEIGHT 480 ;
      TITLE 'NOBORDER Demo' ;
      MAIN ;
      ON INIT Form_1.Text_1.SetFocus

      @ 10,10 TEXTBOX Text_1 ;
         VALUE 11 ;
         NUMERIC

      @ 40,10 TEXTBOX Text_2nb ;
         VALUE 11 ;
         NUMERIC ;
         NOBORDER

   END WINDOW

   Form_1.Center
   Form_1.Activate

Return Nil


Bom, para usar NOBORDER na sintaxe DEFINE TEXTBOX... END TEXTBOX, ai você vai ter que corrigir o arquivo i_altsyntax.ch que está nas pasta \INCLUDE da MiniGui, para isto siga as instruções abaixo:

1 - EDITAR o arquivo i_altsyntax.ch e procurar por:
#xcommand END TEXTBOX;


2 - Uma linha antes do comando acima, incluir o código abaixo:
#xcommand NOBORDER <noborder>;
   =>;
   _HMG_ActiveControlBorder      := !<noborder>


3 - Salvar o arquivo i_altsyntax.ch.

Agora o NOBORDER vai funcionar nas duas sintaxes, veja um exemplo:

#include "minigui.ch"

Function Main

   SET NAVIGATION EXTENDED

   DEFINE WINDOW Form_1 ;
      AT 0,0 ;
      WIDTH 640 HEIGHT 480 ;
      TITLE 'NOBORDER Demo' ;
      MAIN ;
      ON INIT Form_1.Text_1.SetFocus

      DEFINE textbox Text_1
         Row 10
         Col 10
         value 11
         NUMERIC .T.
      END textbox

      @ 40,10 TEXTBOX Text_2 ;
         VALUE 11 ;
         NUMERIC

      DEFINE textbox Text_1nb
         Row 10
         Col 150
         value 11
         NUMERIC .T.
         NOBORDER .T.
      END textbox

      @ 40,150 TEXTBOX Text_2nb ;
         VALUE 11 ;
         NUMERIC ;
         NOBORDER

   END WINDOW

   Form_1.Center
   Form_1.Activate

Return Nil


Abraços,
Toledo - Clipper On Line
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
Avatar de usuário

Toledo
Administrador

Administrador
 
Mensagens: 3038
Data de registro: 22 Jul 2003 18:39
Cidade/Estado: Araçatuba - SP
Curtiu: 263 vezes
Mens.Curtidas: 258 vezes

Dúvida sobre o controle Texbox

Mensagempor microvolution » 14 Fev 2018 22:48

boa noite!
alguém sabe se o Dr. Soto, ou o outro mantenedor da HMG (Mnigui ROberto Lopez) acrescentou o NOBORDER no TEXTBOX?
Grato,
MICROVOLUTION - 16 anos Evoluindo Com Você!


Você já leu a Bíblia hoje?
João 3:16 - Porque Deus amou ao mundo de tal maneira que deu seu Único Filho para que todo aquele que nEle crê não pereça mas tenha a Vida Eterna!
microvolution
Usuário Nível 5

Usuário Nível 5
 
Mensagens: 1175
Data de registro: 02 Set 2011 22:17
Curtiu: 59 vezes
Mens.Curtidas: 17 vezes

Dúvida sobre o controle Texbox

Mensagempor Claudio Soto » 15 Fev 2018 01:29

microvolution escreveu:boa noite!
alguém sabe se o Dr. Soto, ou o outro mantenedor da HMG (Mnigui ROberto Lopez) acrescentou o NOBORDER no TEXTBOX?

No recuerdo bien, pero me parece que no esta implementando en HMG oficial.
Saludos.
Dr. Claudio Soto
(Uruguay)
http://srvet.blogspot.com
Avatar de usuário

Claudio Soto
Colaborador

Colaborador
 
Mensagens: 555
Data de registro: 27 Ago 2012 12:31
Cidade/Estado: Uruguay
Curtiu: 35 vezes
Mens.Curtidas: 166 vezes

Dúvida sobre o controle Texbox

Mensagempor microvolution » 16 Fev 2018 10:18

Claudio Soto escreveu: no esta implementando
"gracias y gracias" y buen fin de semana
Grato,
MICROVOLUTION - 16 anos Evoluindo Com Você!


Você já leu a Bíblia hoje?
João 3:16 - Porque Deus amou ao mundo de tal maneira que deu seu Único Filho para que todo aquele que nEle crê não pereça mas tenha a Vida Eterna!
microvolution
Usuário Nível 5

Usuário Nível 5
 
Mensagens: 1175
Data de registro: 02 Set 2011 22:17
Curtiu: 59 vezes
Mens.Curtidas: 17 vezes




Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 4 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro