DIALOG.setCellAttributes方法

最新推荐文章于 2023-07-24 15:48:28 发布
最新推荐文章于 2023-07-24 15:48:28 发布
阅读量4.2k 收藏 2
点赞数 1
分类专栏： TIPTOP 4GL 程序
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/fmx121586/article/details/8177744
版权

TPTOP ERP GP 3.0 测试

【DEMO源码下载：GP5.2——单身高亮显示demo.rar】

###################################################################

# 说明：<此版本无显示单元格背景，显示整行背景>
#      1. 本程序展现：显示单元格内字体颜色
#      2. 主要应用了DIALOG.setCellAttributes方法

##################################################################

首先看测试效果：

.per文件：

SCHEMA FORMONLY
LAYOUT
  VBOX
    GROUP group02 (TEXT="NEW/w List")
      TABLE
        {
         edit1      edit2      edit3       edit4     
        [edit1     |edit2     |edit3      |edit4     ]
        [edit1     |edit2     |edit3      |edit4     ]
        [edit1     |edit2     |edit3      |edit4     ]
        [edit1     |edit2     |edit3      |edit4     ]
        [edit1     |edit2     |edit3      |edit4     ]
        [edit1     |edit2     |edit3      |edit4     ]
        [edit1     |edit2     |edit3      |edit4     ]
        [edit1     |edit2     |edit3      |edit4     ]
        [edit1     |edit2     |edit3      |edit4     ]
        [edit1     |edit2     |edit3      |edit4     ]
        }
      END --TABLE
    END --GROUP
    GROUP group03 (TEXT="W/O List")
      TABLE
        {
         edit_1         edit_2         
        [edit_1        |edit_2         ]
        [edit_1        |edit_2         ]
        [edit_1        |edit_2         ]
        [edit_1        |edit_2         ]
        [edit_1        |edit_2         ]
        [edit_1        |edit_2         ]
        [edit_1        |edit_2         ]
        [edit_1        |edit_2         ]
        [edit_1        |edit_2         ]
        [edit_1        |edit_2         ]
        }
      END --TABLE
    END --GROUP
    GRID
      {
        ---------- Rows [cn2   ]-[cn3   ] ----------[btn1] [btn2]
      }
    END --GRID
  END --VBOX
END --LAYOUT

ATTRIBUTES
  BUTTON     btn1    : view, TEXT = 'View';
  BUTTON     btn2    : head, TEXT = 'head';
             edit1   = FORMONLY.edit1,NOENTRY;
             edit2   = FORMONLY.edit2,NOENTRY;
             edit3   = FORMONLY.edit3,NOENTRY;
             edit4   = FORMONLY.edit4,NOENTRY;
             edit_1  = FORMONLY.edit_1,NOENTRY;
             edit_2  = FORMONLY.edit_2,NOENTRY;

             cn2        = FORMONLY.cn2, NOENTRY ;
             cn3        = FORMONLY.cn3, NOENTRY ;
END
INSTRUCTIONS
SCREEN RECORD s_table1[10](edit1,edit2,edit3,edit4)
SCREEN RECORD s_table2[10](edit_1,edit_2)
END


.4gl文件

# Prog. Version..: '3.10.06-07.03.05(00003)'     #
# Pattern name...: csfxdemo.4gl
# Descriptions...: Set display attributes for cells
# Date & Author..: 2012/11/13 BY FMX
#
##############################################################
# 说明：<此版本无显示单元格背景，显示整行背景>
#      1. 本程序展现：显示单元格内字体颜色 
#      2. 主要应用了DIALOG.setCellAttributes方法
##############################################################

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="csfxdemo"

   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/csfxdemo"
          ATTRIBUTE (STYLE = g_win_style CLIPPED) 

          CALL cl_set_locale_frm_name("csfxdemo")
          CALL cl_ui_init()

   CALL b_fill()
   CLOSE WINDOW w1
END MAIN


