Улучшение Plotter

Форумы Делаем компонентыУлучшение Plotter ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 1926

Рейтинг: 172

#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. На форуме запрещено попрошайничество, просьбы перевести любые виды электронных или игровых валют.

карма: 9

Учебник по HiAsm | Видеоуроки | Мои программы

файлы: 1 plotter103.rar [3.7KB] [448]

Ответов: 8919

Рейтинг: 823

#2: 2019-11-26 21:49:11 ЛС | профиль | цитата

И выбор управления масштабированием:

График_XE.jpg

карма: 19

Голосовали:

Tad

Ответов: 1926

Рейтинг: 172

#3: 2019-11-27 07:57:43 ЛС | профиль | цитата

Леонид, это где такое? На SVN не увидел.

карма: 9

Учебник по HiAsm | Видеоуроки | Мои программы

Ответов: 8919

Рейтинг: 823

#4: 2019-11-27 10:52:45 ЛС | профиль | цитата

3042, это у меня на компьютере

Однажды потребовалось растягивать только по оси X, пришлось сделать

карма: 19

Разработчик

Ответов: 26113

Рейтинг: 2126

#5: 2019-11-27 15:40:10 ЛС | профиль | цитата

3042 писал(а):

обновляем на SVN?

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

карма: 22

Голосовали:

3042

Ответов: 1926

Рейтинг: 172

#6: 2019-11-29 02:45:18 ЛС | профиль | цитата

http://svn.hiasm.com/packs/delphi/code/hiPlotter.pas
Здесь _prop_MouseControl:boolean; и никаких намёков на TrueX, TrueY и т.д. nesco, где?

карма: 9

Учебник по HiAsm | Видеоуроки | Мои программы

Ответов: 16884

Рейтинг: 1239

#7: 2019-11-29 08:47:02 ЛС | профиль | цитата

3042 писал(а):

nesco, где

Леонид писал(а):

это у меня на компьютере

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 8919

Рейтинг: 823

#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

карма: 19

Форумы Делаем компонентыУлучшение Plotter ← Ctrl1Ctrl →


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