Clipper On Line • Ver Tópico - TBrowse interessante

TBrowse interessante

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

 

TBrowse interessante

Mensagempor JoséQuintas » 10 Jul 2018 19:28

Tava vendo uns fontes do Flagship, e isto chamou a atenção

oColumn := tbColumnNew( "Quantidade", { | x | iif( x == NIL, Qtde, Qtde := x ) } )


Só poderia ser pra edição.
Encontrei um exemplo de uso, poderia ser usado no Clipper/Harbour.

colobj := brow:GETCOLUMN(brow:COLPOS) 
block := colobj:BLOCK
data := EVAL(block) // Retrieve data using the column block
sSave := SaveScreen(row,col,row,brow:nRight)
@ row, col GET data COLOR "W+/BG,W+/BG"
READ
RestScreen(row,col,row,brow:nRight,sSave)
IF LASTKEY() != 27
   EVAL (block, data) // REPLACE if the block is read/write
   brow:RefreshAll() // and ensure the Tbrowse display
   brow:ForceStable() // the changes
ENDIF
SETPOS (row, col)
RETURN NIL


Não sei se vou usar, mas achei interessante.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 9532
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 559 vezes

TBrowse interessante

Mensagempor hazael » 13 Ago 2018 13:55

Realmente interessante.

Eu já usei algo parecido, baseado em um código exemplo do Clipper de 1991:
static function DoGet(obj)

    local nCursSave
    local column
    local get
    local nKey

    if obj:colPos == 1
       return .f.
    end if

    // Cursors are for GETs, so:
    nCursSave := setcursor(SC_NORMAL)

    // make sure browse is stable
    while (!obj:stabilize())
    end

    column := obj:getColumn(obj:colPos)
    altd()

    // create a corresponding GET and READ it
    get := GetNew(row(),col(),column:block,;
                     column:heading,,"W+/BG,W+/B")

//   at (no spam) row(),col() get wert
    // Get old key value or NIL
    readmodal({get})
    setcursor(nCursSave)

    obj:refreshCurrent()
    ForceStable(obj)

    // check exit key
    nKey := lastkey()
    if (nKey == K_UP .or. nKey == K_DOWN .or. ;
            nKey == K_PGUP .or. nKey == K_PGDN)
       keyboard chr(nKey)

    endif
return (.T.)
Harbour | GTWVT | MingW | Visual Studio Code
Avatar de usuário

hazael
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 376
Data de registro: 27 Nov 2016 12:59
Curtiu: 4 vezes
Mens.Curtidas: 21 vezes




Retornar para Contribuições, Dicas e Tutoriais

Quem está online

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


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