ListView.SetItemAttributes 方法

 VIRTUAL METHOD SetItemAttributes(
	oListViewItem
) AS USUAL CLIPPER

[ClipperCallingConventionAttribute(new string[] { ... })]
public virtual __Usual SetItemAttributes(
	__Usual oListViewItem = default
)

 1nCount := SELF:oDClvClaims:ItemCount
 2
 3FOR x := 1 UPTO nCount
 4    oLVI := SELF:oDClvClaims:GetItemAttributes(x)
 5
 6    IF oLVI != NULL_OBJECT
 7        IF oLVI:Checked // 使用ListView的"checkbox"属性设置为YES
 8            nValue := oLVI:GetValue( #dSvcDate )
 9            SELF:oBillingsServer:GoTo( nValue )
10            // 在这里进行一些处理
11            DO CASE
12                CASE cClaims == "P"
13                    oLVI:StateImageIndex := 1 // ImageList在PostInit()方法中预定义
14                CASE cClaims == "X"
15                    oLVI:StateImageIndex := 2
16                CASE cClaims == "S"
17                    oLVI:StateImageIndex := 3
18            ENDCASE
19
20            SELF:oDClvClaims:SetItemAttributes(oLVI)
21        ENDIF
22    ENDIF
23NEXT x