(Solved) LinePen Width does not work
lazarus / 55-TAChart

----------------------------------------------------------------------
arneolav · 2021-09-12 09:08

After install Lazarus 2.2.0RC1, LinePen Width does not work, has been
ok on all prev. version.
This is a multi series chart.
Example: TLineSeries(MyChart.Series).LinePen.Width:= 2;

----------------------------------------------------------------------
wp · 2021-09-12 09:24

No, it does work. Look at the attached project.

----------------------------------------------------------------------
arneolav · 2021-09-12 11:53

I see, thanks.
Strange, can't get it to work. Hardcoded the value, but no....
Have to investigate.

----------------------------------------------------------------------
arneolav · 2021-09-13 17:04

Hi!
I have spent some hours in investigation on the LinePen.Width .
Before I start creating an example may be I can get som advices;

Have checked in  linepen_width.lpr:
 I don't have: tachartlazaruspkg, ( seems no difference );

Dropped on myForm:  TChart, TChartToolset, TChartStyles
 Defined in the Form:   LSeries: TLineSeries;

But I have to create: LSeries := TLineSeries.Create(MyChart);
and doing like this:  MyChart.AddSeries(LSeries);

Any ideas?

----------------------------------------------------------------------
wp · 2021-09-13 17:35

Attached is a runtime version of the demo program.

If this one or the demos in the TAChart demo folder
((lazarus)/components/tachart/demo) do not work either you should try
to recompile the IDE: "Tools" > "Configure Build Lazarus", in the
"Clean up" box check "Clean all" and "Switch after building to
automatically". Then click "Build". When the IDE restarts try TAChart
again.

----------------------------------------------------------------------
arneolav · 2021-09-13 17:59

Sorry, no runtime in the attached version.

Tried recompile IDE, cleanup, etc, .. but no..

----------------------------------------------------------------------
arneolav · 2021-09-14 15:14

It seems ColorEach is the problem:

As one want an other color on values under a split value colorEach is
used:
TLineSeries(LSeries).ColorEach    := cePointAndLineAfter; 

Removed ColorEach and then PenWidth does work.
But this created another problem: Color under split value is lost.

Edit:
Did a test, put a line .ColorEach in demo Linepen_width, unit1:

// Change the LinePen.Width of the red series
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  LineSeries_Red.ColorEach     := cePointAndLineAfter;        //
<--------------
  LineSeries_Red.LinePen.Width := SpinEdit1.Value;
end; 

Then LinePenWidth does not work.

----------------------------------------------------------------------
arneolav · 2021-09-16 09:40

As there is no response i'll repeate:

LinePen.Width does work when ColorEach is NOT set.
LinePen.Width does NOT work when ColorEach is set.

Is this a bug or anything?

----------------------------------------------------------------------
wp · 2021-09-16 09:52

Fixed in main (trunk) and fixes_2_2.

----------------------------------------------------------------------
arneolav · 2021-09-16 10:21

Thank's a lot!!!

Tested ok.