FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Checkbox en Browser
Compuin
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Checkbox en Browser
Posted: Fri Apr 08, 2016 06:04 PM

Hola foro,

Alguien tiene un ejemplo de como colocar un checkbox como parte de un registro en un browser ?

Gracias de antemano

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Checkbox en Browser
Posted: Fri Apr 08, 2016 06:23 PM

Usa:

oBrowse:SetChecks()

Las columnas a mostrar el checkbox tienen que mostrar valores l贸gicos

Admite un primer par谩metro con los dos nombres de im谩genes alternativas desde recursos

y un seg煤ndo par谩metro l贸gico para indicar si se permite cambiar el valor (editarlo)

Este segundo par谩metro puede ser un codeblock

regards, saludos

Antonio Linares
www.fivetechsoft.com
Compuin
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Re: Checkbox en Browser
Posted: Fri Apr 08, 2016 08:10 PM

Disculpa Antonio,

No me quedo muy claro con el ejemplo que me indicastes.

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

armando.lagunas
Posts: 346
Joined: Mon Oct 05, 2009 03:35 PM
Re: Checkbox en Browser
Posted: Fri Apr 08, 2016 08:43 PM
Code (fw): Select all Collapse
// el campo "ACCE" en logico 

聽REDEFINE XBROWSE oLbx 聽 聽ID 20 COLUMNS "NIVE","RAIZ","DESC","ACCE" ALIAS "PA04" FONT oFont OF oDlg NOBORDER AUTOSORT FOOTERS

聽 聽 聽 聽 聽 oLbx:aCols[1]:cHeader 聽 聽 聽:= "Nivel" 聽 聽 聽 聽 聽 聽 聽 聽 ; 聽 oLbx:aCols[1]:nWidth 聽 聽 聽 := 聽30 聽 聽 聽 聽 聽 聽 聽 聽 ; oLbx:aCols[1]:nDataStrAlign 聽:= AL_CENTER
聽 聽 聽 聽 聽 oLbx:aCols[2]:cHeader 聽 聽 聽:= "Modulo" 聽 聽 聽 聽 聽 聽 聽 聽; 聽 oLbx:aCols[2]:nWidth 聽 聽 聽 := 聽80 聽 聽 聽 聽 聽 聽 聽 聽 ; oLbx:aCols[2]:nDataStrAlign 聽:= AL_CENTER
聽 聽 聽 聽 聽 oLbx:aCols[3]:cHeader 聽 聽 聽:= "Procedimiento" 聽 聽 聽 聽 ; 聽 oLbx:aCols[3]:nWidth 聽 聽 聽 := 聽440
聽 聽 聽 聽 聽 oLbx:aCols[4]:cHeader 聽 聽 聽:= "Acceso" 聽 聽 聽 聽 聽 聽 聽 聽; 聽 oLbx:aCols[4]:nWidth 聽 聽 聽 := 聽50

聽 聽 聽 聽 聽 oLbx:Acceso:SetCheck( { FWBmpOn(), FWBmpOff() }, EDIT_GET )




saludos


saludos
SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Checkbox en Browser
Posted: Sat Apr 09, 2016 06:07 AM

Si el browse est谩 mostrando alg煤n valor l贸gico solo tienes que hacer oBrowse:SetChecks() y esas columnas aparecer谩n como checkboxes

regards, saludos

Antonio Linares
www.fivetechsoft.com
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: Checkbox en Browser
Posted: Sat Apr 09, 2016 07:35 PM
armando.lagunas wrote:
Code (fw): Select all Collapse
// el campo "ACCE" en logico 

聽REDEFINE XBROWSE oLbx 聽 聽ID 20 COLUMNS "NIVE","RAIZ","DESC","ACCE" ALIAS "PA04" FONT oFont OF oDlg NOBORDER AUTOSORT FOOTERS

聽 聽 聽 聽 聽 oLbx:aCols[1]:cHeader 聽 聽 聽:= "Nivel" 聽 聽 聽 聽 聽 聽 聽 聽 ; 聽 oLbx:aCols[1]:nWidth 聽 聽 聽 := 聽30 聽 聽 聽 聽 聽 聽 聽 聽 ; oLbx:aCols[1]:nDataStrAlign 聽:= AL_CENTER
聽 聽 聽 聽 聽 oLbx:aCols[2]:cHeader 聽 聽 聽:= "Modulo" 聽 聽 聽 聽 聽 聽 聽 聽; 聽 oLbx:aCols[2]:nWidth 聽 聽 聽 := 聽80 聽 聽 聽 聽 聽 聽 聽 聽 ; oLbx:aCols[2]:nDataStrAlign 聽:= AL_CENTER
聽 聽 聽 聽 聽 oLbx:aCols[3]:cHeader 聽 聽 聽:= "Procedimiento" 聽 聽 聽 聽 ; 聽 oLbx:aCols[3]:nWidth 聽 聽 聽 := 聽440
聽 聽 聽 聽 聽 oLbx:aCols[4]:cHeader 聽 聽 聽:= "Acceso" 聽 聽 聽 聽 聽 聽 聽 聽; 聽 oLbx:aCols[4]:nWidth 聽 聽 聽 := 聽50

聽 聽 聽 聽 聽 oLbx:Acceso:SetCheck( { FWBmpOn(), FWBmpOff() }, EDIT_GET )




saludos