FUNCTION b_fill()
   DEFINE i INTEGER
   CALL g_table1.clear()
   CALL g_table2.clear()
   CALL g_table1_attr.clear()
   FOR i=1 TO 10
      CALL g_table1.appendElement()
      LET g_table1[i].edit1 = i
      LET g_table1[i].edit2 = "测试 " || i
      LET g_table1[i].edit3 = "DEMO " || i
      LET g_table1[i].edit4 = "TIPTOP ERP GP3.0-- " || i
      
      LET g_table2[i].edit_1 = i
      LET g_table2[i].edit_2 = "TIPTOP ERP GP3.0-- " || i
      CALL g_table1.appendElement()
      IF i MOD 2 = 0 THEN
         LET g_table1_attr[i].edit1 = "red"
         LET g_table1_attr[i].edit2 = "blue reverse"
         LET g_table1_attr[i].edit3 = "red"
         LET g_table1_attr[i].edit4 = "blue reverse"
      ELSE
         LET g_table1_attr[i].edit1 = "green"
         LET g_table1_attr[i].edit2 = "magenta reverse"
         LET g_table1_attr[i].edit3 = "green"
         LET g_table1_attr[i].edit4 = "magenta reverse"
      END IF
   END FOR

   DISPLAY ARRAY g_table1 TO s_table1.*
     BEFORE DISPLAY
       CALL DIALOG.setCellAttributes(g_table1_attr)
   END DISPLAY
   
   DISPLAY ARRAY g_table2 TO s_table2.*

END FUNCTION


上面测试只是GP3.0的效果，

对于GP5.20以上版本有一个DIALOG.setArrayAttributes方法 这个可以设置很多。

看一图：单身语法高亮显示

4gl代码：

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="csfxdemo"

   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/csfxdemo"
          ATTRIBUTE (STYLE = g_win_style CLIPPED) 

          CALL cl_set_locale_frm_name("csfxdemo")
          CALL cl_ui_init()

   
   CALL b_fill()
    DISPLAY ARRAY g_table1 TO s_table1.*
      BEFORE DISPLAY
        CALL DIALOG.setCellAttributes(g_table1_attr)
    END DISPLAY
    DISPLAY ARRAY g_table2 TO s_table2.*
   
  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[2].edit2 = "显示单元格内字体颜色"
   LET g_table1[3].edit2 = "显示单元格背景"
   LET g_table1[4].edit2 = "显示整行背景"


   #假设条件设定 （实际应用可以放在上面循环中处理）

   #显示单元格内字体颜色
   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


 

