7143-1445.p
| 1 |
// The #7143-1445 regression: the text in RADIO-SET is not correctly vertically aligned |
|---|---|
| 2 |
|
| 3 |
DEFINE BUTTON cancelButton AUTO-END-KEY |
| 4 |
LABEL "Cancel" |
| 5 |
SIZE 15 BY 1.14 |
| 6 |
BGCOLOR 8 . |
| 7 |
|
| 8 |
DEFINE BUTTON okButton AUTO-GO |
| 9 |
LABEL "OK" |
| 10 |
SIZE 15 BY 1.14 |
| 11 |
BGCOLOR 8 . |
| 12 |
|
| 13 |
DEFINE VARIABLE typeSelector AS CHARACTER |
| 14 |
VIEW-AS RADIO-SET HORIZONTAL |
| 15 |
RADIO-BUTTONS |
| 16 |
"&OneType", "O", |
| 17 |
"&Another", "A" |
| 18 |
SIZE 33.8 BY 2.29 NO-UNDO. |
| 19 |
|
| 20 |
DEFINE RECTANGLE rectBorder |
| 21 |
EDGE-PIXELS 2 GRAPHIC-EDGE |
| 22 |
NO-FILL |
| 23 |
SIZE 39 BY 2.86. |
| 24 |
|
| 25 |
DEFINE FRAME f |
| 26 |
rectBorder AT ROW 1.38 COL 3 |
| 27 |
typeSelector AT ROW 1.76 COL 5.2 NO-LABEL |
| 28 |
okButton AT ROW 4.86 COL 5 |
| 29 |
cancelButton AT ROW 4.86 COL 24 |
| 30 |
SPACE(0.39) SKIP(2.46) |
| 31 |
WITH VIEW-AS DIALOG-BOX KEEP-TAB-ORDER |
| 32 |
SIDE-LABELS NO-UNDERLINE THREE-D SCROLLABLE |
| 33 |
TITLE "Select type" |
| 34 |
DEFAULT-BUTTON okButton CANCEL-BUTTON cancelButton. |
| 35 |
|
| 36 |
DISPLAY typeSelector WITH FRAME f. |
| 37 |
ENABLE rectBorder typeSelector okButton cancelButton WITH FRAME f. |
| 38 |
VIEW FRAME f. |
| 39 |
|
| 40 |
WAIT-FOR GO OF FRAME f. |