I can not paint the effect of divisions of rows and columns when the array is empty, or fails to have the number of rows occupied all xBrowse
Herewith the code I use
Buenos dias
No consigo el efecto de pintar las divisiones de filas y columnas cuando el array está vacio, o no llega a tener el número de filas que ocupa todo el XBrowse
Adjunto el código que utilizo
Code: Select all | Expand
Local aF := {}
Local oBrush
DEFINE BRUSH oBrush COLOR nRgb( 240, 240, 240 )
@ 2, 4 XBROWSE oList ARRAY aF ;
SIZE nAnchoSpl - 4, oWndPrin:nHeight - 30 ;
OF aPanels1 ;
COLUMNS 1 ;
HEADERS "Funcion" ; //"S", "Nombre", "Descripcion" ;
COLSIZES (nAnchoSpl - 22) ;
JUSTIFY nil ; //AL_CENTER, nil, nil ;
COLORS RGB( 100, 100, 100 ), CLR_WHITE ; //, Rgb( 240, 240, 240 ) ;
FONT oFontEdt ;
PIXEL ;
NOBORDER LINES
WITH OBJECT oList
:lFooter := .F.
:lRecordSelector := .F.
:lColDividerComplete := .T.
:l2007 := .F.
:nMarqueeStyle := MARQSTYLE_HIGHLROW
:nRowHeight := 18
:bClrSel := { || { CLR_WHITE, Rgb(128,128,128) } } //Rgb(35,31,32) } } //CLR_BLUE
:bClrSelFocus := { || { CLR_WHITE, Rgb(051,051,051) } }
:bClrRowFocus := { || { CLR_BLACK, Rgb(128,128,128) } } //RGB( 120,210,255 ) } }
:SetBrush( oBrush )
ENDWITH
SetParent( oList:hWnd, aPanels1:hWnd )
oList:CreateFromCode()
oBrush := Nil
How to be configured?
thanks
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=22544&start=0
Cómo se ha de configurar?
Gracias
