How to manipulate a side-label of a widget at runtime ? - Progress Community

Loading

Skip to Main Content

How to manipulate a side-label of a widget at runtime ?

When programmatically moving a widget on a frame, changing colors etc. the side label does not automatically get updated along with it. To do this you must access the widget's SIDE-LABEL-HANDLE attribute. This article demonstrates how to accomplish this task.

Jan 20, 2016
Knowledge

Title

How to manipulate a side-label of a widget at runtime ?

URL Name

How-to-manipulate-a-side-label-of-a-widget-at-runtime

Article Number

000143649

Environment

Product: OpenEdge Version: All supported versions OS: All supported platforms

Question/Problem Description

How to manipulate a side-label of a widget at runtime ?
Why aren't side-labels moved automatically when moving a widget programmatically ?
How to change colors of a side-label ?

Steps to Reproduce

Clarifying Information

Error Message

Defect Number

Enhancement Number

Cause

Resolution

When programmatically moving a widget on a frame, changing colors etc. the side label does not automatically get updated along with it.
This is because at runtime, the side-label is actually handled as a seperate widget.
Widgets such as FILL-INs have a SIDE-LABEL-HANDLE attribute that associates a side-label widget with them, this handle can be used to manipulate the labels.

This example shows how to change the label dynamically, and how to reposition it in such a way that its new size and position is taken into account:

DEFINE VARIABLE hLabel AS HANDLE NO-UNDO.

ASSIGN hLabel     = MyFillIn:SIDE-LABEL-HANDLE
       MyFillIn:X = 150
       MyFillIn:Y = 150.

IF VALID-HANDLE(hLabel) THEN 
  ASSIGN hLabel:SCREEN-VALUE = "Testing:"
         hLabel:WIDTH-PIXELS = FONT-TABLE:GET-TEXT-WIDTH-PIXELS(hLabel:SCREEN-VALUE,hLabel:FONT)
         hLabel:Y = MyFillIn:Y
         hLabel:X = MyFillIn:X - hLabel:WIDTH-PIXELS - 4.

This example shows how to highlight the label if a field goes blank:

DEFINE VARIABLE sample AS CHARACTER NO-UNDO LABEL "Required" INITIAL "sample".

DISPLAY sample WITH FRAME Z SIDE-LABELS.
ENABLE sample WITH FRAME Z. 

ON "VALUE-CHANGED":U OF sample DO:

   IF SESSION:DISPLAY-TYPE = "GUI":U THEN 
      sample:SIDE-LABEL-HANDLE:FGCOLOR = (IF sample:SCREEN-VALUE = "" THEN 12 ELSE ?).
   ELSE
      sample:SIDE-LABEL-HANDLE:DCOLOR = (IF sample:SCREEN-VALUE = "" THEN 4 ELSE ?).
END.

WAIT-FOR "GO":U OF sample.

Workaround

Notes

Keyword Phrase

Last Modified Date

1/20/2016 9:25 AM

OpenEdge DeploymentOpenEdge ArchitectureOpenEdge DevelopmentOpenEdge General DiscussionsOpenEdge Pro2OpenEdge RDBMS

Drop Files

Upload FilesOr drop files

Disclaimer

The origins of the information on this site may be internal or external to Progress Software Corporation (“Progress”). Progress Software Corporation makes all reasonable efforts to verify this information. However, the information provided is for your information only. Progress Software Corporation makes no explicit or implied claims to the validity of this information.

Any sample code provided on this site is not supported under any Progress support program or service. The sample code is provided on an "AS IS" basis. Progress makes no warranties, express or implied, and disclaims all implied warranties including, without limitation, the implied warranties of merchantability or of fitness for a particular purpose. The entire risk arising out of the use or performance of the sample code is borne by the user. In no event shall Progress, its employees, or anyone else involved in the creation, production, or delivery of the code be liable for any damages whatsoever (including, without limitation, damages for loss of business profits, business interruption, loss of business information, or other pecuniary loss) arising out of the use of or inability to use the sample code, even if Progress has been advised of the possibility of such damages.

Loading

How to manipulate a side-label of a widget at runtime ? - Progress Community