Delphi控件的使用经验

新客网 XKER.COM 2006-07-13 来源： 收藏本文

for i:=0 to Rows do
for j:=0 to Columns do
begin
ShapeChart［i］［j］:=TShape.Create(self);
with ShapeChart［i,j］ do
begin
Parent:=Self; //此行必不可少,
否则Shape控件在屏幕显示不出
Shape:=stRectangle; // Shape控件形状为矩形
Top:=45+i*(RowSpace+ChartsHeight);
Left:=Round(180+Q［i,j］.StartTime);
//因Q［i,j］.StartTime为实数,故需进行四舍五入取整
Width:=Round(Q［i,j］.Value)
Height:=ChartsHeight;
Brush.Color:=RandomColor;
//自定义函数，说明附后
Brush.Style:=bsSolid; //设置填充方式
Enabled:=True;
end;
end;
end;

---- 注: a.Q为一记录型二维数组,定义如下:
type
TempData=Record
Value:Real;
StartTime:Real;
end;
Q:array of array of TempData
并且在另一过程已对Q的分量进行赋值。

---- b.为了区分不同的零件，Shape以不同颜色显示，此时，调用了函数RandomColor。该函数为：
function TCreateMultiCharts.RandomColor;
var
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组件，显示设备利用率(略)

• ·DELPHI删除指定目录下指定扩展名的文件
• ·垃圾清理势在必行——Java垃圾收集算法
• ·经验技巧：分享两条Delphi开发经验
• ·Delphi调用WebServices(C#)代码
• ·delphi制作的托盘程序
• ·基于Delphi的“八皇后”问题动态实现
• ·半透明窗体的制作
• ·走近Inprise/Borland
• ·COM/DCOM中如何传递数组
• ·监视剪贴板内容
• ·Linux上最新的Kylix截屏画面
• ·怎样处理数据库中的NULL
• ·在delphi中如何限制鼠标的移动区域。
• ·Delphi + Word = 数据库 + 公文处理
• ·用InstallShield制作数据库应用系统的安装程序
• ·Delphi的优点