LMD components 2016.5 compiling with Delphi 11.3

[Janex72 1]

Hi all.

I have LMD components 2016.5 with sources.
I'm trying to compile under Delphi 11.3.
In some units I get error: "Missing implementation of interface method IDesignerHook.UpdateCaption".
I write this "missing" code:

 

procedure TEngine.UpdateCaption(AVisible: Boolean; AUpdateFrame: Boolean);
begin
  Inherited;
end;
procedure TEngine.UpdateDesigner;
begin
  Inherited;
end;
function  TEngine.DesignPPI(AControl: TWinControl): Integer;
begin
  Inherited;
end;
function TEngine.GetDesignerHighDPIMode: TVCLDesignerHighDPIMode;
begin
   Inherited;
end;

 

Now compiled ok, but component work very incorrect 😞
Any idea what do I wrong and what must I do?

Maybe some have source for 11.3 of this units where I get errors about interfaces an some another errors:

LMDDsgDesigner.pas

LMDTaskDlg.pas

pLMDDckPE.pas

Thanks
WBR
Janex

Edited April 9, 2023 by Janex72

[TSchnickSchnack 0]

My solution:

 

LMDDsgDesigner.pas

 

{$IFDEF LMDCOMP28}
procedure TEngine.UpdateCaption(AVisible: Boolean; AUpdateFrame: Boolean);
begin
  // Do nothing.
end;

procedure TEngine.UpdateDesigner;
begin
  // Do nothing.
end;

function TEngine.DesignPPI(AControl: TWinControl): Integer;
begin
  result := 96;
end;

function TEngine.GetDesignerHighDPIMode: TVCLDesignerHighDPIMode;
begin
  result := hdmAutoScale;
end;
{$ENDIF}

 

LMDCmps.inc

 

// 11 Alexandria
{$IFDEF VER350}
  {$DEFINE LMDCOMP_DETECT}
  {$DEFINE LMDCOMP7}
  {$DEFINE LMDCOMP9}
  {$DEFINE LMDCOMP10}
  {$DEFINE LMDCOMP11}
  {$DEFINE LMDCOMP12}
  {$DEFINE LMDCOMP14}
  {$DEFINE LMDCOMP15}
  {$DEFINE LMDCOMP16}
  {$DEFINE LMDCOMP17}
  {$DEFINE LMDCOMP18}
  {$DEFINE LMDCOMP19}
  {$DEFINE LMDCOMP20}
  {$DEFINE LMDCOMP21}
  {$DEFINE LMDCOMP22}  
  {$DEFINE LMDCOMP23}  
  {$DEFINE LMDCOMP24}
  {$DEFINE LMDCOMP25}
  {$DEFINE LMDCOMP26}
  {$DEFINE LMDCOMP27}
  {$DEFINE LMDCOMP28}
{$ENDIF}

 

Axel