Congelar colunas no Browse

[rubens]

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

[rubens]

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

[asimoes]

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.

[Toledo]

Não seria NomeForm.oBrowse.Col ?

Abraços

[rubens]

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

[asimoes]

Rubens
Na ide da minigui não tem como ver ?

[asimoes]

Rubens

Tentou isso:

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

[asimoes]

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

Código: Selecionar todos

               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

[asimoes]

Outro exemplo:

Código: Selecionar todos

	@ 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. }

[rubens]

Bom dia..

foi dessa forma mesmo ASimoes..

Rubens

Tentou isso:

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

Obrigado