Canvas - оси координат, масштаб

[Tonik_A]

Здравствуйте, пожалуйста, помогите дописать программу! Нужно сделать оси координат и масштаб.
Программа строит график, я задал функцию, организовал цикл, теперь не могу построить оси в Canvas и решить проблему с масштабом.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Edit3: TEdit;
    Label3: TLabel;
    Edit4: TEdit;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
  x,y:integer;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
const e=2.72;
var a,t1,t2,shag,z,itoe,i,nakop:real;
begin
nakop:=0;
a:=StrToFloat(Edit1.Text);
t1:=StrToFloat(Edit2.Text);
t2:=StrToFloat(Edit3.Text);
shag:=StrToFloat(Edit4.Text);
shag:=abs(shag);
repeat/// Тут цикл, к первому пределу прибавляет шаг, записывает в переменную nakop, как переменная станет равна второму пределу цикл прервётся.
///Отметка точки.
x:=Trunc(a*(exp(t1*ln(e)))); /// Считаю x.
y:=Trunc(a*t1*(exp(t1*ln(e)))); /// Считаю y.
Form1.Canvas.MoveTo(x,y); /// Отмечаю полученные значения на графике.
nakop:=t1+shag+nakop;
until nakop=t2;
end;
 
end.

-------------------------
Спасибо.

[ZaRDaK]

Оси

Form1.Canvas.MoveTo(Form1.Canvas.Width div 2,0);
Form1.Canvas.LineTo(Form1.Canvas.Width div 2,Form1.Canvas.Height);
Form1.Canvas.MoveTo(0 div 2,Form1.Canvas.Height div 2);
Form1.Canvas.LineTo(Form1.Canvas.Width,Form1.Canvas.Height div2);

Правда прийдётся чуток изменить систему показа графика:
ноль будет равен [Form1.Canvas.Width div 2;Form1.Canvas.Height div2]
отрицательные значения для х и у рисуются левее от нуля, и ниже нуля, соответственно.

[Tonik_A]

Спасибо. А как правильно вставить это в программу?
Если есть возможность, вставьте, пожалуйста.

[Stilet]

Глупый вопрос: А не проще взять TChart и пользоваться уже готовым и отлаженным стандартным компонентом?

[Alex_Almaty]

есть пример кода, который строит оси и разметкутолько масштаб подправь, он в пикселах.

procedure DrawXOY(Img:TImage);
var x0,y0,dx,dy,x1,y1:integer;
    f:boolean;
begin
  x0:=Img.Width shr 1;
  y0:=Img.Height shr 1;
  dx:=20;
  dy:=20;
  x1:=x0;
  y1:=y0;
  f:=false;
  with Img.Canvas do
   begin
    MoveTo(x0,y0);
    LineTo(x0+Img.Width,y0);
    LineTo(x0-Img.Width,y0);
    LineTo(x0,y0+Img.Height);
    LineTo(x0,y0-Img.Height);
     repeat
      x1:=x1+dx;
      if (x1>Img.Width) then f:=true
      else
       begin
        MoveTo(x1,y0-3);
        LineTo(x1,y0+3);
       end;
     until f;
     f:=false;

     repeat
      x1:=x1-dx;
      if (x1<0) then f:=true
      else
       begin
        MoveTo(x1,y0-3);
        LineTo(x1,y0+3);
        TextOut(x1-2,y0+2,IntToStr(x1-x0));
       end;
     until f;
     f:=false;

     repeat
      y1:=y1+dy;
      if (y1>Img.Height) then f:=true
      else
       begin
        MoveTo(x0-3,y1);
        LineTo(x0+3,y1);
       end;
     until f;
     f:=false;
     repeat
      y1:=y1-dy;
      if (y1<0) then f:=true
      else
       begin
        MoveTo(x0-3,y1);
        LineTo(x0+3,y1);
        TextOut(x0+2,y1-3,IntToStr(y0-y1));
       end;
     until f;
   end;
end;

пользуйся, мб поможет

[Tonik_A]

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

Глупый вопрос: А не проще взять TChart и пользоваться уже готовым и отлаженным стандартным компонентом?

Я тоже думал использовать TChart, это действительно удобно, но я не уверен, что с помощью TChart можно построить нужную мне функцию.
Попробую, может что и получится.

TO Alex_Almaty
Спасибо за код.

Подскажите, пожалуйста: я строю график из отрезков. Изначально я задаю положение пера. Начало второго отрезка во второй итерации цикла, есть конец первого отрезка, начало третьего отрезка в третьей итерации цикла, есть конец второго отрезка и тд.
Как мне это сделать в коде? Для построения в TChart (если он может так строить) или Canvas.

[Stilet]

Tonik_A, Какую функцию?
Я еще не сталкивался с функциями, которые нельзя построить в Chart'e

[Tonik_A]

Я затрудняюсь сказать, что там за график получится.
Я понимаю для TChart'a нужно в тело цикла добавить Chart1.Series[0].AddXY(x,y); а координаты при каждой итерации цикла будут меняться, так?
Код примет следующий вид:

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Edit3: TEdit;
    Label3: TLabel;
    Edit4: TEdit;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
  x,y:integer;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
const e=2.72;
var a,t1,t2,shag,z,itoe,i,nakop:real;
begin
nakop:=0;
a:=StrToFloat(Edit1.Text);
t1:=StrToFloat(Edit2.Text);
t2:=StrToFloat(Edit3.Text);
shag:=StrToFloat(Edit4.Text);
shag:=abs(shag);
repeat/// Тут цикл, к первому пределу прибавляет шаг, записывает в переменную nakop, как переменная станет равна второму пределу цикл прервётся.
///Отметка точки.
x:=Trunc(a*(exp(t1*ln(e)))); /// Считаю x.
y:=Trunc(a*t1*(exp(t1*ln(e)))); /// Считаю y.
Chart1.Series[0].AddXY(x,y); /// Отмечаю полученные значения на графике.
nakop:=t1+shag+nakop;
until nakop=t2;
end;
 
end.

Программа, текст которой я привёл выше зависает .
Я думаю дело в отметке координат. Я пишу: Chart1.Series[0].AddXY(x,y); устанавливаю первую точку, а вторая точка (конец первого, начало второго отрезка) должна быть во второй итерации цикла. Как это записать в программе?

[Stilet]

procedure TForm1.Button1Click(Sender: TObject);
const e=2.72;
var a,t1,t2,shag,z,itoe,i,nakop:real;
begin
nakop:=0;
a:=StrToFloat(Edit1.Text);
t1:=StrToFloat(Edit2.Text);
t2:=StrToFloat(Edit3.Text);
shag:=StrToFloat(Edit4.Text);
shag:=abs(shag);
nakop:=t1;

repeat
 x:=Trunc(a*(exp(t1*ln(e)))); /// Считаю x.
 y:=Trunc(a*t1*(exp(t1*ln(e)))); /// Считаю y.
 Chart1.Series[0].AddXY(x,y); /// Отмечаю полученные значения на графике.
 nakop:=t1+shag+nakop;
until nakop<=t2;
end;

А вообще я не понял выражение (nakop:=t1+shag+nakop...
Не проще ли nakop:=shag+nakop;

[Tonik_A]

Спасибо. Проще. Смысл в том, что я к первому пределу t1 прибавляю шаг (shag), сумму коплю в переменной nakop, как nakop станет равна второму пределу (t2) выхожу из цикла.
Если сделать shag + nakop, то копиться начнёт от нуля, а нужно что бы от первого предела.
Что то не строит, наверно не понимает где конец отрезка. А концом первого отрезка у меня должно быть начало второго, как так сделать в цикле?