IF is_prevcolumn<>'' THEN
li= Modify(is_prevcolumn+".background.Color='0~tIf(currentrow()=getrow(),rgb(55,244,202),rgb(255,255,255))'" )
END IF
ls=Modify ( string(dwo.name)+".background.Color='0~tIf(currentrow()=getrow(),rgb(255,255,166),rgb(255,255,255))'" )
is_prevcolumn=string(dwo.name)
clicked():
IF row=0 THEN RETURN
i=GetSelectedRow(0)
SelectRow(i,FALSE)
is_column=dwo.name
ii_colcount = Integer(THIS.Object.DataWindow.Column.Count)
FOR i = 1 TO ii_colcount
is_colname[i] = THIS.DESCRIBE('#' + String(i) + '.NAME')
IF THIS.DESCRIBE(is_colname[i] + '.ColType') = 'datetime' THEN
THIS.Modify(is_colname[i] + '.Alignment="3"')
THIS.Modify(is_colname[i] + '.Format = "yyyy-mm-dd"')
END IF
ls_color = THIS.DESCRIBE(is_colname[i] + '.Background.Color')
if ib_rowmark THEN
THIS.Modify(is_colname[i] + '.Background.Mode = "0"')
if THIS.DESCRIBE(is_colname[i] + '.Background.Color') = ls_color THEN
THIS.Modify(is_colname[i] + '.Background.Color = "0~t If(CurrentRow() = GetRow(),RGB(150,210,255),RGB(255,255,255))"')
else
THIS.Modify(is_colname[i] + '.Background.Color = "0~t If(CurrentRow() = GetRow(),RGB(150,210,255),' + ls_color + ')"')
end if
END IF
NEXT