关于子表的DynamicBackColor斑马色隔行显示，记录号分隔不太好用，各位有什么好办法 - VFP论坛

得分:0

以下是引用吹水佬在2023-4-29 09:02:43的发言：
因为当GRID不具有焦点或访问表格空白行时 ActiveRow 为 0，所以当滚动时要重新使GRID具有焦点。
但GRID的滚动事件Scrolled也有点特别，不能在Scrolled事件中出现“中断”状态，VFP帮助说的是因为当滚动时会出现屏幕刷新问题。

如果 ActiveRow 能具有确定性，我不会说勉强可接受

这家伙很懒，啥也没留下

第 12 楼

得分:0

以下是引用吹水佬在2023-4-29 09:02:43的发言：

记得以前也有探讨过 ActiveRow 区分奇偶行的问题，但有意思的是：
1、用键盘滚屏正常，但用鼠标滚屏异常。
2、在Scrolled事件中用SetFocus刷新表格，用鼠标滚轮正常，但用点击或拖动滚动条异常。
3、在Scrolled事件中用延时或异步消息执行SetFocus好象还可以。

因为当GRID不具有焦点或访问表格空白行时 ActiveRow 为 0，所以当滚动时要重新使GRID具有焦点。
但GRID的滚动事件Scrolled也有点特别，不能在Scrolled事件中出现“中断”状态，VFP帮助说的是因为当滚动时会出现屏幕刷新问题。

通过SetAll表格控件的DynamicBackColor，确实会存在这个问题。 ActiveRow 没用过。
持续关注！

第 13 楼

得分:0

以下是引用csyx在2023-4-29 12:37:20的发言：

如果 ActiveRow 能具有确定性，我不会说勉强可接受

我用过ActiveRow ，要GRID取得焦点才会生效，而且只是当前显示的内容才斑马色，滚动后的数据也没效果

第 14 楼

得分:20

以下是引用shonken在2023-4-29 14:40:36的发言：

我用过ActiveRow ，要GRID取得焦点才会生效，而且只是当前显示的内容才斑马色，滚动后的数据也没效果

有个问题：grid失焦时ActiveRow为0，导致不管当前在那一行MOD(this.ActiveRow,2)都为0。
简单测试了一下，其他好像还可以接受。

图片附件: 游客没有浏览图片的权限，请登录或注册

程序代码：

DECLARE LONG PostMessage IN User32 LONG, LONG, LONG, LONG

CREATE CURSOR tt (F1 I, F2 C(10))
FOR i = 1 TO 100
    INSERT INTO tt VALUES (i%2, PADL(i,4,"0")) 
ENDFOR
GO TOP

of = CREATEOBJECT("form1")
of.show(1)
RETURN

DEFINE CLASS form1 As Form
    AllowOutput = 0
    AutoCenter  = 1
    ADD OBJECT cmd1  as commandbutton WITH top=4,left=10,height=22,caption="SORT"
    ADD OBJECT text1 as textbox       WITH top=4,left=120
    ADD OBJECT grid1 as myGrid        WITH top=30
    
    PROCEDURE Init
        BINDEVENT(this.hWnd, 0x401, this, "myGridSetFocus")
        PostMessage(thisform.hWnd, 0x401, 0, 0)
    ENDPROC
     
    PROCEDURE cmd1.Click
        IF DESCENDING()
            INDEX on F2 TAG tt_F2 ASCENDING
        ELSE
            INDEX on F2 TAG tt_F2 DESCENDING
        ENDIF
        thisform.Grid1.SetFocus
    ENDPROC
    
    FUNCTION myGridSetFocus(hWnd, nMsg, wParam, lParam)
        this.Grid1.SetFocus
    ENDPROC    
ENDDEFINE

DEFINE CLASS myGrid as Grid
    PROCEDURE init
        this.SetAll("DynamicBackColor", "IIF(MOD(this.ActiveRow,2)==0,0xF0F0F0,0xC0C0C0)", "Column")
    ENDPROC

    PROCEDURE Scrolled(nDirection)
        DODEFAULT()
        PostMessage(thisform.hWnd, 0x401, 0, 0)
    ENDPROC
ENDDEFINE

第 15 楼

得分:0

以下是引用吹水佬在2023-4-29 15:54:16的发言：

有个问题：grid失焦时ActiveRow为0，导致不管当前在那一行MOD(this.ActiveRow,2)都为0。
简单测试了一下，其他好像还可以接受。

DECLARE LONG PostMessage IN User32 LONG, LONG, LONG, LONG

CREATE CURSOR tt (F1 I, F2 C(10))
FOR i = 1 TO 100
    INSERT INTO tt VALUES (i%2, PADL(i,4,"0"))
ENDFOR
GO TOP

of = CREATEOBJECT("form1")
of.show(1)
RETURN

DEFINE CLASS form1 As Form
    AllowOutput = 0
    AutoCenter  = 1
    ADD OBJECT cmd1  as commandbutton WITH top=4,left=10,height=22,caption="SORT"
    ADD OBJECT text1 as textbox       WITH top=4,left=120
    ADD OBJECT grid1 as myGrid        WITH top=30

    PROCEDURE Init
        BINDEVENT(this.hWnd, 0x401, this, "myGridSetFocus")
        PostMessage(thisform.hWnd, 0x401, 0, 0)
    ENDPROC

    PROCEDURE cmd1.Click
        IF DESCENDING()
            INDEX on F2 TAG tt_F2 ASCENDING
        ELSE
            INDEX on F2 TAG tt_F2 DESCENDING
        ENDIF
        thisform.Grid1.SetFocus
    ENDPROC

    FUNCTION myGridSetFocus(hWnd, nMsg, wParam, lParam)
        this.Grid1.SetFocus
    ENDPROC
ENDDEFINE

DEFINE CLASS myGrid as Grid
    PROCEDURE init
        this.SetAll("DynamicBackColor", "IIF(MOD(this.ActiveRow,2)==0,0xF0F0F0,0xC0C0C0)", "Column")
    ENDPROC

    PROCEDURE Scrolled(nDirection)
        DODEFAULT()
        PostMessage(thisform.hWnd, 0x401, 0, 0)
    ENDPROC
ENDDEFINE

效果不错

有个问题，如果当前容器对象里有多个GRID呢？

第 16 楼

得分:0

一个容器里有多个GRID的大概思路是这样：

在Gird中新建一个x_GotFocus方法，绑定Controls(2)的GotFocus事件,用来传递当前GRID的名字
Bindevent(LoColobj.Controls(2),"GotFocus",This,"x_GotFocus")

符合GRID名字的再获得焦点

[此贴子已经被作者于2023-4-29 19:03编辑过]

第 17 楼

得分:0

回复 14楼吹水佬

好！谢谢！