0

画面の中央に配置する必要がある 4gl プログラム全体に複数のウィンドウがあります。例えば：

OPEN WINDOW w_yesno AT 10, 10
WITH 4 ROWS, 56 COLUMNS
ATTRIBUTE (BORDER, MESSAGE LINE FIRST+1,
            PROMPT LINE FIRST+2)

中央で自動的に開くために使用できるキーワードはありますか? 何かのようなもの：

 OPEN WINDOW w_yesno AT CENTER
4

2 に答える 2

1

次の関数を呼び出して文字列と列数を渡すことで、文字列を中央に配置することができました。

FUNCTION center_string(str, cols)
   DEFINE str CHAR(100),
          cols, len, spcs SMALLINT


LET len = length(str)
LET spcs = (cols - len) / 2

IF len >= cols
THEN # Do nothing. Don't have enough columns to center this string
ELSE
   LET str = spcs spaces, str
END IF

RETURN str

END FUNCTION

次に、中央に配置された文字列を呼び出して返すことができます。

LET l_string = center_string(l_string, 54)
DISPLAY l_string
于 2016-03-14T23:22:11.320 に答える