TIPTOP 单身的行背景颜色动态设置例子

# Prog. Version..: '5.25.06-12.01.05(00010)'     #
#
# Pattern name...: csfi001demo.4gl
# Descriptions...: 单身高亮显示demo
# Date & Author..: 120426 by yjb
#
##############################################################
# 说明：
#      1. 本程序展现：显示单元格内字体颜色，显示单元格背景，显示整行背景
#      2. gp5.20和gp5.20版本测试通过
#      3. 主要应用了DIALOG.setArrayAttributes方法
##############################################################
#
# Modify.........: MOD-120426 BY yjb
GLOBALS "../../config/top.global"
DEFINE g_table1 DYNAMIC ARRAY OF RECORD  #单身数组
edit1  int,
edit2  STRING,
edit3  STRING,
edit4  STRING
END RECORD
DEFINE g_table1_attr DYNAMIC ARRAY OF RECORD  #属性数组，名称与单身数组一致，类型定义为string
edit1  STRING,
edit2  STRING,
edit3  STRING,
edit4  STRING
END RECORD
DEFINE g_table2 DYNAMIC ARRAY OF RECORD
edit_1  int,
edit_2  STRING
END RECORD
MAIN
DEFINE l_ac  INTEGER
WHENEVER ERROR CALL cl_err_msg_log
LET g_prog="csfi001demo"
IF (NOT cl_user()) THEN
EXIT PROGRAM
END IF
IF (NOT cl_setup("CSF")) THEN
EXIT PROGRAM
END IF
OPEN WINDOW w1 WITH FORM "csf/42f/csfi001demo"
ATTRIBUTE (STYLE = g_win_style CLIPPED) 
CALL cl_set_locale_frm_name("csfi001demo")
CALL cl_ui_init()
CALL b_fill()
DIALOG ATTRIBUTES(UNBUFFERED=TRUE)
DISPLAY ARRAY g_table1 TO s_table1.*
BEFORE DISPLAY 
CALL DIALOG.setArrayAttributes("s_table1",g_table1_attr)    #参数：屏幕变量,属性数组
END DISPLAY
DISPLAY ARRAY g_table2 TO s_table2.*
END DISPLAY
ON ACTION CLOSE
EXIT DIALOG
ON ACTION exit
EXIT DIALOG
END DIALOG
CLOSE WINDOW w1
END MAIN
FUNCTION b_fill()
DEFINE l_i  INTEGER
CALL g_table1.clear()
CALL g_table2.clear()
CALL g_table1_attr.clear()
FOR l_i = 1 TO 20
LET g_table1[l_i].edit1 = l_i
LET g_table1[l_i].edit2 = l_i
LET g_table1[l_i].edit3 = l_i
LET g_table1[l_i].edit4 = l_i
LET g_table2[l_i].edit_1 = l_i
LET g_table2[l_i].edit_2 = l_i
END FOR
#假设条件设定 （实际应用可以放在上面循环中处理）
LET g_table1_attr[2].edit1 = "red"    #显示单元格内字体颜色
LET g_table1_attr[3].edit1 = "red reverse"   #显示单元格背景
#显示整行背景
LET g_table1_attr[4].edit1 = "yellow reverse"  
LET g_table1_attr[4].edit2 = "yellow reverse"
LET g_table1_attr[4].edit3 = "yellow reverse"
LET g_table1_attr[4].edit4 = "yellow reverse"
END FUNCTION
颜色类型：
BLACK     黑色
BLUE      蓝色
CYAN      青色
GREEN     绿色
MAGENTA   品红色
RED       红色
WHITE     白色
YELLOW    黄色
BOLD      粗体
DIM       暗叹无光
INVISIBLE 隐藏
NORMAL    正常 正规
REVERSE   反向 倒转
BLINK     闪烁
UNDERLINE 下划线

📱 扫码关注公众号

扫描二维码关注我们，获取更多精彩内容
实时更新 · 干货满满