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

TAChart: Update TChartListbox after change of OnPopulate event

Browse Source 
git-svn-id: trunk@31640 -
This commit is contained in:
ask 2011-07-10 06:14:11 +00:00
parent 40e5b784e4
commit e08abac28c
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/tachart/tachartlistbox.pas
View File

@ -63,6 +63,7 @@ type
procedure SetChart(AValue: TChart); procedure SetChart(AValue: TChart);
procedure SetChecked(AIndex: Integer; AValue: Boolean); procedure SetChecked(AIndex: Integer; AValue: Boolean);
procedure SetCheckStyle(AValue: TCheckBoxesStyle); procedure SetCheckStyle(AValue: TCheckBoxesStyle);
procedure SetOnPopulate(AValue: TNotifyEvent);
procedure SetShowCheckboxes(AValue: Boolean); procedure SetShowCheckboxes(AValue: Boolean);
procedure SetShowSeriesIcons(AValue: Boolean); procedure SetShowSeriesIcons(AValue: Boolean);
@ -109,7 +110,7 @@ type
read FOnCheckboxClick write FOnCheckboxClick; read FOnCheckboxClick write FOnCheckboxClick;
property OnItemClick: TChartListboxIndexEvent property OnItemClick: TChartListboxIndexEvent
read FOnItemClick write FOnItemClick; read FOnItemClick write FOnItemClick;
property OnPopulate: TNotifyEvent read FOnPopulate write FOnPopulate; property OnPopulate: TNotifyEvent read FOnPopulate write SetOnPopulate;
property OnSeriesIconClick: TChartListboxIndexEvent property OnSeriesIconClick: TChartListboxIndexEvent
read FOnSeriesIconClick write FOnSeriesIconClick; read FOnSeriesIconClick write FOnSeriesIconClick;
published published
@ -535,7 +536,7 @@ begin
end; end;
end; end;
procedure TChartlistbox.SetCheckStyle(AValue: TCheckBoxesStyle); procedure TChartListbox.SetCheckStyle(AValue: TCheckBoxesStyle);
{ selects "checkbox" or "radiobutton" styles. In radiobutton mode, only { selects "checkbox" or "radiobutton" styles. In radiobutton mode, only
one series can be visible } one series can be visible }
var var
@ -551,6 +552,13 @@ begin
Invalidate; Invalidate;
end; end;
procedure TChartListbox.SetOnPopulate(AValue: TNotifyEvent);
begin
if TMethod(FOnPopulate) = TMethod(AValue) then exit;
FOnPopulate := AValue;
Populate;
end;
procedure TChartListbox.SetShowCheckboxes(AValue: Boolean); procedure TChartListbox.SetShowCheckboxes(AValue: Boolean);
begin begin
if FShowCheckboxes = AValue then exit; if FShowCheckboxes = AValue then exit;