爱招飞帮助手册 爱招飞帮助手册
首页
  • 学习手册

    • 基本入门
    • 功能介绍
    • 控件说明
    • 功能用法
    • 专用模板
    • 开发流程
    • 函数程序
  • 学习手册

    • 基本入门
    • 功能介绍
    • 控件说明
    • 系统工具
    • 系统管理
    • 数据库工具
    • 专用模板
    • 外部功能
    • 开发流程
    • 函数代码
  • 开发手册
  • 学习手册

    • 基本入门
    • 功能介绍
    • 控件说明
    • 功能用法
    • 专用模板
    • 开发流程
    • 函数程序
  • 开发手册
  • 学习手册

    • 基本入门
    • 功能介绍
    • 控件说明
    • 功能用法
    • 专用模板
    • 开发流程
    • 函数程序
  • 开发手册
  • 学习手册

    • 安装配置
    • 快速上手
    • 界面介绍
    • 功能介绍
    • 报表设计
  • 学习手册

    • 安装配置
    • 快速上手
    • 界面介绍
    • 功能介绍
    • RestAPI
    • WebSocket
  • 学习手册

    • 安装配置
    • 快速上手
    • 程序架构
    • 界面介绍
    • 功能介绍
  • 学习手册

    • 安装配置
    • 快速上手
    • 界面介绍
    • 功能介绍
  • 学习手册

    • 安装配置
    • 快速上手
    • 界面介绍
    • 功能介绍
    • 预设资料
    • RestAPI说明
    • WebSocket说明
    • MQTT说明
    • Python说明
    • 自定程序
    • 运行卫士
    • 自动化作业
    • 函数程序
    • 控件使用
  • 开发手册
  • FastERP
  • FastWeb
  • Smart
  • PinToo
  • Flying
  • TARS
  • 通用功能

    • Report
    • Script
    • Echarts
    • Chart
    • DB Install
    • HiDesk
    • HiNAT
    • FastBPM
    • ReportBuilder
首页
  • 学习手册

    • 基本入门
    • 功能介绍
    • 控件说明
    • 功能用法
    • 专用模板
    • 开发流程
    • 函数程序
  • 学习手册

    • 基本入门
    • 功能介绍
    • 控件说明
    • 系统工具
    • 系统管理
    • 数据库工具
    • 专用模板
    • 外部功能
    • 开发流程
    • 函数代码
  • 开发手册
  • 学习手册

    • 基本入门
    • 功能介绍
    • 控件说明
    • 功能用法
    • 专用模板
    • 开发流程
    • 函数程序
  • 开发手册
  • 学习手册

    • 基本入门
    • 功能介绍
    • 控件说明
    • 功能用法
    • 专用模板
    • 开发流程
    • 函数程序
  • 开发手册
  • 学习手册

    • 安装配置
    • 快速上手
    • 界面介绍
    • 功能介绍
    • 报表设计
  • 学习手册

    • 安装配置
    • 快速上手
    • 界面介绍
    • 功能介绍
    • RestAPI
    • WebSocket
  • 学习手册

    • 安装配置
    • 快速上手
    • 程序架构
    • 界面介绍
    • 功能介绍
  • 学习手册

    • 安装配置
    • 快速上手
    • 界面介绍
    • 功能介绍
  • 学习手册

    • 安装配置
    • 快速上手
    • 界面介绍
    • 功能介绍
    • 预设资料
    • RestAPI说明
    • WebSocket说明
    • MQTT说明
    • Python说明
    • 自定程序
    • 运行卫士
    • 自动化作业
    • 函数程序
    • 控件使用
  • 开发手册
  • FastERP
  • FastWeb
  • Smart
  • PinToo
  • Flying
  • TARS
  • 通用功能

    • Report
    • Script
    • Echarts
    • Chart
    • DB Install
    • HiDesk
    • HiNAT
    • FastBPM
    • ReportBuilder
  • Smart帮助主页
  • 学习手册

    • 基本入门

    • 功能介绍

    • 控件说明

      • 公共属性
      • 公共方法
      • 公共事件
      • 窗口控件
      • 系统控件
      • 标准控件
      • 对话框控件
      • 标准工控控件
      • 专业工控控件
        • 1. TiAngularLogGauge组件
          • 1.1. 属性
        • 2. TiCompass 组件
          • 2.1. 属性
        • 3. TiDualCompass 组件
          • 3.1. 属性
        • 4. TiImageDisplay 组件
          • 4.1. 属性
        • 5. TiKeyBoard 组件
        • 6. TiLedArrow 组件
          • 6.1. 属性
        • 7. TiLedDiamond 组件
          • 7.1. 属性
        • 8. TiLedMatrix 组件
          • 8.1. 属性
        • 9. TiLogGauge 组件
          • 9.1. 属性
        • 10. TiMotor 组件
          • 10.1. 属性
        • 11. TiObjectCanvas 组件
          • 11.1. 属性
          • 11.2. 方法
          • 11.2.1. AddArc方法
          • 11.2.2. AddEllipse方法
          • 11.2.3. AddLabel方法
          • 11.2.4. AddLine方法
          • 11.2.5. AddPolygon方法
          • 11.2.6. AddRectangle方法
          • 11.2.7. BringObjectToFront方法
          • 11.2.8. ClearList方法
          • 11.2.9. GetDisplayXToPixelX方法
          • 11.2.10. GetDisplayYToPixelY方法
          • 11.2.11. GetObjectBrushColor方法
          • 11.2.12. GetObjectBrushStyle方法
          • 11.2.13. GetObjectCaption方法
          • 11.2.14. GetObjectFontBold方法
          • 11.2.15. GetObjectFontColor方法
          • 11.2.16. GetObjectFontItalic方法
          • 11.2.17. GetObjectFontName方法
          • 11.2.18. GetObjectFontSize方法
          • 11.2.19. GetObjectFontStrikOut方法
          • 11.2.20. GetObjectFontUnderLine方法
          • 11.2.21. GetObjectPenColor方法
          • 11.2.22. GetObjectPenStyle方法
          • 11.2.23. GetObjectPenWidth方法
          • 11.2.24. GetObjectPositionX方法
          • 11.2.25. GetObjectPositionY方法
          • 11.2.26. GetObjectSizeHeight方法
          • 11.2.27. GetObjectSizeWidth方法
          • 11.2.28. GetObjectStartAngle方法
          • 11.2.29. GetObjectStopAngle方法
          • 11.2.30. GetPixelsXToDisplayX方法
          • 11.2.31. GetPixelsYToDisplayY方法
          • 11.2.32. RemoveObject方法
          • 11.2.33. SendObjectToBack方法
          • 11.2.34. SetObjectAngles方法
          • 11.2.35. SetObjectBrushColor方法
          • 11.2.36. SetObjectBrushStyle方法
          • 11.2.37. SetObjectBrush方法
          • 11.2.38. SetObjectCaption方法
          • 11.2.39. SetObjectFontBold方法
          • 11.2.40. SetObjectFontColor方法
          • 11.2.41. SetObjectFontItalic方法
          • 11.2.42. SetObjectFontName
          • 11.2.43. SetObjectFontSize方法
          • 11.2.44. SetObjectFontStrikOut方法
          • 11.2.45. SetObjectFont方法
          • 11.2.46. SetObjectFontUnderLine方法
          • 11.2.47. SetObjectPenColor方法
          • 11.2.48. SetObjectPenStyle方法
          • 11.2.49. SetObjectPen方法
          • 11.2.50. SetObjectPenWidth方法
          • 11.2.51. SetObjectPosition方法
          • 11.2.52. SetObjectPositionX方法
          • 11.2.53. SetObjectPositionY方法
          • 11.2.54. SetObjectSizeHeight方法
          • 11.2.55. SetObjectSize方法
          • 11.2.56. SetObjectSizeWidth方法
          • 11.2.57. SetObjectStartAngle方法
          • 11.2.58. SetObjectStopAngle方法
        • 12. TiPanel 组件
          • 12.1. 属性
        • 13. TiPercentBar 组件
          • 13.1. 属性
        • 14. TiPhonePad 组件
          • 14.1. 属性
        • 15. TiPieChart 组件
          • 15.1. 属性
        • 16. TiPipe 组件
          • 16.1. 属性
        • 17. TiPipeJoint 组件
          • 17.1. 属性
        • 18. TiSevenSegmentClockSMPTE组件
          • 18.1. 属性
        • 19. iSlidingCompass组件
          • 19.1. 属性
        • 20. TiSlidingScale 组件
          • 20.1. 属性
        • 21. TiSpectrumDisplay 组件
          • 21.1. 属性
        • 22. TiSwitchLever 组件
          • 22.1. 属性
        • 23. TiSwitchQuad 组件
          • 23.1. 属性
        • 24. TiTank组件
          • 24.1. 属性
        • 25. TiThreadTimers 组件
          • 25.1. 属性
        • 26. TiTimers 组件
          • 26.1. 属性
        • 27. TiValve 组件
          • 27.1. 属性
        • 28. TiLCDMatrix组件
          • 28.1. 属性
          • 28.2. 方法
          • 28.2.1. Clear方法
          • 28.2.2. PlaceText方法
      • 数据控制控件
      • 数据表格控件
      • 数据感知控件
      • 通讯控制控件
      • 仪表采集控件
      • 监控视频控件
      • 数据图表控件
      • 流程图表控件
      • 数据分析控件
      • 复合数控控件
      • 模拟数控控件
      • 调节数控控件
      • 数位数控控件
      • 数据数控控件
      • 地图控件
      • 其他控件
      • SVG控件
      • IsoBean控件
      • 样式控件
      • 样式外观控件
      • 样式高级控件
      • 样式工具控件
      • 样式数据控件
      • 样式控件GP
      • 样式数据控件GP
    • 功能用法

    • 专用模板

    • 开发流程

    • 函数程序

  • 开发手册

