Page 1 of 1
Xbrowse config
Posted: Fri Jan 12, 2007 12:38 am
by Silvio
How I can create a config of colums of xbrowse and save the state ?
Posted: Sat Jan 13, 2007 4:00 am
by ShumingWang
FUNCTION SaveState(obrow,cid)
local cState
cState:=obrow:SaveState()
if oServer:QueryData("select id from browseset where id='"+cid+"'")<>cid
oServer:Query("insert into browseset (id,cvalue) values ('"+cid+"','"+cState+"')")
else
oServer:Query("update browseset set cvalue='"+cState+"' where id='"+cid+"'")
endif
return
FUNCTION RestoreState(obrow,cid)
local cState
cState:=oServer:QueryData("select cvalue from browseset where id='"+cid+"'")
obrow:RestoreState(cState)
return
Posted: Tue Jan 16, 2007 5:07 pm
by Silvio
How I can create a browse to set hight, width, colors od eah columns of xbrowse and save it ?
Posted: Wed Jan 17, 2007 1:28 am
by ShumingWang
obrow := TXBrowse():New(odlg)
oBrow:nMarqueeStyle := 6
obrow:bskip:=obrow:bskipper
obrow:bClrStd := {||{CLR_BLACK,if(odb1:ordinqty-odb1:ordouqty-odb1:minqty+odb1:allqty<0,CLR_HRED,if(EVAL(obrow:bBookMark)%2==0,CLR_1,CLR_2))}}
obrow:nfreeze:=1
obrow:nColDividerStyle := LINESTYLE_GREEN
obrow:nRowDividerStyle := LINESTYLE_GREEN
oCol := obrow:AddCol()
oCol:cHeader := "Unit"
oCol:bStrData := {||odb1:unit}
obrow:CreateFromResource(201)
define button id 101 of odlg action savestate(obrow,"browseid1")
activate dialog odlg on init (restorestate(obrow,"browseid1")