PC Toledo

Olá!
Deixando aqui para quem tem acesso ao SVN add.

Arquivo na pasta \include\guilib.ch
Opção adicionada ON KEYDOWN no get da coluna.
ON KEYDOWN é CHECADO antes do VALID, pode mudar a ordem coloquei entre valid e when.

Código: Selecionar todos

#xcommand ADD COLUMN <block> TO <oBrw> ;
            [ HEADER <cHeader> ]       ;
            [ TYPE <cType> ]           ;
            [ LENGTH <nLen> ]          ;
            [ DEC <nDec>    ]          ;
            [ <lEdit: EDITABLE> ]      ;
            [ JUSTIFY HEAD <nJusHead> ];
            [ JUSTIFY LINE <nJusLine> ];
            [ PICTURE <cPict> ]        ;
            [ VALID <bValid> ]         ;
            [ ON KEYDOWN <bKeyDown> ]  ;
            [ WHEN <bWhen> ]           ;
            [ ITEMS <aItem> ]          ;
            [ COLORBLOCK <bClrBlck> ]  ;
            [ BHEADCLICK <bHeadClick> ]  ;
          => ;
    <oBrw>:AddColumn( HColumn():New( <cHeader>,<block>,<cType>,<nLen>,<nDec>,<.lEdit.>,;
                      <nJusHead>, <nJusLine>, <cPict>, <{bValid}>, <{bKeyDown}>, <{bWhen}>, <aItem>, <{bClrBlck}>, <{bHeadClick}> ) )

#xcommand INSERT COLUMN <block> TO <oBrw> ;
            [ HEADER <cHeader> ]       ;
            [ TYPE <cType> ]           ;
            [ LENGTH <nLen> ]          ;
            [ DEC <nDec>    ]          ;
            [ <lEdit: EDITABLE> ]      ;
            [ JUSTIFY HEAD <nJusHead> ];
            [ JUSTIFY LINE <nJusLine> ];
            [ PICTURE <cPict> ]        ;
            [ VALID <bValid> ]         ;
            [ ON KEYDOWN <bKeyDown> ]  ;
            [ WHEN <bWhen> ]           ;
            [ ITEMS <aItem> ]          ;
            [ BITMAP <oBmp> ]          ;
            [ COLORBLOCK <bClrBlck> ]  ;
            INTO <nPos>                ;
          => ;
    <oBrw>:InsColumn( HColumn():New( <cHeader>,<block>,<cType>,<nLen>,<nDec>,<.lEdit.>,;
                      <nJusHead>, <nJusLine>, <cPict>, <{bValid}>, <{bKeyDown}>, <{bWhen}>, <aItem>, <oBmp>, <{bClrBlck}> ),<nPos> )

Arquivo na pasta \source\winapi\hbrowse.prg
Linha 87: bKeyDown

Código: Selecionar todos

   DATA bValid, bKeyDown, bWhen  // When and Valid and bKeyDown codeblocks for cell editing

Linha 101: bKeyDown

Código: Selecionar todos

   METHOD New( cHeading, block, type, length, dec, lEditable, nJusHead, nJusLin, cPict, bValid, bKeyDown, bWhen, aItem, bColorBlock, bHeadClick )

Linha 105: bKeyDown

Código: Selecionar todos

METHOD New( cHeading, block, type, length, dec, lEditable, nJusHead, nJusLin, cPict, bValid, bKeyDown, bWhen, aItem, bColorBlock, bHeadClick ) CLASS HColumn

Linha 117: ::bKeyDown := bKeyDown

Código: Selecionar todos

 
  ::picture   := cPict
   ::bValid    := bValid
   ::bKeyDown  := bKeyDown
   ::bWhen     := bWhen

Linha 1960. ON KEYDOWN ;

Código: Selecionar todos

            IF type <> "M"
               @ 0, 0 GET oGet VAR ::varbuf      ;
                  SIZE nWidth, ::height + 1      ;
                  NOBORDER                       ;
                  STYLE ES_AUTOHSCROLL           ;
                  FONT ::oFont                   ;
                  PICTURE oColumn:picture        ;
                  ON KEYDOWN oColumn:bKeyDown    ; 
                  VALID oColumn:bValid
            ELSE

Atenção que tem o bKeyDown do Browse, Esse é da coluna do browse.
No Linux não olhei ainda.

Saudações,
Itamar M. Lins Jr.

Por enquanto não pode ser alterado, porque vai criar problemas na compabilidade windows e linux
A lista de variáveis vai ficar diferente.

Opção:
Se não der pra fazer completo, pelo menos acrescentar o bKeyDown no linux.
Assim, não vai dar conflito, apenas não vai ter o recurso a mais no linux.

Lembrando:
Já teve versão resetada uma vez, na 2.17, removendo adicionais, se não tomar cuidado pode acabar removendo de novo.
É só comentário. Essa alteração não me parece ter nada fora do comum, é até importante.

Por enquanto aqui resolvendo pipino complicado.
Rede de supermercado comprando outras redes de supermercado.
Tabela de preços que era por CNPJ não pode ser mais, vínculos/bloqueios de prazos diferentes atrapalhando, etc.

Olá!
Não vai conflitar com Linux.
No Linux é outro código. Outro fonte.
Conflitaria se já estivesse no Linux.
Eu bem sei o que tem no Windows na classe hBrowse e não tem no Linux... Algumas dezenas de funções.

Saudações,
Itamar M. Lins Jr.

Olá!
Alias, olhei rapidamente, é só fazer a mesma coisa na pasta GTK
Essa parte é igual.

Saudações,
Itamar M. Lins Jr.

O código pode ser outro, mas tem a questão do CH.
Se o CH coloca os parâmetros faltando ou fora de ordem vai dar problema.

Olá!
É o mesmo ch.
Arquivo windows.ch tem os código das teclas, etc para os dois.
Arquivo guilib.ch só tem 1 mesmo.

Saudações,
Itamar M. Lins Jr.

Olá!
Esquece por enquanto no Linux.
A classe hedit.prg no Linux não tem ON KEYDOWN. (tem no guilib.ch porque é único) mas está desligado ou inacabado no Linux.
Na classe hBrowse.prg(get da coluna) usa hedit.prg

hedit.prg na pasta gtk.

Código: Selecionar todos

 ::cType := ValType( vari )
   ::title := vari
   ::bSetGet := bSetGet
   //::bKeyDown := bKeyDown

Saudações,
Itamar M. Lins Jr.

Olá!

Tabela de preços que era por CNPJ não pode ser mais, vínculos/bloqueios de prazos diferentes atrapalhando, etc.

Até onde sei os CNPJ no final difere 0001/0002/0003 para filiais.
No TOTVS tem um campo empresa 00001/00002... vinculado em todas as tabelas em caso de jogar tudo em um servidor central.

Saudações,
Itamar M. Lins Jr.

PC Toledo

Atualizar no SVN novo hbrowse.prg

Atualizar no SVN novo hbrowse.prg

Atualizar no SVN novo hbrowse.prg

Atualizar no SVN novo hbrowse.prg

Atualizar no SVN novo hbrowse.prg

Atualizar no SVN novo hbrowse.prg

Atualizar no SVN novo hbrowse.prg

Atualizar no SVN novo hbrowse.prg

Atualizar no SVN novo hbrowse.prg