마우스가 위치한 Row에 색깔 주기
//Create mousemove event at datawindow.... Event ID :pbm_mousemove
long ll_pos
String dwobject
string ls_row
dwobject = dw_1.GetObjectAtPointer()
ll_pos = Pos(dwobject, "~t")
IF ll_pos > 0 THEN
ls_row = Mid(dwobject, ll_pos + 1)
END IF
IF Long(ls_row) = 0 THEN RETURN
dw_1.Modify("DataWindow.Detail.Color=~"553648127~tif ( getrow() = " + ls_row + ", rgb(255,240,240), rgb(255,255,255) )~"")
long ll_pos
String dwobject
string ls_row
dwobject = dw_1.GetObjectAtPointer()
ll_pos = Pos(dwobject, "~t")
IF ll_pos > 0 THEN
ls_row = Mid(dwobject, ll_pos + 1)
END IF
IF Long(ls_row) = 0 THEN RETURN
dw_1.Modify("DataWindow.Detail.Color=~"553648127~tif ( getrow() = " + ls_row + ", rgb(255,240,240), rgb(255,255,255) )~"")