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

TAChart: TChartListbox: Do not enforce single active series without cloShowCheckboxes option

Browse Source 
git-svn-id: trunk@31658 -
This commit is contained in:
ask 2011-07-10 10:41:37 +00:00
parent d8ce372351
commit ad6ec6e704
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/tachart/tachartlistbox.pas
View File

@ -488,8 +488,10 @@ begin
Populate; Populate;
{ in case of radiobutton mode, it is necessary to uncheck the other { in case of radiobutton mode, it is necessary to uncheck the other
series; there can be only one active series in this mode } series; there can be only one active series in this mode }
if (FCheckStyle = cbsRadioButton) and (ASender is TBasicChartSeries) then if
begin (CheckStyle = cbsRadioButton) and (cloShowCheckboxes in Options) and
(ASender is TBasicChartSeries)
then begin
index := FindSeriesIndex(ASender as TCustomChartSeries); index := FindSeriesIndex(ASender as TCustomChartSeries);
if index <> -1 then if index <> -1 then
Checked[index] := (ASender as TCustomChartSeries).Active; Checked[index] := (ASender as TCustomChartSeries).Active;