[AlexKop]

Всем привет.
Нужна ваша помощь с программой
вот часть кода, всё что смог, и вроде событие OnPaint надо было, моя вина

PHP код:

procedure TForm1.Button2Click(Sender: TObject);
begin
  with canvas do
    begin
      moveto (10,10);
      pen.color:=clblack;
      lineto (10,400);
      moveto (10,400);
      lineto (400,400);
      pen.Style:=psDot;
      i:=10;
      while i<400 do
        begin
          moveto(i,10);
          lineto(i,400);
          moveto(10,i);
          lineto(400,i);
          i:=i+30;
        end;
    end;
  a:=strtoint(listbox1.items[0])*30;
  b:=strtoint(listbox1.items[1])*30;
  edit1.text:=listbox1.Items[0];
  edit2.Text:=listbox1.Items[1];
  listbox1.Items.Delete(0);
  listbox1.Items.Delete(0);
  with canvas do
  begin
    pen.Style:=psSolid;
    moveto(x,y);
    lineto(10+a, 400- b);
    x:=10+a;
    y:=400-b;
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  x:=10;
  y:=400;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  with canvas do
    begin
      pen.Style:=psSolid;
      moveto(x,y);
      lineto(10+a, 400- b);
      x:=10+a;
      y:=400-b;
    end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  button2.Enabled:=true;
  listbox1.items.LoadFromFile(filelistbox1.FileName);
end; 


и сам исходник
http://zalil.ru/31851596
Не знаю как сделать, что бы на шкале были цифры, и в зависимости от того, слишком большая кордината или слишком маленькая, подбирался определённый масштаб.
Спасибо заранее

[Bargest]

Пишу в 10000...0001-й раз.
Предлагаешь, чтобы за тебя написали программу? Вопросы задаются не в форме "Надо чтобы было так и так, напишите пожалуйста!", а в форме "Вот пытаюсь подписать цифры на графике, делаю при помощи TextOut, но выдает ошибку." При отсустствии гугла может быть такой вопрос: "Не пойму, как нарисовать цифры: смекаю, что надо в определенных координатах написать текст, но не знаю, какой функцией это делать. Подскажите пожалуйста." Но не "Сделайте мне прогу."

[AlexKop]

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

Пишу в 10000...0001-й раз.
Предлагаешь, чтобы за тебя написали программу? Вопросы задаются не в форме "Надо чтобы было так и так, напишите пожалуйста!", а в форме "Вот пытаюсь подписать цифры на графике, делаю при помощи TextOut, но выдает ошибку." При отсустствии гугла может быть такой вопрос: "Не пойму, как нарисовать цифры: смекаю, что надо в определенных координатах написать текст, но не знаю, какой функцией это делать. Подскажите пожалуйста." Но не "Сделайте мне прогу."

Да конечно, простите, писал знакомому и вставил сюда по ошибки текст, не от редактировав его. Всё что вы написали это и имелось ввиду, конечно же не надо ЗА меня делать всю программу.
Спасибо.

[Bargest]

На все, что я написал, я уже ответил. Что отметка координат делается выводом текста на Canvas, например через TextOut.
Просто по мере появления вопросов задавай их. Попробуй масштабировать, это не трудно. Если знаешь крайние значения, можно вычислить масштаб по X и по Y просто поделив ширину/высоту окна соответственно на максимальный X и Y. При построении графика все точки умножаешь на полученые числа.