Como agregar BMP a Columna en Xbrowse ???

Board index FiveWin para Harbour/xHarbour Como agregar BMP a Columna en Xbrowse ???

Posts: 719

Joined: Fri May 12, 2017 02:50 PM

Como agregar BMP a Columna en Xbrowse ???
Posted: Sun Aug 28, 2022 02:22 PM

Amigos buen dia.

Tengo un problema, estoy tratando de poner unos BMP en una columna de Xbrowse el cual cambiara según valor de una variable tipo de atención.

En este caso es con coordenadas y no logro hacerlo, anteriormente lo hacia con Dialog desde recurso y funcionaba muy bien.

Muchos saludos.

Antonio

Dejo el código :

Code (fw): Select all Collapse

                @ 45,60 SAY otitu2 PROMPT "PROCEDIMIENTOS" SIZE 100,10 PIXEL OF oFld:aDialogs[1] COLORS RGB(0,100,0)   FONT oFont9   TRANSPARENT

            @ 55,05 XBROWSE oBrw SIZE 368,-55 PIXEL OF oFld:aDialogs[1] DATASOURCE "DAdm" FONT oFont2;
                     HEADERS 'Fecha', 'Administración','Profesional', 'Jeringas','Val.Unita','Total...';
               COLUMNS "Fec_Adm","MProc->Nom_Proc","Trim(Profe->Nom_Prof)","Can_Jer","Val_Uni","Val_Tot";
                     COLSIZES 90,160,160,60,60,80,60;
                        PICTURES '@d','@!',"@!",'999','9,999,999','999,999,999';
               CELL LINES AUTOSORT NOBORDER;
                                            // oBrw:nFreeze       := 3
                                        oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW

                                         oBrw:nColDividerStyle := LINESTYLE_INSET
                                         oBrw:nRowDividerStyle := LINESTYLE_INSET
                                             oBrw:bClrHeader := {|| { nRGB(140, 0, 0), nRGB( 231, 242, 255 ), } }
                                             oBrw:nOpacity    := 230
                                             oBrw:aCols[01]:bFooter   := { || Ltrim( Str( oBrw:KeyNo() ) ) + " / " + LTrim( Str( oBrw:KeyCount() ) ) }
                                             oBrw:aCols[ 4]:nDataStrAlign := AL_RIGHT
                                             oBrw:bClrStd             := {|| { nRGB(  0,  0,  0), nRGB(255,248,220) } }
                                             oBrw:bClrSelFocus        := {|| { nRGB(9, 11, 10), nRGB(73, 250, 202) } }
                                             oBrw:bClrSel       := {|| { nRGB(  0,  0,255), nRGB(241,222,088) } }  // para barra de linea selecc cuando el control no tiene el foco
                                             oBrw:aCols[6]:cEditPicture    := "999,999,999"
                                       oBrw:aCols[6]:nFooterType    := AGGR_TOTAL
                    
                     oCol := oBrw:AddCol()
                     oCol:AddResource("#10")           // Control
                     oCol:AddResource("#50")           // Administra
                     oCol:cHeader = "Tip.Ate."
                     oCol:bBmpData   :=  { || If(DAdm->Est_Adm = "A",2,1) }

             
                                             oBrw:MakeTotals()
                                             oBrw:bChange := {|| oBrw:Maketotals() }

                                             WITH OBJECT oBrw
                                                        :lFooter := .t.
                                                        oBrw:lHScroll := .f.
                                                oBrw:lIncrFilter      := .f.
                                                oBrw:lSeekWild        := .F.                   &&  .T. Busca Contenido, .F. Que comience con lo que digita
                                                        oBrw:SetStyle( 2018)
                                                        oBrw:nColorPen := CLR_RED

                                                        :bChange    := { || oBrw1:GoTop(), oBrw1:Refresh(),otitu2:Refresh() }          // Aqui Filtra el Xbrowse de Zonas

                                                        // :bChange    := { || oBrw2:GoTop(), oBrw2:Refresh(),otitu3:Refresh() }          // Aqui Filtra el Xbrowse de Zonas

                                                        oBrw:CreateFromCode()
                                             END

FWH 22.10 - HARBOUR - PELLES C

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Como agregar BMP a Columna en Xbrowse ???
Posted: Mon Aug 29, 2022 03:26 PM

Hola Antonio.
Mira estos ejemplos de Nageswaragunupudi:

viewtopic.php?f=3t=39704#p236824

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

remtec

Posts: 719

Joined: Fri May 12, 2017 02:50 PM

Re: Como agregar BMP a Columna en Xbrowse ???
Posted: Mon Aug 29, 2022 03:54 PM

FranciscoA wrote:Hola Antonio.
Mira estos ejemplos de Nageswaragunupudi:
viewtopic.php?f=3&t=39704#p236824

Hola Amigo Francisco.

Como estas?

Deseo que muy bien.

Muchas gracias, funciono perfecto.

Muchos saludos.
Antonio.

Code (fw): Select all Collapse

                                             WITH OBJECT oBrw
                                                        WITH OBJECT :Admi
                                                    :AddBitmap( { "CONTROL", "ADMI" } )
                                                    :bBmpData := { || If(  DAdm->Tip_Adm="A", 2, 1 ) }
                                                END


                                                        :lFooter := .t.
                                                        oBrw:lHScroll := .f.
                                                oBrw:lIncrFilter      := .f.
                                                oBrw:lSeekWild        := .F.                   &&  .T. Busca Contenido, .F. Que comience con lo que digita
                                                        oBrw:SetStyle( 2018)
                                                        oBrw:nColorPen := CLR_RED

                                                        :bChange    := { || oBrw1:GoTop(), oBrw1:Refresh(),otitu2:Refresh() }          // Aqui Filtra el Xbrowse de Zonas

                                                        // :bChange    := { || oBrw2:GoTop(), oBrw2:Refresh(),otitu3:Refresh() }          // Aqui Filtra el Xbrowse de Zonas

                                                        oBrw:CreateFromCode()
                                             END

FWH 22.10 - HARBOUR - PELLES C

FiveTech Support Forums

Continue the discussion