目录
1. TiAngularLogGauge组件
1.1. 属性
2. TiCompass 组件
2.1. 属性
3. TiDualCompass 组件
3.1. 属性
4. TiImageDisplay 组件
4.1. 属性
5. TiKeyBoard 组件
6. TiLedArrow 组件
6.1. 属性
7. TiLedDiamond 组件
7.1. 属性
8. TiLedMatrix 组件
8.1. 属性
9. TiLogGauge 组件
9.1. 属性
10. TiMotor 组件
10.1. 属性
11. TiObjectCanvas 组件
11.1. 属性
11.2. 方法
11.2.1. AddArc方法
11.2.2. AddEllipse方法
11.2.3. AddLabel方法
11.2.4. AddLine方法
11.2.5. AddPolygon方法
11.2.6. AddRectangle方法
11.2.7. BringObjectToFront方法
11.2.8. ClearList方法
11.2.9. GetDisplayXToPixelX方法
11.2.10. GetDisplayYToPixelY方法
11.2.11. GetObjectBrushColor方法
11.2.12. GetObjectBrushStyle方法
11.2.13. GetObjectCaption方法
11.2.14. GetObjectFontBold方法
11.2.15. GetObjectFontColor方法
11.2.16. GetObjectFontItalic方法
11.2.17. GetObjectFontName方法
11.2.18. GetObjectFontSize方法
11.2.19. GetObjectFontStrikOut方法
11.2.20. GetObjectFontUnderLine方法
11.2.21. GetObjectPenColor方法
11.2.22. GetObjectPenStyle方法
11.2.23. GetObjectPenWidth方法
11.2.24. GetObjectPositionX方法
11.2.25. GetObjectPositionY方法
11.2.26. GetObjectSizeHeight方法
11.2.27. GetObjectSizeWidth方法
11.2.28. GetObjectStartAngle方法
11.2.29. GetObjectStopAngle方法
11.2.30. GetPixelsXToDisplayX方法
11.2.31. GetPixelsYToDisplayY方法
11.2.32. RemoveObject方法
11.2.33. SendObjectToBack方法
11.2.34. SetObjectAngles方法
11.2.35. SetObjectBrushColor方法
11.2.36. SetObjectBrushStyle方法
11.2.37. SetObjectBrush方法
11.2.38. SetObjectCaption方法
11.2.39. SetObjectFontBold方法
11.2.40. SetObjectFontColor方法
11.2.41. SetObjectFontItalic方法
11.2.42. SetObjectFontName
11.2.43. SetObjectFontSize方法
11.2.44. SetObjectFontStrikOut方法
11.2.45. SetObjectFont方法
11.2.46. SetObjectFontUnderLine方法
11.2.47. SetObjectPenColor方法
11.2.48. SetObjectPenStyle方法
11.2.49. SetObjectPen方法
11.2.50. SetObjectPenWidth方法
11.2.51. SetObjectPosition方法
11.2.52. SetObjectPositionX方法
11.2.53. SetObjectPositionY方法
11.2.54. SetObjectSizeHeight方法
11.2.55. SetObjectSize方法
11.2.56. SetObjectSizeWidth方法
11.2.57. SetObjectStartAngle方法
11.2.58. SetObjectStopAngle方法
12. TiPanel 组件
12.1. 属性
13. TiPercentBar 组件
13.1. 属性
14. TiPhonePad 组件
14.1. 属性
15. TiPieChart 组件
15.1. 属性
16. TiPipe 组件
16.1. 属性
17. TiPipeJoint 组件
17.1. 属性
18. TiSevenSegmentClockSMPTE组件
18.1. 属性
19. iSlidingCompass组件
19.1. 属性
20. TiSlidingScale 组件
20.1. 属性
21. TiSpectrumDisplay 组件
21.1. 属性
22. TiSwitchLever 组件
22.1. 属性
23. TiSwitchQuad 组件
23.1. 属性
24. TiTank组件
24.1. 属性
25. TiThreadTimers 组件
25.1. 属性
26. TiTimers 组件
26.1. 属性
27. TiValve 组件
27.1. 属性
28. TiLCDMatrix组件
28.1. 属性
28.2. 方法
28.2.1. Clear方法
28.2.2. PlaceText方法

专业工控控件

# Smart 控件使用(专业工控)

  专业工控组内包含用于工业展示使用的专业组件。

  • 使用方法: 在“专业工控”栏目中选择点击所需使用的控件,然后点击将控件放置于设计窗体上。右键点击该控件,选择Edit...,或双击该控件,可打开控件编辑界面。例如TiAngularLogGauge编辑界面如下图所示。

# 1. TiAngularLogGauge组件

  该组件展示为直角的对数仪表盘,其表盘的刻度不是均匀的。

# 1.1. 属性

属性 功能说明
Position 设定温度计当前指向的位置
Position Max 设定温度计显示范围的最大值
Position Min 设定温度计显示范围的最小值
Transparent 控件背景是否为透明
Enabled 是否启用该控件
Arc Radius 仪表圆弧的辐长
Arc Range Degree 仪表圆弧的范围度数
Arc Start Degree 仪表圆弧的起始度数
Label1Text 显示在仪表盘中的标签1的文本内容
Label2Text 显示在仪表盘中的标签2的文本内容
Section Count 显示刻度分区的数目

# 2. TiCompass 组件

  该组件显示为一个带有数字显示的指南针。

# 2.1. 属性

属性 功能说明
Direction 方向角度设置,正上方为起始0
Border Style 设置控件边框的显示风格
Raised-控件相较于父控件上凸
Lowered-控件相较于父控件下凹
None-控件与父控件同平面

# 3. TiDualCompass 组件

  该组件显示为一个指针和圆盘均可移动的指南针。

# 3.1. 属性

属性 功能说明
Label Top Text 顶部文字的内容
Label Bottom Text 底部文字的内容
Center Dispaly Position 指南针中间部位显示的数字内容
Poniter 1 Position 指南针圆盘的逆时针旋转角度
Pointer 2 Position 指南针指针的顺时针旋转角度(相较于N极的旋转角度)

# 4. TiImageDisplay 组件

  该组件将图像列表显示为动画。 组件支持以可配置的计时器间隔来实现自动增加或减少图像。 支持内置的图像列表以流式传输到您的程序中。

# 4.1. 属性

属性 功能说明
ImageIndex 从加载的图像列表中获取或设置要显示的图像。 组件的内置图像列表从零开始。 第一张图片索引为0,第二张图片索引为1,依此类推。 例如,如果ImageIndex = 2,则显示列表中的第三张图像。
AutoSize 指定整个组件是否将自身调整为图像列表中第一张图像的大小。

