FiveTech Software tech support forums

... := AL_RIGHT How can I add another column that read / edit the value of field->seleziona Logical type? I want to see the classic two bitmap CHECKON and CHECKOFF many thanks

... know exactly what You need just a sample ( any fieldtype ) // numeric :aCols[ 4 ]:nEditType := EDIT_BUTTON :aCols[ 4 ]:addbmpfile( c_path1 + "Checkon.bmp" ) // from Disk :aCols[ 4 ]:addbmpfile( c_path1 + "Checkoff.bmp" ) // from Disk :aCols[ 4 ]:bBmpData := {|| IIF( oCust:Age ...

from tDatabase-sample oCol := oBrw:AddCol() oCol:cHeader := "Married" oCol:nHeadStrAlign := AL_CENTER oCol:addbmpfile( c_path1 + "Checkon.bmp" ) // from Disk with path \bitmaps oCol:addbmpfile( c_path1 + "Checkoff.bmp" ) // from Disk with path \bitmaps oCol:bBmpData ...

... @ 68, 30 ADD BUTTON oSay1 GROUP oGr SIZE 65, 15 PROMPT "A Say" SAYBUTTON @ 64, 70 ADD BUTTON oChk1 GROUP oGr1 BITMAP ".\bitmaps\checkon.bmp" MOSTLEFT SIZE 85, 18 PROMPT "Checkbox" ; ACTION ( lVal1 := ! lVal1, oChk1:SetFile( If( lVal1, ".\bitmaps\checkon.bmp", ...

... oBrw:cAlias("TEMP072") oBrw:l2007:=.t. oBrw:bClrSel:={ || { CLR_BLACK, RGB(185,220,255) } } oCol := oBrw:AddCol() oCol:AddResource("CHECKON") oCol:AddResource("CHECKOFF") oCol:cHeader := "" oCol:bBmpData := { || iif( TEMP072->MARCADO, 1, 2) } oCol:bStrData ...

... := { || { CLR_BLACK, RGB( 150,231,70 ) } } oBrw:bChange := { || Muda(), oBrw:Refresh() } oCol := oBrw:AddCol() oCol:AddResource("CHECKON") oCol:AddResource("CHECKOFF") oCol:cHeader := "" oCol:nArrayCol := 1 oCol:nWidth := 20 oCol:bStrData := nil oCol := ...

... Error description: Error BASE/1111 Argument error: LEN oCol := oBrw:AddCol() oCol:AddResource( "CHECKOFF" ) oCol:AddResource( "CHECKON" ) oCol:bBmpData := { || IF((ARQMOT)->INTATIVO, 1,2 )} oCol:bStrData := { || NIL } oCol:cHeader := "BLOQUEIO"

Download :

http://www.pflegeplus.com/fw_downloads/Xbrimg1.zip

A selection / change is related to all columns
Added dialog-background-change
Added changed / added fields LAST and FIRST for INDEX-samples



Best regards
Uwe

... image ) oBrw:aCols[ 3 ]:cHeader := "Image"oBrw:aCols[ 3 ]:nHeadStrAlign := AL_CENTER//oBrw:aCols[ 2 ]:AddResource("Checkon") // from Resource//oBrw:aCols[ 2 ]:AddResource("Checkoff") // from ResourceoBrw:aCols[ 3 ]:addbmpfile( c_path + ...

... with .t. else replace image with .f. endif assuming you change the definition to IMAGE L 0 Then oBrw:oCol("image"):SetCheck( {"CHECKON.BMP", "CHECKOFF.BMP" }, .F. ) Specify the correct location for the bmps Hth Richard

Just working on a complete SAMPLE for download. included NET-functions : NET_USE ( cDBName, cAlias, nTrials, lNet ) NET_CLOSE( nTrials, nTime ) NET_RLOCK( nTrials, nTime ) NET_ULOCK() NET_WAIT ( nTrcount, nTrials, nTime ) SHOW_WAIT( nTrcount, nTrials, nTime, oMeter, oText1 ) NET_DELETE ( nTime ) NET...

...  select abc   do while !eof()      onerror("RLOCK")      if pass = "Y"         replace image with "checkon.bmp"      else         replace image with "checkoff.bmp"      endif       skip 1   enddo   goto top   DEFINE DIALOG oDlg FROM ...

... , ;               Cliente->Nombre , ;               Cliente->Baja ;    ID 101 ;    OF oDlg .... oBrw:aCols[3]:SetCheck( { "CHECKON","CHECKOFF" } ) *** CHECKON y CHECKOFF son dos bitmaps almacenados en un fichero de recursos Un saludo

... 12.06. If you wonder why, say that you mentioned in FWH 12.06 9621 el hChecked line and I caused errors using oBrw: aCols [X]: SetCheck ({"CHECKON", "checkoff"}). The oSeek object is an object in the application Say      DEFINE DIALOG oDlgBus RESOURCE "BUSCARCLIE" ...

I made @ 5, 7 ADD BUTTON oChk2 GROUP oGroup[1] BITMAP ".\bitmaps\checkon.bmp" MOSTLEFT SIZE 80, 45 PROMPT "Normale" ; ACTION ( lNormale := ! lMultipla, oChk2:SetFile( If( lNormale, ".\bitmaps\checkon.bmp", ".\bitmaps\checkoff.bmp" ...