盒子论坛 v2.1

源码是这个文件夹吗 D:\TeeChart Pro VCL FMX 2023.37\sources
里面是空的啥都没有
而且我写代码的时候用ctrl按住再点那些teechart相关的关键字没反应不跳转源码不知为啥
----------------------------------------------
-

作者：

emailx45 (emailx45)	▲▲▲▲△	-
	普通会员

2023/7/27 23:19:39

5楼：

Tool ... Delphi paths:

Library Path = all folders with DCU files (release) or (PAS files)
------> used by "Compiler" to create your exe (binary)

Browse Path = all folders with PAS files
-------> used by "Editor code", LSP, Ctrl+Click

Debug Path = all folders with DCU (with debug info)
--------> used by "Debugger"
----------------------------------------------
The higher the degree, the greater the respect given to the humblest!RAD 11.3

作者：

mp654kk (mp654kk)	▲△△△△	-
	普通会员

2023/7/28 1:12:22

6楼：

@emailx45 谢谢为什么加入TAxisScrollBarTool后不能拖动呢

chart1.AddSeries(TFastLineSeries.Create(self));
chart1.AllowPanning := pmHorizontal;
Chart1.Series[0].FillSampleValues(20);
var scbar := TAxisScrollBarTool.Create(self);

  Chart1.Tools.Add(scbar);
  scbar.ParentChart := chart1;
  scbar.Axis := chart1.bottomAxis;
  scbar.ThumbSize := 50;
  scbar.MinThumbSize := 1;
  scbar.Thumb.Visible := true;
----------------------------------------------
-

作者：

emailx45 (emailx45)	▲▲▲▲△	-
	普通会员

2023/7/28 3:39:01

7楼：

@mp654kk

upload your files (project) here ... without DCU or EXE
let's try help you
----------------------------------------------
The higher the degree, the greater the respect given to the humblest!RAD 11.3

作者：

emailx45 (emailx45)	▲▲▲▲△	-
	普通会员

2023/7/28 6:06:09

8楼：

the "TAxisScrollBarTool" works when the "ZOOM" is applyed on graphic data!!!

procedure TForm1.Button1Click(Sender: TObject);
var
  FLSvalues: TFastLineSeries;
  CTbar    : TAxisScrollBarTool;
begin
  // Chart2.AllowPanning := pmNone;
  // Chart2.Panning.InsideBounds := True;
  Chart2.Cursor := crHandPoint;
  // Chart2.ScrollMouseButton := TMouseButton.mbLeft;
  //
  FLSvalues          := TFastLineSeries.Create(Self);
  FLSvalues.Marks.Transparent := true;
  FLSvalues.Marks.Visible     := true;
  FLSvalues.Marks.Clip        := true;
  //
  Chart2.AddSeries(FLSvalues);
  Chart2.Series[0].FillSampleValues(40);
  //
  CTbar := TAxisScrollBarTool.Create(Chart2);
  // CTbar.ArrowBrush.BackColor    := claDarkgray;
  CTbar.Bevel := bvNone;
  // CTbar.Brush.Color          := claWhite;
  // CTbar.Brush.BackColor         := x00F0F0F0;
  // CTbar.DisabledArrow.BackColor := claWhite;
  CTbar.DrawStyle := dsAlways;
  // CTbar.Pen.Color          := claDarkgray;
  // CTbar.Pen.Fill.Color          := claDarkgray;
  CTbar.Size := 50; // Chart2.Height + CTbar.Height = ClientArea.Height
  // CTbar.Thumb.Brush.Color       := claSilver;
  // CTbar.Thumb.Brush.BackColor   := claSilver;
  CTbar.Thumb.Pen.Visible := False;
  CTbar.Thumb.Size        := 25;
  // CTbar.ThumbBrush.Color        := claSilver;
  // CTbar.ThumbBrush.BackColor    := claSilver;
  CTbar.ThumbSize := 25;
  CTbar.Margin    := 0;
  // CTbar.AxisID    := 0;
  CTbar.ParentChart := Chart2;
end;

----------------------------------------------
The higher the degree, the greater the respect given to the humblest!RAD 11.3

作者：

mp654kk (mp654kk)	▲△△△△	-
	普通会员

2023/7/28 12:23:10

9楼：

@ emailx45 感谢您看了您的演示缩放后再滚动确实可以但我不想通过缩放再滚动而且滚动条两边的三角形按钮不管用代码发来了麻烦您看下

此帖子包含附件:mp654kk_202372812238.rar 大小:9.92M

----------------------------------------------
-

作者：

bjlg (蓝天)	★☆☆☆☆	-
	盒子活跃会员

2023/7/28 21:33:20

10楼：

1、设置 BottomAxis.Maximum =10 AutomaticMaximum =false 就可以滚动了。你设置的是每页点数，但是内设置间隔
2、Positions.Position[i]
LeftTop.Y := LeftTop.Y + 5;
但是有bug滚动会出现问题，细节在完善
----------------------------------------------
http://delphi.icm.edu.pl/ftp/http://delphi-z.ru

作者：

mp654kk (mp654kk)	▲△△△△	-
	普通会员

2023/7/29 0:07:12

11楼：

@bjlg 谢谢这样滚动是没问题了但是不知道为什么鼠标只要移动到两边的三角形按钮就报错弹出这个框

此帖子包含附件:

大小:13.1K

----------------------------------------------
-

作者：

mp654kk (mp654kk)	▲△△△△	-
	普通会员

2023/7/30 17:07:54

12楼：

这个滚动条工具还不如传统的ScrollBar好用简单一句就OK了还不会报错

procedure TForm1.ScrollBar3Change(Sender: TObject);
begin
Chart1.BottomAxis.SetMinMax(ScrollBar3.Value,ScrollBar3.Value+ 10);
end;

但是移动mark那个还是不行各位高手有办法搞吗
----------------------------------------------
-

信息

登陆以后才能回复