Delphi控件的使用经验

Delphi控件的使用经验(6) red,green,blue:byte;
begin
red:=random(255);
green:=random(255);
blue:=random(255);
result:=red or (green shl 8) or (blue shl 16);
end;
---- (2).动态生成Charts控件的ChartSeries组件，显示设备利用率
procedure TFormMultiMachinesBurthen.
ShowMachineBurthenCharts;
var
i:Integer;
Burthen:Real;
SeriesClass:TChartSeriesClass;
NewSeries:array of TChartSeries;
begin
SetLength(NewSeries,CreateMultiCharts.Rows);
MachinesBurthenCharts.height:=200;
MachinesBurthenCharts.Width:=550;
for i:=0 to CreateMultiCharts.Rows do
begin
SeriesClass:=TBarSeries; //设置形状为三维条形图
NewSeries［i］:=SeriesClass.Create(Self);
NewSeries［i］.ParentChart:=MachinesBurthenCharts;
NewSeries［i］.Clear;
Burthen:=MachineBurthen［i］;
Burthen:=Round(Burthen*100)/100; //只取小数点后两位数字
NewSeries［i］.add(Burthen,'',NewSeries［i］.SeriesColor);
end;
end;

---- 注： (a).MachineBurthen［i］为一实型数组，其值为对应设备的利用率，已在另一函数中计算得到；
---- (b). MachinesBurthenCharts为TChart控件，在type段说明。

---- 3.程序运行结果显示

---- (1).动态生成Shape控件，显示零件排产计划图(略)

---- (2).动态生成Chart控件的ChartSeries组件，显示设备利用率(略)