# 5. TiKeyBoard 组件

  该组件展示为一个虚拟键盘。在使用该组件对TEdit进行输入时,需要将TEdit组件的AutoSelect属性关闭。

# 6. TiLedArrow 组件

  该组件展示为一个可发光的LED箭头。

# 6.1. 属性

属性 功能说明
Active 是否激活组件以确定是否发光
AutoSize 控件的大小由数值显示的尺寸决定
Transparent 控件是否透明显示
Style 箭头的指示方向
Right: 箭头向右
Left: 箭头向左
Up: 箭头向上
Down: 箭头向下
Left-Right: 箭头左右方向
Up-Down: 箭头东西方向
Bevel Style 边缘状态
None: 无上凸或下凹
Raised: 上凸
Lowered: 下凹
Active Color 激活状态下的组件颜色
InActive Color 非激活状态下的组件颜色

# 7. TiLedDiamond 组件

  该组件显示为一个菱形的发光LED灯。

# 7.1. 属性

属性 功能说明
Active 是否激活组件以确定是否发光
Transparent 控件是否透明显示
Bevel Style 边缘状态
None: 无上凸或下凹
Raised: 上凸
Lowered: 下凹
Active Color 激活状态下的组件颜色
InActive Color 非激活状态下的组件颜色

# 8. TiLedMatrix 组件

  TiLedMatrix是LED元素的网格。 使用RowCount和ColCount属性设置网格的行数和列数。 使用TiLedMatrix而不是放置单个LED的优点是,整个控件只需要一个窗口手柄,并且绘制速度比每个元素绘制自身要快得多。 索引的IndicatorActive,IndicatorColor和IndicatorCaption属性可用于在运行时分别设置LED。

# 8.1. 属性

属性 功能说明
AutoSize 控件的大小由数值显示的尺寸决定
ColCount 设置网格列的数目
IndicatorActiveColor 设置网格激活时显示的颜色
IndicatorActive[Row,Col] 设置指定网格在运行时是否处于激活状态,其中的Row,Col分别对应为行索引值与列索引值,从0开始。该属性仅支持在脚本中进行定义。FThis.iLEDMatrix1.IndicatorActive[5,8] := True;
IndicatorBevelStyle 设置网格边缘显示的样式
ibsNone: 无上凸或下凹
ibsRaised: 上凸
ibsLowered: 下凹
IndicatorCaptionActiveFont 设置网格中显示的处于激活状态的字体
IndicatorCaptionInActiveFont 设置网格中显示的处于非激活状态的字体
IndicatorCaption[Row,Col] 设置指定网格处显示的字幕内容, 其中的Row、Col分别对应为行索引值与列索引值,从0开始。该属性仅支持在脚本中进行定义。FThis.iLEDMatrix1.IndicatorCaption[5,8] := 'ABC';
IndicatorColor[Row,Col] 设置指定网格处显示的网格颜色,其中的Row、Col分别对应为行索引值与列索引值,从0开始。该属性仅支持在脚本中进行定义。FThis.iLEDMatrix1.IndicatorColor[2,3] := clRed;
IndicatorHeight 更改所有网格指示器的高度。 以像素为单位。 如果启用了AutoSize,则控件的大小将响应此属性的更改而改变。
IndicatorShowReflection 是否在网格处显示3D的外观。
IndicatorStyle 设置网格的显示样式
ilmisRectangle: 矩形
ilmisRound: 圆形
IndicatorWidth 更改所有网格指示器的宽度。 以像素为单位。 如果启用了AutoSize,则控件的大小将响应此属性的更改而改变。

# 9. TiLogGauge 组件

  该组件展示为对数刻度的直线指示仪表,其刻度不是均匀分布的。

# 9.1. 属性

属性 功能说明
Position 设定旋钮点指向的位置
Position Max 设定旋钮选择范围的最大值
Position Min 设定旋钮选择范围的最小值
Transparent 控件背景是否为透明
Enabled 是否启用该控件
Orientation 仪表的显示方向
Vertical: 垂直显示
Horizontal: 水平显示
Orientation Tick Marks 仪表的刻度数值方向
Bottom Right: 刻度数值位于底部
Top Left: 刻度数值位于顶部
Section Count 设定分区的数目,至多设置5个
Section Color 设定分区内显示的颜色
Section End 设定该分区至下一分区的分隔点

# 10. TiMotor 组件

   该组件显示为一个可显示当前状态的发动机。

# 10.1. 属性

属性 功能说明
Fan On 是否启动风扇,启用后,风扇会在Balde Color中进行颜色切换
Pipe Show 是否在发动机周围显示管道,点击对应方向上的勾以启用显示管道
Base Show 是否显示发动机底座

# 11. TiObjectCanvas 组件

  该组件是具有接口的基本画布,该接口用于在运行时添加持久对象。所有绘画都是自动处理的,并且具有双重缓冲以防止闪烁。坐标系基于笛卡尔坐标系,其中(0,0)对应于组件的中心。 X和Y范围是使用DisplayRangeX和DisplayRangeY属性设置的。

  可以将四个基本图形对象添加到画布(椭圆,矩形,线,文本)。可以添加的基本对象的数量或类型没有限制。使用AddEllipse,AddRectangle,AddLine或AddLabel方法添加基本对象之一时,将根据默认属性设置来设置未在add方法的参数中指定的对象的所有属性。如果要操作对象或更改其属性,则存储在调用四个add方法之一时返回的对象的句柄。添加对象后,可以使用众多的get和set方法修改该对象的任何属性。如果需要,还可以在运行时动态更改对象类型。

  最后添加的对象将具有最高的z顺序,并显示在顶部。若要在以后操作z顺序,请使用BringObjectToFront和SendObjectToBack方法。

  要放大或缩小,请更改DisplayRangeX和DisplayRangeY属性。对于比例缩放,两个值必须调整相同的百分比。

  要偏移图形,请使用OriginX和OriginY属性。

  使用ClearList删除所有对象。使用RemoveObject删除单个对象。使用BeginUpdate和EndUpdate可以提高处理大量对象时的性能,或控制动画期间重新绘制的间隔。

# 11.1. 属性

属性 功能说明
BackGroundColor 设置控件显示的背景颜色
BorderStyle 边缘状态
None: 无上凸或下凹
Raised: 上凸
Lowered: 下凹
DisplayRangeX 控件显示的横向区域范围值
DisplayRangeY 控件显示纵向区域的范围值
OriginX 设置横坐标原点与控件中心的横向相对位移,如果需要将控件中所有的图形向右移动,减少OriginX的数值,如果要将控件中所有的图形向左移动,增加OriginY的数值。
OriginY 设置纵坐标原点与控件中心的纵向相对位移,如果需要将控件中所有的图形向上移动,减少OriginY的数值,如果要将控件中所有的图形向下移动,增加OriginY的数值。

# 11.2. 方法

# 11.2.1. AddArc方法

function AddArc(X, Y, Width, Height, StartAngle, StopAngle: Double) : Integer;
1

  调用AddArc将弧对象添加到画布。 参数中未指定的弧的所有其他属性将设置为默认值。 如果希望以后操作该对象或设置该对象的其他属性,请存储返回的句柄。

  以下示例将绘制一段圆弧,起始角度为0,终止角度为270。

FThis.iObjectCanvas1.AddArc(0, 0, 20, 20, 0, 270);
1

# 11.2.2. AddEllipse方法

function AddEllipse(X, Y, Width, Height : Double) : Integer;
1

  调用AddEllipse将一个椭圆对象添加到画布。 参数中未指定的椭圆的所有其他属性将设置为默认值。 如果希望以后操作该对象或设置该对象的其他属性,请存储返回的句柄。

  以下示例将绘制一个椭圆。

FThis.iObjectCanvas1.AddEllipse(0, 0, 20, 10);
1

# 11.2.3. AddLabel方法

function AddLabel(X, Y :  Double; Caption : String) : Integer;
1

  调用AddLabel将标签对象添加到画布。 参数中未指定的标签的所有其他属性将设置为默认值。 如果希望以后操作该对象或设置该对象的其他属性,请存储返回的句柄。

  以下示例将绘制标签内容。

