Вверх ↑
Этот топик читают: Гость
Ответов: 1886
Рейтинг: 164
#1: 2019-11-26 16:58:21 ЛС | профиль | цитата
Особачил GridX и GridY, теперь можно задавать динамически.
nesco, обновляем на SVN?


Add(MainForm,6227151,413,266)
{
Caption="Linear graph"
link(onCreate,10143007:doFor,[])
}
Add(Plotter,11338811,539,224)
{
Left=5
Width=350
Height=200
Align=2
Name="plotter"
Point(doGridX)
Point(doGridY)
}
Add(PlotLines,1112638,539,280)
{
Grapher="plotter"
Step=1
}
Add(For,10143007,490,280)
{
End=10
link(onEvent,1112638:doAdd,[])
}
Add(TrackBar,9537455,469,196)
{
Left=10
Top=205
Width=145
Max=50
Min=2
Position=10
link(onPosition,11338811:doGridX,[(520,202)(520,237)])
}
Add(TrackBar,945425,469,238)
{
Left=160
Top=205
Width=145
Max=50
Min=2
Position=10
link(onPosition,11338811:doGridY,[])
}
2.7.1. На форуме запрещено попрошайничество, просьбы перевести любые виды электронных или игровых валют.

карма: 7
0
файлы: 1plotter103.rar [3.7KB] [154]
vip
#1.1контекстная реклама от партнеров
Ответов: 8593
Рейтинг: 795
#2: 2019-11-26 21:49:11 ЛС | профиль | цитата
И выбор управления масштабированием:
График_XE.jpg
карма: 18

1
Голосовали:Tad
Ответов: 1886
Рейтинг: 164
#3: 2019-11-27 07:57:43 ЛС | профиль | цитата
Леонид, это где такое? На SVN не увидел.
карма: 7
0
Ответов: 8593
Рейтинг: 795
#4: 2019-11-27 10:52:45 ЛС | профиль | цитата
3042, это у меня на компьютере Однажды потребовалось растягивать только по оси X, пришлось сделать
карма: 18

0
Разработчик
Ответов: 25654
Рейтинг: 2085
#5: 2019-11-27 15:40:10 ЛС | профиль | цитата
3042 писал(а):
обновляем на SVN?

Это было добавлено еще в ревизии 2250 от 04.06.2018
карма: 19

1
Голосовали:3042
Ответов: 1886
Рейтинг: 164
#6: 2019-11-29 02:45:18 ЛС | профиль | цитата
http://svn.hiasm.com/packs/delphi/code/hiPlotter.pas
Здесь _prop_MouseControl:boolean; и никаких намёков на TrueX, TrueY и т.д. nesco, где?
карма: 7
0
Ответов: 16884
Рейтинг: 1237
#7: 2019-11-29 08:47:02 ЛС | профиль | цитата
3042 писал(а):
nesco, где

Леонид писал(а):
это у меня на компьютере

карма: 24
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 8593
Рейтинг: 795
#8: 2019-11-29 10:59:51 ЛС | профиль | цитата
А на компьютере вот это:
Plotter

ini:
MouseControl=Управление режимом отображения графиков с помощью мыши|4|0|TrueXY,TrueX,TrueY,False

code:
procedure THIPlotter._onMouseWheel;
var h:real;
i:real;
begin
inherited;
if _prop_MouseControl=3 then exit;
i := (integer(Mouse.Shift) / $1000)*0.0001;
if ((_prop_MouseControl=0) or (_prop_MouseControl=2)) then
begin
h := _prop_MaxH - (_prop_MaxH - _prop_MinH) * (FStartPos.y - _prop_TopMargin)/(Control.Height - _prop_TopMargin - _prop_BottomMargin);
_prop_MaxH := _prop_MaxH - i*(_prop_MaxH - h);
_prop_MinH := _prop_MinH - i*(_prop_MinH - h);
end;
if ((_prop_MouseControl=0) or (_prop_MouseControl=1)) then
begin
h := _prop_MinW + (_prop_MaxW - _prop_MinW) * (FStartPos.x - _prop_LeftMargin)/(Control.Width - _prop_LeftMargin - _prop_RightMargin);
_prop_MaxW := _prop_MaxW - i*(_prop_MaxW - h);
_prop_MinW := _prop_MinW - i*(_prop_MinW - h);
end;
ReDraw;
end;
Или полностью *.ini и *.pas https://forum.hiasm.com/getfile/38802
карма: 18

0
8
Сообщение
...
Прикрепленные файлы
(файлы не залиты)