Classe: TWBrowse
Cria um objeto do tipo grade.
TSrvObject -> TControl -> TCBrowse -> TWBrowse
#include "TOTVS.CH"User Function TWBrowse()Local oOK := LoadBitmap(GetResources(),'br_verde')Local oNO := LoadBitmap(GetResources(),'br_vermelho') DEFINE DIALOG oDlg TITLE "Exemplo TWBrowse" FROM 180,180 TO 550,700 PIXEL oBrowse := TWBrowse():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 TWBrowse
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