FThis.iObjectCanvas1.AddLabel(0, 0, 'xyz');
1

# 11.2.4. AddLine方法

function AddLine(Left, Top, Right, Bottom : Double) : Integer;
1

  调用AddLine将线对象添加到画布。 参数中未指定的行的所有其他属性将设置为默认值。 如果希望以后操作该对象或设置该对象的其他属性,请存储返回的句柄。

  以下示例将绘制线。

FThis.iObjectCanvas1.AddLine(0, 0, 20, 20);
1

# 11.2.5. AddPolygon方法

function AddPolygon: Integer;
1

  调用AddPolygon将多边形对象添加到画布。 最初,多边形对象将没有任何组成形状的点。 您将需要调用ObjectAddPolyPoint将点添加到多边形。示例可参考下方的代码。

  FThis.iObjectCanvas1.AddPolygon;
  FThis.iObjectCanvas1.ObjectAddPolyPoint(0, 30, 30);
  FThis.iObjectCanvas1.ObjectAddPolyPoint(0, 30, -30);
  FThis.iObjectCanvas1.ObjectAddPolyPoint(0, -30, -30);
1
2
3
4

# 11.2.6. AddRectangle方法

function AddRectangle(X, Y, Width, Height : Double) : Integer;
1

  调用AddRectangle将矩形对象添加到画布。 参数中未指定的矩形的所有其他属性将设置为默认值。 如果希望以后操作该对象或设置该对象的其他属性,请存储返回的句柄。

  以下示例将绘制一个矩形。

FThis.iObjectCanvas1.AddRectangle(0, 0, 20, 20);
1

# 11.2.7. BringObjectToFront方法

procedure BringObjectToFront(Handle : Integer);
1

  调用BringObjectToFront将对象移到最前面。 所有其他对象都将绘制在该对象下方。

FThis.iObjectCanvas1.BringObjectToFront(5);
1

# 11.2.8. ClearList方法

procedure ClearList;
1

  使用ClearList删除所有图形对象并清除显示。

FThis.iObjectCanvas1.ClearList;
1

# 11.2.9. GetDisplayXToPixelX方法

function GetDisplayXToPixelX(Value : Double) : Integer;
1

  调用GetDisplayXToPixelX方法,将笛卡尔X坐标显示值转换为对象画布上左上角的0,0原点X坐标像素值。 由于对象画布使用笛卡尔坐标系(默认的0,0原点位于组件的中心),因此此函数提供了一种在Windows API的左上角0,0像素原点之间进行转换的方法。 和QT API的使用以及对象画布组件的中心0,0起点。

  基本上,此函数将组件的坐标直角坐标系转换为可从Windows中其他函数获得的像素值。 如果需要转换Y坐标显示值,请使用GetDisplayYToPixelsY。

Value := FThis.iObjectCanvas1.GetDisplayXToPixelsX(25.2);
1

# 11.2.10. GetDisplayYToPixelY方法

function GetDisplayYToPixelY(Value : Double) : Integer;
1

  调用GetDisplayYToPixelY方法以将笛卡尔Y坐标显示值转换为对象画布上的左上角0,0原点Y坐标像素值。 由于对象画布使用笛卡尔坐标系(默认的0,0原点位于组件的中心),因此此函数提供了一种在Windows API的左上角0,0像素原点之间进行转换的方法。 和QT API的使用以及对象画布组件的中心0,0起点。

  基本上,此函数将组件的坐标直角坐标系转换为可从Windows中其他函数获得的像素值。 如果需要转换X坐标显示值,请使用GetDisplayXToPixelsX。

Value := FThis.iObjectCanvas1.GetDisplayYToPixelsY(25.2);
1

# 11.2.11. GetObjectBrushColor方法

function GetObjectBrushColor(Handle : Integer) : TColor;
1

  调用GetObjectBrushColor以获取对象的画笔颜色属性值。

Value :=  FThis.iObjectCanvas1.GetObjectBrushColor(5);
1

# 11.2.12. GetObjectBrushStyle方法

function GetObjectBrushStyle(Handle : Integer) : TBrushStyle;
1

  调用GetObjectBrushStyle以获取对象的画笔样式属性值。

Value :=  FThis.iObjectCanvas1.GetObjectBrushStyle(5);
1

# 11.2.13. GetObjectCaption方法

function GetObjectCaption(Handle : Integer) : String;
1

  调用GetObjectCaption以获取对象的标题属性值。

  所有对象都具有标题属性。 线对象不实现标题的绘制。 矩形和椭圆对象将在对象内部居中绘制标题。

Value :=  FThis.iObjectCanvas1.GetObjectCaption(5);
1

# 11.2.14. GetObjectFontBold方法

function GetObjectFontBold(Handle : Integer) : Boolean;
1

  调用GetObjectFontBold以获取对象的字体粗体属性值。

  所有对象都具有标题属性。 线对象不实现标题的绘制。 矩形和椭圆对象将在对象内部居中绘制标题。

Value :=  FThis.iObjectCanvas1.GetObjectFontBold(5);
1

# 11.2.15. GetObjectFontColor方法

function GetObjectFontColor(Handle : Integer) : TColor;
1

  调用GetObjectFontColor以获取对象的字体颜色属性值。

Value :=  FThis.iObjectCanvas1.GetObjectFontColor(5);
1

# 11.2.16. GetObjectFontItalic方法

function GetObjectFontItalic(Handle : Integer) : Boolean;
1

  调用GetObjectFontItalic以获取对象的字体斜体属性值。

Value :=  FThis.iObjectCanvas1.GetObjectFontItalic(5);
1

# 11.2.17. GetObjectFontName方法

function GetObjectFontName(Handle : Integer) : String;
1

  调用GetObjectFontName以获取对象的字体名称属性值。

Value :=  FThis.iObjectCanvas1.GetObjectFontName(5);
1

# 11.2.18. GetObjectFontSize方法

function GetObjectFontSize(Handle : Integer) : Integer;
1

  调用GetObjectFontSize以获取对象的字体大小属性值。

Value :=  FThis.iObjectCanvas1.GetObjectFontSize(5);
1

# 11.2.19. GetObjectFontStrikOut方法

function GetObjectFontStrikOut(Handle : Integer) : Boolean;
1

  调用GetObjectFontStrikOut以获取对象的字体删除线属性值。

Value :=  FThis.iObjectCanvas1.GetObjectFontStrikOut(5);
1

# 11.2.20. GetObjectFontUnderLine方法

function GetObjectFontUnderLine(Handle : Integer) : Boolean;
1

  调用GetObjectFontUnderLine以获取对象的字体下划线属性值。

Value :=  FThis.iObjectCanvas1.GetObjectFontUnderLine(5);
1

# 11.2.21. GetObjectPenColor方法

function GetObjectPenColor(Handle : Integer) : TColor;
1

  调用GetObjectPenColor以获取对象的笔颜色属性值。

Value :=  FThis.iObjectCanvas1.GetObjectPenColor(5);
1

# 11.2.22. GetObjectPenStyle方法

function GetObjectPenStyle(Handle : Integer) : TPenStyle;
1

  调用GetObjectPenStyle以获取对象的笔样式属性值。

Value :=  FThis.iObjectCanvas1.GetObjectPenStyle(5);
1

# 11.2.23. GetObjectPenWidth方法

function GetObjectPenWidth(Handle : Integer) : Integer;
1

  调用GetObjectPenWidth以获取对象的笔宽属性值。

Value :=  FThis.iObjectCanvas1.GetObjectPenWidth(5);
1

# 11.2.24. GetObjectPositionX方法

function GetObjectPositionX(Handle : Integer) : Double;
1

  调用GetObjectPositionX以获取对象的PositionX属性值。

  对于除线对象以外的所有对象,此值代表对象的中心X。 对于线对象,此值表示X1值(X1,Y1至X2,Y2)。

Value := FThis.iObjectCanvas1.GetObjectPositionX(5);
1

# 11.2.25. GetObjectPositionY方法

