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: 9313
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 537 vezes



Retornar para Contribuições, Dicas e Tutoriais

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 1 visitante


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