I call report with
ACTION oApp:oGrid:Report()
oGrid is a xbrowse
and I have this
the problem is that the first 4 records have the ELATTIVO LOGIC field = .T. as you can see here :
why it report FALSE instead of TRUE ?
aBrowse := { { "ELATTIVO", i18n("Attivo"),, 80, },;
{ "ELNOME", i18n("Descrizione elemento"),, 80, },;
{ "", i18n("Colore "),, 80, },;
{ "ELCOLORE", i18n("Descr. Colore"),, 80, },;
{ "ELORDINE", i18n("Ordine"),, 80, },;
{ "ELLOCK", i18n("Bloccato"),, 200,} }
@0,nSplit+2 XBROWSE oApp:oGrid ;
SIZE oApp():oDlg:nGridBottom,oApp():oDlg:nGridRight PIXEL;
OF oApp():oDlg ;
DATASOURCE oElementi COLUMNS aBrowse
WITH OBJECT oApp():oGrid
WITH OBJECT oApp():oGrid:aCols[1]
:AddResource("BTN_PNG_TICK")
:AddResource("BTN_PNG_TICK_RED")
:bBmpData := { || IIF( oElementi:ELATTIVO,1,2) }
:bEditValue := ""
:bStrData := ""
END
WITH OBJECT oApp():oGrid:aCols[3]
:bClrStd := {|| { CLR_WHITE, GetBackColor(oElementi:ELCOLORE) } }
:bClrSel := {|| { CLR_WHITE, GetBackColor(oElementi:ELCOLORE) } }
:bClrSelFocus := {|| { CLR_WHITE, GetBackColor(oElementi:ELCOLORE) } }
END
WITH OBJECT oApp():oGrid:aCols[6]
:AddResource("BTN_PNG_LOCKSI")
* :AddResource("BTN_PNG_LOCKNO")
:bBmpData := { || IIF( oElementi:ELLOCK,1,) }
:bEditValue := { || NIL }
END
:nClrBorder := CLR_GRAY
:nMarqueeStyle := MARQSTYLE_HIGHLWIN7
:lHscroll := .F.
:l2007 := .F.
:l2015 := .T.
:nStretchCol := STRETCHCOL_WIDEST
:lAllowRowSizing := .F.
:lAllowColSwapping := .F.
:lAllowColHiding := .F.
:lRecordSelector := .F.
:nColDividerStyle := LINESTYLE_LIGHTGRAY
:nRowDividerStyle := LINESTYLE_LIGHTGRAY
:nRowDividerStyle := LINESTYLE_NOLINES
:nColDividerStyle := LINESTYLE_LIGHTGRAY
:CreateFromCode()
END
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 58 guests