RVGrINVCL RVWINGrln not compiling errors in Delphi 11 Alexandrian

[jgkoehn]

TRichView Version 19.5 VCL

In unit RVGrINVCL these two procedures are not compiliing.
With this message
[dcc32 Error] RVGrInVCL.pas(65): E2137 Method 'DrawImageList' not found in base class

Code: Select all

procedure DrawImageList(RVCanvas: TRVCanvas; Images: TCustomImageList;
      ImageIndex: Integer; X, Y, Width, Height: TRVCoord; BlendColor: TRVColor;
      PixelsPerInch: Integer); override;

With this message:
[dcc32 Error] RVGrInVCL.pas(68): E2137 Method 'GetImageListSize' not found in base class

Code: Select all

procedure GetImageListSize(Images: TCustomImageList;
      ImageIndex: Integer; PixelsPerInch: Integer;
      var Width, Height: Integer); override;

In unit RVWINGrln this is not compling and has this message:
[dcc32 Error] RVWinGrIn.pas(165): E2137 Method 'DrawImageList' not found in base class

Code: Select all

   procedure DrawImageList(RVCanvas: TRVCanvas; Images: TCustomImageList;
      ImageIndex: Integer; X, Y, Width, Height: TRVCoord;
      BlendColor: TRVColor; PixelsPerInch: Integer); override;

Any ideas?

[jgkoehn]

Removing the IFDEF and ENDIF in RVGrIn unit seem to make it work temporarily, what is the correct solution?

Code: Select all

    //JGK {$IFDEF RVIMAGELIST}
    procedure DrawImageList(RVCanvas: TRVCanvas; Images: TCustomImageList;
      ImageIndex: Integer; X, Y, Width, Height: TRVCoord;
      BlendColor: TRVColor; PixelsPerInch: TRVPixelsPerInch);
      virtual; abstract;
    procedure GetImageListSize(Images: TCustomImageList;
      ImageIndex: Integer; PixelsPerInch: TRVPixelsPerInch;
      var Width, Height: Integer); virtual; abstract;
    //JGK {$ENDIF}

[jgkoehn]

Also in RichView unit. I must really be messing something up or not understanding.

Code: Select all

    //JGK {$IFDEF RVIMAGELIST}
    procedure AddHotspot(const AName: TRVUnicodeString;
      ImageIndex, HotImageIndex: Integer; ImageList: TCustomImageList;
      ParaNo: Integer = -1; AVAlign: TRVVAlign = rvvaBaseline;
      const ATag: TRVTag = RVEMPTYTAG
      {$IFDEF FIREMONKEY};
      ImageWidth: TRVStyleLength = 16; ImageHeight: TRVStyleLength = 16
      {$ENDIF});
    procedure AddBullet(const AName: TRVUnicodeString; ImageIndex: Integer;
      ImageList: TCustomImageList; ParaNo: Integer = -1;
      AVAlign: TRVVAlign = rvvaBaseline; const ATag: TRVTag = RVEMPTYTAG
      {$IFDEF FIREMONKEY};
      ImageWidth: TRVStyleLength = 16; ImageHeight: TRVStyleLength = 16
      {$ENDIF});
   //JGK {$ENDIF}

[Sergey Tkachenko]

Probably you have old version of RV_Defs.inc somewhere, find it and delete.

[jgkoehn]

Ah thanks

[jgkoehn]

Is there a way I can make sure TRichView is completely uninstalled and then reinstall it?

[Sergey Tkachenko]

The standard way of uninstall should remove everything that was installed or created during compilation (the instruction from this link are for the trial version, but the full version is uninstalled simirarly).
However, I suspect that this RV_Defs.inc was copied to location of your project. Of course, TRichView uninstaller cannot delete copied files.