Clipper On Line • Ver Tópico - Congelar colunas no Browse

Congelar colunas no Browse

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Congelar colunas no Browse

Mensagempor rubens » 23 Abr 2018 15:58

Olá boa tarde...

Tenho um browse com 03 colunas e preciso travar a 1ª e a 3ª coluna porque preciso editar a coluna nº 2. Alguma sugestão?
Estou usando ALLOWEDIT .T. mas edita todas as colunas. Tentei usa ALLOWEDIT {.F.,.T.,.F.} mas dá erro quando dá duplo click na coluna ao invés de não fazer nada.

Obrigado
Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1518
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 77 vezes
Mens.Curtidas: 104 vezes

Congelar colunas no Browse

Mensagempor rubens » 27 Abr 2018 16:12

Boa tarde...

o Bloqueio da coluna eu resolvi, bastou colocar:
ReadonlyFields { .t.,.f.,.t. }

Agora preciso pegar o número da coluna para deixar em destaque somente a coluna que está editável...
No Help do minigui extends não achei como fazer.. tem como pegar os nomes dos cabeçalhos, as imagens dos cabeçalhos mas o número da coluna nada..
Alguem sabe ?

Obrigado
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1518
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 77 vezes
Mens.Curtidas: 104 vezes

Congelar colunas no Browse

Mensagempor asimoes » 27 Abr 2018 21:54

Rubens

Quando eu queria alguma informação sobre o objeto da hwgui eu abria o código fonte na pasta source, talvez na minigui ex você tenha alguma ideia de como fazer isso olhando o fonte do objeto.
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Congelar colunas no Browse

Mensagempor Toledo » 28 Abr 2018 07:45

Não seria NomeForm.oBrowse.Col ?

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

Congelar colunas no Browse

Mensagempor rubens » 28 Abr 2018 08:21

Bom dia...

ASimoes esse macete é jóia, tenho feito isso uso a xdev, então vou no localizar e selecionar todas as pastas. Onde tiver uma ocorrência do que eu quero vai aparecer daí é só estudar. Mas não achei nada.. De qualquer forma vou ver novamente.

Toledo... como eu imaginei a principio NomeForm.oBrowse.Col retorna a posição do Browse no formulário e não referente as colunas dentro do browse.

Eu pensei em fazer pelo readonlyfields mesmo né, se a coluna fosse editável era a condição que eu preciso mas aí eu preciso saber o número da coluna e volta a questão inicial. Como saber o número da coluna que o browse está posicionado.

Obrigado.

Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1518
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 77 vezes
Mens.Curtidas: 104 vezes

Congelar colunas no Browse

Mensagempor asimoes » 28 Abr 2018 11:13

Rubens
Na ide da minigui não tem como ver ?
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Congelar colunas no Browse

Mensagempor asimoes » 28 Abr 2018 11:45

Rubens

Tentou isso:

READONLY { .t.,.f.,.t. }
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Congelar colunas no Browse

Mensagempor asimoes » 28 Abr 2018 11:53

O Exemplo que eu achei na Minigui Ex usa a propriedade READONLY

               DEFINE BROWSE Browse_1
                        ROW 10
                        COL 10
                        WIDTH 610
                        HEIGHT 390 - GetBorderHeight()
                        HEADERS { 'Code' , 'First Name' , 'Last Name', 'Birth Date', 'Married' , 'Biography' }
                        WIDTHS { 150 , 150 , 150 , 150 , 150 , 150 }
                        WORKAREA Test
                        FIELDS { 'Test->Code' , 'Test->First' , 'Test->Last' , 'Test->Birth' , 'Test->Married' , 'Test->Bio' }
                        VALUE 1
                        LOCK .T.
                        ALLOWEDIT .T.
                        ALLOWAPPEND .T.
                        ALLOWDELETE .T.
                        VALID { { || MemVar.Test.Code <= 1000 } , { || ! Empty(MemVar.Test.First) } , ;
                              { || ! Empty(MemVar.Test.Last) } , { || Year(MemVar.Test.Birth) >= 1950 } , , }
                        VALIDMESSAGES { 'Code Range: 0-1000', 'First Name Cannot Be Empty', 'Last Name Cannot Be Empty', ;
                                      { |uVal| MsgStop( 'Please verify your input value:' + CRLF + DtoC( uVal) ) }, , }
                        READONLY { .F. , .F. , .F. , .F. , .F. , .T. }
                END BROWSE
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Congelar colunas no Browse

Mensagempor asimoes » 28 Abr 2018 11:56

Outro exemplo:
   @ 10,10 BROWSE Browse_1   ;
         WIDTH 610   ;
         HEIGHT 390   ;   
         HEADERS { 'Code' , 'Name' , 'Residents' } ;
         WIDTHS { 50 , 160 , 100 } ;
         WORKAREA country ;
         FIELDS { 'country->Code' , 'country->Name' , 'country->Residents' } ;
         JUSTIFY { BROWSE_JTFY_LEFT, BROWSE_JTFY_LEFT, BROWSE_JTFY_RIGHT } ;
         EDIT ;
         VALID { , { || sqlupdate(2) } , { || sqlupdate(3) } } ;
         READONLY { .T. , .F. , .F. }
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Congelar colunas no Browse

Mensagempor rubens » 09 Mai 2018 08:10

Bom dia..

foi dessa forma mesmo ASimoes..

Rubens

Tentou isso:

READONLY { .t.,.f.,.t. }


Obrigado
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1518
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 77 vezes
Mens.Curtidas: 104 vezes




Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 13 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