Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
nikoletta
0 / 0 / 0
Регистрация: 19.12.2012
Сообщений: 17
1

Как подписать оси?

21.03.2015, 21:32. Просмотров 943. Ответов 3
Метки нет (Все метки)

Как теперь сделать засечки на осях и подписать?
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
with Image1 do
    begin
       kx:=(width-0)/(xk-x0);
       ky:=(height-0)/2;
       By:=ky;
       Bx:=-kx*x0;
       u:=Round(x0*kx+bx);
       v:=Round(Height-(y0*ky+by));
       Canvas.MoveTo(u,v);
 
While x0<xk do
           begin
            x0:=x0+0.01;
            y0:=sin(x0);
            u:=Round(x0*kx+bx);
            v:=Round(Height-(y0*ky+by));
            Image1.Canvas.LineTo(u,v);
           end;
      Image1.Canvas.MoveTo(0,Round(height/2));
      Image1.Canvas.LineTo(width,Round(height/2));
      Image1.Canvas.MoveTo(Round(bx),height);
      Image1.Canvas.LineTo(Round(bx),0);
      Image1.Canvas.TextOut(width-10,Round((height+10)/2),'X');
      Image1.Canvas.TextOut(Round(bx)-10,(5),'Y');
 
      Image1.Canvas.MoveTo(width-5,Round(height/2)-5);
      Image1.Canvas.LineTo(width,Round(height/2));
      Image1.Canvas.MoveTo(width-5,Round(height/2)+5);
      Image1.Canvas.LineTo(width,Round(height/2));
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.03.2015, 21:32
Ответы с готовыми решениями:

Построить заданную функцию и две её производных на канве формы. Необходимо начертить оси, выбрать масштаб, подписать на
Помогите пожалуйста))) Построить заданную функцию и две её производных на канве...

StringGrid: как подписать фиксированые ячейки строк?
Здравствуйте!!!!!!!! Подскажите пожалуйста как подписать в StringGrid...

Как вращать фигуру по оси
Здравствуйте! Возник такой вопрос. Как можно просто вращать фигуру вокруг...

Подписать на событие программно созданный label
привет всем)))создал програмно компонент(Label)) потом ему присвоил все...

Как в chart при построении гистограммы сделать подписи данных по оси Х?
Всем привет! Бьюсь уже 2 дня( Подскажите, как в chart при построении...

3
krapotkin
3418 / 3025 / 1047
Регистрация: 14.04.2014
Сообщений: 14,677
Записей в блоге: 15
21.03.2015, 21:39 2
засечки - это просто линии
Image1.Canvas.MoveTo(x,y);Image1.Canvas.LineTo(x1,y1);
подбери координатки

подписи
Image1.Canvas.TextOut(x, у, s);
0
nikoletta
0 / 0 / 0
Регистрация: 19.12.2012
Сообщений: 17
21.03.2015, 22:24  [ТС] 3
krapotkin, это я понимаю) я не понимаю,куда это вписывать? в цикл?
0
krapotkin
3418 / 3025 / 1047
Регистрация: 14.04.2014
Сообщений: 14,677
Записей в блоге: 15
21.03.2015, 22:44 4
цикл - действие, повторяющееся несколько раз,
если засечки повторяются несколько раз, то... ?

подписи к осям - явно 1 раз
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.03.2015, 22:44

TChart. Как взять значение точки на оси Х под курсором мыши
Здравствуйте. Не могу узнать значение при наведении курсора на BottomAxis, где...

координатные оси
Даны координаты точки, не лежащей на координатных осях OX и OY. Определит номер...

координатные оси
Даны координаты точки, не лежащей на координатных осях OX и OY. Определит номер...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru