vault backup: 2025-02-25 10:46:10

This commit is contained in:
SeedList
2025-02-25 10:46:10 +08:00
parent ad9b690fc9
commit c929494617
17 changed files with 105 additions and 67 deletions

View File

@ -151,9 +151,9 @@
- **初始值文本**:编辑框控件设置输入文本类型初始值,“使用初始值”启用且“初始值类 型”为“用户输入”时属性设置才有效
- **字体颜色**:设置字体大小及样式颜色
- **脚本**:编写脚本内容
- **按钮单击执行**:设置 [窗体表单脚本](200.Delphi脚本.md) ,窗体表单实例或编辑对象常规属性时,脚本在单击按钮时执行
- **值改变时执行**:设置 [窗体表单脚本](200.Delphi脚本.md) ,窗体表单实例或编辑对象常规属性时,脚本在属性值改变时执行
- **单击执行**:设置 [窗体表单脚本](200.Delphi脚本.md) ,窗体表单实例或编辑对象常规属性时,脚本在单击控件时执行
- **双击执行**:设置 [窗体表单脚本](200.Delphi脚本.md) ,窗体表单实例或编辑对象常规属性时,脚本在双击控件时执行
- **获得焦点执行**:设置 [窗体表单脚本](200.Delphi脚本.md) ,窗体表单实例或编辑对象常规属性时,脚本在控件获取焦点时执行
- **失去焦点执行**:设置 [窗体表单脚本](200.Delphi脚本.md) ,窗体表单实例或编辑对象常规属性时,脚本在控件失去焦点时执行
- **按钮单击执行**:设置 [窗体表单脚本](../4.other/200.Delphi脚本.md) ,窗体表单实例或编辑对象常规属性时,脚本在单击按钮时执行
- **值改变时执行**:设置 [窗体表单脚本](../4.other/200.Delphi脚本.md) ,窗体表单实例或编辑对象常规属性时,脚本在属性值改变时执行
- **单击执行**:设置 [窗体表单脚本](../4.other/200.Delphi脚本.md) ,窗体表单实例或编辑对象常规属性时,脚本在单击控件时执行
- **双击执行**:设置 [窗体表单脚本](../4.other/200.Delphi脚本.md) ,窗体表单实例或编辑对象常规属性时,脚本在双击控件时执行
- **获得焦点执行**:设置 [窗体表单脚本](../4.other/200.Delphi脚本.md) ,窗体表单实例或编辑对象常规属性时,脚本在控件获取焦点时执行
- **失去焦点执行**:设置 [窗体表单脚本](../4.other/200.Delphi脚本.md) ,窗体表单实例或编辑对象常规属性时,脚本在控件失去焦点时执行

View File

@ -1,6 +1,6 @@
# 介绍
窗体表单能够根据用户需求 [自定义控件页面](170.自定义控件页面.md) ;绑定流程实现数据流转和自动签名; [绑定流程过程用户](180.窗体表单绑定流程过程用户.md) 控制属性操作权限; 为属性控件编辑事件 [脚本](200.Delphi脚本.md) 来实现个性化的操作
窗体表单能够根据用户需求 [自定义控件页面](170.自定义控件页面.md) ;绑定流程实现数据流转和自动签名; [绑定流程过程用户](180.窗体表单绑定流程过程用户.md) 控制属性操作权限; 为属性控件编辑事件 [脚本](../4.other/200.Delphi脚本.md) 来实现个性化的操作
# 窗体表单模板制作

View File

@ -1,87 +0,0 @@
# 介绍
在窗体表单或对象常规属性中支持 `Delphi` 脚本来实现一些特性化操作
# 脚本编辑器
这是一个编辑、检查脚本的窗体
由主菜单、工具栏、 [控件区](#控件区) 、 [脚本编辑区](#脚本编辑区) 、 [函数/变量区](#函数/变量区) 、 [错误提示区](#错误提示区) 组成,界面如下图:
![image-20240621100850228](assets/image-20240621100850228.png)
## 布局介绍
### 文件
保存或者关闭脚本编辑器
操作:检查语法正确性
查找/替换/查找下一个TXT文本功能
设置:
1. 修改 Tab 键跳转列数:设置缩进列数
2. 工具栏:显示脚本编辑器常用操作
### 控件区
显示源窗体中的编辑控件,双击控件节点时,在 [脚本编辑器](#脚本编辑器) 的当前光标位置增加控件名称,支持节点拖动
### 脚本编辑区
编辑脚本的地方。 编辑时支持模糊匹 **配控件区** 的控件名和 **函数/变量区** 的函数或变量名;
如果文本是控件名,输入 “ . ” 将提示控件支持的属性或方法
按 “ Tab ” 键支持选择文本的定长缩进
按 “ Shift + Tab ” 键支持选择文本的定长反缩进
支持文本搜索、搜索替换功能
使用的脚本为 `Delphi` 脚本,参考代码如下所示:
```Delphi
uses MyClass,Variables,BaseUtil,CommonFunc,DataConst,CFFrm,CFSimplePropFrm,Forms,StdCtrls,Variants,SysUtils,Classes,Controls,Dialogs,
CHostIntf,ProductClas,DocClas,LoginClas,VirtualTrees,CEntClas,PathClas;
var
StringList: TStringList;
begin
// 创建和初始化TStringList
StringList := TStringList.Create;
try
// 如果fedtusr_substrate_id的值不为空则将值添加到StringList中
if fedtusr_substrate_id.Text <> '' then
StringList.Add(fedtusr_substrate_id.Text);
if fedtusr_substrate_id2.Text <> '' then
StringList.Add(fedtusr_substrate_id2.Text);
if fedtusr_substrate_id3.Text <> '' then
StringList.Add(fedtusr_substrate_id3.Text);
if fedtusr_substrate_id4.Text <> '' then
StringList.Add(fedtusr_substrate_id4.Text);
// 转换为逗号分隔的字符串
mmmusr_substrate2.Text := StringList.DelimitedText; // 默认使用逗号作为分隔符
// 如果需要指定其他分隔符可以设置Delimiter属性
// StringList.Delimiter := ';'; // 设置分隔符为分号
// Result := StringList.DelimitedText;
finally
StringList.Free;
end;
end.
```
### 函数/变量区
显示系统支持的变量和函数,双击节点时,在 **脚本编辑区** 的当前光标位置增加变量或函数名称,鼠标移到树节点时,提示信息窗显示变量类型或函数原型,支持节点拖动
![](assets/Pasted%20image%2020250225085445.png)
### 错误提示区
执行 **保存****检查语法正确性** 命令时,如果脚本存在错误,则错误信息被显示在 **错误提示区**,双击错信息行时,在 **脚本编辑区** 中对于的错误行用红色背景标记

Binary file not shown.

Before

Width:  |  Height:  |  Size: 371 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 306 KiB