In Delphi 13.1 unit \jvcl\run\JvExExtCtrls.pas not compiles

[alan008]

@obones

In Delphi 13.1 TSplitter's Control property is a read-only property:

\embarcadero\studio\37.0\SOURCE\VCL\Vcl.ExtCtrls.pas

TSplitter
    property Control: TControl read FControl;

In \jvcl\run\JvExExtCtrls.pas there are some places in code, which try to assign value to a Control property. I.e.:

procedure SplitterMouseDownFix(Splitter: TSplitter);
var
  Control: TControl;
...
begin
  if Splitter.Align in [alLeft, alTop] then
  begin
    Control := nil;  // NOT COMPILES !

[obones]

Hello

First of all, this is not in the right project, this is the JCL one here.

But most important, I'm very surprised this does not compile because Control is a local variable so there is absolutely no reason this would access the Control property from anywhere else.

[alan008]

Somehow "with Splitter do" has more priority over local variable in Delphi 13 )

  with Splitter do
  begin
    if Align in [alLeft, alTop] then
    begin
      Control := nil;

Sorry for the wrong project (((

[obones]

But there is no with in the source code:
https://github.com/project-jedi/jvcl/blob/7871ac04b17bb3fbc52468b1e62c001890f5a193/jvcl/run/JvExExtCtrls.pas#L5853

This has been like this since June 2025: project-jedi/jvcl@e72df45

It feels like you are not using a version that is compatible with Delphi 13.

[alan008]

You are completely true. The project was configured to use JEDI older sources. With current trunk sources all is OK. Thank you again!