Clipper On Line • Ver Tópico - BROWSE

BROWSE

Discussão sobre a biblioteca Fivewin - O Clipper para Windows.

Moderador: Moderadores

 

BROWSE

Mensagempor 09466261000176 » 22 Out 2014 20:26

Boa noite companheiros.

Gostaria de saber se alguém tem algum exemplo de uso de checkbox dentro de um browse. Se tiver algum exemplo me mostre por favor.
Avatar de usuário

09466261000176
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 39
Data de registro: 19 Mar 2014 15:50
Cidade/Estado: lorena sp
Curtiu: 0 vez
Mens.Curtidas: 0 vez

BROWSE

Mensagempor Kapiaba » 23 Out 2014 09:06

C:\FWH..\SAMPLES\TESTLBX5.PRG

#INCLUDE "TESTLBX5.CH"
#INCLUDE "FIVEWIN.CH"

FUNCTION Main()

   local oLbx, oDlg, nItem := 0, oMeter, nMeter
   local n, nSelected := 0, aSel := {}

   DEFINE DIALOG oDlg RESOURCE "REINDEX"

   REDEFINE LISTBOX oLbx VAR nItem ;
      ID RIN_LISTBOX OF oDlg ;
                ITEMS NomiFiles() ;
      BITMAPS { "CHECKON", "CHECKOFF" } ;
      ON DRAWITEM ( IIF(ascan(oLbx:GetSelItems(),nItem)>0, 1, 2) );
      ON CHANGE (nSelected := oLbx:GetSelCount(), oDlg:AevalWhen());
      COLOR "n/w"

   REDEFINE button ID RIN_ALL OF oDLG ;
      ACTION (aeval(oLbx:aItems,{|o,n| oLbx:SetSel(n,.t.) }), oLbx:Change())

   REDEFINE button ID RIN_NONE OF oDLG ;
      ACTION (aeval(oLbx:aItems,{|o,n| oLbx:SetSel(n,.f.) }), oLbx:Change());
      WHEN nSelected > 0

   REDEFINE button ID RIN_INDEX OF oDLG ;
      ACTION reind(oLbx,"INDEX",oMeter), oLbx:Change();
      WHEN nSelected > 0

   REDEFINE button ID RIN_REINDEX OF oDLG ;
      ACTION reind(oLbx,"REINDEX",oMeter), oLbx:Change();
      WHEN nSelected > 0

   REDEFINE button ID RIN_PACK OF oDLG ;
      ACTION reind(oLbx,"PACK",oMeter), oLbx:Change();
      WHEN nSelected > 0

   REDEFINE button ID RIN_CANCEL of oDLG CANCEL;
      ACTION oDlg:END()

   REDEFINE METER oMeter VAR nMETER ID RIN_METER1 OF oDLG

   ACTIVATE DIALOG oDlg CENTERED

RETURN NIL

//----------------------------------------------------------------------------//

STATIC FUNCTION REIND(oLbx,cAz,oMeter)

   LOCAL cDbf
   LOCAL cFILE
   LOCAL cIND
   LOCAL aIT := oLbx:GetSelItems(), n, nTag, nM

   oLbx:oWnd:disable()

   FOR n := 1 TO len(aIT)
      Cursorwait()

      oLbx:Select(aIT[n])
      cDbf := upper(oLbx:aItems[aIT[n]])
      cFILE := cFILENOEXT(cDBF)
      cIND := cFILE + ORDBAGEXT()

      oLbx:SetSel(aIt[n],.f.)
      sysrefresh()

   NEXT

   oMETER:SETTOTAL(1)
   oMETER:set(0)

   oLbx:oWnd:enable()
   cursorarrow()

RETURN NIL

STATIC FUNCTION NomiFiles()
RETURN {;
   "TADTABPF.DBF", ;
   "TADHLPPF.DBF", ;
   "TADCLIPF.DBF", ;
   "TADCL2PF.DBF", ;
   "TADCALPF.DBF", ;
   "TADMDIPF.DBF"  ;
   }

http://fivewin.com.br/index.php?/topic/9289-browse-com-checkbox/?hl=%2Bcheckbox+%2Bbrowse
Nota de Moderação:
Toledo: Mensagem foi editada para juntar mensagem postada posteriormente que tinha apenas um link. Por favor, evite postar mensagens apenas com link, sem conteúdo.
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1483
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 284 vezes
Mens.Curtidas: 90 vezes

BROWSE

Mensagempor 09466261000176 » 26 Out 2014 20:54

Eu implemento os meus browse da seguinte forma:

* Browse Ficha Financeira
oDB_CADFIN                                       := TXBrowse():New( oDld_CAD_ENT_DIV )
oDB_CADFIN:cAlias              := 'cadfin'
oDB_CADFIN:bKeyDown            :={|nKey|  IF(nkey=13, T_ID_CADFIN:=cadfin->ID_CADFIN,( temp(), ) ) }
oDB_CADFIN:bChange             :={||                   T_ID_CADFIN:=cadfin->ID_CADFIN }
oDB_CADFIN:bLDblClick          :={||                   T_ID_CADFIN:=cadfin->ID_CADFIN }
oDB_CADFIN:nMarqueeStyle                 := MARQSTYLE_HIGHLROW
oDB_CADFIN:nColDividerStyle              := LINESTYLE_BLACK
oDB_CADFIN:nRowDividerStyle             := LINESTYLE_BLACK
oDB_CADFIN:lColDividerComplete        := .F.
oDB_CADFIN:lFooter                            := .T.
oDB_CADFIN:lRecordSelector               := .T. 
oDB_CADFIN:nHeaderLines                  := 1.5
oDB_CADFIN:nDataLines                      := 1.5
*
oCol                        := oDB_CADFIN:AddCol()
oCol:bStrData                   := { || DTOC(cadfin->DATA_PGMTO) }
oCol:cHeader                    := "Data"
oCol:nDataStrAlign                             := AL_LEFT                                                     
oCol:nHeadStrAlign                            := AL_LEFT   
*
oCol                       := oDB_CADFIN:AddCol()
oCol:bStrData                  := { || TRANSFORM(cadfin->VALOR_PGMTO,"@E 999,999.99") }
oCol:cHeader                   := "Valor"
oCol:nDataStrAlign                            := AL_LEFT                                                     
oCol:nHeadStrAlign                           := AL_LEFT   
*
oCol                            := oDB_CADFIN:AddCol()
oCol:bStrData                  := { || cadfin->HISTORICO }
oCol:cHeader                   := "Histórico"
oCol:nDataStrAlign                            := AL_LEFT                                                     
oCol:nHeadStrAlign                           := AL_LEFT   
*
oDB_CADFIN:CreateFromResource(4043)
*

precisaria de algo dentro deste contexto.
Nota de Moderação:
Toledo: Mensagem editada para colocar a tag [ code ]
Veja como utilizar esta tag: Clique aqui
Avatar de usuário

09466261000176
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 39
Data de registro: 19 Mar 2014 15:50
Cidade/Estado: lorena sp
Curtiu: 0 vez
Mens.Curtidas: 0 vez

BROWSE

Mensagempor Kapiaba » 27 Out 2014 08:47

Em realidade, vc. não está usando Browse e sim xBrowse, então fica mais fácil ainda, pois tem muitos exemplos no \samples, no FiveWin Brasil e no FiveWin mundial, basta dar uma procurada por xBrowse. abs.
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1483
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 284 vezes
Mens.Curtidas: 90 vezes




Retornar para FiveWin

Quem está online

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


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro