TIPTOP——4GL颜色相关设置
来源:互联网 发布:如何写好毛笔字 知乎 编辑:程序博客网 时间:2024/06/05 16:40
使用测试系统TIPTOP GP3.0
颜色的设置分为单身颜色和单头颜色的设置:
一、单身颜色:
1.首先MAIN函数之前定义一个数组
例如:
DEFINE ga_color DYNAMIC ARRAY OF RECORD c01 STRING,c02 STRING, c03 STRING,c04 STRING, c05 STRING,c06 STRING, c07 STRING,c08 STRING, c09 STRING,c10 STRING, c11 STRING,c12 STRING END RECORD
2._bp(p_ud) 函数里面:
##setCellAttributes( attarr ARRAY OF RECORD )
##Defines decoration attributes for each cell. (定义每个单元格的属性)
BEFORE DISPLAY ##显示之前设置属性
CALL DIALOG.setCellAttributes(ga_color)
3._fill函数里面
首先 CALL ga_color.clear() #清空
然后 FOREACH 里面 判断并赋值(可以对多个栏位,也可以是某一个栏位)
IF g_ta_gja[g_cnt].tc_gja10 >5 AND g_ta_gja[g_cnt].tc_gja10<10 THEN LET ga_color[g_cnt].c01 ="" LET ga_color[g_cnt].c02 ="" LET ga_color[g_cnt].c03 ="" LET ga_color[g_cnt].c04 ="" LET ga_color[g_cnt].c05 ="" LET ga_color[g_cnt].c06 ="" LET ga_color[g_cnt].c07 ="" LET ga_color[g_cnt].c08 ="" LET ga_color[g_cnt].c09 ="" LET ga_color[g_cnt].c10 ="red" LET ga_color[g_cnt].c11 ="" LET ga_color[g_cnt].c12 ="" ELSE IF g_ta_gja[g_cnt].tc_gja10>10 THEN LET ga_color[g_cnt].c01 ="" LET ga_color[g_cnt].c02 ="" LET ga_color[g_cnt].c03 ="" LET ga_color[g_cnt].c04 ="" LET ga_color[g_cnt].c05 ="" LET ga_color[g_cnt].c06 ="" LET ga_color[g_cnt].c07 ="" LET ga_color[g_cnt].c08 ="" LET ga_color[g_cnt].c09 ="" LET ga_color[g_cnt].c10 ="blue" LET ga_color[g_cnt].c11 ="" LET ga_color[g_cnt].c12 ="" ELSE LET ga_color[g_cnt].c01 ="" LET ga_color[g_cnt].c02 ="" LET ga_color[g_cnt].c03 ="" LET ga_color[g_cnt].c04 ="" LET ga_color[g_cnt].c05 ="" LET ga_color[g_cnt].c06 ="" LET ga_color[g_cnt].c07 ="" LET ga_color[g_cnt].c08 ="" LET ga_color[g_cnt].c09 ="" LET ga_color[g_cnt].c10 ="green blod" LET ga_color[g_cnt].c11 ="" LET ga_color[g_cnt].c12 ="" END IF END IF
效果图如下图片:
二、单头颜色:
1.可以直接在画面档(per档)或者4gl档里面设置颜色
例如:
<1>【per档设置】gja02 = gja02,COLOR=GREEN;(color)
<2>【per档设置】ima26 = ima26,COLOR = RED WHERE ima26>1000;
<3>【per档设置】DATEEDIT tc_gja03 = tc_gja03,COLOR=GREEN,REVERSE;
<4>【4gl档设置】DISPLAY p_ima01 TO ima01 ATTRIBUTE(BOLD,GREEN)
<5>【4gl档设置】DISPLAY BY NAME g_ima.* ATTRIBUTE(REVERSE,BOLD,GREEN)
<6>【4gl档设置】CALL cl_set_comp_font_color("ima01,ima02a","RED")
<7>【per档设置】GRID (fontpitch=FIXED)
fontpitch:这个属性定义字符的字体类型作为固定或变量在使用默认字体。
COLOR:
【用途】
The COLOR attribute defines the foreground color of the text displayed by a form element.
【说明】
1.color-name can be: BLACK, BLUE, CYAN, GREEN, MAGENTA, RED, WHITE, and YELLOW.
2.For backward compatibility, color-name can be combined with an intensity keyword: REVERSE, LEFT, BLINK, and UNDERLINE.
COLOR WHERE :
【用途】
The COLOR WHERE attribute defines a condition to set the foreground color dynamically.
【说明】
1.color-name can be: BLACK, BLUE, CYAN, GREEN, MAGENTA, RED, WHITE, and YELLOW.
2.color-name can also be an intensity keyword: REVERSE, LEFT, BLINK, and UNDERLINE.
3.boolexpr defines a Boolean expression with a restricted syntax.
4.The Boolean expression is automatically evaluated at runtime to check when the color attribute must be set.
效果图如下几张图片:
********************************************************************************************************************************************
==== Till good is better, but better best
====“我的努力不会停止,敬请期待吧!”My trying hard will go on!Please wait and see!
********************************************************************************************************************************************
- TIPTOP——4GL颜色相关设置
- TIPTOP 4GL——自定义按钮前加图标
- debug 4gl _ about TipTop System
- TIPTOP——TIPTOP拆件式工单简介
- 如何在tiptop 4GL程序中判断客户端机器某个文件是否存在
- eclipse颜色设置相关
- TIPTOP ERP界面风格设置
- TIPTOP ——AQC质量管理模块内容
- 变态的报表——TIPTOP 报表
- TIPTOP ERP ——创建GDC快捷方式
- TIPTOP ERP ——License 管理
- TIPTOP ERP ——OS操作
- 设置RichEdit相关颜色说明
- open gl 相关网址
- 二、TIPTOP命名原则和目录配置—TIPTOP GP ERP二次开发新手教程
- 4GL
- TIPTOP
- zend studio 9 字体,颜色相关设置
- SD卡 精
- ORA-00600: internal error code, arguments: [keltnfy-ldmInit], [46], [1], [], [], []
- windows Driver 入门推荐文章
- IIC总线驱动程序框架分析
- -bash: ulimit: max user processes: cannot modify limit: Operation not permitted
- TIPTOP——4GL颜色相关设置
- 我指间的刺青是对你的誓言
- 八皇后问题(回溯法)
- 设备驱动外传 - 虚拟总线和platform device
- printf("12345"+2) 结果
- Linux设备驱动子系统第一弹 - I2C
- Android - 事件模型
- Servlet相关知识
- error while loading shared libraries: libpthread.so.0: cannot open shared object file: No such file