right-aligned.p
| 1 |
// Test FILL-IN widgets with RIGHT alignment. |
|---|---|
| 2 |
|
| 3 |
// This is just for repeatable test results, no issues are known |
| 4 |
// for different session numeric format values |
| 5 |
SESSION:SET-NUMERIC-FORMAT(",",".").
|
| 6 |
|
| 7 |
DEFINE VARIABLE decimalVar AS DECIMAL VIEW-AS FILL-IN SIZE-CHARS 30 BY 1. |
| 8 |
DEFINE VARIABLE integerVar AS INTEGER VIEW-AS FILL-IN SIZE-CHARS 30 BY 1. |
| 9 |
DEFINE VARIABLE logicalVar AS LOGICAL VIEW-AS FILL-IN SIZE-CHARS 30 BY 1. |
| 10 |
|
| 11 |
DEFINE FRAME fr decimalVar SKIP integerVar SKIP logicalVar WITH NO-LABELS. |
| 12 |
|
| 13 |
ON VALUE-CHANGED OF decimalVar, integerVar, logicalVar |
| 14 |
MESSAGE "VALUE-CHANGED: " SELF:NAME SELF:SCREEN-VALUE NOW. |
| 15 |
|
| 16 |
ENABLE ALL WITH FRAME fr. |
| 17 |
|
| 18 |
WAIT-FOR CLOSE OF CURRENT-WINDOW. |