#include 'fivewin.ch'
#include 'xbrowse.ch'
#include 'constant.ch'
#define DLG_nColorDlg RGB(245,245,235)
#define DLG_nColortitle1 RGB(219,230,244)
#define DLG_nColortitle2 RGB(207,221,239)
#define DLG_nColorBar1 RGB(250,250,245)
#define DLG_nColorBar2 RGB(245,245,235)
#define DLG_nColorBtn1 RGB(245,245,235)
#define DLG_nColorBtn2 RGB(250,250,245)
#define DLG_nColorBtnB RGB(195,195,185)
REQUEST DBFCDX
Function test()
local oDlg, oBrw, oFont,oBold, oList,oBrush
local nBottom:= 32.4
local nRight := 95
local nHt := nBottom * DLG_CHARPIX_H
local nWd := Max( nRight * DLG_CHARPIX_W, 180 )
local oBox:=array(3)
local aCols := { ;
{ "FIRST", "First" ,, 80, },;
{ "LAST", "Last",, 80, },;
{ "STREET", "Address" ,, 100, },;
{ "CITY", "City" ,, 90, } }
local oSayfiltro
local oCbx1,lmarried:=.f.
local oCbx2,lAge:=.f.
local nMarried,oCbx3
local nRow:= 420,nCol:= 10
local nInterlinea := 20
local aGradgreen := { Rgb(250,250,245),rgb(210,210,205)}
oList:=TCustomer():New()
oList:setorder(1)
oList:Gotop()
oFont := TFont():New( "TAHOMA", 0, 14,, )
oBold := TFont():New( "TAHOMA", 0, 14,,.t. )
DEFINE BRUSH oBrush STYLE BDIAGONAL COLOR Rgb(195,195,185)
DEFINE DIALOG oDlg SIZE nWd, nHt PIXEL TRUEPIXEL;
FONT oFont COLOR CLR_BLACK, RGB(245,245,235) ;
STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, ;
WS_MINIMIZEBOX)
@ 40,10 XBROWSE oBrw SIZE -10,390 PIXEL OF oDlg ;
DATASOURCE oList COLUMNS aCols ;
AUTOSORT FONT oFont;
NOBORDER CELL LINES
// MyStyleBrowse(oBrw,oBrush)
WITH OBJECT oBrw
:nRowHeight := 25
:l2007 := .F.
:l2015 := .T.
:lRecordSelector := .F.
:nColDividerStyle := LINESTYLE_LIGHTGRAY
:nRowDividerStyle := LINESTYLE_LIGHTGRAY
:nStretchCol := STRETCHCOL_WIDEST
:nMarqueeStyle := MARQSTYLE_HIGHLROW
:CreateFromCode()
END
oBox[1]:=MyBox(nRow, 2,oDlg:nWidth-10,30,Rgb(250,250,245),rgb(210,210,205))
nRow -=31
oBox[2]:=MyBox(nRow, 2,oDlg:nWidth-10,30,Rgb(250,250,245),rgb(210,210,205))
nRow -=31
oBox[3]:=MyBox(nRow, 2,oDlg:nWidth-10,30,Rgb(250,250,245),rgb(210,210,205))
ACTIVATE DIALOG oDlg CENTERED ;
ON INIT (oBox[2]:hide(),oBox[3]:Hide(),;
Config_Form(oBox,oFont,oBold,oDlg,oBrw) )
RELEASE FONT oFont
return nil
Function Config_Form(oBox,oFont,oBold,oDlg,oBrw)
local aDat:=array(20)
local nRow:= 0,nCol:= 10
local nInterlinea := 30
local axArray :={ { .F., "Married" },;
{ .F., "Age" },;
{ .F., "Married" },;
{ .F., "Not Married" },;
{ .F., "20" },;
{ .F., "over 50" }}
STATIC l01, l02, l03, l04, l05, l06 := .F.
@ 2,5 Say oSay Prompt "Filter by " size 80,20 PIXEL of oBox[1] ;
COLOR CLR_BLACK, Rgb(250,250,245)
oSay:lTransparent:=.t.
// articoli
l01:= axArray[ 1, 1 ]
@ 8,oBox[1]:nLeft+120 CHECKBOX aDat[ 1] VAR l01 Prompt axArray[ 1, 2 ] SIZE 90, 11 PIXEL OF oBox[1] ;
COLOR CLR_BLACK, Rgb(250,250,245) FONT oBold ;
ON CHANGE ( IIf(l01,(oBox[2]:Show(), obrw:nBottom:=100 ,oBrw:refresh(.f.) ),;
(oBox[2]:Hide(), obrw:nBottom:=200 ,oBrw:refresh(.f.) ) ) )
l02:= axArray[ 2, 1 ]
@ 8,oBox[1]:nLeft+300 CHECKBOX aDat[ 2] VAR l02 Prompt axArray[ 2, 2 ] SIZE 90, 20 PIXEL OF oBox[1] ;
COLOR CLR_BLACK, Rgb(250,250,245) FONT oBold ;
ON CHANGE ( IIf(l02,(oBox[3]:Show(), obrw:nBottom:=100 ,oBrw:refresh(.f.) ),;
(oBox[3]:Hide(), obrw:nBottom:=200 ,oBrw:refresh(.f.) ) ) )
aDat[ 1]:lTransparent:=.t.
aDat[ 2]:lTransparent:=.t.
l03:= axArray[ 3, 1 ]
@ 2,5 Say oSay Prompt "Married " size 80,20 PIXEL of oBox[2] TRANSPARENT ;
COLOR CLR_BLACK, Rgb(250,250,245)
@ 8,oBox[1]:nLeft+120 CHECKBOX aDat[ 3] VAR l03 Prompt axArray[ 3, 2 ] SIZE 90, 20 PIXEL OF oBox[2] ;
COLOR CLR_BLACK, Rgb(250,250,245) FONT oBold WHEN l01
aDat[ 3]:lTransparent:=.t.
l04:= axArray[ 4, 1 ]
@ 8,oBox[1]:nLeft+300 CHECKBOX aDat[ 4] VAR l04 Prompt axArray[ 4, 2 ] SIZE 90, 20 PIXEL OF oBox[2] ;
COLOR CLR_BLACK, Rgb(250,250,245) FONT oBold WHEN l01
aDat[ 4]:lTransparent:=.t.
l05:= axArray[ 5, 1 ]
@ 2,5 Say oSay Prompt "Age " size 80,20 PIXEL of oBox[3] TRANSPARENT ;
COLOR CLR_BLACK, Rgb(250,250,245)
@ 8,oBox[1]:nLeft+120 CHECKBOX aDat[ 5] VAR l05 Prompt axArray[ 5, 2 ] SIZE 90, 20 PIXEL OF oBox[3] ;
COLOR CLR_BLACK, Rgb(250,250,245) FONT oBold WHEN l02
aDat[ 5]:lTransparent:=.t.
l06:= axArray[ 6, 1 ]
@ 8,oBox[1]:nLeft+300 CHECKBOX aDat[ 6] VAR l06 Prompt axArray[ 6, 2 ] SIZE 90, 20 PIXEL OF oBox[3] ;
COLOR CLR_BLACK, Rgb(250,250,245) FONT oBold WHEN l02
aDat[ 6]:lTransparent:=.t.
RETURN NIL
//---------------------------------------------------------------------//
Function MyBox(nTop, nLeft, nBottom, nRight,nClrLite, nClrDark)
local cType:= "GBOX"
return TSLines():New( nTop, nLeft, nBottom, nRight, cType, , nClrLite, nClrDark)
//---------------------------------------------------------------------//
CLASS TXData from TDatabase
DATA cDbfPath init ".\"
ENDCLASS
CLASS TCustomer from TXData
METHOD New()
ENDCLASS
METHOD New( lShared ) CLASS TCustomer
Default lShared := .t.
::super:New(,::cDbfPath + "Customer" ,"DBFCDX", lShared)
if ::use()
::setOrder(1)
::gotop()
endif
RETURN Self
