ListView.SetItemAttributes Method |
Namespace: VO
1nCount := SELF:oDClvClaims:ItemCount 2FOR x := 1 UPTO nCount 3oLVI := SELF:oDClvClaims:GetItemAttributes(x) 4IF oLVI != NULL_OBJECT 5IF oLVI:Checked // Using the "checkbox" property of a ListView set to YES 6nValue := oLVI:GetValue( #dSvcDate ) 7SELF:oBillingsServer:GoTo( nValue ) 8// do some processing here 9DO CASE 10CASE cClaims == "P" 11oLVI:StateImageIndex := 1 // ImageList was predefined in a PostInit() method 12CASE cClaims == "X" 13oLVI:StateImageIndex := 2 14CASE cClaims == "S" 15oLVI:StateImageIndex := 3 16ENDCASE 17SELF:oDClvClaims:SetItemAttributes(oLVI) 18ENDIF 19ENDIF 20NEXT x