[英]TeeChart Transparency in Delphi XE2
应用于多个图表表单/面板的内容可能是这样的:
procedure TFrame3.Chart1BeforeDrawChart(Sender: TObject);
begin
MakeChartTransparent(Chart1, Back1);
end;
procedure TFrame3.Chart2BeforeDrawChart(Sender: TObject);
begin
MakeChartTransparent(Chart2, Back2);
end;
procedure TFrame3.Chart3BeforeDrawChart(Sender: TObject);
begin
MakeChartTransparent(Chart3, Back3);
end;
procedure TFrame3.MakeChartTransparent(Chart: TChart; var Back: TBitmap);
begin
if not Assigned(Back) then
begin
Back:=TBitmap.Create;
Back.Width:=Chart.Width;
Back.Height:=Chart.Height;
Back.Canvas.CopyRect(Chart.ClientRect, (Self.Parent as TForm).Canvas, Chart.BoundsRect);
end;
if Chart.Color=clNone then
Chart.Canvas.Draw(0,0,Back);
end;
procedure TFrame3.Timer1Timer(Sender: TObject);
begin
Chart1[0].FillSampleValues();
Chart2[0].FillSampleValues();
Chart3[0].FillSampleValues();
end;
请注意,需要为每个图表初始化位图。
不要忘记在表单的OnCreate事件中将图表设置为透明:
procedure TForm2.FormCreate(Sender: TObject);
begin
Frame31.Chart1.Color:=clNone;
Frame31.Chart2.Color:=clNone;
Frame31.Chart3.Color:=clNone;
end;
完整的项目在这里 。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.