[cezer]

Добрый вечер Ув. Программисты.
Делаю свой график вот код:

Код:

var
  Form1: TForm1;
  arPxl: array [0..7]  of TPoint;
  i, j, max, a, b: Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  max := StrToInt(StringGrid1.Cells[0, 0]);
  for i:= 0 to 5 do
    for j:=0 to 0 do
      if StrToInt(StringGrid1.Cells[i, j]) > max then
        max := StrToInt(StringGrid1.Cells[i, j]);
  Label1.Caption := IntToStr(max);



image7.Refresh;
image7.Repaint;
image1.Visible:=false;
image2.Visible:=false;
image3.Visible:=false;
image4.Visible:=false;
image5.Visible:=false;
image6.Visible:=false;
Canvas.Brush.Color:=clred;

arPxl[0].X:=50;
arPxl[0].Y:=200;

arPxl[1].X:=50;
a:=round(((strtoint(StringGrid1.Cells[0, 0])/max))*100);
b:=(100-a)+100;
arPxl[1].Y:=b;
image1.Left:=arPxl[1].X-5;
image1.Top:=arPxl[1].Y-5;

arPxl[2].X:=100;
a:=round(((strtoint(StringGrid1.Cells[1, 0])/max))*100);
b:=(100-a)+100;
arPxl[2].Y:=b;
image2.Left:=arPxl[2].X-5;
image2.Top:=arPxl[2].Y-5;

arPxl[3].X:=150;
a:=round(((strtoint(StringGrid1.Cells[2, 0])/max))*100);
b:=(100-a)+100;
arPxl[3].y:=b;
image3.Left:=arPxl[3].X-5;
image3.Top:=arPxl[3].Y-5;

arPxl[4].X:=200;
a:=round(((strtoint(StringGrid1.Cells[3, 0])/max))*100);
b:=(100-a)+100;
arPxl[4].y:=b;
image4.Left:=arPxl[4].X-5;
image4.Top:=arPxl[4].Y-5;

arPxl[5].X:=250;
a:=round(((strtoint(StringGrid1.Cells[4, 0])/max))*100);
b:=(100-a)+100;
arPxl[5].y:=b;
image5.Left:=arPxl[5].X-5;
image5.Top:=arPxl[5].Y-5;

arPxl[6].X:=300;
//arPxl[6].y:=145;
a:=round(((strtoint(StringGrid1.Cells[5, 0])/max))*100);
b:=(100-a)+100;
arPxl[6].y:=b;
image6.Left:=arPxl[6].X-5;
image6.Top:=arPxl[6].Y-5;

arPxl[7].X:=300;
arPxl[7].y:=200;

image1.Hint:=(StringGrid1.Cells[0, 0]);
image2.Hint:=(StringGrid1.Cells[1, 0]);
image3.Hint:=(StringGrid1.Cells[2, 0]);
image4.Hint:=(StringGrid1.Cells[3, 0]);
image5.Hint:=(StringGrid1.Cells[4, 0]);
image6.Hint:=(StringGrid1.Cells[5, 0]);

Canvas.Polygon(arPxl);
image1.Visible:=true;
image2.Visible:=true;
image3.Visible:=true;
image4.Visible:=true;
image5.Visible:=true;
image6.Visible:=true;
Canvas.Polygon(arPxl);

end;

Вот исходники: График.rar

подскажите как сделать этот график универсальным.
А именно... Добавление сколько угодно в стринг грид данных, сколько угодно вспомогательных точек(image1 и тд). Ну вообщем чтоб он был универсальным для входных данных. За ранее спасибо.

С Уваженияем: Я.

[M.A.D.M.A.N.]

Копец блондинский код.
Нужно чтобы несколько графиков на одном холсте рисовались, с общими осями?

[cezer]

Сообщение от M.A.D.M.A.N.

Копец блондинский код.
Нужно чтобы несколько графиков на одном холсте рисовались, с общими осями?

Да уж блондинский))) Сейчас график принимает только 6 точек а как сделать все динамически чтоб я мог допустим указываю сколько точек вписываю значение и он строит график. Вот так надо(

[NumLock]

так хочешь Построитель графиков ?

[cezer]

Сообщение от NumLock

так хочешь Построитель графиков ?

Спасибо но пожалуй для меня пока слишком сложный этот самый "Построитель графиков" Есть потребность выводить столько точек сколько будет допустим добавленно в Edit. Я думал сделать все через циклы. Данамическое создание image, создание ячеек в стринггрид и тд. С созданием динамически image нашел но там не было последовательного номера для image чтоб присвоить ему координаты Top Left. как в стринггрид добавить ячейки знаю. А как все это организовать... Пока не додумался вот и прошу помощи.

[angvelem]

Сейчас пишу программу для внешней железки, потребовался график для данных из SQLite базы. Перешерстил уйму разных вариаций графиков, в итоге пришлось писать собственный - универсальных не бывает.