Recompilation tool issue

[dwpss]

Fails on installation of Lazarus:

===============================================
TeeChart Pro
Compilation started: 12/14/2022 12:53:22 PM

Lazarus 2.2.4.0

Cannot recompile Lazarus package: TeeChart.pas
Free Pascal Compiler version 3.2.2 [2022/09/24] for x86_64
Copyright (c) 1993-2021 by Florian Klaempfl and others
Target OS: Win64 for x64
Compiling C:\Delphi\TeeChart Pro VCL FMX Source Code\Source\TeeChart.pas
TeeChart.pas(85,40) Error: Duplicate identifier "TEEACTIVITYGAUGE"
TeeChart.pas(85,62) Error: Duplicate identifier "TEEACTIVITYGAUGEEDIT"
Compiling ArrowCha.pas
Compiling TeEngine.pas
Compiling TeeProcs.pas
Compiling TeCanvas.pas
TeCanvas.pas(790,18) Warning: An inherited method is hidden by "SetJoinStyle(const TPenJoinStyle);"
TeCanvas.pas(3164,1) Fatal: There were 2 errors compiling module, stopping
Fatal: Compilation aborted
Error: C:\lazarus\fpc\3.2.2\bin\x86_64-win64\ppcx64.exe returned an error exitcode
EXCEPTION:
Compilation aborted.
--------------------------------------------

dwpss

[Yeray]

Hello,

Yes, I found and fixed those errors yesterday.
I've just sent you the modified units at the mail you have registered in this forum.

Please let us know if there's any other problem with it.

[dwpss]

Got past those errors, but it seems there is some pathing needed still...I have sent you the log output file since it is very long.

dwpss

[Yeray]

Hello,

The log ends with:

Compiling C:\lazarus\components\ideintf\idewindowintf.pas
idewindowintf.pas(26,3) Fatal: Can't find unit IDEOptionsIntf used by IDEWindowIntf
Fatal: Compilation aborted
Error: C:\lazarus\fpc\3.2.2\bin\x86_64-win64\ppcx64.exe returned an error exitcode

I also saw that error and didn't find how to fix it yet.
In the meanwhile, I could open the teechart.lpk package and compile and install it from the IDE.

Could you please give it a try?

Sorry for the inconvenience generated.

[dwpss]

I can install it manually in the IDE but upon use I get this error when trying to use the TeeChart Editing dialog box...

Screenshot 2022-12-15 095624.png (22.56 KiB) Viewed 12079 times

dwpss

[Yeray]

Hello,

I see the error in "Tree mode". We'll investigate what's wrong.
Meanwhile, please open the "options" and uncheck it.

lazarus_2022-12-16_08-44-11.png (7.69 KiB) Viewed 12038 times

[dwpss]

When doing so I can get a little further but upon choosing an item from the gallery it stops with...

Screenshot 2022-12-16 094742.png (91.47 KiB) Viewed 12027 times

Screenshot 2022-12-16 094311.png (19.27 KiB) Viewed 12027 times

dwpss

[Yeray]

Hello,

At TeeGally.pas, find the TTeeGallery.SwitchAlternate procedure and modify this line:

Code: Select all

      ChartListBox1.Sorted:=True;

For this:

Code: Select all

      {$IFNDEF LCL}
      ChartListBox1.Sorted:=True;
      {$ENDIF}

And rebuild the package.
I'm sorry for the inconveniences.

[Yeray]

Hello again,

The above could be considered as a fast workaround.
I've just implemented the definitive fix (I hope so) for #2578.

The fix consists on adding a couple of lines of code at TTeeGallery.CreateChartList, in TeeGally.pas unit, setting Sorted:=False befode updating the ChartListBox1 and restoring it at the end:

Code: Select all

Procedure TTeeGallery.CreateChartList(Const APage:String);      
//...
  ChartListBox1.Items.BeginUpdate;
  ChartListBox1.Sorted:=False;
  try
  //...
  finally
    ChartListBox1.Sorted:=AlternateStyle;
    ChartListBox1.Items.EndUpdate;
  end;
end;  

[dwpss]

That got rid of the sort error, but things are odd.
If you choose something from the series gallery the associated code is not generated and if you do too much in the gallery it crashes.
Here are some screenshots...

Screenshot 2022-12-19 231759.png (30.32 KiB) Viewed 11801 times

The resultant code:

Screenshot 2022-12-19 231827.png (14.85 KiB) Viewed 11801 times

After making changes to a series from the gallery, like checking "smooth" etc.:

Screenshot 2022-12-19 230806.png (30.75 KiB) Viewed 11801 times

pssdw

[dwpss]

Also, I have tried to use without the Gallery with this test...

pssdw

Code: Select all

uses
  Classes, SysUtils, Forms, Controls, ExtCtrls, Graphics, Dialogs, StdCtrls,
  TeEngine, Chart, TeeGDIPlus, Series, TeeProcs;

type

  { TForm1 }

  TForm1 = class(TForm)
    Chart1: TChart;
    Series1: TLineSeries;
    procedure FormShow(Sender: TObject);
  private
  public

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormShow(Sender: TObject);
begin
  Series1.FillSampleValues(50);
end;