php画股票k线图,读股票数据画K线图很不错的Delphi源码
【实例简介】读股票数据画K线图很不错的Delphi源码
【实例截图】
【核心代码】procedure TfrmMain2.DrawScaleK(C: TCanvas; R: TRect);
var
High, Low, D: Single;
HIndex, LIndex: TArrayOfInteger;
HA, LA: TArrayOfSingle;
begin
if FindKLineScaleHighLow(StkDataFile,High,Low,HA,LA,HIndex,LIndex) then
begin
ScaleHigh[1] := High;
ScaleLow[1] := Low;
D := (High-Low) / 20;
High:= High D;
Low := Low -D;
InflateRect(R,0,-2);
DRAW_SCALE(C,R,ScaleLow[1],ScaleHigh[1],Low,High,_height_(R) div 25, True);
end;
end;
procedure TfrmMain2.DrawV(C: TCanvas; R: TRect);
var
D, High, Low: Single;
I, J, X1, X2, Y1, Y2: Integer;
P: PStkDataRec;
begin
if FindVLineScaleHighLow(StkDataFile,High,Low) then
begin
ScaleHigh[2] := High;
ScaleLow[2] := Low;
D := (High-Low) / 10;
High:= High D;
InflateRect(R,0,-2);
if ShowBackgroundDotLine then DRAW_HORZ_SCALE(C,R,ScaleLow[2],ScaleHigh[2],Low,High,_height_(R) div 25, True);
_setPen_(C,GRID.Color,1,psSolid,pmCopy);
_setBrush_(C,GRID.Color,bsSolid);
for I := 0 to DataPerPage-1 do
begin
J := PageStart DataPerPage - I - 1;
P := StkDataFile.getData(J);
if P <> nil then
begin
if P^.CP > P^.OP then C.Pen.Color := clRed
else if P^.CP < P^.OP then C.Pen.Color := clAqua
else C.Pen.Color := clLime;
C.Brush.Color := C.Pen.Color;
X1 := 1 UnitWidth * I;
X2 := UnitWidth * (I 1);
Y1 := R.Bottom;
Y2 := Fy2Iy(P^.VOL,R,High,Low);
if UnitWidth > 2 then C.Rectangle(Rect(X1,Y1,X2,Y2))
else _line_(C,X1,Y1,X1,Y2);
end;
end;
if IS_DRAW_MA then
for I := 0 to Length(VMAC)-1 do
if VMAC[I] > 0 then
DrawLine(VMA[I], DEF_COLOR[I], C, R, High, Low);
end;
end;
procedure TfrmMain2.DrawRSI(C: TCanvas; R: TRect);
var
High, Low: Single;
I, Y: Integer;
begin
High := 100;
Low := 0;
ScaleHigh[3] := 100;
ScaleLow[3] := 0;
InflateRect(R,0,-2);
_setBrush_(C,GRID.Color,bsSolid);
if ShowBackgroundDotLine then
begin
_setPen_(C,clRed,1,psDot,pmCopy);
Y := Fy2Iy(80,R,High,Low); _line_(C,R.Left 1,Y,R.Right,Y,clRed);
Y := Fy2Iy(50,R,High,Low); _line_(C,R.Left 1,Y,R.Right,Y,clSilver);
Y := Fy2Iy(20,R,High,Low); _line_(C,R.Left 1,Y,R.Right,Y,clAqua);
end;
_setPen_(C,clRed,1,psSolid,pmCopy);
for I := 0 to Length(RSIC)-1 do
if RSIC[I] > 0 then
DrawLine(RSI[I], DEF_COLOR[I], C, R, High, Low);
end;
php画股票k线图,读股票数据画K线图很不错的Delphi源码相关推荐
- 黑马量价启动副图指标 开始拉升出信号 超精致买入预警 通达信 源码分享
黑马量价启动副图指标 开始拉升出信号 超精致买入预警 通达信 源码分享 [本文感谢好公式网的小小娆提供源码修改意见.] MDWS3:=LLV(HIGH,240); MDWS4:=100*(CLOSE- ...
- 基于JAVA线上远程教学及自主学平台的设计与实现计算机毕业设计源码+系统+mysql数据库+lw文档+部署
基于JAVA线上远程教学及自主学平台的设计与实现计算机毕业设计源码+系统+mysql数据库+lw文档+部署 基于JAVA线上远程教学及自主学平台的设计与实现计算机毕业设计源码+系统+mysql数据库+ ...
- python饼状图教程_Python数据可视化:饼状图的实例讲解
使用python实现论文里面的饼状图: 原图: python代码实现: # # 饼状图 # plot.figure(figsize=(8,8)) labels = [u'Canteen', u'Sup ...
- spark ui job和stage的dag图查看过去运行的任务,查不到,分析源码解决问题
项目场景: 使用用2.x跑任务,产看耗时的spark job, stage,发现job和stage的dag信息缺失 问题描述: sparkUI 显示dag信息缺失问题: 使用用2.x跑任务,查看spa ...
- DX9贴图-------VB6编程学习DX9游戏编程DirectX9编程2D小游戏源码冷风引擎CoolWind2D游戏引擎(11)
DX9贴图 先准备2张图片,蜘蛛为m1.png,单眼怪物为m2.png 创建一个Form1.frm,输入如下源码: Private Sub Form_Load()'新手注意:游戏编程中, '通常将窗体 ...
- 线上即可完成考试+刷题+练习等功能的考试系统源码
线上考试系统得到企事业.学校.培训机构.医疗.银行等各行各业广泛应用,通过在线考试系统源码快速搭建企业自己的考试系统.考试系统包含题库建设.组卷设计.考试设计.题库训练.成绩批阅.错题分析.在线监考. ...
- 一图读懂 | “数据二十条”
来源:国家发展改革委
- 新浪 股票html5源代码,HTML5特效库 百度总裁李彦宏强力推荐 程序员表白源码
效果图 各位猿媛大家好! 今天给大家带来的是 前端程序员表白源码, 是不是想给暗恋的她也弄一封了! 想要文件版源码 请佳我的源码交流裙581549454 废话不多说 上源码! JS源码: // var ...
- 0206.BFPRT在一大堆数中求其前k大或前k小的问题,简称TOP-K问题(左神算法基础班源码)
package basic_class_02;/*** * 在一大堆数中求其前k大或前k小的问题,简称TOP-K问题.* 而目前解决TOP-K问题最有效的算法即是BFPRT算法**/ public c ...
- 应用计算机测定线性电阻电路图和实物图,PC817中文数据摘要_PC817引脚图和功能_工作原理_特性参数及典型应用电路...
首先,PC817中文数据摘要-PC817简介 PC817光耦合器广泛用于计算机终端,晶闸管系统设备,测量仪器,复印机,自动售票,家用电器(如风扇,加热器)和其他在前端和负载之间进行信号传输的电路. 目 ...
最新文章
- 行业观察 | 新一轮AI周期里,华为拿什么破解核心难题?
- Netty - I/O模型之NIO
- 【LiveVideoStack线上分享】— FreeSWITCH视频会议“标准”解决方案
- java 正规 忽略,java-正则表达式查找变量并忽略方法
- 【Elasticsearch】 es 排查问题 explain 使用 内容解释
- 小伯利恒之歌(音乐)-Oh Little Town of Bethlehem(Virtual Tour)一次真实的旅行,看看耶稣的家乡...
- pcb过孔漏铜_使用Proteus设计自己的PCB | 入门简易教程
- Android CI with jenkins in ubuntu
- sqlite3数据库报错:“打不开数据库文件”
- 飞机大战java实训报告_java飞机大战实训报告.docx
- linux获取weblogic版本,LINUX查看JDK和Weblogic版本命令
- URL调用高德地图导航
- matplotlib柱状图上方显示数据_Python基础数据可视化
- iOS9有哪些新特性
- 人工智能芯片研究报告
- HP打印机M1216nfh无法在win10安装驱动的解决方法
- HTML5播放视频autoplay不起作用-HTML5视频不自动播放
- 生成证书模板---vue实现HTML转PDF
- C语言的下载和环境设置
- 电源管理芯片|“小方寸”大作为—TMI3191直击智能穿戴电源痛点!