TBarSeries Multibar error

[MetegrityInc]

Hi, I'm using Delphi 7, TeeChart Pro v7.

The error "Incompatible types 'TMultibar' and 'TMenubreak'" is generated by the following code:
-----

Code: Select all

var
   i : integer;
   seriesBar : TBarSeries;
begin
   for i := 0 to chtActive.SeriesCount - 1 do
      if chtActive.Series[i] is TBarSeries then
      begin
         seriesBar := chtActive.Series[i] as TBarSeries;
         Case rgpStacked.ItemIndex of
            0: seriesBar.MultiBar := mbStacked;
            1: seriesBar.MultiBar := mbSide;
            2: seriesBar.MultiBar := mbNone;
        end;
     end;
end;

----

The compiler indicates that "mbNone" is the culprit. Ideas?

Leah

[Marjan]

Hi.

The following might help:

Code: Select all

r 
   i : integer; 
   seriesBar : TBarSeries; 
begin 
   for i := 0 to chtActive.SeriesCount - 1 do 
      if chtActive.Series[i] is TBarSeries then 
      begin 
         seriesBar := chtActive.Series[i] as TBarSeries; 
         Case rgpStacked.ItemIndex of 
            0: seriesBar.MultiBar := Series.mbStacked; 
            1: seriesBar.MultiBar := Series.mbSide; 
            2: seriesBar.MultiBar := Series.mbNone; 
        end; 
     end; 
end;

[MetegrityInc]

Thanks for the quick reply. That works nicely.