|
#1
|
|||
|
|||
График
Люди помогите решить проблему. Есть некоторое количество значений (х и у) по ним надо построить график. С помощью какого компонента и как это можно сделать?
|
#2
|
|||
|
|||
График
компонент Chart
|
#3
|
|||
|
|||
по поводу TCharta можно поподробнее? Как нам координаты точек добавлять на график
|
#4
|
|||
|
|||
Кстати, я до этого на паскале писал, может кто зает есть ли в делфи компонент какой-нибудь чтоб там можно было рисовать как в паскале при инициализации графического режима.
|
#5
|
||||
|
||||
Цитата:
Только добавь сначала хотя бы один график: двойной клик на TChart и Add.. procedure TForm1.Button1Click(Sender: TObject); //процедура, где рисуеш график var i : integer; x, y : double; begin x := -50; y := 0; for i := 0 to 1000 do //êîë-âî òî÷åê begin x := x + 0.01; y := cos(x); Chart1.Series[0].AddXY(x, y); end; end; |
#6
|
||||
|
||||
Цитата:
Проще не искать компонент а сделать так: 1. Кидаешь на форму панель (TPanel) 2. А на неё изображение (TImage) 3. Для Image1 устанавливаешь свойство Align:=alClient; 4. А потом рисуешь на нём ! Т.к у тебя уже есть значения X и Y то: 1. Заливаешь изображение белым Image1.Canvas.Pen.Color:=clWhite; Image1.Canvas.Brush.Color:=clWhite; Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.He igth); 2. А после установливаешь цвет отдельной точки Image1.Canvas.Pixels[x,y]:=clRed; (например красный, да любой можно!) 3. Или рисуешь линию: Image1.Canvas.MoveTo(x1,y1); Image1.Canvas.LineTo(x2,y2); - будет нарисована линия из точки (x1,y1) в точку (x2,y2) - установить цвет: Image1.Canvas.Pen.Color:=clRed; 4. Не забывай, что координаты у TImage идут из верхнего правого угла ось X вправо ось Y вниз! |