Color code a read-only field Syteline 8.03.20

I have a component that is a read-only field that I want to color based on it's object's value.

Is this possible to color code a read-only field?

I have the Event on Primary that uses a Method Call to choose the value, and a Form Script as below.

This script is not working, but a sample of what I am trying to accomplish.

Sub Div900()
Dim sDivision As String
Dim oCache As IWSIDOCollection

oCache = ThisForm.PrimaryIDOCollection

sDivision = oCache.GetCurrentObjectProperty("Uf_RPC_DivisionFlag")

If ThisForm.PrimaryIDOCollection.GetCurrentObjectProperty("Uf_RPC_DivisionFlag") = "900" Then
ThisForm.Components("Uf_RPC_DivisionFlag").ForegroundColor = "136,168,115"
Else
ThisForm.Components("Uf_RPC_DivisionFlag").ForegroundColor = "255,0,0"

End If

End Sub

Find more posts tagged with

Accepted answers

All comments

Legacy Contributor

I have successfully done this with Edit Fields and Buttons using BackgroundColor.

ThisForm.Components("QtyCompletedEdit").BackgroundColor = "0,192,0"

Even though it is an Edit Field it gets update automatically, so in my case it wouldn't matter if a user did try to overwrite it.

Legacy Contributor

That's great. But does nothing to answer my question of whether this can work for Read-Only field. Obviously, you have written like my code, but it is not working.

Legacy Contributor

The field being read-only has no impact on whether you can format it or not. How are you calling the sub to run it? Should be a Form Script Method action on a StdCurrentObjectSelectedComplete Event Handler on the form or similar. You could also try displaying a value in a message box (Application.ShowMessage()) to verify your logic is firing correctly before doing the color formatting.

Legacy Contributor

@TimBoyden all the items you have described are in place. It is still not working.

Copyright © 2025 Infor. All rights reserved.