function GetObjectPositionY(Handle : Integer) : Double;
1

  调用GetObjectPositionY以获取对象的PositionY属性值。

  对于除线对象以外的所有对象,此值代表该对象的中心Y。 对于线对象,此值表示Y1值(X1,Y1至X2,Y2)。

Value :=  FThis.iObjectCanvas1.GetObjectPositionY(5);
1

# 11.2.26. GetObjectSizeHeight方法

function GetObjectSizeHeight(Handle : Integer) : Double;
1

  调用GetObjectSizeHeight以获取对象的Height属性值。

  对于除线对象之外的所有对象,此值代表对象的高度。 对于线对象,此值表示Y2值(X1,Y1至X2,Y2)。

Value :=  FThis.iObjectCanvas1.GetObjectSizeHeight(5);
1

# 11.2.27. GetObjectSizeWidth方法

function GetObjectSizeWidth(Handle : Integer) : Double;
1

  调用GetObjectSizeWidth以获取对象的Width属性值。

  对于线对象以外的所有对象,此值表示对象的宽度。 对于线对象,此值表示X2值(X1,Y1至X2,Y2)。

Value :=  FThis.iObjectCanvas1.GetObjectSizeWidth(5);
1

# 11.2.28. GetObjectStartAngle方法

function GetObjectStartAngle(Handle : Integer) : Double;
1

  调用GetObjectStartAngle以获取对象的StartAngle属性值。

  当前,StartAngle属性仅由圆弧对象使用。

Value :=  FThis.iObjectCanvas1.GetObjectStartAngle(5);
1

# 11.2.29. GetObjectStopAngle方法

function GetObjectStopAngle(Handle : Integer) : Double;
1

  调用GetObjectStartAngle以获取对象的StopAngle属性值。

  当前,StopAngle属性仅由圆弧对象使用。

Value :=  FThis.iObjectCanvas1.GetObjectStopAngle(5);
1

# 11.2.30. GetPixelsXToDisplayX方法

function GetPixelsXToDisplayX(Value : Integer) : Double;
1

  调用GetPixelsXToDisplayX方法,将对象画布上的左上角0,0原点X坐标像素值转换为笛卡尔X坐标显示值。 由于对象画布使用笛卡尔坐标系(默认的0,0原点位于组件的中心),因此此函数提供了一种在Windows API的左上角0,0像素原点之间进行转换的方法。 和QT API的使用以及对象画布组件的中心0,0起点。

  基本上,此函数会将您从Windows中其他函数获得的像素值转换为组件的坐标笛卡尔坐标系。 如果需要转换Y坐标像素值,请使用GetPixelsYToDisplayY。

  Value := FThis.iObjectCanvas1.GetPixelsXToDisplayX(1000);
  FThis.iObjectCanvas1.SetObjectPositionX(FThis.iObjectCanvas1.GetPixelsXToDisplayX(1000));
1
2

# 11.2.31. GetPixelsYToDisplayY方法

function GetPixelsYToDisplayY(Value : Integer) : Double;
1

  调用GetPixelsYToDisplayY方法将左上角0,0原点Y坐标像素值转换为“对象画布”上的笛卡尔Y坐标显示值。 由于对象画布使用笛卡尔坐标系(默认的0,0原点位于组件的中心),因此此函数提供了一种在Windows API的左上角0,0像素原点之间进行转换的方法。 和QT API的使用以及对象画布组件的中心0,0起点。

  基本上,此函数会将您从Windows中其他函数获得的像素值转换为组件的坐标笛卡尔坐标系。 如果需要转换X坐标像素值,请参见GetPixelsXToDisplayX。

Value := FThis.iObjectCanvas1.GetPixelsYToDisplayY(1000);
1

# 11.2.32. RemoveObject方法

procedure RemoveObject(Handle : Integer);
1

  调用RemoveObject从对象列表中删除一个对象。 删除对象后,该对象将被销毁并且该句柄不再有效。

FThis.iObjectCanvas1.RemoveObject(5);
1

# 11.2.33. SendObjectToBack方法

procedure SendObjectToBack(Handle : Integer);
1

  调用SendObjectToBack将对象向后移动。 所有其他对象都将绘制在该对象的前面。

FThis.iObjectCanvas1.SendObjectToBack(5);
1

# 11.2.34. SetObjectAngles方法

procedure SetObjectAngles (Handle: Integer, Start, Stop: Double);
1

  调用SetObjectAngles设置对象的StartAngle和StopAngle属性值。该属性仅由弧对象使用。

var
  Arc: Integer;
begin
  Arc := FThis.iObjectCanvas1.AddArc(0,0,10,10,0,270);
  FThis.iObjectCanvas1.SetObjectAngles(Arc,0,230);
end;
1
2
3
4
5
6

# 11.2.35. SetObjectBrushColor方法

procedure SetObjectBrushColor(Handle : Integer, Color : TColor);
1

  调用SetObjectBrushColor设置对象的画笔颜色属性值。

var
  Handle: Integer;
begin
  Handle := FThis.iObjectCanvas1.AddRectangle(0,0,30,30);
  FThis.iObjectCanvas1.SetObjectBrushColor(Handle, clRed);
end;
1
2
3
4
5
6

# 11.2.36. SetObjectBrushStyle方法

procedure SetObjectBrushStyle(Handle : Integer, Style : TBrushStyle);
1

  调用SetObjectBrushStyle设置对象的画笔样式属性值。

var
  Handle: Integer;
begin
  Handle := FThis.iObjectCanvas1.AddRectangle(0,0,30,30);
  FThis.iObjectCanvas1.SetObjectBrushColor(Handle, clRed);
  FThis.iObjectCanvas1.SetObjectBrushStyle(Handle, bsCross);
end;
1
2
3
4
5
6
7

# 11.2.37. SetObjectBrush方法

procedure SetObjectBrush(Handle : Integer, Color : TColor, Style : TbrushStyle);
1

  调用SetObjectBrush设置对象的画笔属性。

var
  Handle: Integer;
begin
  Handle := FThis.iObjectCanvas1.AddRectangle(0,0,30,30);
  FThis.iObjectCanvas1.SetObjectBrush(Handle, clRed, bsCross);
end;
1
2
3
4
5
6

# 11.2.38. SetObjectCaption方法

procedure SetObjectCaption(Handle : Integer) : String;
1

  调用SetObjectCaption设置对象的标题属性值。

var
  Handle: Integer;
begin
  Handle := FThis.iObjectCanvas1.AddRectangle(0,0,30,30);
  FThis.iObjectCanvas1.SetObjectCaption(Handle, 'xyz');
end;
1
2
3
4
5
6

# 11.2.39. SetObjectFontBold方法

procedure SetObjectFontBold(Handle : Integer, Bold : Boolean);
1

  调用SetObjectFontBold设置对象的字体粗体属性值。

var
  Handle: Integer;
begin
  Handle := FThis.iObjectCanvas1.AddRectangle(0,0,30,30);
  FThis.iObjectCanvas1.SetObjectCaption(Handle, 'xyz');
  FThis.iObjectCanvas1.SetObjectFontBold(Handle, True);
end;
1
2
3
4
5
6
7

# 11.2.40. SetObjectFontColor方法

procedure SetObjectFontColor(Handle : Integer, Color : TColor);
1

  调用SetObjectFontColor设置对象的字体颜色属性值。

var
  Handle: Integer;
begin
  Handle := FThis.iObjectCanvas1.AddRectangle(0,0,30,30);
  FThis.iObjectCanvas1.SetObjectCaption(Handle, 'xyz');
  FThis.iObjectCanvas1.SetObjectFontColor(Handle, clBlue);
end;
1
2
3
4
5
6
7

# 11.2.41. SetObjectFontItalic方法

procedure SetObjectFontItalic(Handle : Integer, Italic : Boolean);
1

  调用SetObjectFontItalic设置对象的字体斜体属性值。

var
  Handle: Integer;
begin
  Handle := FThis.iObjectCanvas1.AddRectangle(0,0,30,30);
  FThis.iObjectCanvas1.SetObjectCaption(Handle, 'xyz');
  FThis.iObjectCanvas1.SetObjectFontItalic(Handle, True);
end;
1
2
3
4
5
6
7

# 11.2.42. SetObjectFontName

