| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TChart [D5, WinXP]

LP ©   (2002-05-11 12:00:00) 

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

---

MBo   (2002-05-11 14:39:00) [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;

---

Наверх