paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-20 08:59:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Remove TChartListBox.Notification method

Browse Source 
It duplicated listener's functionality and was not registered anyway.

git-svn-id: trunk@31635 -
This commit is contained in:
ask 2011-07-10 03:21:12 +00:00
parent cbf4bd53aa
commit d8477e5555
1 changed files with 0 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/tachart/tachartlistbox.pas
View File

@ -72,8 +72,6 @@ type
procedure KeyDown(var AKey: Word; AShift: TShiftState); override;
procedure MouseDown(
AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer); override;
procedure Notification(
AComponent: TComponent; AOperation: TOperation); override;
protected
procedure CalcRects(
const AItemRect: TRect; out ACheckboxRect, ASeriesIconRect: TRect);
@ -447,15 +445,6 @@ begin
end;
end;
procedure TChartListbox.Notification(
AComponent: TComponent; AOperation: TOperation);
{ avoids AV if Chart is deleted from its container form }
begin
if (AOperation = opRemove) and (AComponent = FChart) then
SetChart(nil);
inherited Notification(AComponent, AOperation);
end;
procedure TChartListbox.Populate;
{ populates the listbox with all series contained in the chart. Use the event
OnPopulate if you don't omit special series from the listbox (RemoveSeries) }