Classe: VCBrowse (obsoleto)
Cria um objeto do tipo grade.
TSrvObject -> TControl -> VCBrowse
Recomendamos o uso da classe TWBrowse.
#include "TOTVS.CH"User Function VCBrowse()Local oOK := LoadBitmap(GetResources(),'br_verde')Local oNO := LoadBitmap(GetResources(),'br_vermelho') DEFINE DIALOG oDlg TITLE "Exemplo VCBrowse" FROM 180,180 TO 550,700 PIXEL oBrowse := VCBrowse():New( 01,01,260,184,,; {'','Codigo','Descrição'},{20,30,30}, oDlg, ,,,,; {||},,,,,,,.F.,,.T.,,.F.,,, ) aBrowse := {{.T.,'CLIENTE 001','RUA CLIENTE 001','BAIRRO CLIENTE 001'},; {.F.,'CLIENTE 002','RUA CLIENTE 002','BAIRRO CLIENTE 002'},; {.T.,'CLIENTE 003','RUA CLIENTE 003','BAIRRO CLIENTE 003'} } oBrowse:SetArray(aBrowse) oBrowse:bLine := {||{If(aBrowse[oBrowse:nAt,01],oOK,oNO),; aBrowse[oBrowse:nAt,02],; aBrowse[oBrowse:nAt,03],; aBrowse[oBrowse:nAt,04] } } // Troca a imagem no duplo click do mouse oBrowse:bLDblClick:={|| aBrowse[oBrowse:nAt][1] := !aBrowse[oBrowse:nAt][1],; oBrowse:DrawSelect()} ACTIVATE DIALOG oDlg CENTERED Return
Exemplo da classe VCBrowse
Microsiga Protheus 8.11
,
Microsiga Protheus 11
,
Protheus 10
,
TOTVS Application Server 10
,
ByYou Application Server
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas