hi all,
How can I archive colons align two or more fill-in. Now create a dynamic FILL-IN and dynamic TEXT after that associated with fill-in (eg. FILL-IN: SIDE-LABEL-HANDLE = TEXT:HANDLE)
Eg:
CREATE TEXT lCustHandle
ASSIGN
FRAME = FRAME :HANDLE
DATA-TYPE = "CHARACTER"
FORMAT = "x(16)"
SCREEN-VALUE = "Customer Number:"
ROW = 2 .
CREATE TEXT lCHnd
ASSIGN
FRAME = FRAME :HANDLE
DATA-TYPE = "CHARACTER"
FORMAT = "x(18)"
SCREEN-VALUE = "Cust Name:"
ROW = 4 .
lCustHandle:COL = 40 - length(lCustHandle:SCREEN-VALUE).
lCHnd:COL = 40 - length(lCHnd:SCREEN-VALUE).
lCustHandle:FORMAT = "x(" + string(length(lCustHandle:SCREEN-VALUE)) + ")" .
lCHnd:FORMAT = "x(" + string(length(lCHnd:SCREEN-VALUE)) + ")" .
CREATE FILL-IN fCustHandle
ASSIGN
FRAME = FRAME :HANDLE
DATA-TYPE = "INTEGER"
FORMAT = ">>>>9"
SIDE-LABEL-HANDLE = lCustHandle
ROW = 2
COLUMN = 45 /lCustHandle:COLUMN + lCustHandle:WIDTH-CHARS + 1/
SENSITIVE = TRUE
VISIBLE = TRUE
TRIGGERS:
ON RETURN PERSISTENT RUN SetFieldTrig.
END TRIGGERS .
CREATE FILL-IN fCHnd
ASSIGN
FRAME = FRAME :HANDLE
DATA-TYPE = "INTEGER"
FORMAT = ">>>>9"
SIDE-LABEL-HANDLE = lCHnd
ROW = 4
COLUMN = 45
SENSITIVE = TRUE
VISIBLE = TRUE .
hi,
i think u should use X attribute of text and fill-in widget :
e.g
CREATE TEXT lCHnd
ASSIGN
FRAME = FRAME :HANDLE
DATA-TYPE = "CHARACTER"
format = "x(50)"
SCREEN-VALUE = "c"
ROW = 2
COL = 2
.
lCHnd:FORMAT = "x(" + STRING(LENGTH(lcHnd:SCREEN-VALUE) + 3) + ")".
lcHnd:COL = 40 - LENGTH(lcHnd:SCREEN-VALUE)+ 3.
CREATE FILL-IN fCHnd
ASSIGN
FRAME = FRAME :HANDLE
DATA-TYPE = "INTEGER"
FORMAT = ">>>>9"
SIDE-LABEL-HANDLE = lCHnd
label = "c"
ROW = 2
COLUMN = 48
SENSITIVE = TRUE
VISIBLE = TRUE
.
lchnd:X = fcHnd:x - (lchnd:width-pixel) .
CREATE TEXT lCHnd1
ASSIGN
FRAME = FRAME :HANDLE
DATA-TYPE = "CHARACTER"
FORMAT = "X(50)"
SCREEN-VALUE = "Customer ::Customer :Customer :Customer :"
ROW = 4
COL = 2.
lCHnd1:FORMAT = "x(" + STRING(LENGTH(lcHnd1:SCREEN-VALUE) + 3) + ")".
lcHnd1:COL = 40 - LENGTH(lcHnd1:SCREEN-VALUE)+ 3.
CREATE FILL-IN fCHnd1
ASSIGN
FRAME = FRAME :HANDLE
DATA-TYPE = "INTEGER"
FORMAT = ">>>>9"
SIDE-LABEL-HANDLE = lCHnd1
label = "Customer ::Customer :Customer :Customer :"
ROW = 4
COLUMN = 48
SENSITIVE = TRUE
VISIBLE = TRUE .
message lchnd1:width-pixel view-as alert-box.
lchnd1:X = fcHnd1:x - (lchnd1:width-pixel) .
CREATE TEXT lCHnd2
ASSIGN
FRAME = FRAME :HANDLE
DATA-TYPE = "CHARACTER"
FORMAT = "X(50)"
SCREEN-VALUE = "Customer Name :"
ROW = 6
COL = 2
.
lCHnd2:FORMAT = "X(" + STRING(LENGTH(lcHnd2:SCREEN-VALUE) + 3 ) + ")".
lcHnd2:COL = 40 - LENGTH(lcHnd2:SCREEN-VALUE) + 3.
CREATE FILL-IN fCHnd2
ASSIGN
FRAME = FRAME :HANDLE
DATA-TYPE = "INTEGER"
FORMAT = ">>>>9"
SIDE-LABEL-HANDLE = lCHnd2
label = "Customer Name :"
ROW = 6
COLUMN = lCHnd2:COLUMN + length(lCHnd2:SCREEN-VALUE) + 5
SENSITIVE = TRUE
VISIBLE = TRUE
.
lchnd2:X = fcHnd2:x - (lchnd2:width-pixel) .
CREATE TEXT lCHnd3
ASSIGN
FRAME = FRAME :HANDLE
DATA-TYPE = "CHARACTER"
FORMAT = "X(50)"
SCREEN-VALUE = "Customer :"
ROW = 8
COL = 2
.
lCHnd3:FORMAT = "X(" + STRING(LENGTH(lcHnd3:SCREEN-VALUE) + 3 ) + ")".
lcHnd3:COL = 40 - LENGTH(lcHnd3:SCREEN-VALUE) + 3.
CREATE FILL-IN fCHnd3
ASSIGN
FRAME = FRAME :HANDLE
DATA-TYPE = "INTEGER"
FORMAT = ">>>>9"
SIDE-LABEL-HANDLE = lCHnd3
label = "Customer:"
ROW = 8
COLUMN = lCHnd3:COLUMN + length(lCHnd3:SCREEN-VALUE) + 5
SENSITIVE = TRUE
VISIBLE = TRUE
.
lchnd3:X = fcHnd3:x - (lchnd3:width-pixel) .