this is the original
I saw on the last column it not print any record ( bloccato field)
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
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
