paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-07 09:55:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart/ChartEditor: Use new TLegendClickTool.OnSeriesClick event rather than .OnLegendClick

Browse Source
This commit is contained in:
wp_xyz 2021-10-24 11:29:29 +02:00
parent cc0800d0d0
commit 811f3994dd
2 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/tachart/demo/charteditor/cemain.lfm
View File

@ -105,7 +105,7 @@ object MainForm: TMainForm
Left = 6
Height = 19
Top = 321
Width = 177
Width = 175
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Bottom = 6
@ -117,10 +117,10 @@ object MainForm: TMainForm
AnchorSideLeft.Control = cbDoubleClick
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbDoubleClick
Left = 207
Left = 205
Height = 19
Top = 321
Width = 140
Width = 138
BorderSpacing.Left = 24
Caption = 'Use "all-in-one" dialog'
TabOrder = 2
@ -138,7 +138,7 @@ object MainForm: TMainForm
end
object ChartToolset1LegendClickTool1: TLegendClickTool
Shift = [ssLeft]
OnClick = ChartToolset1LegendClickTool1Click
OnSeriesClick = ChartToolset1LegendClickTool1SeriesClick
end
object ChartToolset1AxisClickTool1: TAxisClickTool
Shift = [ssLeft]

13
components/tachart/demo/charteditor/cemain.pas
View File

@ -46,8 +46,8 @@ type
Axis: TChartAxis; AHit: TChartAxisHitTests);
procedure ChartToolset1DataPointClickTool1PointClick(ATool: TChartTool;
APoint: TPoint);
procedure ChartToolset1LegendClickTool1Click(ASender: TChartTool;
ALegend: TChartLegend);
procedure ChartToolset1LegendClickTool1SeriesClick(ASender: TChartTool;
ALegend: TChartLegend; ASeries: TBasicChartSeries);
procedure ChartToolset1TitleFootClickTool1Click(ASender: TChartTool;
ATitle: TChartTitle);
procedure cbDoubleClickChange(Sender: TObject);
@ -172,11 +172,14 @@ begin
EditSeries(TDataPointClickTool(ATool).Series);
end;
procedure TMainForm.ChartToolset1LegendClickTool1Click(ASender: TChartTool;
ALegend: TChartLegend);
procedure TMainForm.ChartToolset1LegendClickTool1SeriesClick(
ASender: TChartTool; ALegend: TChartLegend; ASeries: TBasicChartSeries);
begin
Unused(ASender);
EditLegend(ALegend);
if ASeries = nil then
EditLegend(ALegend)
else
EditSeries(ASeries);
end;
procedure TMainForm.EditAxis(AAxis: TChartAxis; APage: TChartAxisEditorPage);