TRichView.com

Posted: **Fri Oct 29, 2021 5:53 pm**

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?

Posted: **Fri Oct 29, 2021 7:01 pm**

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}

Posted: **Fri Oct 29, 2021 7:06 pm**

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}

Posted: **Sun Oct 31, 2021 10:20 am**

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

Posted: **Sun Oct 31, 2021 12:18 pm**

Ah thanks

Posted: **Sun Oct 31, 2021 12:31 pm**

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

Posted: **Sun Oct 31, 2021 2:18 pm**

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.

TRichView.com

RVGrINVCL RVWINGrln not compiling errors in Delphi 11 Alexandrian

RVGrINVCL RVWINGrln not compiling errors in Delphi 11 Alexandrian

Re: RVGrINVCL RVWINGrln not compiling errors in Delphi 11 Alexandrian

Re: RVGrINVCL RVWINGrln not compiling errors in Delphi 11 Alexandrian

Re: RVGrINVCL RVWINGrln not compiling errors in Delphi 11 Alexandrian

Re: RVGrINVCL RVWINGrln not compiling errors in Delphi 11 Alexandrian

Re: RVGrINVCL RVWINGrln not compiling errors in Delphi 11 Alexandrian

Re: RVGrINVCL RVWINGrln not compiling errors in Delphi 11 Alexandrian