paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-04 21:18:15 +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 Chart = Chart
OnCheckboxClick = ChartListboxCheckboxClick OnCheckboxClick = ChartListboxCheckboxClick
OnItemClick = ChartListboxItemClick OnItemClick = ChartListboxItemClick
OnSeriesIconClick = ChartListboxSeriesIconClick OnSeriesIconDblClick = ChartListboxSeriesIconDblClick
Align = alClient Align = alClient
ItemHeight = 0 ItemHeight = 0
TabOrder = 2 TabOrder = 2

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

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

10
components/tachart/tachartlistbox.pas
View File

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