fmx121586
关注
  • 1
    点赞
  • 踩
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
最近开发老遇到莫名其妙的问题，dialog自定义大小，setAttributes这个方法没反应是肿么一回事...
weixin_34406061的博客
10-21 245
============问题描述============ 最近开发老遇到莫名其妙的问题，dialog自定义大小，setAttributes这个方法没反应是肿么一回事，我只想让dialog显示一部分，但是居然全屏占满了，很费解，以前开发都是这样写的，现在居然不可以了 这是dialog的code DownLoaderDialogdialog=...
html dialog 动态加载页面,HTML之dialog对话框元素
weixin_39535557的博客
06-03 561
HTML元素表示一个对话框，它拥有自己的API和一些特殊的CSS。open特性表示dialog对话框是否打开，没有被设置open特性的dialog元素表示对话框不应该显示给用户。I'm closed.I'm open.注意dialog元素上任何CSS都可以应用，没有限制。dialog元素APIdialog元素拥有用于show()打开和close()关闭dialog对话框元素的方法。//dialog...
查询报表——一个单档单身作为另一个单身的查询条件
weixin_43731929的博客
07-24 95
TIPTOP
jQuery.dialog.js网页弹出对话框美化特效插件
06-10
《jQuery.dialog.js：网页弹出对话框的美化与特效实现》 在网页设计中，对话框（dialog）是一种常见的交互元素，用于展示重要的信息或进行用户操作确认。jQuery.dialog.js是一个专为网页开发者设计的轻量级插件，...
mfcDialog.zip_DEMO_MFCDialog.h
09-24
《深入理解MFC Dialog在C++中的应用：基于mfcDialog.zip_DEMO_MFCDialog.h的实战解析》 MFC（Microsoft Foundation Classes）是微软提供的一套C++库，用于简化Windows应用程序的开发。其中，Dialog是MFC框架中非常...
bootstrap的dialog.js
08-08
Bootstrap的Dialog.js是一个基于Bootstrap框架的对话框插件，它扩展了Bootstrap的模态（Modal）组件，提供了更丰富的交互性和自定义功能。在网页应用中，对话框常常用于显示警告、确认信息或者进行表单操作，...
css 弹框dialog.js
最新发布
05-28
弹框dialog.js
Dialog.rar
09-21
本项目“Dialog.rar”包含了一个使用Visual Studio 2015编译并通过测试的对话框示例，这对于理解和实践Windows API或MFC（Microsoft Foundation Classes）中的对话框编程非常有帮助。 1. **对话框的基本概念** ...
Android自定义Dialog
guo807015563的专栏
06-04 145
在开发中，我们经常会用到一些自定义布局的对话框。每次自己写的时候，经常会遇到一些细小的问题需要上网来解决，所以干脆把经常遇到的几个问题总结了一下，这样就可以愉快自定义dialog了。本文主要总结的问题有：1.对话框的大小、位置 2.对话框的主题 自定义dialog的大小、位置 自定义对话框的大小 对话框的大小的设置有两种方法： 1.通过WindowM...
c修改datatable单元格的值_Salesforce LWC学习(十八) datatable展示 image
weixin_39637151的博客
11-28 524
本篇参看：https://developer.salesforce.com/docs/component-library/bundle/lightning-datatable/documentationhttps://www.lightningdesignsystem.com/components/data-tables/我们在salesforce中，经常会使用 listview，标准的...
tiptop文本框实时监测输入的内容
sychou的专栏
07-22 1427
自从tiptop升级到5.3后,公司很多需求需要在user在输入的时候就给自动完成功能, 比如说很多user不知道程式代码,确有不自动怎么查,无奈,领导布置一个任务, 需要做出类似于VS2010自动完成的功能,以前从事tiptop真没有想到还有如此动态的功能,查阅了很多资料, 经测试,此功能是能够实现的,下面来介绍如何实现. 例如: 代码如下: DIALOG
Dialog的弹出位置控制
我点灯的博客
03-25 1万+
Dialog一般出现都是屏幕中心，但有的时候我们希望它能在屏幕左侧，或者右侧亦或者是屏幕顶部。这时候我们就需要用的Dialog.getWindow().getAttributes()方法啦 dialog = new Dialog(getActivityContext()); dialog.setContentView(localView); //下面的几个属性可能也会经常用...
报表查询——自动刷新数据，双击明细打开关联作业
weixin_30432579的博客
05-10 355
这次的范例是（cxmq100）； 目的：实现报表数据自动刷新，双击明细数据打开相关的查询作业； 1）在MAIN前进行客制变量定义： #add-point:自定義模組變數-客製(Module Variable) name="global.variable_customerization" TYPE type_g_input RECORD refresh ...
dialog (摘)
catherine880619的专栏
12-28 796
dialog设置大小 WindowManager.LayoutParams windowParams = dialog.getWindow().getAttributes();         windowParams.width = width; // 设置宽度         windowParams.height = height; // 设置高度         dia
Dialog的使用与总结
热门推荐
茅屋
06-15 1万+
Dialog 使用总结Dialog 是Android中对话框相关的类，起到相关提示的作用。Dialog在Android 中主要分为以下几类： AlertDialog :警告对话框(提示对话框) ProgressDialog：进度对话框 DatePickerDialog：日期选择对话框 TimerPickerDialog: 时间选择对话框 自定义对话框 下面将按照如上所分类，进行一一介绍。AlertD
代码即时高亮源码,delphi实现
北木青杨
12-06 3608
1、配置文件               255      AND              8388608      UNIT;FOR;ELSE;SENDER;TOBJECT;TO;NOT;IF;THEN;DO;APPLICATION;PROCEDURE;FUNCTION;IMPLEMENTATION;BEGIN;END;PRIVATE;VAR;USES;TYPE;INTERFACE;PUBLI
菜单ACTION控制栏位字段编辑，点击菜单ACTION才能编辑指定的栏位
weixin_30920513的博客
06-09 117
范例（axmt500）： 目的，控制新增的栏位（价格清单2），需点击菜单栏“修改价格清单2”才能对相应的栏位进行编辑修改，并记录修改人、日期； 1）在规格上增加新ACTION——action_modify_xmdaua012，修改价格清单2；并在azzi903上把ACTION添加到菜单栏； 2）在单头栏位开启设定中【axmt500_set_entry(p_cmd)】对“价格清单...
dialog.add(nameLabel); dialog.add(nameField); dialog.add(descriptionLabel); dialog.add(descriptionField); dialog.add(leaderLabel); dialog.add(leaderField); dialog.add(addButton); dialog.setSize(300, 200); dialog.setVisible(true);
06-10
这段代码是将标签、文本框和按钮添加到对话框中，并设置对话框的尺寸和可见性。将标签和文本框按照顺序添加到对话框中，再将按钮添加到对话框的最后。最后设置对话框的尺寸为300x200，并将对话框设置为可见。...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值