procedure SetObjectFontName(Handle : Integer, Name : String);
1

  调用SetObjectFontName设置对象的字体名称属性值。

var
  Handle: Integer;
begin
  Handle := FThis.iObjectCanvas1.AddRectangle(0,0,30,30);
  FThis.iObjectCanvas1.SetObjectCaption(Handle, 'xyz');
  FThis.iObjectCanvas1.SetObjectFontName(Handle, 'Times New Roman');
end;
1
2
3
4
5
6
7

# 11.2.43. SetObjectFontSize方法

procedure SetObjectFontSize(Handle : Integer, Size : Integer);
1

  调用SetObjectFontSize设置对象的字体大小属性值。

var
  Handle: Integer;
begin
  Handle := FThis.iObjectCanvas1.AddRectangle(0,0,30,30);
  FThis.iObjectCanvas1.SetObjectCaption(Handle, 'xyz');
  FThis.iObjectCanvas1.SetObjectFontSize(Handle, 12);
end;
1
2
3
4
5
6
7

# 11.2.44. SetObjectFontStrikOut方法

procedure SetObjectFontStrikOut(Handle : Integer, StrikeOut : Boolean);
1

  调用SetObjectFontStrikOut设置对象的字体删除线属性值。

var
  Handle: Integer;
begin
  Handle := FThis.iObjectCanvas1.AddRectangle(0,0,30,30);
  FThis.iObjectCanvas1.SetObjectCaption(Handle, 'xyz');
  FThis.iObjectCanvas1.SetObjectFontStrikOut(Handle, True);
end;
1
2
3
4
5
6
7

# 11.2.45. SetObjectFont方法

procedure SetObjectFont(Handle : Integer, Name : String, , Size : Integer, , Color : TColor, , Bold, Italic, UnderLine, StrikeOut : Boolean);
1

  调用SetObjectFont设置对象的字体属性。

var
  Handle: Integer;
begin
  Handle := FThis.iObjectCanvas1.AddRectangle(0,0,30,30);
  FThis.iObjectCanvas1.SetObjectCaption(Handle, 'xyz');
  FThis.iObjectCanvas1.SetObjectFont(Handle, 'Arial', 12, clRed, True, False, False, False);
end;
1
2
3
4
5
6
7

# 11.2.46. SetObjectFontUnderLine方法

procedure SetObjectFontUnderLine(Handle : Integer, UnderLine : Boolean);
1

  调用SetObjectFontUnderLine设置对象的字体下划线属性值。

var
  Handle: Integer;
begin
  Handle := FThis.iObjectCanvas1.AddRectangle(0,0,30,30);
  FThis.iObjectCanvas1.SetObjectCaption(Handle, 'xyz');
  FThis.iObjectCanvas1.SetObjectFontUnderLine(Handle, True);
end;
1
2
3
4
5
6
7

# 11.2.47. SetObjectPenColor方法

procedure SetObjectPen(Handle : Integer, Color : TColor);
1

  调用SetObjectPen设置对象的笔颜色属性值。

var
  Handle: Integer;
begin
  Handle := FThis.iObjectCanvas1.AddRectangle(0,0,30,30);
  FThis.iObjectCanvas1.SetObjectPenColor(Handle, clRed);
end;
1
2
3
4
5
6

# 11.2.48. SetObjectPenStyle方法

procedure SetObjectPenStyle(Handle : Integer, Style : TPenStyle);
1

  调用SetObjectPenStyle设置对象的笔样式属性值。

var
  Handle: Integer;
begin
  Handle := FThis.iObjectCanvas1.AddRectangle(0,0,30,30);
  FThis.iObjectCanvas1.SetObjectPenStyle(Handle, psDot);
end;
1
2
3
4
5
6

# 11.2.49. SetObjectPen方法

procedure SetObjectPen(Handle : Integer, Color : TColor, Style : TPenStyle, Width : Integer);
1

  调用SetObjectPen设置对象的画笔属性。

var
  Handle: Integer;
begin
  Handle := FThis.iObjectCanvas1.AddRectangle(0,0,30,30);
  FThis.iObjectCanvas1.SetObjectPen(Handle, clRed, psDot, 1);
end;
1
2
3
4
5
6

# 11.2.50. SetObjectPenWidth方法

procedure SetObjectPenWidth(Handle : Integer, Width : Integer);
1

  调用SetObjectPenWidth设置对象的画笔宽属性值。

var
  Handle: Integer;
begin
  Handle := FThis.iObjectCanvas1.AddRectangle(0,0,30,30);
  FThis.iObjectCanvas1.SetObjectPenWidth(Handle, 3);
end;
1
2
3
4
5
6

# 11.2.51. SetObjectPosition方法

  调用SetObjectPosition设置对象的位置属性。

  对于除线对象以外的所有对象,此值代表该对象的中心X和中心Y。 对于线对象,此值表示X1和Y1值(X1,Y1到X2,Y2)。

var
  Handle: Integer;
begin
  Handle := FThis.iObjectCanvas1.AddRectangle(0,0,30,30);
  FThis.iObjectCanvas1.SetObjectPosition(Handle, 20, 20);
end;
1
2
3
4
5
6

# 11.2.52. SetObjectPositionX方法

procedure SetObjectPositionX(Handle : Integer, X : Double);
1

  调用SetObjectPositionX设置对象的位置X属性值。

  对于除线对象以外的所有对象,此值代表对象的中心X。 对于线对象,此值表示X1值(X1,Y1至X2,Y2)。

var
  Handle: Integer;
begin
  Handle := FThis.iObjectCanvas1.AddRectangle(0,0,30,30);
  FThis.iObjectCanvas1.SetObjectPositionX(Handle, 20);
end;
1
2
3
4
5
6

# 11.2.53. SetObjectPositionY方法

procedure SetObjectPositionY(Handle : Integer) : Double;
1

  调用SetObjectPositionY设置对象的位置Y属性值。

  对于除线对象以外的所有对象,此值代表该对象的中心Y。 对于线对象,此值表示Y1值(X1,Y1至X2,Y2)。

var
  Handle: Integer;
begin
  Handle := FThis.iObjectCanvas1.AddRectangle(0,0,30,30);
  FThis.iObjectCanvas1.SetObjectPositionY(Handle, 20);
end;
1
2
3
4
5
6

# 11.2.54. SetObjectSizeHeight方法

procedure SetObjectSizeHeight(Handle : Integer, Height : Double);
1

  调用SetObjectSizeHeight设置对象的Height属性值。

  对于除线对象之外的所有对象,此值代表对象的高度。 对于线对象,此值表示Y2值(X1,Y1至X2,Y2)。

var
  Handle: Integer;
begin
  Handle := FThis.iObjectCanvas1.AddRectangle(0,0,30,30);
  FThis.iObjectCanvas1.SetObjectSizeHeight(Handle,40);
end;
1
2
3
4
5
6

# 11.2.55. SetObjectSize方法

procedure SetObjectSize(Handle : Integer, Width, Height : Double);
1

  调用SetObjectSize设置对象的大小属性。

  对于线对象以外的所有对象,此值代表对象的宽度和高度。 对于线对象,此值表示X2和Y2值(线点:X1,Y1到X2,Y2)。

var
  Handle: Integer;
begin
  Handle := FThis.iObjectCanvas1.AddRectangle(0,0,30,30);
  FThis.iObjectCanvas1.SetObjectSize(Handle,40, 40);
end;
1
2
3
4
5
6

# 11.2.56. SetObjectSizeWidth方法

procedure SetObjectSizeWidth(Handle : Integer, Width : Double;);
1

  调用SetObjectSizeWidth设置对象的width属性值。

  对于Line对象以外的所有对象,此值表示对象的宽度。 对于线对象,此值表示X2值(X1,Y1至X2,Y2)。

# 11.2.57. SetObjectStartAngle方法

procedure SetObjectStartAngle (Handle: Integer, Start: Double);
1

  调用SetObjectStartAngle设置对象的StartAngle属性值。该属性仅由圆弧对象使用。

var
  Handle: Integer;
begin
  Handle := FThis.iObjectCanvas1.AddArc(0,0,30,30,0,270);
  FThis.iObjectCanvas1.SetObjectStartAngle(Handle,30);
end;
1
2
3
4
5
6

