创建数据窗口类实现鼠标移动到的行变色

1、创建数据窗口类

2、定义instence变量

//奇数行颜色
integer ii_r_odd=255
integer ii_g_odd=255
integer ii_b_odd=255

//偶数行颜色
integer ii_r_even=255
integer ii_g_even=255
integer ii_b_even=255

//当前行颜色
integer ii_r_active=255
integer ii_g_active=255
integer ii_b_active=255

//鼠标所在行颜色
integer ii_r_mouseover=255
integer ii_g_mouseover=255
integer ii_b_mouseover=255


private:
boolean ib_captured=false
long  il_handle

3、定义外部函数

FUNCTION Long SetCapture(Long hwnd) library "user32" 
FUNCTION Long ReleaseCapture() library "user32" 

4、event constructor

string s_modistr
string s_color

il_handle=handle(this