界面代码:

object Form1: TForm1
Left =
Top =
Width =
Height =
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch =
TextHeight =
object Panel1: TPanel
Left =
Top =
Width =
Height =
Align = alBottom
BevelInner = bvLowered
TabOrder =
object Button1: TButton
Left =
Top =
Width =
Height =
Caption = '首页'
TabOrder =
OnClick = Button1Click
end
object Button2: TButton
Left =
Top =
Width =
Height =
Caption = '末页'
TabOrder =
OnClick = Button2Click
end
object CheckBox1: TCheckBox
Left =
Top =
Width =
Height =
Caption = '标签'
Checked = True
State = cbChecked
TabOrder =
OnClick = CheckBox1Click
end
object CheckBox2: TCheckBox
Left =
Top =
Width =
Height =
Caption = '点标记'
Checked = True
State = cbChecked
TabOrder =
OnClick = CheckBox2Click
end
object CheckBox3: TCheckBox
Left =
Top =
Width =
Height =
Caption = '3D'
Checked = True
State = cbChecked
TabOrder =
OnClick = CheckBox3Click
end
end
object ChartPageNavigator1: TChartPageNavigator
Left =
Top =
Width =
Height =
Align = alTop
TabOrder =
Chart = Chart1
end
object ChartScrollBar1: TChartScrollBar
Left =
Top =
Width =
Height =
Align = alBottom
Enabled = True
LargeChange =
Max =
Min =
PageSize =
Position =
SmallChange =
TabOrder =
Chart = Chart1
end
object Chart1: TChart
Left =
Top =
Width =
Height =
Gradient.EndColor =
Gradient.StartColor =
Gradient.Visible = True
Title.Text.Strings = (
'图表滚动和页面导航组件演示')
MaxPointsPerPage =
Align = alClient
BevelInner = bvLowered
TabOrder =
object Series1: TLineSeries
Marks.Callout.Brush.Color = clBlack
Marks.Visible = True
Pointer.InflateMargins = True
Pointer.Style = psRectangle
Pointer.Visible = True
XValues.Name = 'X'
XValues.Order = loAscending
YValues.Name = 'Y'
YValues.Order = loNone
Data = {
00190000000000000000406D400000000000C060400000000000806640000000
00000051400000000000C0554000000000000068400000000000805940000000
000080464000000000004053400000000000003840000000000000F03F000000
0000005D4000000000000041400000000000002A400000000000003140000000
0000C05540000000000000144000000000000044400000000000804340000000
0000005540000000000040684000000000004071400000000000C06A40000000
00004067400000000000707040}
end
object ChartTool1: TPageNumTool
Callout.Brush.Color = clBlack
Callout.Arrow.Visible = False
Shape.CustomPosition = True
Shape.Left =
Shape.Top =
Text = '第 %d 页共 %d 页'
Format = '第 %d 页共 %d 页'
end
end
end

功能代码:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, TeEngine, TeeTools, TeePageNumTool, Series, TeeProcs, Chart,
StdCtrls, TeeScroB, TeeNavigator, TeeEdiGene, ExtCtrls; type
TForm1 = class(TForm)
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
ChartPageNavigator1: TChartPageNavigator;
ChartScrollBar1: TChartScrollBar;
Chart1: TChart;
Series1: TLineSeries;
ChartTool1: TPageNumTool;
procedure FormCreate(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure CheckBox3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject);
begin
Self.Caption := '图表的滚动与翻页';
Self.Position := poScreenCenter;
Series1.FillSampleValues();
Chart1.MaxPointsPerPage := ; //每页最大点数
ChartScrollBar1.Min := ;
ChartScrollBar1.Max := ; //最大页数
ChartScrollBar1.Position := ;
ChartScrollBar1.PageSize := ;
end; procedure TForm1.CheckBox1Click(Sender: TObject);
begin
Series1.Marks.Visible := CheckBox1.Checked;
end; procedure TForm1.CheckBox2Click(Sender: TObject);
begin
Series1.Pointer.Visible := CheckBox2.Checked;
end; procedure TForm1.CheckBox3Click(Sender: TObject);
begin
Chart1.View3D := CheckBox3.Checked;
end; procedure TForm1.Button1Click(Sender: TObject);
begin
ChartScrollBar1.Position := ;
Button1.Enabled := False;
Button2.Enabled := True;
end; procedure TForm1.Button2Click(Sender: TObject);
begin
ChartScrollBar1.Position := ChartScrollBar1.Max;
Button1.Enabled := True;
Button2.Enabled := False;
end; end.

