2160 lines
77 KiB
Plaintext
2160 lines
77 KiB
Plaintext
unit utvclgraphicsext;
|
||
interface
|
||
uses utslvclauxiliary,utvclgraphics;//,utslvclconstant;
|
||
{
|
||
//玫瑰图
|
||
uses tslvcl,utvclgraphics,utvclgraphicsext;
|
||
app := initializeapplication();
|
||
app.createform(class(tfm),fm);
|
||
fm.show();
|
||
app.run();
|
||
type tfm=class(tvcform)
|
||
function create(aowner);
|
||
begin
|
||
inherited;
|
||
caption := "玫瑰图";
|
||
width := 800;
|
||
Height := 800;
|
||
fg := new tg_WinControl(self);
|
||
fg.parent := self;
|
||
fg.Align := alClient;
|
||
//////////设置坐标轴属性////////////////////////
|
||
axs := new tg_axes();
|
||
axs.figure := fg.figure;
|
||
axs.title.text := "玫瑰图";
|
||
args := array(('name':'a','value':300)
|
||
,('name':'b','value':200)
|
||
,('name':'c','value':500)
|
||
,('name':'d','value':700)
|
||
,('name':'e','value':300)
|
||
,('name':'f','value':200)
|
||
,('name':'g','value':500)
|
||
,('name':'h','value':700)
|
||
,('name':'i','value':300)
|
||
,('name':'j','value':200)
|
||
,('name':'k','value':500)
|
||
,('name':'l','value':700)
|
||
);
|
||
line := new tg_Polypie();
|
||
line.graph_data := args;
|
||
line.pie_type := "rose"; //'ring';
|
||
line.parent := axs;
|
||
//绘制图例
|
||
lg := new tg_legend();
|
||
lg.parent := axs;
|
||
//lg.location := lg.tgc_by_axes;
|
||
lg.postion := array(-0.11,0.7);
|
||
//lg.text := array("aaa","bbb",'ccc','ddd');
|
||
lg.links := array(line);
|
||
//构造提示标签
|
||
fmovetip := new tg_tips();
|
||
fmovetip.parent := line;
|
||
fmovetip.box_mode := true; //false;
|
||
fmovetip.display_function := function(o,ps,d)
|
||
begin
|
||
p := o.parent;
|
||
if not fshowpos then return;
|
||
if p then
|
||
begin
|
||
dd := p.get_graph_data_by_idx(o.data_idx);
|
||
p.xyz_to_zoom(fshowpos[0],fshowpos[1],nil,x1,y1);
|
||
ps := array(x1,y1);
|
||
d := array(dd["name"],tostn(dd["value"]));
|
||
end
|
||
end
|
||
//设置提示数据点
|
||
line.onhit_at := function(o,d)
|
||
begin
|
||
x := d["cvsx"];
|
||
y := d["cvsy"];
|
||
r := o.ExecuteCommand("hit_part",array(x,y));
|
||
r := r >= 0;
|
||
return r;
|
||
end
|
||
line.addEventListener("mouse_in", function(e)
|
||
begin
|
||
if e.eventPhase <> 2 then return;
|
||
e.stoppropagation();
|
||
end
|
||
,true);
|
||
line.addEventListener("mouse_out", function(e)
|
||
begin
|
||
if e.eventPhase <> 2 then return;
|
||
fmovetip.Visible := false;
|
||
e.stoppropagation();
|
||
end
|
||
,true);
|
||
line.addEventListener("mouse_move", function(e)
|
||
begin
|
||
if e.eventPhase <> 2 then return;
|
||
e.stoppropagation();
|
||
x := e.cvsx;
|
||
y := e.cvsy;
|
||
idx := e.target.ExecuteCommand("hit_part",array(x,y));
|
||
if idx >= 0 then
|
||
begin
|
||
fmovetip.data_idx := idx;
|
||
fshowpos := array(x,y);
|
||
fmovetip.Visible := true;
|
||
end
|
||
end
|
||
,true);
|
||
end
|
||
fmovetip;
|
||
fg;
|
||
fshowpos;
|
||
end
|
||
|
||
//雷达图
|
||
uses tslvcl,utvclgraphics,utvclgraphicsext;
|
||
app := initializeapplication();
|
||
app.createform(class(tfm),fm);
|
||
fm.show();
|
||
app.run();
|
||
type tfm = class(tvcform)
|
||
function create(aowner);
|
||
begin
|
||
inherited;
|
||
caption := "雷达图";
|
||
width := 800;
|
||
Height := 800;
|
||
fg := new tg_WinControl(self);
|
||
fg.parent := self;
|
||
fg.Align := alClient;
|
||
//////////设置坐标轴属性////////////////////////
|
||
axs := new tg_axes();
|
||
axs.box := true;
|
||
axs.figure := fg.figure;
|
||
axs.title.text := "雷达图";
|
||
line := new tg_Polyradar();
|
||
indicator := array(
|
||
('name':'射击','max':300),
|
||
('name':'游泳','max':200),
|
||
('name':'篮球','max':500),
|
||
('name':'足球','max':700),
|
||
('name':'跑步','max':300),
|
||
('name':'举重','max':200)
|
||
);
|
||
indicator := array(
|
||
('name':'射击','max':110),
|
||
('name':'游泳','max':110),
|
||
('name':'篮球','max':110),
|
||
('name':'足球','max':110),
|
||
('name':'跑步','max':110),
|
||
('name':'举重','max':110)
|
||
);
|
||
args := array(
|
||
('name':'一班','value':array(90, 80, 85, 85, 95, 95)),
|
||
('name':'二班','value':array(85, 65, 65, 90, 100, 70)),
|
||
('name':'三班','value':array(70, 60, 99, 50, 90, 80))
|
||
);
|
||
|
||
line.graph_data := args;
|
||
line.indicator := indicator;
|
||
line.parent := axs;
|
||
lg := new tg_legend();
|
||
lg.parent := axs;
|
||
lg.postion := array(-0.11,0.7);
|
||
lg.links := array(line);
|
||
end
|
||
fg;
|
||
end
|
||
//树图
|
||
uses tslvcl,utvclgraphics,utvclgraphicsext;
|
||
app := initializeapplication();
|
||
app.createform(class(tfm),fm);
|
||
fm.show();
|
||
app.run();
|
||
type tfm = class(tvcform)
|
||
function create(aowner);
|
||
begin
|
||
inherited;
|
||
Caption := "树图";
|
||
fg := new tg_WinControl(self);
|
||
fg.Caption := "树图";
|
||
fg.parent := self;
|
||
fg.Align := alClient;
|
||
//////////设置坐标轴属性////////////////////////
|
||
axs := new tg_axes();
|
||
axs.figure := fg.figure;
|
||
axs.title.text := "树图";
|
||
//设置线型属性
|
||
line := new tg_Polytree();
|
||
line.parent := axs;
|
||
line.lineinfo.color := 0x0000ff;
|
||
line.markinfo.bkcolor := 0x00ff00;
|
||
line.markinfo.color := 0x0000ff;
|
||
line.mark_mode := true;
|
||
line.markinfo.size := 5;
|
||
line.show_text := true;//展示节点文本
|
||
d := array();
|
||
idx := 0;
|
||
line.graph_data := array('name':'111','show': true,'children':(
|
||
('name':'222','children':(('name':'333','children':(('name':'111','children':(
|
||
('name':'222','children':(('name':'333','children':(('name':'111','children':(
|
||
('name':'222','children':(('name':'333','children':(('name':'111','children':(
|
||
('name':'222','children':(('name':'333','children':()),('name':'444','children':(('name':'111','children':(
|
||
('name':'222','children':(('name':'333','children':()),('name':'444','children':(('name':'111','children':(
|
||
('name':'222','children':(('name':'333','children':()),('name':'444','children':()))),
|
||
('name':'555','children':(('name':'666','children':()),('name':'777','children':()))),
|
||
('name':'888','children':(('name':'999','children':()),('name':'xxx','children':()),('name':'zzz','children':())))
|
||
)
|
||
))))),
|
||
('name':'555','children':(('name':'666','show': false,'children':()),('name':'777','children':()))),
|
||
('name':'888','children':(('name':'999','children':()),('name':'xxx','children':()),('name':'zzz','children':())))
|
||
)
|
||
))))),
|
||
('name':'555','children':(('name':'666','children':()),('name':'777','children':()))),
|
||
('name':'888','children':(('name':'999','children':()),('name':'xxx','children':()),('name':'zzz','children':(('name':'111','children':(
|
||
('name':'222','children':(('name':'333','children':()),('name':'444','children':()))),
|
||
('name':'555','children':(('name':'666','children':()),('name':'777','children':()))),
|
||
('name':'888','children':(('name':'999','children':()),('name':'xxx','children':()),('name':'zzz','children':())))
|
||
)
|
||
)))))
|
||
)
|
||
))),('name':'444','children':()))),
|
||
('name':'555','children':(('name':'666','children':()),('name':'777','children':()))),
|
||
('name':'888','children':(('name':'999','children':()),('name':'xxx','children':()),('name':'zzz','children':(('name':'111','children':(
|
||
('name':'222','children':(('name':'333','children':()),('name':'444','children':()))),
|
||
('name':'555','children':(('name':'666','children':()),('name':'777','children':(('name':'111','children':(
|
||
('name':'222','children':(('name':'333','children':()),('name':'444','children':()))),
|
||
('name':'555','children':(('name':'666','children':()),('name':'777','children':()))),
|
||
('name':'888','children':(('name':'999','children':()),('name':'xxx','children':()),('name':'zzz','children':())))
|
||
)
|
||
))))),
|
||
('name':'888','children':(('name':'999','children':()),('name':'xxx','children':()),('name':'zzz','children':())))
|
||
)
|
||
)))))
|
||
)
|
||
))),('name':'444','children':()))),
|
||
('name':'555','children':(('name':'666','children':()),('name':'777','children':()))),
|
||
('name':'888','children':(('name':'999','children':()),('name':'xxx','children':()),('name':'zzz','children':())))
|
||
)
|
||
))),('name':'444','children':(('name':'111','children':(
|
||
('name':'222','children':(('name':'333','children':()),('name':'444','children':(('name':'111','children':(
|
||
('name':'222','children':(('name':'333','children':()),('name':'444','children':()))),
|
||
('name':'555','children':(('name':'666','children':()),('name':'777','children':()))),
|
||
('name':'888','children':(('name':'999','children':()),('name':'xxx','children':()),('name':'zzz','children':())))
|
||
)
|
||
))))),
|
||
('name':'555','children':(('name':'666','children':()),('name':'777','children':()))),
|
||
('name':'888','children':(('name':'999','children':()),('name':'xxx','children':()),('name':'zzz','children':())))
|
||
)
|
||
))))),
|
||
('name':'555','children':(('name':'666','children':()),('name':'777','children':(('name':'111','children':(
|
||
('name':'222','children':(('name':'333','children':()),('name':'444','children':()))),
|
||
('name':'555','children':(('name':'666','children':()),('name':'777','children':()))),
|
||
('name':'888','children':(('name':'999','children':()),('name':'xxx','children':()),('name':'zzz','children':())))
|
||
)
|
||
))))),
|
||
('name':'888','children':(('name':'999','children':(('name':'111','children':(
|
||
('name':'222','children':(('name':'333','children':()),('name':'444','children':()))),
|
||
('name':'555','children':(('name':'666','children':(('name':'111','children':(
|
||
('name':'222','children':(('name':'333','children':()),('name':'444','children':()))),
|
||
('name':'555','children':(('name':'666','children':()),('name':'777','children':()))),
|
||
('name':'888','children':(('name':'999','children':()),('name':'xxx','children':()),('name':'zzz','children':(('name':'111','children':(
|
||
('name':'222','children':(('name':'333','children':()),('name':'444','children':()))),
|
||
('name':'555','children':(('name':'666','children':()),('name':'777','children':()))),
|
||
('name':'888','children':(('name':'999','children':()),('name':'xxx','children':()),('name':'zzz','children':(('name':'111','children':(
|
||
('name':'222','children':(('name':'333','children':()),('name':'444','children':()))),
|
||
('name':'555','children':(('name':'666','children':()),('name':'777','children':()))),
|
||
('name':'888','children':(('name':'999','children':()),('name':'xxx','children':()),('name':'zzz','children':())))
|
||
)
|
||
)))))
|
||
)
|
||
)))))
|
||
)
|
||
))),('name':'777','children':()))),
|
||
('name':'888','children':(('name':'999','children':()),('name':'xxx','children':()),('name':'zzz','children':(('name':'111','children':(
|
||
('name':'222','children':(('name':'333','children':()),('name':'444','children':()))),
|
||
('name':'555','children':(('name':'666','children':()),('name':'777','children':()))),
|
||
('name':'888','children':(('name':'999','children':()),('name':'xxx','children':()),('name':'zzz','children':(('name':'111','children':(
|
||
('name':'222','children':(('name':'333','children':()),('name':'444','children':()))),
|
||
('name':'555','children':(('name':'666','children':()),('name':'777','children':()))),
|
||
('name':'888','children':(('name':'999','children':()),('name':'xxx','children':()),('name':'zzz','children':())))
|
||
)
|
||
)))))
|
||
)
|
||
)))))
|
||
)
|
||
))),('name':'xxx','children':(('name':'111','children':(
|
||
('name':'222','children':(('name':'333','children':()),('name':'444','children':()))),
|
||
('name':'555','children':(('name':'666','children':()),('name':'777','children':()))),
|
||
('name':'888','children':(('name':'999','children':()),('name':'xxx','children':()),('name':'zzz','children':(('name':'111','children':(
|
||
('name':'222','children':(('name':'333','children':()),('name':'444','children':()))),
|
||
('name':'555','children':(('name':'666','children':()),('name':'777','children':()))),
|
||
('name':'888','children':(('name':'999','children':()),('name':'xxx','children':()),('name':'zzz','children':(('name':'111','children':(
|
||
('name':'222','children':(('name':'333','children':()),('name':'444','children':()))),
|
||
('name':'555','children':(('name':'666','children':()),('name':'777','children':()))),
|
||
('name':'888','children':(('name':'999','children':()),('name':'xxx','children':()),('name':'zzz','children':(('name':'111','children':(
|
||
('name':'222','children':(('name':'333','children':()),('name':'444','children':()))),
|
||
('name':'555','children':(('name':'666','children':()),('name':'777','children':()))),
|
||
('name':'888','children':(('name':'999','children':()),('name':'xxx','children':()),('name':'zzz','children':())))
|
||
)
|
||
)))))
|
||
)
|
||
)))))
|
||
)
|
||
)))))
|
||
)
|
||
))),('name':'zzz','children':(('name':'777','children':())))))
|
||
)
|
||
);
|
||
|
||
end
|
||
fg;
|
||
end
|
||
//k线图
|
||
uses tslvcl,utvclgraphics,utvclgraphicsext;
|
||
app := initializeapplication();
|
||
app.createform(class(tfm),fm);
|
||
fm.show();
|
||
app.run();
|
||
type tfm = class(tvcform)
|
||
function create(aowner);
|
||
begin
|
||
inherited;
|
||
Caption := "k线图";
|
||
fg := new tg_WinControl(self);
|
||
fg.parent := self;
|
||
fg.Align := alClient;
|
||
//////////设置坐标轴属性////////////////////////
|
||
axs := new tg_axes();
|
||
axs.figure := fg.figure;
|
||
axs.title.text := "k线图 ";
|
||
axs.title.fontinfo.size := 15;
|
||
axs.title.fontinfo.color := 0xff0000;
|
||
axs.x_label.text := "日期";
|
||
axs.grid(0).Width := 2;
|
||
axs.grid(0).color := 0x0ff0f0;
|
||
axs.auto_ticks(0) := false;
|
||
//设置线型属性
|
||
line := new tg_Polycandlestick();
|
||
line.lineinfo.color := 0xff0000;
|
||
line.bullcolor := 0x0000ff;
|
||
line.bearcolor := 0x00ff00;
|
||
line.line_mode := false;
|
||
line.graph_data := array(("2017-10-24",1.1,1,1.3,0.3),("2017-10-25",3,4,4.5,2.5),("2017-10-26",5,8,9,3),("2017-10-27",10,8,9,3),("2017-10-28",5,8,9,8.5),("2017-10-29",5,8,9,3)
|
||
,("2017-10-30",5,8,9,3),("2017-10-31",5,8,9,3),("2017-11-01",5,8,9,3));
|
||
line.parent := axs;
|
||
end
|
||
fg;
|
||
end
|
||
//盒须图
|
||
uses tslvcl,utvclgraphics,utvclgraphicsext;
|
||
app := initializeapplication();
|
||
app.createform(class(tfm),fm);
|
||
fm.show();
|
||
app.run();
|
||
type tfm = class(tvcform)
|
||
function create(aowner);
|
||
begin
|
||
inherited;
|
||
Caption := "盒须图";
|
||
fg := new tg_WinControl(self);
|
||
fg.Caption := "盒须图";
|
||
fg.parent := self;
|
||
fg.Align := alClient;
|
||
//////////设置坐标轴属性////////////////////////
|
||
axs := new tg_axes();
|
||
axs.figure := fg.figure;
|
||
axs.title.text := "盒须图";
|
||
axs.title.fontinfo.size := 15;
|
||
axs.title.fontinfo.color := 0xff0000;
|
||
axs.axises(1).tics_color := 0x0000ff;
|
||
axs.axises(1).fontinfo.size := 8;
|
||
axs.axises(1).lineinfo.color := 0x00ff00;
|
||
axs.grid(0).Width := 2;
|
||
axs.grid(0).color := 0x0ff0f0;
|
||
line := new tg_Polyboxplot();
|
||
line.lineinfo.color := 0xff0000;
|
||
line.graph_data := array((850, 740, 900, 1070, 930, 850, 950, 980, 980, 880, 1000, 980, 930, 650, 760, 810, 1000, 1000, 960, 960),
|
||
(960, 940, 960, 940, 880, 800, 850, 880, 900, 840, 830, 790, 810, 880, 880, 830, 800, 790, 760, 800),
|
||
(880, 880, 880, 860, 720, 720, 620, 860, 970, 950, 880, 910, 850, 870, 840, 840, 850, 840, 840, 840),
|
||
(890, 810, 810, 820, 800, 770, 760, 740, 750, 760, 910, 920, 890, 860, 880, 720, 840, 850, 850, 780),
|
||
(890, 840, 780, 810, 760, 810, 790, 810, 820, 850, 870, 870, 810, 740, 810, 940, 950, 800, 810, 870)
|
||
);
|
||
line.parent := axs;
|
||
end
|
||
fg;
|
||
end
|
||
//旭日图
|
||
uses tslvcl,utvclgraphics,utvclgraphicsext;
|
||
app := initializeapplication();
|
||
app.createform(class(tfm),fm);
|
||
fm.show();
|
||
app.run();
|
||
type tfm = class(tvcform)
|
||
function create(aowner);
|
||
begin
|
||
inherited;
|
||
caption := '旭日图';
|
||
width := 800;
|
||
Height := 800;
|
||
fg := new tg_WinControl(self);
|
||
fg.parent := self;
|
||
fg.Align := alClient;
|
||
//////////设置坐标轴属性////////////////////////
|
||
axs := new tg_axes();
|
||
axs.box := true;
|
||
axs.figure := fg.figure;
|
||
axs.title.text :="旭日图";
|
||
args := array(
|
||
'name': '组织',
|
||
'children': (
|
||
(
|
||
'name': '总经理办公室',
|
||
'children': (
|
||
(
|
||
'name': '财务部',
|
||
"itemstyle":("color":0xff00ff),
|
||
'value': 15,
|
||
'children': (
|
||
('name': '会计', 'value': 2),
|
||
(
|
||
'name': '财务主管',
|
||
'value': 5,
|
||
'children': (
|
||
('name': '财务专员', 'value': 2)
|
||
)
|
||
),
|
||
('name': '财务助理', 'value': 4)
|
||
)
|
||
),
|
||
('name': '市场部', 'children': (('name': '市场经理', 'value': 4))),
|
||
(
|
||
'name': '人力资源部',
|
||
'value': 10,
|
||
'children': (
|
||
('name': '人事经理', 'value': 5, 'itemStyle': ('color': 'yellow')),
|
||
('name': '招聘专员', 'value': 1)
|
||
)
|
||
)
|
||
)
|
||
),
|
||
(
|
||
'name': '技术部',
|
||
'children': (
|
||
(
|
||
'name': '研发部',
|
||
'children': (
|
||
('name': '项目经理', 'value': 3),
|
||
(
|
||
'name': '开发工程师',
|
||
'value': 4,
|
||
'children': (('name': '实习生', 'value': 2))
|
||
)
|
||
)
|
||
)
|
||
)
|
||
),
|
||
(
|
||
'name': '销售部',
|
||
'children': (
|
||
(
|
||
'name': '销售经理',
|
||
'children': (
|
||
('name': '销售代表', 'value': 1),
|
||
('name': '销售助理', 'value': 2)
|
||
)
|
||
)
|
||
)
|
||
)
|
||
)
|
||
);
|
||
line := new tg_Polysunburst();
|
||
line.graph_data := args;
|
||
line.parent := axs;
|
||
end
|
||
fg;
|
||
end
|
||
}
|
||
type tg_Polycandlestick = class(tg_graph) //k线图
|
||
function create(pms);
|
||
begin
|
||
inherited;
|
||
fbarrgn := array();
|
||
clip_state := tgc_on;
|
||
line_mode := tgc_on;
|
||
mark_mode := tgc_off;
|
||
fbar_width := 0.3;
|
||
fdata_bounds := array((0,1),(0,1),(0,1));
|
||
end
|
||
function get_data_bounds();override; //边界
|
||
begin
|
||
//fdata_bounds[0,1] := length(fgraph_data);
|
||
return fdata_bounds;
|
||
end
|
||
function paint(cvs);override; //绘制
|
||
begin
|
||
if tgc_on<> visible then return ;
|
||
tempbarw := 0;
|
||
bx := axes.zoom_box;
|
||
if clip_state=tgc_on then
|
||
begin
|
||
pts := array();
|
||
for i,v in graph_paint_rec_to_points( array(bx[0,0],bx[1,0],bx[0,1],bx[1,1])) do
|
||
begin
|
||
zoom_to_xyz(v[0],v[1],bx[2,0],x,y);
|
||
pts[i] := array(x,y);
|
||
end
|
||
cvs.clip_rgn(pts);
|
||
end else
|
||
begin
|
||
cvs.axesunclip();
|
||
end
|
||
xys := array();
|
||
wick_y := array();
|
||
set_lineinfo_to_canvas(cvs);
|
||
xlbl := array("0");
|
||
xcd := array(0);
|
||
for i,v in fgraph_data do
|
||
begin
|
||
xlbl[i+1] := v[0];
|
||
xcd[i+1] := i+1;
|
||
end
|
||
axes.axises(0).tics_coord := xcd;
|
||
axes.axises(0).tics_labels := xlbl;
|
||
ys := array();
|
||
for i,v in fgraph_data do
|
||
begin
|
||
if not zoom_to_xyz(i+1,v[1],bx[2,0],x,y) then return ;
|
||
xys[i] := array(integer(x),integer(y));
|
||
if not zoom_to_xyz(i+1,v[3],bx[2,0],x,y) then return ;
|
||
wick_y[i][0] := array(integer(x),integer(y));
|
||
if not zoom_to_xyz(i+1,v[4],bx[2,0],x,y) then return ;
|
||
wick_y[i][1] := array(integer(x),integer(y));
|
||
zoom_to_xyz(i+1,v[2],bx[2,0],x,y) ;
|
||
ys[i] := array(integer(x),integer(y));
|
||
if not zoom_to_xyz(i+1,v[1],bx[2,0],x,y) then return ;
|
||
if not(tempbarw) and fbar_width>0 then ////////计算宽度///////
|
||
begin
|
||
b := get_abs_barwidth();
|
||
zoom_to_xyz((i+1+b/2),v[1],bx[2,0],xtemp,ytemp);
|
||
xtemp-=x;
|
||
ytemp-=y;
|
||
tempbarw := array();
|
||
tempbarw[0] := b*(xtemp)/(abs(xtemp)+abs(ytemp));
|
||
tempbarw[1] := b*(ytemp)/(abs(xtemp)+abs(ytemp));
|
||
end
|
||
end
|
||
fline_points_in_canvas := xys;
|
||
fbarrgn := array();
|
||
pinfo := array("line_mode":line_mode,"bar_width":tempbarw,"color":lineinfo.color,"bullcolor":fbullcolor,"bearcolor":fbearcolor,"bkcolor":lineinfo.bkcolor,"xy0":ys,"wick_y": wick_y);
|
||
paint_candlestick(cvs,0,xys,0,fgraph_data,pinfo);
|
||
fbarrgn := pinfo["barrgn"];
|
||
inherited;
|
||
end
|
||
function executecommand(cmd,p);override;
|
||
begin
|
||
case cmd of
|
||
"hit_point":
|
||
begin
|
||
for i,v in fbarrgn do
|
||
begin
|
||
if point_in_rgn(p,v) then return i;
|
||
end
|
||
return -1;
|
||
end
|
||
"points_in_canvas":return (visible=tgc_on)? fline_points_in_canvas:nil; //???????
|
||
end;
|
||
return inherited;
|
||
end
|
||
published
|
||
property bar_width read fbar_width write set_barwidth;//宽度
|
||
property bullcolor read fbullcolor write set_bullcolor;//牛色
|
||
property bearcolor read fbearcolor write set_bearcolor;//熊色
|
||
private
|
||
fline_points_in_canvas;
|
||
fbarrgn;
|
||
fdata_bounds;
|
||
fforeground;
|
||
fbackground;
|
||
fbar_width;
|
||
fbullcolor;
|
||
fbearcolor;
|
||
protected
|
||
function set_graph_data(d);override; //设置数据
|
||
begin
|
||
if d<>fgraph_data then
|
||
begin
|
||
//fx := d[:,0];
|
||
fdata_bounds[0,0] := 0;
|
||
fdata_bounds[0,1] := length(d);
|
||
fdata_bounds[1,0] := minvalue(d[:,4]);
|
||
fdata_bounds[1,1] := maxvalue(d[:,3]);
|
||
inherited;
|
||
end
|
||
end
|
||
private
|
||
function get_abs_barwidth();//获得
|
||
begin
|
||
if fbar_width>0 and fbar_width<=1 then
|
||
begin
|
||
if zoom_to_xyz(0,0,nil,x1,y1) and zoom_to_xyz(1,0,nil,x2,y2) then
|
||
begin
|
||
return (abs(x1-x2)+abs(y1-y2))*fbar_width;
|
||
end
|
||
end
|
||
return fbar_width;
|
||
end
|
||
function set_barwidth(v);//设置宽度
|
||
begin
|
||
if (v<>fbar_width) and (v>0) then
|
||
begin
|
||
fbar_width := v;
|
||
prop_changed("barwidth",v);
|
||
end
|
||
end
|
||
function set_bullcolor(v);//牛色
|
||
begin
|
||
//if not graph_paint_boolen_value(v,nv) then return ;
|
||
if v<>fbullcolor and ifnumber(v) then
|
||
begin
|
||
fbullcolor := v;
|
||
prop_changed("bullcolor",v);
|
||
end
|
||
end
|
||
function set_bearcolor(v);//熊色
|
||
begin
|
||
//if not graph_paint_boolen_value(v,nv) then return ;
|
||
if v<>fbearcolor and ifnumber(v) then
|
||
begin
|
||
fbearcolor := v;
|
||
prop_changed("bearcolor",v);
|
||
end
|
||
end
|
||
end
|
||
type tg_Polyboxplot = class(tg_graph) //盒须图
|
||
function create(pms);
|
||
begin
|
||
inherited;
|
||
fbarrgn := array();
|
||
clip_state := tgc_on;
|
||
line_mode := tgc_on;
|
||
mark_mode := tgc_off;
|
||
fbar_width := 0.3;
|
||
fdata_bounds := array((0,1),(0,1),(0,1));
|
||
end
|
||
function get_data_bounds();override; //??????
|
||
begin
|
||
return fdata_bounds;
|
||
end
|
||
function paint(cvs);override; //???
|
||
begin
|
||
if tgc_on<> visible then return ;
|
||
bx := axes.zoom_box;
|
||
if clip_state=tgc_on then
|
||
begin
|
||
//cvs.axesclip();
|
||
pts := array();
|
||
for i,v in graph_paint_rec_to_points( array(bx[0,0],bx[1,0],bx[0,1],bx[1,1])) do
|
||
begin
|
||
zoom_to_xyz(v[0],v[1],bx[2,0],x,y);
|
||
pts[i] := array(x,y);
|
||
end
|
||
cvs.clip_rgn(pts);
|
||
end else
|
||
begin
|
||
cvs.axesunclip();
|
||
end
|
||
xys := array();
|
||
medians := array();
|
||
wick_y := array();
|
||
outliers := array();
|
||
inliers := array(());
|
||
set_lineinfo_to_canvas(cvs);
|
||
ys := array();
|
||
for i,v in fgraph_data do
|
||
begin
|
||
q1 := Quartile(v,1);
|
||
q2 := Quartile(v,2);
|
||
q3 := Quartile(v,3);
|
||
iqr := q3-q1;
|
||
maximum := q3+(1.5*iqr);
|
||
minimum := q1-(1.5*iqr);
|
||
inliers[i] := array();
|
||
for j,w in v do
|
||
begin
|
||
len := length(outliers);
|
||
if w>=minimum and w<=maximum then
|
||
begin
|
||
inlen := length(inliers[i]);
|
||
inliers[i][inlen] := w;
|
||
end
|
||
else if w < minimum then
|
||
begin
|
||
if not zoom_to_xyz(i+1,w,bx[2,0],x,y) then return ;
|
||
outliers[len] := array(integer(x),integer(y));
|
||
|
||
end
|
||
else
|
||
begin
|
||
if not zoom_to_xyz(i+1,w,bx[2,0],x,y) then return ;
|
||
outliers[len] := array(integer(x),integer(y));
|
||
end
|
||
end
|
||
|
||
if not zoom_to_xyz(i+1,q1,bx[2,0],x,y) then return ;
|
||
xys[i] := array(integer(x),integer(y));
|
||
if not zoom_to_xyz(i+1,q2,bx[2,0],x,y) then return ;
|
||
medians[i] := array(integer(x),integer(y));
|
||
if not zoom_to_xyz(i+1,MaxValue(inliers[i]),bx[2,0],x,y) then return ;
|
||
wick_y[i][0] := array(integer(x),integer(y));
|
||
if not zoom_to_xyz(i+1,MinValue(inliers[i]),bx[2,0],x,y) then return ;
|
||
wick_y[i][1] := array(integer(x),integer(y));
|
||
zoom_to_xyz(i+1,q3,bx[2,0],x,y) ;
|
||
ys[i] := array(integer(x),integer(y));
|
||
|
||
if not zoom_to_xyz(i+1,q1,bx[2,0],x,y) then return ;
|
||
if not(tempbarw) and fbar_width>0 then ////////????bar????///////
|
||
begin
|
||
b := get_abs_barwidth();
|
||
zoom_to_xyz((i+1+b/2),q1,bx[2,0],xtemp,ytemp);
|
||
xtemp-=x;
|
||
ytemp-=y;
|
||
tempbarw := array();
|
||
tempbarw[0] := b*(xtemp)/(abs(xtemp)+abs(ytemp));
|
||
tempbarw[1] := b*(ytemp)/(abs(xtemp)+abs(ytemp));
|
||
end
|
||
end
|
||
fline_points_in_canvas := xys;
|
||
pinfo := array("line_mode":line_mode,"bar_width":tempbarw,"color":lineinfo.color,"bkcolor":lineinfo.bkcolor,"xy0":ys,"wick_y": wick_y, "medians": medians);
|
||
paint_boxplot(cvs,0,xys,0,pinfo);
|
||
fbarrgn := pinfo["barrgn"];
|
||
mk := markinfo.clone();
|
||
if mark_mode=tgc_on and mk.size>2 then
|
||
begin
|
||
graph_paint_points(mk,cvs,outliers);
|
||
end
|
||
inherited;
|
||
end
|
||
function executecommand(cmd,p);override;
|
||
begin
|
||
case cmd of
|
||
"points_in_canvas":return (visible=tgc_on)? fline_points_in_canvas:nil; //???????
|
||
end;
|
||
return inherited;
|
||
end
|
||
function get_legend_size(w,h);virtual; //??????????
|
||
begin
|
||
mk := markinfo;
|
||
h := fontinfo.size*2+4;
|
||
w := 100;
|
||
if mark_mode=tgc_on then
|
||
begin
|
||
h := max(h,mk.size+4);
|
||
w := 5*h;
|
||
end
|
||
end
|
||
function paint_legend(cvs,rec);override; //???????
|
||
begin
|
||
y0 := ceil(rec[1]+(rec[3]-rec[1])/2);
|
||
dis := ceil((rec[2]-rec[0])/5);
|
||
xys := array((rec[0]+dis,y0),(rec[0]+4*dis,y0));
|
||
set_lineinfo_to_canvas(cvs);
|
||
graph_paint_lines(cvs,tgc_LS_interpolated,xys,0,array("line_mode":line_mode,"bar_width":fbar_width,"color":lineinfo.color,"bkcolor":lineinfo.bkcolor));
|
||
mk := markinfo.clone();
|
||
if mark_mode=tgc_on and mk.size>2 then
|
||
begin
|
||
xys := array((rec[0]+dis*2,y0),(rec[0]+3*dis,y0));
|
||
graph_paint_points(mk,cvs,xys);
|
||
end
|
||
end
|
||
property bar_width read fbar_width write set_bar_width;//= "0" ??????
|
||
private
|
||
fbarrgn;
|
||
fline_points_in_canvas;
|
||
fdata_bounds;
|
||
fforeground;
|
||
fbackground;
|
||
fbar_width;
|
||
protected
|
||
function set_graph_data(d);override; //????????
|
||
begin
|
||
if d<>fgraph_data then
|
||
begin
|
||
fdata_bounds[0,0] := 0;
|
||
fdata_bounds[0,1] := length(d);
|
||
fdata_bounds[1,0] := minvalue(minvalue(d));
|
||
fdata_bounds[1,1] := maxvalue(maxvalue(d));
|
||
inherited;
|
||
end
|
||
end
|
||
private
|
||
function get_abs_barwidth();//获得
|
||
begin
|
||
if fbar_width>0 and fbar_width<=1 then
|
||
begin
|
||
if zoom_to_xyz(0,0,nil,x1,y1) and zoom_to_xyz(1,0,nil,x2,y2) then
|
||
begin
|
||
return (abs(x1-x2)+abs(y1-y2))*fbar_width;
|
||
end
|
||
end
|
||
return fbar_width;
|
||
end
|
||
function set_bar_width(v);
|
||
begin
|
||
if v<>fbar_width and v>0 then
|
||
begin
|
||
fbar_width := v;
|
||
prop_changed("bar_width",nv);
|
||
end
|
||
end
|
||
end
|
||
type tg_Polypie = class(tg_graph) //饼图
|
||
function create(pms);
|
||
begin
|
||
ftexts := array();
|
||
fshow_text := 1;
|
||
pie_radian := array();
|
||
inherited;
|
||
clip_state := tgc_on;
|
||
fcolormap := get_default_color_list();
|
||
line_mode := tgc_on;
|
||
mark_mode := tgc_off;
|
||
fpie_type := 'pie';
|
||
fdata_bounds := array((0,1),(0,1),(0,1));
|
||
end
|
||
function get_data_bounds();override; //
|
||
begin
|
||
return fdata_bounds;
|
||
end
|
||
function paint(cvs);override;
|
||
begin
|
||
if tgc_on<> visible then return ;
|
||
bx := axes.zoom_box;
|
||
if clip_state=tgc_on then
|
||
begin
|
||
pts := array();
|
||
for i,v in graph_paint_rec_to_points( array(bx[0,0],bx[1,0],bx[0,1],bx[1,1])) do
|
||
begin
|
||
zoom_to_xyz(v[0],v[1],bx[2,0],x,y);
|
||
pts[i] := array(x,y);
|
||
end
|
||
cvs.clip_rgn(pts);
|
||
end else
|
||
begin
|
||
cvs.axesunclip();
|
||
end
|
||
xys := array();
|
||
medians := array();
|
||
wick_y := array();
|
||
outliers := array();
|
||
inliers := array(());
|
||
set_lineinfo_to_canvas(cvs);
|
||
ys := array();
|
||
prominentidx := 1;//
|
||
prominentrate := 0; //
|
||
fpei_parts_data := array();
|
||
for i,v in pie_radian do
|
||
begin
|
||
if fpie_type='pie' then
|
||
begin
|
||
pie_data := 1+get_pie_lines(v[0],v[1],i=prominentidx,prominentrate);
|
||
end
|
||
else if fpie_type='ring' then
|
||
begin
|
||
pie_data := 1+get_pie_ring_lines(v[0],v[1],0.7,0.4,i=prominentidx,prominentrate);
|
||
end
|
||
else if fpie_type='rose' then
|
||
begin
|
||
pie_data := 1+get_rose_lines(v[0],v[1],i=prominentidx,prominentrate, v[3]);
|
||
end
|
||
xys := array();
|
||
for j,v in pie_data do
|
||
begin
|
||
if not zoom_to_xyz(v[0],v[1],bx[2,0],x,y) then return ;
|
||
xys[j] := array(integer(x),integer(y));
|
||
end
|
||
index := i%length(fcolormap);
|
||
item_color := fcolormap[index];
|
||
paint_pie(cvs,xys,array("line_mode":line_mode,"color":item_color,"bkcolor":item_color,"xy0":ys));
|
||
fpei_parts_data[i] := xys;
|
||
end
|
||
end
|
||
function executecommand(cmd,p);override;
|
||
begin
|
||
case cmd of
|
||
"get_texts":
|
||
begin
|
||
return ftexts;
|
||
end
|
||
"hit_part":
|
||
begin
|
||
for i,v in fpei_parts_data do
|
||
begin
|
||
if point_in_rgn(p,v,true) then return i;
|
||
end
|
||
return -1;
|
||
end
|
||
end;
|
||
return inherited;
|
||
end
|
||
function get_legend_size(w,h);override; //获取图例大小
|
||
begin
|
||
if not pie_radian then return inherited;
|
||
sz := fontinfo.size;
|
||
h := (sz*2+6)*max(1,length(pie_radian))+5;
|
||
w := 0;
|
||
ws := 5;
|
||
for i,v in pie_radian do
|
||
begin
|
||
si :=v[2];
|
||
if ifstring(si) then ws := max((length(si))*sz,ws);
|
||
end
|
||
w +=ws;
|
||
w +=35;
|
||
end
|
||
function paint_legend(cvs,rec);override; //绘制图例
|
||
begin
|
||
set_lineinfo_to_canvas(cvs);
|
||
set_fontinfo_to_canvas(cvs);
|
||
h := fontinfo.size*2+6;// + ((h-fontinfo.size)/2);
|
||
y0 := rec[1]+h;
|
||
for i,v in pie_radian do
|
||
begin
|
||
index := i%length(fcolormap);
|
||
item_color := fcolormap[index];
|
||
xys := array((rec[0]+2,y0+i*h-3),(rec[0]+25,y0+i*h-3),(rec[0]+25,y0-h+6+i*h),(rec[0]+2,y0-h+6+i*h));
|
||
paint_pie(cvs,xys,array("line_mode":line_mode,"bar_width":fbar_width,"color":item_color,"bkcolor":item_color));
|
||
cvs.textout(v[2],array(rec[0]+30,y0+(i-1)*h+3));
|
||
end
|
||
end
|
||
property color_map read fcolormap write set_colormap;//颜色地图
|
||
property pie_type read fpie_type write set_pie_type;//类型
|
||
property show_text read fshow_text write set_show_text;
|
||
private
|
||
ftexts;
|
||
fshow_text;
|
||
pie_radian;
|
||
fpei_parts_data;
|
||
fdata_bounds;
|
||
fpie_type;
|
||
fforeground;
|
||
fbackground;
|
||
fcolormap;
|
||
protected
|
||
function set_graph_data(d);override; //设置数据
|
||
begin
|
||
if d<>fgraph_data then
|
||
begin
|
||
fdata_bounds[0,0] := 0;
|
||
fdata_bounds[1,0] := 0;
|
||
fdata_bounds[0,1] := 2;
|
||
fdata_bounds[1,1] := 2;
|
||
inherited;
|
||
data_process();
|
||
end
|
||
end
|
||
private
|
||
function set_pie_type(v);
|
||
begin
|
||
if v<>fpie_type and ( v in array("pie","rose","ring")) then
|
||
begin
|
||
fpie_type := v;
|
||
data_process();
|
||
end
|
||
end
|
||
function set_show_text(v);
|
||
begin
|
||
if v<>fshow_text and (v in array(0,1,2,3)) then
|
||
begin
|
||
fshow_text := v;
|
||
data_process();
|
||
end
|
||
end
|
||
function set_colormap(v);
|
||
begin
|
||
if ifarray(v) and v<>fcolormap then
|
||
begin
|
||
fcolormap := v;
|
||
end
|
||
end
|
||
function data_process(); //
|
||
begin
|
||
total := 0;
|
||
total_value_list := array();
|
||
for i,v in fgraph_data do
|
||
begin
|
||
total := total + v['value'];
|
||
total_value_list[i] := v['value'];
|
||
end
|
||
maxt := maxvalue(total_value_list);
|
||
currentAngle := 0;
|
||
pie_radian := array();
|
||
for i,v in ftexts do //清空
|
||
begin
|
||
v.parent := false;
|
||
end
|
||
ftexts := array();
|
||
for i,v in fgraph_data do
|
||
begin
|
||
pie_radian[i][0] := currentAngle;
|
||
rs := v['value'] / total;
|
||
pie_radian[i][1] := currentAngle + (rs) * 2 * pi();
|
||
sri := format("%3f",rs*100)+"%";
|
||
pie_radian[i][2] := mult_str(" ",7-length(sri))$sri$" "$v["name"];
|
||
pie_radian[i][3] := v['value']/maxt;
|
||
pie_radian[i][4] := currentAngle + rs * pi();
|
||
pie_radian[i][5] := (rs) * 2 * pi();
|
||
carg := currentAngle + rs * pi();
|
||
currentAngle := pie_radian[i][1];
|
||
gtx := new tg_text();
|
||
gtx.parent := self;
|
||
gtx.clip_state :=false;
|
||
case pie_type of
|
||
"rose":
|
||
begin
|
||
gtx.data := 1+array(sin(pie_radian[i][4])*pie_radian[i][3],cos(pie_radian[i][4])*pie_radian[i][3]);
|
||
end
|
||
"ring":
|
||
begin
|
||
gtx.data := 1+array(sin(pie_radian[i][4])*0.7,cos(pie_radian[i][4])*0.7);
|
||
end else
|
||
begin
|
||
gtx.data := 1+array(sin(pie_radian[i][4]),cos(pie_radian[i][4]))*0.8;
|
||
end
|
||
end ;
|
||
if carg<(pi()/4) then
|
||
begin
|
||
gtx.textalign := 8;
|
||
end else
|
||
if carg<(pi()*3/4) then
|
||
begin
|
||
gtx.textalign := 4;
|
||
end else
|
||
if carg<(pi()*5/4) then
|
||
begin
|
||
gtx.textalign := 2;
|
||
end else
|
||
if carg<(pi()*7/4) then
|
||
begin
|
||
gtx.textalign := 6;
|
||
end else gtx.textalign := 8;
|
||
case fshow_text of
|
||
1:
|
||
begin
|
||
gtx.text := array(sri);
|
||
end
|
||
2:
|
||
begin
|
||
gtx.text := array(v["name"]);
|
||
end
|
||
3:
|
||
begin
|
||
gtx.text := array(pie_radian[i][2]);
|
||
end
|
||
else
|
||
begin
|
||
gtx.text := array();
|
||
end
|
||
end;
|
||
ftexts[i] := gtx;
|
||
end
|
||
|
||
end
|
||
function get_pie_lines(arg1,arg2,prominent,prominentrate); //?????????????
|
||
begin
|
||
stp := pi()/360;
|
||
d := 1;
|
||
r := array();
|
||
r[0] := array(0,0);
|
||
idx := 1;
|
||
for i:= arg1 to arg2 step stp do
|
||
begin
|
||
r[idx++] := array(sin(i),cos(i));
|
||
end
|
||
r[idx] :=array(0,0);
|
||
if prominent then
|
||
begin
|
||
rx := r[integer(idx/2)]*prominentrate;
|
||
for i := 0 to idx do
|
||
begin
|
||
r[i]+=rx;
|
||
end
|
||
end
|
||
return r*0.8;
|
||
end
|
||
function get_rose_lines(arg1,arg2,prominent,prominentrate,proportion); //???????????????
|
||
begin
|
||
stp := pi()/360;
|
||
d := 1;
|
||
r := array();
|
||
r[0] := array(0,0);
|
||
idx := 1;
|
||
for i:= arg1 to arg2 step stp do
|
||
begin
|
||
r[idx++] := array(sin(i),cos(i));
|
||
end
|
||
r[idx] :=array(0,0);
|
||
if prominent then
|
||
begin
|
||
rx := r[integer(idx/2)]*prominentrate;
|
||
for i := 0 to idx do
|
||
begin
|
||
r[i]+=rx;
|
||
end
|
||
end
|
||
return r*proportion;
|
||
end
|
||
end
|
||
type tg_Polyradar = class(tg_graph) //雷达图
|
||
function create(pms);
|
||
begin
|
||
findicator_texts := array();
|
||
inherited;
|
||
clip_state := tgc_on;
|
||
fcolormap := get_default_color_list();
|
||
line_mode := tgc_on;
|
||
mark_mode := tgc_off;
|
||
fdata_bounds := array((0,1),(0,1),(0,1));
|
||
end
|
||
function get_data_bounds();override; //数据边界
|
||
begin
|
||
return fdata_bounds;
|
||
end
|
||
function paint(cvs);override; //绘制
|
||
begin
|
||
if tgc_on<> visible then return ;
|
||
bx := axes.zoom_box;
|
||
if clip_state=tgc_on then
|
||
begin
|
||
//cvs.axesclip();
|
||
pts := array();
|
||
for i,v in graph_paint_rec_to_points( array(bx[0,0],bx[1,0],bx[0,1],bx[1,1])) do
|
||
begin
|
||
zoom_to_xyz(v[0],v[1],bx[2,0],x,y);
|
||
pts[i] := array(x,y);
|
||
end
|
||
cvs.clip_rgn(pts);
|
||
end else
|
||
begin
|
||
cvs.axesunclip();
|
||
end
|
||
xys := array();
|
||
medians := array();
|
||
wick_y := array();
|
||
outliers := array();
|
||
inliers := array(());
|
||
set_lineinfo_to_canvas(cvs);
|
||
ys := array();
|
||
radar_indicator_radian := data_indicator_process(findicator);
|
||
draw_radar_grid(cvs,radar_indicator_radian);
|
||
|
||
for j,w in fgraph_data do
|
||
begin
|
||
vl := array();
|
||
for jj,vj in w['value'] do
|
||
begin
|
||
vl[jj] := vj/findicator[jj]['max'];
|
||
end
|
||
cl := fcolormap[j%length(fcolormap)];
|
||
cvs.pen.color := cl;
|
||
for i,v in 1+get_radar_cyclings(radar_indicator_radian,vl) do
|
||
begin
|
||
zoom_to_xyz(v[0],v[1],z,x,y) ;
|
||
xys[i] := array(x,y);
|
||
end
|
||
cvs.brush.color := cl;
|
||
cvs.brush.style := BS_SOLID;
|
||
cvs.alpha := 60+j*10;
|
||
cvs.draw_polygon().points(xys).draw();
|
||
cvs.alpha := 255;
|
||
cvs.draw_polyline().points(xys).draw();
|
||
end
|
||
end
|
||
function executecommand(cmd,p);override;
|
||
begin
|
||
case cmd of
|
||
"points_in_canvas":return (visible=tgc_on)? fline_points_in_canvas:nil; //???????
|
||
end;
|
||
return inherited;
|
||
end
|
||
|
||
function get_legend_size(w,h);override; //图例大小
|
||
begin
|
||
sz := fontinfo.size;
|
||
h := (sz*2+6)*max(1,length(fgraph_data))+5;
|
||
w := 0;
|
||
ws := 5;
|
||
for i,v in fgraph_data do
|
||
begin
|
||
si :=v["name"];
|
||
if ifstring(si) then ws := max((length(si))*sz,ws);
|
||
end
|
||
w +=ws;
|
||
w +=35;
|
||
end
|
||
function paint_legend(cvs,rec);override; //图例绘制
|
||
begin
|
||
set_lineinfo_to_canvas(cvs);
|
||
set_fontinfo_to_canvas(cvs);
|
||
h := fontinfo.size*2+6;// + ((h-fontinfo.size)/2);
|
||
y0 := rec[1]+h;
|
||
for i,v in fgraph_data do
|
||
begin
|
||
index := i%length(fcolormap);
|
||
item_color := fcolormap[index];
|
||
xys := array((rec[0]+2,y0+i*h),(rec[0]+25,y0+i*h),(rec[0]+25,y0-fontinfo.size+i*h),(rec[0]+2,y0-fontinfo.size+i*h));
|
||
paint_pie(cvs,xys,array("line_mode":line_mode,"bar_width":fbar_width,"color":item_color,"bkcolor":item_color));
|
||
cvs.textout(v["name"],array(rec[0]+30,y0+(i-1)*h));
|
||
end
|
||
end
|
||
property color_map read fcolormap write fcolormap;
|
||
property indicator read findicator write set_indicator;// 指标轴
|
||
private
|
||
fline_points_in_canvas;
|
||
fdata_bounds;
|
||
fcolormap;
|
||
fforeground;
|
||
fbackground;
|
||
findicator;
|
||
findicator_texts;
|
||
protected
|
||
function set_graph_data(d);override; //????????
|
||
begin
|
||
if d<>fgraph_data then
|
||
begin
|
||
fdata_bounds[0,0] := -0.1;
|
||
fdata_bounds[0,1] := 2.1;
|
||
fdata_bounds[1,0] := -0.2;
|
||
fdata_bounds[1,1] := 2.1;
|
||
inherited;
|
||
end
|
||
end
|
||
private
|
||
function set_indicator(v);
|
||
begin
|
||
if ifarray(v) and v<>findicator then
|
||
begin
|
||
findicator := v;
|
||
draw_indicator_text(v);
|
||
end
|
||
end
|
||
function data_indicator_process(data); //计算数据
|
||
begin
|
||
borders := Length(data);
|
||
angleStep := 2 * pi() / borders;
|
||
currentAngle := 0;
|
||
segments := array(0);
|
||
for i,v in data do
|
||
begin
|
||
if i=0 then continue;
|
||
currentAngle += angleStep;
|
||
segments[i] := currentAngle;
|
||
end
|
||
return segments;
|
||
end
|
||
function draw_indicator_text(data);
|
||
begin
|
||
borders := Length(data);
|
||
angleStep := 2 * pi() / borders;
|
||
currentAngle := 0;
|
||
rightVertices := array();
|
||
for i,v in findicator_texts do
|
||
begin
|
||
v.parent := nil;
|
||
end
|
||
findicator_texts := array();
|
||
for i := 0 to borders - 1 do
|
||
begin
|
||
text_indicator := 1+array(sin(currentAngle)*1,cos(currentAngle)*1);
|
||
gtx := new tg_text();
|
||
gtx.clip_state := tgc_off;
|
||
gtx.line_mode := false;
|
||
gtx.parent := self;
|
||
gtx.text := array(data[i]['name']);
|
||
gtx.data := text_indicator;
|
||
if currentAngle<(pi()/4) then
|
||
begin
|
||
gtx.textalign := 8;
|
||
end else
|
||
if currentAngle<(pi()*3/4) then
|
||
begin
|
||
gtx.textalign := 4;
|
||
end else
|
||
if currentAngle<(pi()*5/4) then
|
||
begin
|
||
gtx.textalign := 2;
|
||
end else
|
||
if currentAngle<(pi()*7/4) then
|
||
begin
|
||
gtx.textalign := 6;
|
||
end else gtx.textalign := 8;
|
||
//gtx.font_angle := currentAngle-pi()*3/4;
|
||
currentAngle := currentAngle + angleStep;
|
||
findicator_texts[i] := gtx;
|
||
end
|
||
end
|
||
function get_radar_cyclings(iradar,r1);
|
||
begin
|
||
vis := array();
|
||
r := array();
|
||
for i,vi in iradar do
|
||
begin
|
||
if ifarray(r1) then rx := r1[i];
|
||
else rx := r1;
|
||
x0 := sin(vi)*rx;
|
||
y0 := cos(vi)*rx;
|
||
r[i] := array(x0,y0);
|
||
end
|
||
r[length(r)] := r[0];
|
||
return r;
|
||
end
|
||
function draw_radar_grid(cvs,iradar);
|
||
begin
|
||
bx := axes.zoom_box;
|
||
z := bx[2,0];
|
||
vis := array();
|
||
set_lineinfo_to_canvas(cvs);
|
||
for i,vi in iradar do
|
||
begin
|
||
x0 := sin(vi);
|
||
y0 := cos(vi);
|
||
if not zoom_to_xyz(x0+1,y0+1,z,x,y) then return ;
|
||
zoom_to_xyz(1,1,z,x1,y1);
|
||
cvs.moveto(array(x1,y1));
|
||
cvs.lineto(array(x,y));
|
||
end
|
||
n := 4;
|
||
st := 1/n;
|
||
for i := 1 to n do
|
||
begin
|
||
for i,v in 1+get_radar_cyclings(iradar,i*st) do
|
||
begin
|
||
zoom_to_xyz(v[0],v[1],z,x,y) ;
|
||
if i=0 then cvs.moveto(x,y);
|
||
else cvs.lineto(x,y);
|
||
end
|
||
end
|
||
end
|
||
end
|
||
type tg_Polytree = class(tg_graph) //树图对象
|
||
function create(pms);
|
||
begin
|
||
inherited;
|
||
clip_state := tgc_on;
|
||
line_mode := tgc_on;
|
||
mark_mode := tgc_off;
|
||
fshow_text := tgc_on;
|
||
fdata_bounds := array((0,50),(0,50),(0,50));
|
||
fnode_space_x := 50;
|
||
end
|
||
function get_data_bounds();override; //数据边界
|
||
begin
|
||
return fdata_bounds;
|
||
end
|
||
function paint(cvs);override; //绘图
|
||
begin
|
||
if tgc_on<> visible then return ;
|
||
bx := axes.zoom_box;
|
||
if clip_state=tgc_on then
|
||
begin
|
||
pts := array();
|
||
for i,v in graph_paint_rec_to_points( array(bx[0,0],bx[1,0],bx[0,1],bx[1,1])) do
|
||
begin
|
||
zoom_to_xyz(v[0],v[1],bx[2,0],x,y);
|
||
pts[i] := array(x,y);
|
||
end
|
||
cvs.clip_rgn(pts);
|
||
end else
|
||
begin
|
||
cvs.axesunclip();
|
||
end
|
||
xys := array();
|
||
set_lineinfo_to_canvas(cvs);
|
||
ys := array();
|
||
fline_points_in_canvas := xys;
|
||
render_tree(fstructure_tree, cvs, bx);
|
||
end
|
||
function executecommand(cmd,p);override;
|
||
begin
|
||
case cmd of
|
||
"points_in_canvas":return (visible=tgc_on)? fline_points_in_canvas:nil; //数据散点
|
||
end;
|
||
return inherited;
|
||
end
|
||
function firstwalk(V,Distance);override; // 第一次递归
|
||
begin
|
||
if V.NodeCount = 0 then
|
||
begin
|
||
if V.leftmost_sibling <> nil then
|
||
begin
|
||
if V.left_brother() = nil then
|
||
V.X := 0 + Distance;
|
||
else
|
||
V.X := V.left_brother().X + Distance;
|
||
end
|
||
else
|
||
V.X := 0;
|
||
end
|
||
else
|
||
begin
|
||
DefaultAncestor := V.GetNodeByIndex(0);
|
||
for i := 0 to V.NodeCount-1 do
|
||
begin
|
||
firstwalk(V.GetNodeByIndex(i), Distance);
|
||
DefaultAncestor := apportion(V.GetNodeByIndex(i), DefaultAncestor, Distance);
|
||
end;
|
||
ExecuteShifts(V);
|
||
Midpoint := (V.GetNodeByIndex(0).X + V.LastChild.X) / 2;
|
||
W := V.left_brother();
|
||
if W <> nil then
|
||
begin
|
||
V.X := W.X + Distance;
|
||
V.ModVal := V.X - Midpoint;
|
||
end
|
||
else
|
||
V.X := Midpoint;
|
||
end;
|
||
return V;
|
||
end;
|
||
function apportion(V,DefaultAncestor, Distance);override; //修正子孙节点定位
|
||
begin
|
||
LeftBrother := V.left_brother();
|
||
if LeftBrother <> nil then
|
||
begin
|
||
VInnerRight := V;
|
||
VOuterRight := V;
|
||
VInnerLeft := LeftBrother;
|
||
VOuterLeft := V.leftmost_sibling;
|
||
if VOuterLeft = nil then VOuterLeft := V;
|
||
|
||
SInnerRight := V.ModVal;
|
||
SOuterRight := V.ModVal;
|
||
SInnerLeft := VInnerLeft.ModVal;
|
||
SOuterLeft := VOuterLeft.ModVal;
|
||
|
||
while (VInnerLeft.right() <> nil) and (VInnerRight.left() <> nil) do
|
||
begin
|
||
VInnerLeft := VInnerLeft.right();
|
||
VInnerRight := VInnerRight.left();
|
||
VOuterLeft := VOuterLeft.left();
|
||
VOuterRight := VOuterRight.right();
|
||
if VInnerLeft = 0 then
|
||
begin
|
||
end
|
||
if VOuterRight = 0 then
|
||
begin
|
||
end
|
||
VOuterRight.Ancestor := V;
|
||
|
||
Shift := (VInnerLeft.X + SInnerLeft) - (VInnerRight.X + SInnerRight) + Distance;
|
||
if Shift > 0 then
|
||
begin
|
||
Anc := get_ancestor(VInnerLeft, V, DefaultAncestor);
|
||
move_subtree(Anc, V, Shift);
|
||
SInnerRight := SInnerRight + Shift;
|
||
SOuterRight := SOuterRight + Shift;
|
||
end;
|
||
SInnerLeft := SInnerLeft + VInnerLeft.ModVal;
|
||
SInnerRight := SInnerRight + VInnerRight.ModVal;
|
||
SOuterLeft := SOuterLeft + VOuterLeft.ModVal;
|
||
SOuterRight := SOuterRight + VOuterRight.ModVal;
|
||
end;
|
||
|
||
if (VInnerLeft.right() <> nil) and (VOuterRight.right() = nil) then
|
||
begin
|
||
VOuterRight.Thread := VInnerLeft.right();
|
||
VOuterRight.ModVal := VOuterRight.ModVal + (SInnerLeft - SOuterRight);
|
||
end
|
||
else if (VInnerRight.left() <> nil) and (VOuterLeft.left() = nil) then
|
||
begin
|
||
VOuterLeft.Thread := VInnerRight.left();
|
||
VOuterLeft.ModVal := VOuterLeft.ModVal + (SInnerRight - SOuterLeft);
|
||
end;
|
||
DefaultAncestor := V;
|
||
end;
|
||
return DefaultAncestor;
|
||
end;
|
||
function move_subtree(WL,WR, Shift);override; //移动子树
|
||
begin
|
||
Subtrees := WR.TNumber - WL.TNumber;
|
||
_WRChange := WR.Change - (Shift / Subtrees);
|
||
WR.Change := _WRChange;
|
||
_WRShift := WR.Shift + Shift;
|
||
WR.Shift := _WRShift;
|
||
_WLChange := WL.Change + (Shift / Subtrees);
|
||
WL.Change :=_WLChange;
|
||
_WRX := WR.X + Shift;
|
||
WR.X := _WRX;
|
||
_WRModVal := WR.ModVal + Shift;
|
||
WR.ModVal := _WRModVal;
|
||
end;
|
||
function ExecuteShifts(V);override;
|
||
begin
|
||
Shift := 0;
|
||
Change := 0;
|
||
for i := V.NodeCount-1 downto 0 do
|
||
begin
|
||
W := V.GetNodeByIndex(i);
|
||
W.X := W.X + Shift;
|
||
W.ModVal := W.ModVal + Shift;
|
||
Change := Change + W.Change;
|
||
Shift := Shift + W.Shift + Change;
|
||
if Change = NAN then
|
||
if Change = -INF then
|
||
end;
|
||
end;
|
||
function get_ancestor(VIL, V, DefaultAncestor);override; //如果vil节点的祖先节点在v节点的兄弟节点中，那么返回vil的祖先节点，否则返回default_ancestor
|
||
begin
|
||
if (VIL.Ancestor <> nil) and (V.Parent <> nil) and (VIL.Ancestor.Parent = V.Parent) then
|
||
return VIL.Ancestor;
|
||
else
|
||
return DefaultAncestor;
|
||
end;
|
||
function second_walk(V, M, Depth, Min);override; //第二次遍历
|
||
begin
|
||
V.X := V.X + M;
|
||
V.Y := Depth;
|
||
if Min = -1 then
|
||
Min := V.X
|
||
else if V.X < Min then
|
||
Min := V.X;
|
||
|
||
for i := 0 to V.NodeCount-1 do
|
||
Min := second_walk(V.GetNodeByIndex(i), M + V.ModVal, Depth + 1, Min);
|
||
|
||
return Min;
|
||
end;
|
||
function third_walk(V, N);override; // 第三次遍历
|
||
begin
|
||
V.X := V.X + N;
|
||
for i := 0 to V.NodeCount-1 do
|
||
third_walk(V.GetNodeByIndex(i), N);
|
||
end;
|
||
function Buchheim(Tree);override;
|
||
begin
|
||
DT := firstwalk(Tree, 1);
|
||
Min := second_walk(DT, 0, 0, -1);
|
||
if Min < 0 then third_walk(DT, -Min);
|
||
return DT;
|
||
end;
|
||
function handle_tree(V);override;
|
||
begin
|
||
V.X := V.X * fnode_space_x;
|
||
V.X := V.X + fnode_space_x;
|
||
V.Y := V.Y * fnode_space_x;
|
||
V.Y := V.Y + fnode_space_x;
|
||
for i := 0 to V.NodeCount-1 do handle_tree(V.GetNodeByIndex(i));
|
||
end;
|
||
function render_tree(Tree,cvs, bx);override; //绘制树
|
||
begin
|
||
if Tree.ShowNode then
|
||
begin
|
||
for j := 0 to Tree.NodeCount-1 do
|
||
begin
|
||
if Tree.GetNodeByIndex(j).ShowNode then
|
||
begin
|
||
xys := array();
|
||
set_lineinfo_to_canvas(cvs);
|
||
ys := array();
|
||
//_data := array((Tree.X,Tree.Y),(Tree.X,(Tree.Y + Tree.GetNodeByIndex(j).Y) / 2),(Tree.GetNodeByIndex(j).X,(Tree.Y + Tree.GetNodeByIndex(j).Y) / 2),(Tree.GetNodeByIndex(j).X,Tree.GetNodeByIndex(j).Y));
|
||
TreeY := Tree.Y;
|
||
TreeX := Tree.X;
|
||
tndj := Tree.GetNodeByIndex(j);
|
||
Treejy := tndj.Y;
|
||
Treejx := tndj.x;
|
||
try2 := (TreeY + Treejy) / 2;
|
||
_data := array(
|
||
(TreeY, TreeX),
|
||
(try2, TreeX),
|
||
(try2, Treejx),
|
||
(Treejy, Treejx)
|
||
);
|
||
{_data := array(
|
||
(Tree.Y, Tree.X),
|
||
((Tree.Y + Tree.GetNodeByIndex(j).Y) / 2, Tree.X),
|
||
((Tree.Y + Tree.GetNodeByIndex(j).Y) / 2, Tree.GetNodeByIndex(j).X),
|
||
(Tree.GetNodeByIndex(j).Y, Tree.GetNodeByIndex(j).X)
|
||
);}
|
||
|
||
for i,v in _data do
|
||
begin
|
||
if not zoom_to_xyz(v[0],v[1],bx[2,0],x,y) then return ;
|
||
xys[i] := array(integer(x),integer(y));
|
||
end
|
||
fline_points_in_canvas := xys;
|
||
set_lineinfo_to_canvas(cvs);
|
||
paint_tree(cvs,xys,array("line_mode":line_mode,"bar_width":0,"color":lineinfo.color,"bkcolor":lineinfo.bkcolor,"xy0":ys));
|
||
mk := markinfo.clone();
|
||
if mark_mode=tgc_on and mk.size>2 then
|
||
begin
|
||
graph_paint_points(mk,cvs,array(xys[0], xys[3]));
|
||
end
|
||
if (Tree.GetNodeByIndex(j).NodeCount) then render_tree(Tree.GetNodeByIndex(j),cvs, bx);
|
||
end
|
||
end
|
||
end
|
||
end;
|
||
property node_space_x read fnode_space_x write set_node_space_x;//= "0" 柱状宽度
|
||
property show_text read fshow_text write set_show_text;//= "0" 柱状宽度
|
||
private
|
||
fline_points_in_canvas;
|
||
fdata_bounds;
|
||
fforeground;
|
||
fbackground;
|
||
fnode_space_x;
|
||
fshow_text;
|
||
fstructure_tree;
|
||
protected
|
||
function set_graph_data(d);override; //设置数据
|
||
begin
|
||
if d<>fgraph_data then
|
||
begin
|
||
test_tree := new tg_tree_node(d,nil,0,1);
|
||
Buchheim_tree := Buchheim(test_tree);
|
||
handle_tree(Buchheim_tree);
|
||
fstructure_tree := Buchheim_tree;
|
||
find_data_bounds(fstructure_tree);
|
||
//fdata_bounds[0,1] := fdata_bounds[0,1] +fnode_space_x;
|
||
//fdata_bounds[1,1] := fdata_bounds[1,1] +fnode_space_x;
|
||
inherited;
|
||
end
|
||
end
|
||
private
|
||
function set_node_space_x(v);
|
||
begin
|
||
if v >=0 and v<>fnode_space_x then
|
||
begin
|
||
fnode_space_x := v;
|
||
prop_changed("node_space_x",v);
|
||
end
|
||
end
|
||
function set_show_text(v);
|
||
begin
|
||
if not graph_paint_boolen_value(v,nv) then return ;
|
||
if nv<>fshow_text then
|
||
begin
|
||
fshow_text := nv;
|
||
find_data_bounds(fstructure_tree);
|
||
prop_changed("show_text",nv);
|
||
end
|
||
end
|
||
function find_data_bounds(Tree); //设置数据
|
||
begin
|
||
if not fstructure_tree then return ;
|
||
if Tree.ShowNode then
|
||
begin
|
||
if fshow_text = tgc_on then
|
||
begin
|
||
n := Tree.TName;
|
||
if n and ifstring(n) then
|
||
begin
|
||
if tree.ftextobj then
|
||
begin
|
||
gtx.data := array(Tree.Y, Tree.X);
|
||
end else
|
||
begin
|
||
gtx := new tg_text();
|
||
gtx.clip_state := tgc_off;
|
||
gtx.parent := self;
|
||
gtx.text := array(n);
|
||
gtx.data := array(Tree.Y, Tree.X);
|
||
tree.ftextobj := gtx;
|
||
end
|
||
end else
|
||
begin
|
||
if tree.ftextobj then
|
||
begin
|
||
tree.ftextobj.visible := false;
|
||
end
|
||
end
|
||
end
|
||
|
||
if Tree.NodeCount >0 then
|
||
begin
|
||
for j := 0 to Tree.NodeCount-1 do
|
||
begin
|
||
ndj := Tree.GetNodeByIndex(j);
|
||
//fdata_bounds[0,0] := 0;
|
||
//fdata_bounds[1,0] := 0;
|
||
fdata_bounds[0,1] := Max(fdata_bounds[0,1],ndj.Y);
|
||
fdata_bounds[1,1] := Max(fdata_bounds[1,1],ndj.X);
|
||
find_data_bounds(ndj);
|
||
end
|
||
end
|
||
end
|
||
end
|
||
end
|
||
type tg_Polysunburst = class(tg_graph) //旭日图
|
||
function create(pms);
|
||
begin
|
||
inherited;
|
||
ftext_container := array();
|
||
clip_state := tgc_on;
|
||
fcolormap := get_default_color_list();
|
||
line_mode := tgc_on;
|
||
mark_mode := tgc_off;
|
||
fbar_width := 0;
|
||
fdata_bounds := array((0,1),(0,1),(0,1));
|
||
fshow_text := tgc_on;
|
||
end
|
||
function get_data_bounds();override; //边界
|
||
begin
|
||
return fdata_bounds;
|
||
end
|
||
function paint(cvs);override; //绘制
|
||
begin
|
||
if tgc_on<> visible then return ;
|
||
bx := axes.zoom_box;
|
||
if clip_state=tgc_on then
|
||
begin
|
||
pts := array();
|
||
for i,v in graph_paint_rec_to_points( array(bx[0,0],bx[1,0],bx[0,1],bx[1,1])) do
|
||
begin
|
||
zoom_to_xyz(v[0],v[1],bx[2,0],x,y);
|
||
pts[i] := array(x,y);
|
||
end
|
||
cvs.clip_rgn(pts);
|
||
end else
|
||
begin
|
||
cvs.axesunclip();
|
||
end
|
||
xys := array();
|
||
medians := array();
|
||
wick_y := array();
|
||
outliers := array();
|
||
inliers := array(());
|
||
set_lineinfo_to_canvas(cvs);
|
||
ys := array();
|
||
CalculateCoordinates(1.0, 10.0, 0.4, 0.7, 0, 360, fgraph_data, cvs, bx);
|
||
inherited;
|
||
end
|
||
function executecommand(cmd,p);override;
|
||
begin
|
||
case cmd of
|
||
"points_in_canvas":return (visible=tgc_on)? fline_points_in_canvas:nil; //???????
|
||
end;
|
||
return inherited;
|
||
end
|
||
function CalculateCoordinates(x1, y1, r1, r2, startAngle, endAngle, node, cvs, bx);
|
||
begin
|
||
totalValue := CalculateTotalValue(node);
|
||
angle := startAngle;
|
||
_r3 := r1 + (r2 - r1);
|
||
_r4 := r2 + (r2 - r1);
|
||
ndc := node['children'];
|
||
if ndc and ifarray(ndc) then
|
||
begin
|
||
for i := 0 to length(ndc)-1 do
|
||
begin
|
||
childStartAngle := angle;
|
||
xys := array();
|
||
_portion := CalculateTotalValue(ndc[i]) / totalValue;
|
||
childEndAngle := angle +_portion * 2 * pi() * x1;
|
||
pie_data := fcenter+get_pie_ring_lines(childStartAngle,childEndAngle,r2,r1,0,0);
|
||
for j,v in pie_data do
|
||
begin
|
||
if not zoom_to_xyz(v[0],v[1],bx[2,0],x,y) then return ;
|
||
xys[j] := array(integer(x),integer(y));
|
||
zoom_to_xyz(v[0],0,0,x,y) ;
|
||
end
|
||
fline_points_in_canvas := xys;
|
||
its := ndc[i]['itemstyle']['color'];
|
||
item_color := ifnumber(its)?its: fcolormap[1];
|
||
paint_sunburst(cvs,xys,array("line_mode":line_mode,"bar_width":0,"color":0xffffff,"bkcolor":item_color,"xy0":ys));
|
||
CalculateCoordinates(_portion * x1, y1, _r3, _r4, childStartAngle, childEndAngle, ndc[i], cvs, bx);
|
||
angle := childEndAngle;
|
||
end;
|
||
end
|
||
end;
|
||
function CalculateTotalValue(node); //设置数据
|
||
begin
|
||
if node = nil then return 0;
|
||
pv := 0;
|
||
if node['value'] <> nil then pv := node['value'];
|
||
//return node['value'];
|
||
totalValue := 0;
|
||
ndc := node['children'];
|
||
if ifarray(ndc) and ndc then
|
||
begin
|
||
for i := 0 to length(ndc)-1 do
|
||
begin
|
||
totalValue := totalValue + CalculateTotalValue(ndc[i]);
|
||
end;
|
||
end
|
||
return max(pv,totalValue);
|
||
end;
|
||
function getTreeDepth(node); //获取深度
|
||
begin
|
||
ndc := node['children'];
|
||
if not(ifarray(ndc) and ndc) then
|
||
begin
|
||
return 0;
|
||
end
|
||
_deep := 0;
|
||
for i := 0 to length(ndc)-1 do
|
||
begin
|
||
_deep := Max(_deep, getTreeDepth(ndc[i]));
|
||
end
|
||
return _deep + 1;
|
||
end
|
||
function get_pie_ring_center(arg1_,arg2_,r1,r2,prominent,prominentrate); //???????????????
|
||
begin
|
||
arg := arg1_+(arg2_-arg1_)/2;
|
||
d1 := r1;
|
||
return array(sin(arg)*d1,cos(arg)*d1);
|
||
end
|
||
function get_legend_size(w,h);override;
|
||
begin
|
||
inherited ;
|
||
end
|
||
function paint_legend(cvs,rec);override;
|
||
begin
|
||
inherited;
|
||
end
|
||
property color_map read fcolormap write fcolormap;//
|
||
property show_text read fshow_text write set_show_text;//
|
||
private
|
||
ftext_container;
|
||
fline_points_in_canvas;
|
||
fdata_bounds;
|
||
fcolormap;
|
||
fshow_text;
|
||
fforeground;
|
||
fbackground;
|
||
fcenter;
|
||
protected
|
||
function set_graph_data(d);override; //设置数据
|
||
begin
|
||
if d<>fgraph_data then
|
||
begin
|
||
clear_text();
|
||
deep := getTreeDepth(d);
|
||
fcenter := deep*(0.7-0.4)+0.4;
|
||
fdata_bounds[0,0] := 0;
|
||
fdata_bounds[1,0] := 0;
|
||
fdata_bounds[0,1] := fcenter * 2;
|
||
fdata_bounds[1,1] := fcenter * 2;
|
||
inherited;
|
||
draw_text();
|
||
end
|
||
end
|
||
private
|
||
function set_show_text(v);
|
||
begin
|
||
if not graph_paint_boolen_value(v,nv) then return ;
|
||
if nv<>fshow_text then
|
||
begin
|
||
fshow_text := nv;
|
||
draw_text();
|
||
end
|
||
end
|
||
function clear_text();
|
||
begin
|
||
for i,v in ftext_container do
|
||
begin
|
||
v.parent := nil;
|
||
end
|
||
ftext_container := array();
|
||
end
|
||
function draw_text();
|
||
begin
|
||
if fshow_text = tgc_on then
|
||
begin
|
||
CalculateTextCoordinates(1.0, 10.0, 0.1, 0.4, 0, 360, fgraph_data);
|
||
end else
|
||
begin
|
||
clear_text();
|
||
end
|
||
end
|
||
function CalculateTextCoordinates(x1, y1, r1, r2, startAngle, endAngle, node);
|
||
begin
|
||
totalValue := CalculateTotalValue(node);
|
||
angle := startAngle;
|
||
_r3 := r1 + (r2 - r1);
|
||
_r4 := r2 + (r2 - r1);
|
||
textct := length(ftext_container)>0;
|
||
if ifarray(node) and node["name"] and ifstring(node["name"]) then
|
||
begin
|
||
|
||
gtx := new tg_text();
|
||
gtx.clip_state := tgc_on;
|
||
gtx.line_mode := 0;
|
||
if textct then
|
||
begin
|
||
gtx.font_angle := ((startAngle + endAngle) / 2) - pi()/2;
|
||
text_data := fcenter+get_pie_ring_center(startAngle,endAngle,r1,r2,0,0);
|
||
end else
|
||
begin
|
||
gtx.textalign := 5;
|
||
text_data := fcenter+get_pie_ring_center(startAngle,endAngle,r1/2,r2,0,0);
|
||
end
|
||
gtx.data := text_data;
|
||
gtx.parent := self;
|
||
gtx.text := array(node['name']);
|
||
ftext_container[length(ftext_container)] := gtx;
|
||
end
|
||
ndc := node['children'];
|
||
if ifarray(ndc) and ndc then
|
||
begin
|
||
for i := 0 to length(ndc)-1 do
|
||
begin
|
||
childStartAngle := angle;
|
||
_portion := CalculateTotalValue(ndc[i]) / totalValue;
|
||
childEndAngle := angle +_portion * 2 * pi() * x1;
|
||
CalculateTextCoordinates(_portion * x1, y1, _r3, _r4, childStartAngle, childEndAngle, ndc[i]);
|
||
angle := childEndAngle;
|
||
end;
|
||
end
|
||
end;
|
||
end
|
||
implementation
|
||
type tg_tree_node = class(TNode)
|
||
private
|
||
public
|
||
ftextobj;
|
||
fName;
|
||
X; // x坐标
|
||
Y; // y坐标
|
||
//fChildren;
|
||
Thread; // 线程节点，也就是指向下一个轮廓节点
|
||
ModVal; // 根据左兄弟定位的x与根据子节点中间定位的x之差
|
||
Ancestor; // 要么指向自身，要么指向所属树的根
|
||
Change;
|
||
Shift;
|
||
TNumber; // 这是它在兄弟节点中的位置索引 1...n
|
||
LmostSibling; // 最左侧的兄弟节点
|
||
ShowNode;
|
||
function Create(tree,p,depth,number);virtual;
|
||
begin
|
||
class(TNode).create();
|
||
fName := tree['name'];
|
||
ndc := tree['children'];
|
||
if ifarray(ndc) and ndc then
|
||
begin
|
||
for i,v in ndc do
|
||
begin
|
||
it := new tg_tree_node(v,self,depth+1, i+1) ;
|
||
it.parent := self;
|
||
AppendNode(it);
|
||
//self(true).fChildren := it;
|
||
end
|
||
end
|
||
X := -1;
|
||
Y := Depth;
|
||
Thread := nil;
|
||
ModVal := 0;
|
||
Ancestor := self(true);
|
||
Change := 0;
|
||
Shift := 0;
|
||
TNumber := number;
|
||
LmostSibling := nil;
|
||
ShowNode := tree['show'] = nil ? true : tree['show'];
|
||
end
|
||
function right(); // 有线程返回线程节点，否则返回最右侧的子节点，也就是树的右轮廓
|
||
begin
|
||
if self.Thread <> nil then
|
||
Result := self.Thread;
|
||
else if self.NodeCount > 0 then
|
||
Result := self.LastChild;
|
||
else
|
||
Result := nil;
|
||
return Result;
|
||
end
|
||
|
||
function left();virtual; // 有线程返回线程节点，否则返回最左侧的子节点，也就是树的左轮廓
|
||
begin
|
||
if self.Thread <> nil then
|
||
result := self.Thread;
|
||
else if self.NodeCount > 0 then
|
||
Result := self.GetNodeByIndex(0);
|
||
else
|
||
Result := nil;
|
||
return Result;
|
||
end
|
||
|
||
function left_brother(); // 获取前一个兄弟节点
|
||
begin
|
||
Result := nil;
|
||
if self.Parent = nil then
|
||
return Result;
|
||
for i := 0 to self.parent.NodeCount-1 do
|
||
begin
|
||
if self.parent.GetNodeByIndex(i) = self then
|
||
return Result;
|
||
else
|
||
Result := self.parent.GetNodeByIndex(i);
|
||
end;
|
||
return Result;
|
||
end
|
||
|
||
function get_lmost_sibling(); // 获取同一层级第一个兄弟节点，如果第一个是自身，那么返回null
|
||
begin
|
||
if (self.LmostSibling = nil) and (self.Parent <> nil) and (self <> self.Parent.GetNodeByIndex(0)) then
|
||
self.LmostSibling := self.Parent.GetNodeByIndex(0);
|
||
Result := self.LmostSibling;
|
||
return Result;
|
||
end
|
||
|
||
function destroy();override;
|
||
begin
|
||
inherited;
|
||
if ftextobj then ftextobj.parent := nil;
|
||
ftextobj := nil;
|
||
end
|
||
property TName read fName;
|
||
property leftmost_sibling read get_lmost_sibling;
|
||
end
|
||
function get_pie_ring_lines(arg1,arg2,r1,r2,prominent,prominentrate); //???????????????
|
||
begin
|
||
stp := pi()/360;
|
||
d1 := r1;
|
||
d2 := r2;
|
||
r := array();
|
||
s := array();
|
||
s_reverse := array();
|
||
//r[0] := array(0,0);
|
||
idx := 0;
|
||
for i:= arg1+(prominent?stp:0) to arg2-(prominent?stp:0) step stp do
|
||
begin
|
||
s[idx] := array(sin(i)*d2,cos(i)*d2);
|
||
r[idx++] := array(sin(i)*d1,cos(i)*d1);
|
||
end
|
||
ls :=length(s);
|
||
for j,v in s do
|
||
begin
|
||
s_reverse[j] := s[ls-j-1];
|
||
end
|
||
r &= s_reverse;
|
||
if prominent then
|
||
begin
|
||
rx := r[integer(idx/2)]*prominentrate;
|
||
for i := 0 to idx do
|
||
begin
|
||
r[i]+=rx;
|
||
end
|
||
end
|
||
return r;
|
||
end
|
||
function paint_candlestick(cvs,pls,xys,cls,fdata,ifo);
|
||
begin
|
||
o := static new tg_const();
|
||
b_w_x := integer(ifo["bar_width"][0]/2);
|
||
b_w_y := integer(ifo["bar_width"][1]/2);
|
||
//cvs.brush.color := ifo["bullcolor"];
|
||
wflg := (abs(b_w_x)+abs(b_w_y))>1;
|
||
barrgn := array();
|
||
for i,v in xys do
|
||
begin
|
||
if wflg then
|
||
begin
|
||
v1 := array(v[0]-b_w_x,v[1]-b_w_y);
|
||
v2 := array(v[0]+b_w_x,v[1]+b_w_y);
|
||
v3 := array(ifo["xy0",i,0]+b_w_x,ifo["xy0",i,1]+b_w_y);
|
||
v4 := array(ifo["xy0",i,0]-b_w_x,ifo["xy0",i,1]-b_w_y);
|
||
cvs.brush.style := tgc_BS_SOLID;
|
||
upper_wick_start := fdata[i][2]>= fdata[i][1]?ifo["xy0",i]:v;
|
||
lower_wick_start := fdata[i][2]>= fdata[i][1]?v:ifo["xy0",i];
|
||
cvs.brush.color := fdata[i][2]>= fdata[i][1]?ifo["bullcolor"]:ifo["bearcolor"];
|
||
cvs.pen.color := cvs.brush.color;
|
||
v1234 := array(v1,v2,v3,v4);
|
||
barrgn[i] := v1234;
|
||
cvs.draw_polygon().points(v1234).draw();
|
||
cvs.moveto(upper_wick_start);
|
||
cvs.lineto(ifo["wick_y",i,0]); //
|
||
cvs.moveto(lower_wick_start);
|
||
cvs.lineto(ifo["wick_y",i,1]); //
|
||
end else
|
||
begin
|
||
cvs.moveto(array(ifo["xy0",i,0],ifo["xy0",i,1]));
|
||
cvs.lineto(array(ifo["xy0",i,0],ifo["xy0",i,1]));
|
||
end
|
||
end
|
||
ifo["barrgn"] := barrgn;
|
||
end
|
||
function paint_boxplot(cvs,pls,xys,cls,ifo); //
|
||
begin
|
||
o := static new tg_const();
|
||
b_w_x := integer(ifo["bar_width"][0]/2);
|
||
b_w_y := integer(ifo["bar_width"][1]/2);
|
||
barrgn := array();
|
||
wflg := (abs(b_w_x)+abs(b_w_y))>1;
|
||
for i,v in xys do
|
||
begin
|
||
if wflg then
|
||
begin
|
||
v1 := array(v[0]-b_w_x,v[1]-b_w_y);
|
||
v2 := array(v[0]+b_w_x,v[1]+b_w_y);
|
||
v3 := array(ifo["xy0",i,0]+b_w_x,ifo["xy0",i,1]+b_w_y);
|
||
v4 := array(ifo["xy0",i,0]-b_w_x,ifo["xy0",i,1]-b_w_y);
|
||
v1234 := array(v1,v2,v3,v4);
|
||
barrgn[i] := v1234;
|
||
upper_wick_start := ifo["xy0",i];
|
||
lower_wick_start := v;
|
||
cvs.pen.color := cvs.brush.color; // ???????????
|
||
cvs.draw_polygon().points(v1234).draw();
|
||
cvs.moveto(upper_wick_start);
|
||
cvs.lineto(ifo["wick_y",i,0]); // ?????10???????????????????????????wick_y
|
||
|
||
cvs.moveto(lower_wick_start);
|
||
cvs.lineto(ifo["wick_y",i,1]);
|
||
upper_bound_start := array(ifo["wick_y",i,0,0]-b_w_x,ifo["wick_y",i,0,1]-b_w_y);
|
||
upper_bound_end := array(ifo["wick_y",i,0,0]+b_w_x,ifo["wick_y",i,0,1]+b_w_y);
|
||
cvs.moveto(upper_bound_start);
|
||
cvs.lineto(upper_bound_end);
|
||
|
||
lower_bound_start := array(ifo["wick_y",i,1,0]-b_w_x,ifo["wick_y",i,1,1]-b_w_y);
|
||
lower_bound_end := array(ifo["wick_y",i,1,0]+b_w_x,ifo["wick_y",i,1,1]+b_w_y);
|
||
cvs.moveto(lower_bound_start);
|
||
cvs.lineto(lower_bound_end);
|
||
|
||
medians_start := array(ifo["medians",i,0]-b_w_x,ifo["medians",i,1]-b_w_y);
|
||
medians_end := array(ifo["medians",i,0]+b_w_x,ifo["medians",i,1]+b_w_y);
|
||
cvs.moveto(medians_start);
|
||
cvs.lineto(medians_end);
|
||
end else
|
||
begin
|
||
cvs.moveto(array(ifo["xy0",i,0],ifo["xy0",i,1]));
|
||
cvs.lineto(array(ifo["xy0",i,0],ifo["xy0",i,1]));
|
||
end
|
||
end
|
||
ifo["barrgn"] := barrgn;
|
||
end
|
||
|
||
function paint_pie(cvs,xys,ifo); //画饼
|
||
begin
|
||
cvs.brush.color := ifo["bkcolor"];
|
||
cvs.brush.style := tgc_BS_SOLID;
|
||
cvs.pen.style := 0;
|
||
cvs.pen.color := ifo["color"];
|
||
cvs.draw_polygon().points(xys).draw();
|
||
end
|
||
function paint_sunburst(cvs,xys,ifo);//画饼
|
||
begin
|
||
return paint_pie(cvs,xys,ifo);
|
||
end
|
||
function paint_tree(cvs,xys,ifo); //画树
|
||
begin
|
||
//cvs.brush.color := ifo["bkcolor"];
|
||
//cvs.pen.style := 0;
|
||
//cvs.pen.color := ifo["color"];
|
||
//cvs.pen.color := 0x0000ff;
|
||
tree := cvs.draw_bezier();
|
||
//tree.startpoint(xys[0]);
|
||
tree.addpoints(xys);
|
||
//tree.addpoints(array(xys[1]));
|
||
//tree.addpoints(array(xys[2]));
|
||
//tree.addpoints(array(xys[3]));
|
||
tree.draw();
|
||
end
|
||
function mult_str(s,n);
|
||
begin
|
||
r := s;
|
||
for i := 2 to n do //exp
|
||
begin
|
||
r+=s;
|
||
end
|
||
return r;
|
||
end
|
||
function get_default_color_list(); //获取默认的颜色列表
|
||
begin
|
||
//return array(0xc67054, 0x75cc91, 0x58c8fa, 0x6666ee, 0xdec073, 0x72a23b, 0x5284fc, 0xb4609a, 0xcc7cea);
|
||
return array(0x00CED1,0xFA8072,0x00BFFF,0xFFFFE0,0xF0FFFF,0xFDF5E6,0xFAF0E6,0xFF8C00,0xC0C0C0,0x008B8B,0xE6E6FA,0xF5DEB3,0xE9967A,0xFF00FF,0x9400D3,0x00FF00,0xDC143C,0xFF4500,0xD8BFD8,0x6B8E23,0x1E90FF,0x708090,0x00FA9A,0xFAEBD7,0xADD8E6,0x8B4513,0xFFFAFA,0x8A2BE2,0x4169E1,0x000080,0xF0FFF0,0x191970,0xF4A460,0xFFDEAD,0x0000CD,0xF5FFFA,0x8B0000,0xFF7F50,0xBA55D3,0x7CFC00,0xFFE4C4,0xDCDCDC,0x87CEEB,0x696969,0x808080,0xFF1493,0x48D1CC,0xFFF0F5,0x00008B,0xDDA0DD,0xFFA07A,0x4682B4,0xFFDAB9,0x6495ED,0xFFC0CB,0x008000,0xADFF2F,0xBDB76B,0x66CDAA,0xEE82EE,0xFFFF00,0x556B2F,0xFFB6C1,0x20B2AA,0xDB7093,0xFFFAF0,0xB22222,0x6A5ACD,0xFF6347,0x778899,0xFAFAD2,0x800080,0x00FFFF,0x006400,0x8FBC8F,0xFFFFFF,0x40E0D0,0xFFD700,0x00FF7F,0xF8F8FF,0xA0522D,0x87CEFA,0xDEB887,0x000000,0x0000FF,0xD2691E,0xFF00FF,0xF5F5F5,0xFFF5EE,0x98FB98,0xFFF8DC,0xF0F8FF,0x800000,0xBC8F8F,0x8B008B,0xD3D3D3,0x9ACD32,0xA9A9A9,0xFF69B4,0xAFEEEE,0xB8860B,0xD2B48C,0xF5F5DC,0x5F9EA0,0x228B22,0x2F4F4F,0xA52A2A,0x7FFFD4,0x90EE90,0x7B68EE,0xB0C4DE,0xF08080,0x32CD32,0x483D8B,0x9370DB,0xCD5C5C,0xDA70D6,0x808000,0x008080,0xFFE4B5,0xC71585,0x9932CC,0xFFEBCD,0xE0FFFF,0x00FFFF,0x4B0082,0xEEE8AA,0xFFE4E1,0xFFEFD5,0xDAA520,0x2E8B57,0xF0E68C,0x7FFF00,0xB0E0E6,0xFFFFF0,0xFFA500,0xFF0000,0xCD853F,0x3CB371,0xFFFACD);
|
||
end
|
||
initialization
|
||
finalization
|
||
end.
|