FiveTech Software tech support forums

... 4]:addbmpfile("\QASVE\config\bmp\BUSCAR16X16.bmp")
oLbx101c:aCols[4]:lBtnTransparent := .t.
olbx101c:aCols[4]:nBtnBmp := 1
olbx101c:aCols[4]:nDataBmpAlign := AL_CENTER
//olbx101c:acols[4]:bEditWhen:= { || olbx101c:aArrayData[olbx101c:nArrayAt][5]="T" }
olbx101c:acols[4]:bOnPostEdit:= { |o,nval ...

... aPics TITLE "WEB IMAGES" SETUP ( oBrw:nRowHeight := 200, oBrw:aCols[ 1 ]:nWidth := 300, ;
oBrw:aCols[ 1 ]:cDataType := 'F', oBrw:aCols[ 1 ]:nDataBmpAlign := AL_CENTER )

XBROWSER aPics TITLE "DOWNLOADED IMAGES" COLUMNS 1,1 SETUP ( oBrw:cHeaders := { "FileName", "Image" }, ;
oBrw:nRowHeight ...

:addResource( 'FLAG' )
:bBmpData := {|| IIf( Empty( oData:produtocontado ), 0, 1 ) }
:lBmpStretch := .f.
:lBmpTransparent := .t.
:nDataBmpAlign := AL_CENTER
:nHeadStrAlign := AL_CENTER
:cHeader := 'Contado'
:nWidth := 50
:bStrData := {|| nil }
:cSortOrder := Nil

... el dato a la derecha de la imagen. ¿Cómo se oculta el dato?

¿Y cómo se centra la imagen? He tratado de entrar la imagen con oBrw:aCols[ 2 ]:nDataBmpAlign: = AL_CENTER pero da error

http://portales.gva.es/agricultura/sat/sample.jpg

El código es el siguiente:


#include "FiveWin ...

... saved like

oBmp1:SaveToBmp( c_path2 + "Img64_" + ALLTRIM(STR(nCount[1])) + ".bmp" )

in xBrowse

WITH OBJECT:aCols[ 1 ]
:cDataType := 'F'
:nDataBmpAlign := AL_CENTER
:lBmpTransparent := .f.
//:lBmpTransparent := .t.
END

some of the created Bmp's

http://www.pflegeplus.com/IMAGES ...

Silvio,

WITH OBJECT oApp():oGrid
:nRowHeight := 200
END

WITH OBJECT oApp():oGrid:aCols[ 1]
:cDataType := 'F'
:nWidth := 40
:nDataBmpAlign := AL_CENTER
:lBmpTransparent := .T.
END

regards
Uwe

... the first column with

WITH OBJECT oApp():oGrid
:nRowHeight := 200

WITH OBJECT oApp():oGrid:aCols[ 1]
:cDataType := 'F'
:nWidth := 40
:nDataBmpAlign := AL_CENTER
:lBmpTransparent := .T.

END


But It show a small image

https://i.postimg.cc/qMgGt9qC/ser.jpg


why ...

... 46;jpg

WITH OBJECT oBrw:aCols[ 5 ]
// :bStrImage := { || c_path1 + ALLTRIM(oCust:Image) }
// :nDataStrAlign := AL_CENTER + AL_BOTTOM
// :nDataBmpAlign := AL_CENTER

// My solution
:bPaintText := { | oCol, hDC, cData, aRect | ;
DRAWCELL( c_path1,oCol, hDC, cData, aRect ) } // extra function ...

made
WITH OBJECT oBrw:aCols[1]
:cDataType := 'F'
:nWidth := 80
:nDataBmpAlign := AL_CENTER
:lBmpTransparent := .T. // not required
END


This is correct.

made
but not show the exactly image because the field have ".\images\OMBREL~2.PNG"


Give full path and name of the image. If XBrowse can ...

I made
WITH OBJECT oBrw:aCols[1]
:cDataType := 'F'
:nWidth := 80
:nDataBmpAlign := AL_CENTER
:lBmpTransparent := .T.
END

but not show the exactly image because the field have ".\images\OMBREL~2.PNG"
then I tried to insert

:bBmpData := { || lfn2sfn(rtrim( ( oBrw:cAlias )->ELIMGLIB)) }

but it ...

You mean this part ?

WITH OBJECT:colpic
:bStrImage := { || "r:\pictures\"+alltrim(ATT->colpic) }
DataFont := oFontS
:nDataStrAlign := AL_CENTER + AL_BOTTOM
:nDataBmpAlign := AL_CENTER
:aImgRect := { nil, nil, -10, nil }
END
Yes.
Very good.

... CALEND')
oBrowse:aCols[2]:nBtnBmp := 1
oBrowse:aCols[2]:lBmpStretch := .f.
oBrowse:aCols[2]:lBmpTransparent := .t.
oBrowse:aCols[2]:nDataBmpAlign := AL_CENTER
oBrowse:aCols[2]:nHeadStrAlign := AL_CENTER
oBrowse:aCols[2]:nFootStrAlign := AL_RIGHT
oBrowse:aCols[2]:nDataStrAlign := oBrowse ...

... CALEND')
oBrowse:aCols[2]:nBtnBmp := 1
oBrowse:aCols[2]:lBmpStretch := .f.
oBrowse:aCols[2]:lBmpTransparent := .t.
oBrowse:aCols[2]:nDataBmpAlign := AL_CENTER
oBrowse:aCols[2]:nHeadStrAlign := AL_CENTER
oBrowse:aCols[2]:nFootStrAlign := AL_RIGHT
oBrowse:aCols[2]:nDataStrAlign := oBrowse ...

ideia..poderia criar um botao centralizado na coluna.. ex:
oCol := oLbxPefa:aCols[ 5 ]
oCol:nEditType := EDIT_BUTTON
oCol:bEditBlock := {|| CriaPdfDanfe() }
oCol:AddResource("BMP_PRNT")
oCol:nBtnBmp := 1
oCol:nDataBmpAlign := 1 // 2 acho que seja centralizado

Sólo por probar, ¿has probado a cambiar el orden de las líneas de código de esta forma?

WITH OBJECT Col( "Smf" )
:AddResource("verde")
:AddResource("amarillo")
:AddResource("rojo")
:AddResource("transparente")
:bBmpData := { || SelBmp() }
:nDataBmpAlign := AL_LEFT
:nWidth := 30