怎么子类化 Image 控件增加 backstyle_access 方法

[此贴子已经被作者于2017-8-26 17:09编辑过]

DEFINE CLASS Grid_Image AS Image
    Visible = .T.

    PROCEDURE BackStyle_ACCESS
        * add user code here
        RETURN this.BackStyle
    ENDPROC
ENDDEFINE

怎么使用这个类

简单示例：

** test.prg
CREATE CURSOR tt (picname C(100))
FOR i=0 TO 100
    INSERT INTO tt VALUES ("test"+TRANSFORM(i%3+1)+".bmp")
ENDFOR
GO TOP
of = CREATEOBJECT("myForm")
of.show
READ EVENTS
RETURN

DEFINE CLASS myForm as Form
    ADD OBJECT grid1 as myGrid
    PROCEDURE unload
        CLEAR EVENTS
    ENDPROC
ENDDEFINE

DEFINE CLASS myGrid as grid
    RecordSource="tt"
    PROCEDURE Init
        this.Column1.RemoveObject("Text1")
        this.Column1.AddObject("Image1", "myGridImage")
        this.Column1.Sparse = .F.
    ENDPROC
ENDDEFINE

DEFINE CLASS myGridImage AS Image
    Visible = .T.
    PROCEDURE BackStyle_ACCESS
        this.Picture = tt.picname
        RETURN this.BackStyle
    ENDPROC
ENDDEFINE

大神威武

[此贴子已经被作者于2017-8-26 21:59编辑过]

学习，谢谢！

如何使用