saludos


Armando, que tipo de dise帽o es el menu que usas.? se ve bastante llamativo, muy buena combinacion de colores...por lo menos para mis gustos...gracias, saludos... :-)
Dios no est谩 muerto...



Gracias a mi Dios ante todo!
armando.lagunas
Posts: 346
Joined: Mon Oct 05, 2009 03:35 PM
Re: Checkbox en Browser
Posted: Mon Apr 11, 2016 03:06 PM
hola, jose:

no es un menu, es una opcion que trae la clase ribbonbar, es BackStage y la utilizo asi:

Code (fw): Select all Collapse
      DEFINE RIBBONBAR oBar WINDOW oWnd PROMPT "Recepci贸n","Producci贸n","Despachos","Materiales","Liquidaci贸n","Herramientas" HEIGHT 95

         @ 4, 5 RBBTN oBtn SIZE 64, 19 BITMAP ".\SYSTEM\help.bmp" ACTION oBar:BackStage OF oBar CENTER ;
                NORMAL GRADIANT {{1,nRGB(205, 28, 28),nRGB(140, 28, 28)}}                 ;
                TOOLTIP "Sub sistema de configuraci贸n inicial"

                oBar:nGroupSeparation   := 5
                oBar:nLeftMargin        := 75
                oBar:CalcPos()
                oBar:nSeparation( 5 )
                BackStage( oBar, oBtn )

FUNCTION BackStage( oBar, oBtn )
  LOCAL  oBack

   DEFINE BACKSTAGE oBack MAINWIDTH 297

          DEFINE BSSELECT OF oBack PROMPT "Parametros Principales" HEIGHT 70 COLORTEXT NIL, CLR_YELLOW

                 DEFINE BSBUTTON OF oBack PROMPT "   Impresora Principal"     BITMAP ".\SKIN\PRIN.BMP" HEIGHT  60 ACTION PrinterSetup()  ;
                                               COLORTEXT nRGB(12,12,12) GRADIENT { { 1,  nRGB( 255,255,255 ), nRGB( 198, 198,198 ) } }
                 DEFINE BSBUTTON OF oBack PROMPT "   Procedimientos Internos" BITMAP ".\SKIN\PASS.BMP" HEIGHT  60 ACTION Msginfo( "Procedimientos" ) ;
                                              COLORTEXT nRGB(12,12,12) GRADIENT { { 1,  nRGB( 255,255,255 ), nRGB( 198, 198,198 ) } }
                 DEFINE BSBUTTON OF oBack PROMPT "   Mantenci贸n de Usuarios"  BITMAP ".\SKIN\USER.BMP" HEIGHT  60 ACTION MantencionUsuarios( oBtn ) ;
                                              COLORTEXT nRGB(12,12,12) GRADIENT { { 1,  nRGB( 255,255,255 ), nRGB( 198, 198,198 ) } }

          DEFINE BSSELECT OF oBack PROMPT "Licencias de Uso"       HEIGHT 70 COLORTEXT NIL, CLR_YELLOW
                 DEFINE BSBUTTON OF oBack PROMPT "   Licencia de Software"    BITMAP ".\SKIN\DISP.BMP" HEIGHT  60 ACTION MsgInfo( "LICENCIAS" )  ;
                                              COLORTEXT nRGB(12,12,12) GRADIENT { { 1,  nRGB( 255,255,255 ), nRGB( 198, 198,198 ) } }

          DEFINE BSSELECT OF oBack PROMPT "Soporte de Sistemas"    HEIGHT 70 COLORTEXT NIL, CLR_YELLOW

                 DEFINE BSBUTTON OF oBack PROMPT "   Soporte en Linea"        BITMAP ".\SKIN\MAIL.BMP" HEIGHT  60 ACTION MailMaster("Main")  ;
                                              COLORTEXT nRGB(12,12,12) GRADIENT { { 1,  nRGB( 255,255,255 ), nRGB( 198, 198,198 ) } }
                 DEFINE BSBUTTON OF oBack PROMPT "   Informaci贸n y Ayuda"     BITMAP ".\SKIN\HELP.BMP" HEIGHT  60 ACTION Msginfo( "AYUDA" )  ;
                                              COLORTEXT nRGB(12,12,12) GRADIENT { { 1,  nRGB( 255,255,255 ), nRGB( 198, 198,198 ) } }
                 DEFINE BSBUTTON OF oBack PROMPT "   Retornar a Windows"      BITMAP ".\SKIN\EXIT.BMP" HEIGHT  60 ACTION Msginfo( oBar:oWnd:End() )   ;
                                             COLORTEXT nRGB(12,12,12) GRADIENT { { 1,  nRGB( 255,255,255 ), nRGB( 198, 198,198 ) } }

   SET BACKSTAGE oBack TO oBar

RETURN NIL
SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: Checkbox en Browser
Posted: Mon Apr 11, 2016 04:18 PM

Armando, gracias por tu respuesta, no habia pillado que era la misma ribbon, ya lo habia utilizado pero creo que lo mas llamativo es el windows donde la usas, creo eso hace la gran diferencia, cuando la probe fue bajo WIN XP, igual probare tu ejemplo bajo WIN 7 haber como se ve, hasta los momentos es el windows que uso, gracias, saludos... :shock:

Dios no est谩 muerto...



Gracias a mi Dios ante todo!

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions