TChart

← →
LP © (2002-05-11 12:00) [0]

Есть ли возможность в TChart закрашивать области, ограниченные построенными графиками?

← →
MBo © (2002-05-11 14:39) [1]

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to 49 do begin
series1.addxy(i,2*sin(i));
series2.addxy(3+i/2,cos(i));
end;
end;

procedure TForm1.Chart1AfterDraw(Sender: TObject);
var x1,y1,x2,y2:integer;
begin
x1:=series2.CalcXPosValue(series2.xvalues.MinValue);
x2:=series2.CalcXPosValue(series2.xvalues.MaxValue);
y1:=series2.CalcYPosValue(series2.yvalues.MaxValue);
y2:=series2.CalcYPosValue(series2.yvalues.MinValue);
chart1.Canvas.Pen.Color:=clLime;
chart1.Canvas.Brush.Style:=bsclear;
chart1.canvas.rectangle(x1,y1,x2,y2);
end;

TChart Найти похожие ветки