# 11.2.58. SetObjectStopAngle方法

procedure SetObjectStopAngle (Handle: Integer, Stop: Double);
1

  调用SetObjectStopAngle设置对象的StopAngle属性值。该属性仅由圆弧对象使用。

var
  Handle: Integer;
begin
  Handle := FThis.iObjectCanvas1.AddArc(0,0,30,30,0,270);
  FThis.iObjectCanvas1.SetObjectStopAngle(Handle,230);
end;
1
2
3
4
5
6

# 12. TiPanel 组件

  该组件显示为一个带标题的面板组件,其功能与TPanel类似。

# 12.1. 属性

属性 功能说明
TitleText 指定显示在面板标题区域的文本
ShowTitleBevel 指定面板与标题区域是否有分割线
BorderStyle 边缘状态
None: 无上凸或下凹
Raised: 上凸
Lowered: 下凹

# 13. TiPercentBar 组件

  该组件用于显示选定值在百分比条中所占的百分比,用相对长度来展示。例如,指定某一百分比条图例中的项目的值:

  FThis.iPercentBar1.ItemValue[0] := 13;
1

# 13.1. 属性

属性 功能说明
Item Title 属性数组,可指定对应对象的标题
Item Color 属性数组,可指定对应对象的颜色
Item Value 属性数组,可指定对应对象的值
Title Text 百分比图例的标题
Lengend Show Value 显示该项目的值
Lengend Show Percent 显示该项目的百分比

# 14. TiPhonePad 组件

  该组件显示为一个电话拨号键盘,使用时,需要激活该组件的OnKeyClick事件,在该事件中填入如下示例代码:

type
  TMyHandler = class(TForm)
private 
  FThis:TBaseForm; 
Public 
  constructor Create(AOwner: TComponent); override;
{模块声明  MODULE-DECLARE}
  procedure iPhonePad1KeyClick(Sender: TObject; KeyCode: Integer; AChar: Char);
end;

procedure TMyHandler.iPhonePad1KeyClick;
begin
   FThis.Label1.Caption := AChar;
end;
1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 14.1. 属性

属性 功能说明
Button Visible 是否显示对应位置的按钮
Button Caption 指定按钮对应位置显示的文字内容

# 15. TiPieChart 组件

  该组件用于显示选定值在百分比饼图中所占的百分比,用饼图来展示。例如,指定某一百分比饼图图例中的项目的值:

  FThis.iPieChart1.ItemValue[0] := 13;
1

# 15.1. 属性

属性 功能说明
Item Title 属性数组,可指定对应对象的标题
Item Color 属性数组,可指定对应对象的颜色
Item Value 属性数组,可指定对应对象的值
Title Text 百分比图例的标题
Lengend Show Value 显示该项目的值
Lengend Show Percent 显示该项目的百分比

# 16. TiPipe 组件

  该组件显示为一个管道,可显示管道内的流体、能量、信息等的流动状态。

# 16.1. 属性

属性 功能说明
Flow On 是否显示管道流动
Flow Reverse 流动方向反转
Flow Indicator Style 流动指示的形状
Circle: 圆形
Box: 方形
Triangle: 三角形
Flow Indicator Hide When Off 流动指示在关闭的时候隐藏不显示
Flow Indicator Use Tube Color 勾选确认时,使用管道的颜色,否则使用自定义的颜色(Flow Indicator Color)

# 17. TiPipeJoint 组件

  该组件用来显示作为管道的连接件。

# 17.1. 属性

属性 功能说明
BackGround Color 背景颜色设置

# 18. TiSevenSegmentClockSMPTE组件

  该组件显示为一个时间轴组件,一般用于配合视频显示当前播放视频帧的时间轴。

# 18.1. 属性

属性 功能说明
AutoSize 控件的大小由数值显示的尺寸决定
Show Off Segments 是否显示处在关闭状态的液晶管
Transparent 控件背景是否透明
Hour Style 时间类型,有24小时制和12小时制两种选项
Border Style 设置控件边框的显示风格
Raised-控件相较于父控件上凸
Lowered-控件相较于父控件下凹
None-控件与父控件同平面

# 19. iSlidingCompass组件

  该组件显示为一个可以指示方向的滑轨指南针。

# 19.1. 属性

属性 功能说明
Pointer 1 Position 指针1所指的位置(指针1不动,仪表盘转动)
Pointer 2 Position 指针2所指的位置(指针2运动,仪表盘不动)
Orientation 仪表盘的显示方向
Vertical: 仪表盘垂直显示
Horizontal: 仪表盘水平显示
Pointer Orientaion 指针在仪表盘上的显示位置
Bottom Right: 指针显示在仪表盘的右侧或下侧
Top Left: 指针显示在仪表盘的左侧或上侧
Title Text 仪表盘显示的标题
Pointer X Style 指针的类型
Dual Arrow: 双箭头
Arrow: 单箭头
Pointer: 指针
Line: 线条

# 20. TiSlidingScale 组件

  该组件显示为一个可以指示位置的指针。

# 20.1. 属性

属性 功能说明
Pointer Position 指针所指的位置(指针不动,仪表盘转动)
Orientation 仪表盘的显示方向
Vertical: 仪表盘垂直显示
Horizontal: 仪表盘水平显示
Pointer Orientaion 指针在仪表盘上的显示位置
Bottom Right: 指针显示在仪表盘的右侧或下侧
Top Left: 指针显示在仪表盘的左侧或上侧
Title Text 仪表盘显示的标题
Pointer Style 指针的类型
Dual Arrow: 双箭头
Arrow: 单箭头
Pointer: 指针
Line: 线条

# 21. TiSpectrumDisplay 组件

TiSpectrumDisplay是具有可选峰值和峰值衰减支持的频谱显示组件。

  使用BarCount属性设置条数。 只能在运行时为每个条形元素分别设置BarValue属性。 设计时显示的条形值仅用于说明目的,有助于您开发应用程序。 您将需要在运行时使用Clear方法或初始化所有条形元素以清除这些初始值。

# 21.1. 属性

属性 功能说明
BarColor 设置频谱条创建时显示的颜色
BarXColor[Index] 单独设置频谱条中某条的颜色,Index为频谱条的索引值
BarCount 设置频谱条的数目
BarSpacing 设置频谱条之间的间距
BarValue[Index] 单独设置频谱条中某条表示的数值,Index为频谱条的索引值
BarWidth 设置每条频谱条的宽度
DecayEnabled 启用该属性,频谱根据根据DecayInitialDelay和DecayInterval属性使峰值线衰减
DecayInitialDelay 获取或设置衰减峰线位置之前的初始延迟
DecayInterval 获取或设置DecayInitialDelay初始延迟后自动衰减事件之间的时间
OuterMarginBottom 获取或设置控件底部和条形显示区域之间的边距
OuterMarginLeft 获取或设置控件左侧和条形显示区域之间的边距
OuterMarginRight 获取或设置控件右侧和条形显示区域之间的边距
OuterMarginTop 获取或设置控件顶部和条形显示区域之间的边距
PeakLineColor 设置频谱顶峰的颜色
PeakShow 设置是否显示频谱顶峰
ScaleMax 为BarValue指定的值范围提供上限
ScaleMin 为BarValue指定的值范围提供下限

# 22. TiSwitchLever 组件

  该组件显示为一个点击可切换的拨杆。

# 22.1. 属性

属性 功能说明
Active 激活,当为True时,拨杆向上
MouseControlStyle 鼠标控制拉杆的方式
Click Anywhere: 点击组件任意处以切换拉杆
Click Indicator: 点击拉杆要转向的方向以切换拉杆

# 23. TiSwitchQuad 组件

  该组件显示为一个具有四个方向按钮的拨杆。可通过四个对应事件来触发自定义事件的操作:OnClickLeft、OnClickRight、OnClickUp、OnClickDown。该组件用于对Value X 和Value Y进行数值增加或减少的处理。按下左方向键和下方向键是减小数值,按下右方向键和上方向键是增加数值。

# 23.1. 属性

