如何在 openedge progress 4gl 中启用垂直滚动条创建多行文本字段?
How to create multi line text field with vertical scrollbar enabled in openedge progress 4gl?
我有一个名为 user_notes 的数据库列。此列长度为 4000 个字符。此列有多行记录。
现在我想以进度形式显示此列值。参考文献URLProgress display long field (frame/form)中提到的方法我都试过了
但是该字段未启用滚动条。谁能建议如何为长文本项目字段启用垂直滚动条。
使用编辑器小部件。它进行自动换行并有一个垂直滚动条。
DEFINE VARIABLE Editor-1 AS CHARACTER
VIEW-AS EDITOR SCROLLBAR-VERTICAL
SIZE 34 BY 8 NO-UNDO.
Editor-1 = "Test text".
DEFINE VARIABLE wWindow AS WIDGET-HANDLE NO-UNDO.
DEFINE FRAME fFrame
Editor-1 AT ROW 2 COL 4 NO-LABEL
WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY
SIDE-LABELS NO-UNDERLINE THREE-D
AT COL 1 ROW 1
SIZE 40 BY 10.
CREATE WINDOW wWindow ASSIGN
HEIGHT = 10
WIDTH = 40
SENSITIVE = yes
HIDDEN = no.
DISPLAY Editor-1 WITH FRAME fFrame IN WINDOW wWindow.
ENABLE Editor-1 WITH FRAME fFrame IN WINDOW wWindow.
VIEW wWindow.
WAIT-FOR CLOSE OF THIS-PROCEDURE.
添加 READ-ONLY 选项以禁止数据输入。
我有一个名为 user_notes 的数据库列。此列长度为 4000 个字符。此列有多行记录。 现在我想以进度形式显示此列值。参考文献URLProgress display long field (frame/form)中提到的方法我都试过了 但是该字段未启用滚动条。谁能建议如何为长文本项目字段启用垂直滚动条。
使用编辑器小部件。它进行自动换行并有一个垂直滚动条。
DEFINE VARIABLE Editor-1 AS CHARACTER
VIEW-AS EDITOR SCROLLBAR-VERTICAL
SIZE 34 BY 8 NO-UNDO.
Editor-1 = "Test text".
DEFINE VARIABLE wWindow AS WIDGET-HANDLE NO-UNDO.
DEFINE FRAME fFrame
Editor-1 AT ROW 2 COL 4 NO-LABEL
WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY
SIDE-LABELS NO-UNDERLINE THREE-D
AT COL 1 ROW 1
SIZE 40 BY 10.
CREATE WINDOW wWindow ASSIGN
HEIGHT = 10
WIDTH = 40
SENSITIVE = yes
HIDDEN = no.
DISPLAY Editor-1 WITH FRAME fFrame IN WINDOW wWindow.
ENABLE Editor-1 WITH FRAME fFrame IN WINDOW wWindow.
VIEW wWindow.
WAIT-FOR CLOSE OF THIS-PROCEDURE.
添加 READ-ONLY 选项以禁止数据输入。