FiveTech Software tech support forums

: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

... on a column a calenda I made WITH OBJECT oBrowse:aCols[ 7] :AddBitmap( "INVOICE_CALENDARIO") :nBtnBmp := 1 :lBtnTransparent := .t. * :lBmpStretch := .f. :nwidth := 120 :nDataStrAlign := AL_CENTER :nHeadStrAlign := AL_CENTER :nDataStrAlign := oBrowse:aCols[ 7]:DefStyle(AL_LEFT,.f.) ...

Marc, I added the test but with different results 1. No resize of small images only images > cellsize are resized. 2. A visible celltext adding :lBmpStretch := .t. fills the cellarea but doesn't keep the aspect ratio http://www.pflegeplus.com/IMAGES/XbrwImage2.jpg WITH OBJECT ...

... ; CELL LINES NOBORDER ; DATASOURCE "oServiziSingoli" WITH OBJECT oBrw1 :nRowHeight := 30 WITH OBJECT oBrw1:aCols[ 1] :lBmpStretch := .F. :lBmpTransparent := .T. :nwidth := 40 :bStrImage := {|| oServiziSingoli:IMAGE } END end oBrw1:CreateFromCode() oBrw1:cAlias := oServiziSingoli:cAlias ...

... ) :nBtnBmp := 1 :nEditType := EDIT_BUTTON :bEditBlock := {|| VerItems( cCodigo,cQry:tipo,cQry:ord_comp )} :lBtnTransparent := .t. :lBmpStretch := .t. END */ he tenido que solucionarlo usando :aCols[01]:bLDClickData := { || VerItems( cCodigo,cQry:tipo,cQry:ord_comp ) } version de ...

... NOBORDER ADD COLUMN TO XBROWSE oBrowse then WITH OBJECT oBrowse WITH OBJECT oBrowse:aCols[ 6] :AddBmpFile(".\bitmaps\DLG_NO_MIN.bmp ") :lBmpStretch := .F. :lBmpTransparent := .T. :nwidth := 10 :nEditType := EDIT_BUTTON :bEditBlock := { ||DeleteRow(oBrowse,aGet) } END END the problem ...

... oBrowse:aCols[ 1] :bFooter := { || Ltrim( Str( oBrowse:KeyNo() ) ) + " / " + LTrim( Str( oBrowse:KeyCount() ) )+" servizi" } :lBmpStretch := .F. :lBmpTransparent := .T. :nwidth := 20 :bStrImage := {|oCol, oBrw| oBrw:aArrayData[ oBrw:nAt,1 ] } END but It show alway the same ...

... oBrowse:aCols[ 1] :bFooter := { || Ltrim( Str( oBrowse:KeyNo() ) ) + " / " + LTrim( Str( oBrowse:KeyCount() ) )+" servizi" } :lBmpStretch := .F. :lBmpTransparent := .T. :bStrImage := {|oCol, oBrw| aData[ oBrowse:nAt,1 ] } END but it not show the image if click on hscroll it ...

... posso chamar tdatepick classe? selecionar uma data? //calend oBrowse:aCols[2]:AddResource('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 ...

... oBrwcp:aCols[12]:cEditPicture := '@E 99,999.99' //calend oBrowse:aCols[2]:AddResource('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 ...

... oBrwc:AddCol() oCol:AddResource( "UNCHECK" ) oCol:AddResource( "CHECK" ) oCol:SetCheck( { "CHECK", nil }, .t. ) oCol:lBmpStretch := .f. oCol:lBmpTransparent := .t. oCol:nHeadStrAlign := oCol:nDataBmpAlign := AL_CENTER oCol:cHeader := "" oCol:nWidth := 18 ...

... podría cobrar I tried with Aadd(aForecast,{cData,cDay,cMax,cMin,cPrev, cUrl } ) ... WITH OBJECT oBrwForecast:aCols[6] :nEditType := TYPE_IMAGE :lBmpStretch := .F. :lBmpTransparent := .t. :bStrImage := { || loadBmp(aForecast[6])} :bStrData :={ || ""} END pero se necesita mucho tiempo ...

... 'IMAGEM1' ) oBrowse:aCols[3]:AddResource( 'IMAGEM2' ) oBrowse:aCols[3]:bBmpData := {|| IIf( Empty( tabela->teste ), 1, 2 ) } oBrowse:aCols[3]:lBmpStretch := .f. oBrowse:aCols[3]:lBmpTransparent := .t. oBrowse:aCols[3]:nDataBmpAlign := AL_CENTER oBrowse:aCols[3]:nHeadStrAlign := AL_CENTER oBrowse:aCols[3]:cHeader ...

... 'IMAGEM1' ) oBrowse:aCols[3]:AddResource( 'IMAGEM2' ) oBrowse:aCols[3]:bBmpData := {|| IIf( Empty( tabela->teste ), 1, 2 ) } oBrowse:aCols[3]:lBmpStretch := .f. oBrowse:aCols[3]:lBmpTransparent := .t. oBrowse:aCols[3]:nDataBmpAlign := AL_CENTER oBrowse:aCols[3]:nHeadStrAlign := AL_CENTER oBrowse:aCols[3]:cHeader ...

... ) :aCols[n]:bBmpData := {|| if( !empty((cAlias)->Bloqueo),1, if( (cAlias)->Estado="BLOQUEADA",2,0)) } :aCols[n]:lBmpStretch := .t. :aCols[n]:lBmpTransparent := .T. :aCols[n]:nDataBmpAlign := AL_LEFT endif ...... ...... Next END Saludos.