属性 功能说明
ValueX 组件中在左右方向上进行调节的值
ValueY 组件中在上下方向上进行调节的值
IncrementX 设定每次点击左、右方向键时Value X改变的值
IncrementY 设定每次点击上、下方向键时Value Y改变的值
RepeatInitialDelay 当按下方向按钮不放时开始增减数值的起始时间,以毫秒(ms)为单位
RepeatInterval 当按下方向按钮不放时增减数值的变化间隔,以毫秒(ms)为单位

# 24. TiTank组件

  该组件显示为一个储罐,可显示其中液面的位置。

# 24.1. 属性

属性 功能说明
Position 液面指针所指的位置
PositionMax 液面指针所指的最大值
PositionMin 页面指针所指的最小值
Transparent 控件背景是否为透明
Orientation 显示方向
Vertical: 垂直显示
Horizontal: 水平显示

# 25. TiThreadTimers 组件

  该组件为一个具有九个线程的计数器,可以同时提供九个计数触发事件(OnTimer1~OnTimer9),可自行定义线程的优先级。

# 25.1. 属性

属性 功能说明
EnabledX 启用第X号计数器
Interval 设定计数的间隔
Priority 设定计数事件的线程优先级

# 26. TiTimers 组件

  该组件为一个具有九个线程的计数器,可以同时提供九个计数触发事件(OnTimer1~OnTimer9)。

# 26.1. 属性

属性 功能说明
EnabledX 启用第X号计数器
Interval 设定计数的间隔

# 27. TiValve 组件

  该组件显示为一个阀门,可用于显示当前阀门的状态。

# 27.1. 属性

属性 功能说明
Opened 是否打开阀门
ChangeBodyColor 是否改变阀体的颜色与激活的颜色一致
Orientation 显示方向
Vertical: 垂直显示
Horizontal: 水平显示
OpenedColor 阀门打开时显示的颜色
ClosedColor 阀门关闭时显示的颜色

# 28. TiLCDMatrix组件

TiLCDMatrix使用点矩阵字符集显示字符。该组件包括一个内置的标准5x7字符集或任意数量的其他自定义字符集自定义大小,例如5x8或8x8字符。

  使用Text属性可以通过一次调用设置显示文本。显示屏上的所有其他字符将被清除。如果字符不合适,则Text属性将自动将字符换行到下一行。 Text属性还支持换行和回车符。当前的CellsColorOn属性将用于为使用Text属性添加的文本着色。

  要将字符串从特定的行和列开始并使用特定的颜色单独添加到显示中,请调用PlaceText方法。 PlaceText方法不会清除显示内容,只会覆盖要放置新文本的字符。 PlaceText不支持自动换行,换行或回车。它将在指定的行上从请求的列开始添加字符串,并写入字符,直到到达字符串的末尾或显示的右侧。要放置单个字符,请使用PlaceText方法传递长度为1的字符串,或使用索引的ElementCharCode或ElementChar。若要修改现有字符的颜色,请使用索引的ElementColor属性。

  要将动画添加到LCD矩阵控件,请添加一个计时器,将时间间隔设置为大约50毫秒,并为计时器添加一个事件处理程序。在计时器滴答事件处理程序中,使用ElementColor属性切换或循环元素的颜色,并使用ElementCharCode或ElementChar属性更改字符以旋转或移动字符。

# 28.1. 属性

属性 功能说明
CellsColorOff 指定组成字符的OFF单元格或点的颜色。如果将CellsShowOff设置为FALSE,则此属性将没有视觉效果。
CellsColorOn 指定组成字符的ON单元格或点的颜色。
CellsShowOff 指定是否显示组成字符的OFF单元格或点。 如果此属性为FALSE,则如果特定字符在第一个单元格中没有活动单元格或点,则该单元格将为空白或显示背景颜色。 如果此属性为TRUE,则如果第一个单元格不活动,则该单元格将显示CellsColorOff属性。
CellsSpacingHorz 指定组成字符的单元格或者点之间的水平间距。 该值以像素为单位。
CellsSpacingVert 指定组成字符的单元格或者点之间的垂直间距。 该值以像素为单位。
CellsWidth 指定组成字符的单元格或点的宽度。 该值以像素为单位。如果没有CellsWidth属性。 所有单元格的高度将与单元格宽度完全相同,从而使所有单元格或点成为正方形。
CharactersetHeight 指定组成字符列的单元格或“点”的数量。 例如,在5x8 LCD字符中,CharactersetHeight为8。加载的Characterset中的所有字符大小均相同。该组件支持1到无穷大之间的字符集高度。除非您要创建自己的新字符集,否则通常不会修改此属性。
CharactersetName 检索当前加载的Characterset的文件名
CharactersetWidth 指定组成字符行的单元格或点的数量。 例如,在5x8 LCD字符中,CharactersetWidth为5。加载的Characterset中的所有字符大小均相同。该组件支持1到32之间的字符集宽度。除非您要创建自己的新字符集,否则通常不会修改此属性。
CharactersHorz 获取适合于LCD矩阵行的字符数。 一行中适合的字符数是根据CellsWidth,CellsSpacingHorz和CellsSpacingVert属性计算的。 合适的字符数取决于您指定组成字符的单元格或“点”的大小以及各个字符之间的间距。
CharacterSpacingHorz 指定字符之间的水平间距。 该值以组成单个字符的单元格或点为单位指定。
CharacterSpacingVert 指定字符之间的垂直间距。 该值以组成单个字符的单元格或点为单位指定。
CharactersVert 获取适合LCD矩阵的字符行数。该属性将根据CellsWidth,CellsSpacingHorz和CellsSpacingVert属性计算适合的行数。 合适的字符数取决于您指定组成字符的单元格或“点”的大小以及各个字符之间的间距。
ElementCharCode[Col, Row] 通过使用Integer值指定字符,可以使用ElementCharCode修改显示在特定列和行中的特定字符。 有效值为0-255,代表标准和扩展的ASCII字符集。您不需要调用PlaceText或将Text属性设置为使用ElementCharCode属性。
ElementChar[Col, Row] 通过使用Char值指定字符,可以使用ElementChar修改在特定列和行中显示的特定字符。您不需要调用PlaceText或将Text属性设置为使用ElementChar属性。
ElementColor[Col, Row] 修改矩阵中特定字符的颜色。您不需要调用PlaceText或将Text属性设置为使用ElementColor属性。 但是,如果字符为空白,则无论如何您将看不到任何活动单元格或点。
OuterMarginBottom 获取或设置控件底部和条形显示区域之间的边距
OuterMarginLeft 获取或设置控件左侧和条形显示区域之间的边距
OuterMarginRight 获取或设置控件右侧和条形显示区域之间的边距
OuterMarginTop 获取或设置控件顶部和条形显示区域之间的边距
Text 指定要在LCD矩阵显示器中显示的文本字符串。 如果字符串长于CharactersHorz,则文本将自动换行。 当前不支持回车和换行符。这是一个简单的字符串属性,用于在显示中显示单个字符串。 如果需要在特定的行上显示多个字符串,或者需要自定义单个字符,则需要使用PlaceText方法。

# 28.2. 方法

# 28.2.1. Clear方法

procedure Clear;
1

  清除显示中使用PlaceText方法或Text属性添加的所有字符。

FThis.iLCDMatrix1.Clear;
1

# 28.2.2. PlaceText方法

procedure PlaceText(AText : String; Col, Row : Integer; AColor : TColor);
1

  将文本字符串添加到Matrix的特定列和行。

AText表示要放置在矩阵上的字符串。 当前不支持字符返回和换行符。 为所需的每一行多次调用PlaceText。

Col和Row是指将字符串的第一个字符放置在的字符列和行。

AColor表示要添加的字符串字符的颜色。

  使用ElementColor,ElementChar或ElementCharCode可以修改已添加的单个字符。 如果您希望单独添加/修改字符,甚至可以使用它们代替PlaceText。 一般来说,使用PlaceText添加整个字符串,然后使用这些方法来修改字符后缀会更容易。

FThis.iLCDMatrix1.PlaceText('Sample Text', 2, 0, clRed);  //第三列第一行
1
标准工控控件
数据控制控件

← 标准工控控件 数据控制控件→

Copyright © 2021-2025 爱招飞IsoFace | ALL Rights Reserved
  • 跟随系统
  • 浅色模式
  • 深色模式
  • 阅读模式