Текущий архив: 2002.05.23;
Скачать: CL | DM;

Вниз

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;

---

Страницы: 1 вся ветка

Текущий архив: 2002.05.23;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.012 c