paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-28 22:43:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Rename TChartListbox.OnSeriesIconClick to OnSeriesIconDblClick

Browse Source 
git-svn-id: trunk@31657 -
This commit is contained in:
ask 2011-07-10 10:38:50 +00:00
parent 2518e1544d
commit d8ce372351
3 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/demo/listbox/Unit1.lfm
View File

@ -110,7 +110,7 @@ object Form1: TForm1
Chart = Chart
OnCheckboxClick = ChartListboxCheckboxClick
OnItemClick = ChartListboxItemClick
OnSeriesIconClick = ChartListboxSeriesIconClick
OnSeriesIconDblClick = ChartListboxSeriesIconDblClick
Align = alClient
ItemHeight = 0
TabOrder = 2

4
components/tachart/demo/listbox/Unit1.pas
View File

@ -53,7 +53,7 @@ type
procedure ChartListboxCheckboxClick(Sender: TObject; Index: Integer);
procedure ChartListboxClick(Sender: TObject);
procedure ChartListboxItemClick(Sender: TObject; Index: Integer);
procedure ChartListboxSeriesIconClick(Sender: TObject; Index: Integer);
procedure ChartListboxSeriesIconDblClick(Sender: TObject; Index: Integer);
procedure ChartListboxPopulate(Sender: TObject);
private
procedure CreateData;
@ -93,7 +93,7 @@ begin
[Index, ChartListbox.Series[Index].Title]));
end;
procedure TForm1.ChartListboxSeriesIconClick(Sender: TObject; Index: Integer);
procedure TForm1.ChartListboxSeriesIconDblClick(Sender: TObject; Index: Integer);
begin
Memo.Lines.Add(Format('Icon of item #%d (series "%s") clicked.',
[Index, ChartListbox.Series[Index].Title]));

10
components/tachart/tachartlistbox.pas
View File

@ -58,7 +58,7 @@ type
FOnCheckboxClick: TChartListboxIndexEvent;
FOnItemClick: TChartListboxIndexEvent;
FOnPopulate: TNotifyEvent;
FOnSeriesIconClick: TChartListboxIndexEvent;
FOnSeriesIconDblClick: TChartListboxIndexEvent;
FOptions: TChartListOptions;
FSeriesIconClicked: Integer;
function GetChecked(AIndex: Integer): Boolean;
@ -114,8 +114,8 @@ type
property OnItemClick: TChartListboxIndexEvent
read FOnItemClick write FOnItemClick;
property OnPopulate: TNotifyEvent read FOnPopulate write SetOnPopulate;
property OnSeriesIconClick: TChartListboxIndexEvent
read FOnSeriesIconClick write FOnSeriesIconClick;
property OnSeriesIconDblClick: TChartListboxIndexEvent
read FOnSeriesIconDblClick write FOnSeriesIconDblClick;
published
property Align;
// property AllowGrayed;
@ -244,8 +244,8 @@ end;
procedure TChartListbox.ClickedSeriesIcon(AIndex: Integer);
begin
if Assigned(OnSeriesIconClick) then
OnSeriesIconClick(Self, AIndex);
if Assigned(OnSeriesIconDblClick) then
OnSeriesIconDblClick(Self, AIndex);
end;
function TChartListbox.CreateLegendItems: TChartLegendItems;