оси графика по середине

@chatterbox921 · Регистрация: 10.05.2011

Author24 — интернет-сервис помощи студентам

Здравствуйте, подскажите пожалуйста как сделать на оси Х 0 по середине, и чтобы ордината начиналась тамже?

@qazwsxedcghjgyh · 12.05.2011, 13:36

Delphi

with img1.Canvas do
  begin
    Pen.Color:=clBlack;
     MoveTo((img1.Width)div(2),20);
    LineTo((img1.Width)div(2),(img1.Height)-20);
    MoveTo(20,(img1.Height)div(2));
    LineTo(((img1.Width))-20,(img1.Height)div(2));
 
end;

@chatterbox921 · 12.05.2011, 14:18 **[ТС]**

Я строю график в chart

Delphi

procedure TForm1.N1Click(Sender: TObject);
var b,h,y:real; i,n,k:integer;
begin
k:=strtoint(spinedit1.text);
b:=strtofloat(edit1.text);
n:=strtoint(edit2.text);
a:=0.5+0.1*k-1;
x:=a;
h:=(b-a)/(n-1);
series1.Clear;
for i:=1 to n do
begin
y:=f1(x);
series1.AddXY(x,y);
x:=x+h;
end;
end;

@chatterbox921 0 / 0 / 1 Регистрация: 10.05.2011 Сообщений: 5
		1
	оси графика по середине 10.05.2011, 11:50. Показов 1187. Ответов 2 Метки нет (Все метки) Здравствуйте, подскажите пожалуйста как сделать на оси Х 0 по середине, и чтобы ордината начиналась тамже? 0

	12.05.2011, 14:18

оси графика по середине

Решение