TChart-图表的滚动与翻译的更多相关文章

  1. AntV F2 数据可视化填坑,图表横向滚动

    柱状图横向滚动 思路 通过 Interaction 实现平移,通过 ScrollBar 显示滚动条 1.Interaction F2 提供一套交互机制,以达到通用交互行为的封装和复用.基于此机制,我们 ...

  2. Delphi编程建议遵守的规范2---命名规范

    1.1.形参命名建议 所有形参的名称都应当表达出它的用途.如果合适的话,形参的名称最好以字母a 为前缀,例如: procedure SomeProc(aUserName:string; aUserAg ...

  3. DevExpress ChartControl大数据加载时有哪些性能优化方法

    DevExpress ChartControl加载大数据量数据时的性能优化方法有哪些? 关于图表优化,可从以下几个方面解决: 1.关闭不需要的可视化的元素(如LineMarkers, Labels等) ...

  4. 快快快!27个提升效率的iOS开源库推荐(转)

    CSDN移动将持续为您优选移动开发的精华内容,共同探讨移动开发的技术热点话题,涵盖移动应用.开发工具.移动游戏及引擎.智能硬件.物联网等方方面面.如果您想投稿.参与内容翻译工作,或寻求近匠报道,请发送 ...

  5. DevExpress之ChartControl实现时间轴实例 z

    using System; using System.Data; using System.Windows.Forms; using DevExpress.XtraCharts; namespace ...

  6. [Android]使用Dagger 2依赖注入 - 图表创建的性能(翻译)

    以下内容为原创,欢迎转载,转载请注明 来自天天博客:http://www.cnblogs.com/tiantianbyconan/p/5098943.html 使用Dagger 2依赖注入 - 图表创 ...

  7. [Android]Dagger2Metrics - 测量DI图表初始化的性能(翻译)

    以下内容为原创,欢迎转载,转载请注明 来自天天博客:http://www.cnblogs.com/tiantianbyconan/p/5098943.html Dagger2Metrics - 测量D ...

  8. 开源数据库 H2, HSQLDB, DERBY, PostgreSQL, MySQL区别/对比图表( 附加翻译) h2数据库

    开源数据库 H2, HSQLDB, DERBY, PostgreSQL, MySQL区别/对比图表 浪天涯博主翻译: referential integrity 参考完整性transactions 事 ...

  9. [Swift通天遁地]三、手势与图表-(13)制作美观简介的滚动图表:折线图表、面积图表、柱形图表、散点图表

    ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★➤微信公众号:山青咏芝(shanqingyongzhi)➤博客园地址:山青咏芝(https://www.cnblogs. ...

随机推荐

  1. [uoj#34] [洛谷P3803] 多项式乘法(FFT)

    新技能--FFT. 可在 \(O(nlogn)\) 时间内完成多项式在系数表达与点值表达之间的转换. 其中最关键的一点便为单位复数根,有神奇的折半性质. 多项式乘法(即为卷积)的常见形式: \[ C_ ...

  2. 微软的github 上面 有 Docker.DotNet 嗯 作为 菜 只有欣赏的额

    .NET Client for Docker Remote API step one 需要下载的 猛戳 Docker.DotNet

  3. Windows7只能设置纯色背景解决方法

    解决设置设置纯色图片,不能设置其他背景图片的方法. 比如这样的. 首先找到这个目录 C:\Users\(这个位置填写你的电脑用户名)\AppData\Roaming\Microsoft\Windows ...

  4. python多层数组合成一个数组后循环打印出数组内的每一项元素的方法

    a=[1,2,3,4] b=[5,6,7,8] c=[a,b] def test(c): for i in c: return i print(test(c)) 以上代码执行后打印出来的结果是 预期目 ...

  5. 19_08_26校内训练[Max]

    题意 求$max_{l \leq r}{\{min{\{a_l,a_{l+1},...,a_r\}}*(r-l+1)\}}$ 思考 分治,考虑一个区间跨过某个点的贡献即可. 代码 #include&l ...

  6. Shell与进程

    查看当前运行的进程 名称: ps 使用权限: 所有使用者 使用方式: ps [options] [--help] 说明: 显示瞬间行程 (process) 的动态 参数: ps的参数非常多, 在此仅列 ...

  7. Web 开发工具类(5) | DateUtils

    日期工具类 import java.text.ParseException; import java.text.ParsePosition; import java.text.SimpleDateFo ...

  8. qt creator源码全方面分析(2-1)

    目录 coding-style.html 提交代码 二进制兼容性和源代码兼容性 代码构造 格式化 利用标识符 空格 大括号 圆括号 换行符 声明 命名空间 模式与实践 命名空间 传递文件名 插件扩展点 ...

  9. 7、EIGRP

    EIGRP Cisco私有协议1.高级距离矢量路由协议(混杂型hybrid)单播和组播结合,组播更新地址: 224.0.0.10 2.最快速收敛 (使用Diffusing Update 算法(DUAL ...

  10. java加解密算法--DES

    ECB import sun.misc.BASE64Decoder; import javax.crypto.*; import javax.crypto.spec.DESKeySpec; impor ...