TppRichView Transparent

General TRichView support forum. Please post your questions here
Post Reply
kleberhenrique
Posts: 5
Joined: Thu Nov 10, 2005 7:54 pm

TppRichView Transparent

Post by kleberhenrique »

Hello, forgive me for the late...

Some days ago I've sent the following message:

Hello,
In my report (RBuilder) I have a TppRichView placed on the detail band where I show some text and a TppImage inside the PageStyle where I show the Image Background.
I've seted the ppRichView.Transparent to True, it works fine, except when I have TAB, the spaces generated by the tabulation marks are printed as a white rectangle (not transparent).
Is there any way to solve this?
^^^

You asked me about the version of TRichView that I'm using: I'm using the version 1.9.19

Tks.
kleberhenrique
Posts: 5
Joined: Thu Nov 10, 2005 7:54 pm

TppRichView with background image

Post by kleberhenrique »

Hello,

I'm sorry if I'm bugging you, but I really need this information...

>>>>>
In my report (RBuilder) I have a TppRichView placed on the detail band where I show some text and a TppImage inside the PageStyle where I show the Image Background.
I've seted the ppRichView.Transparent to True, it works fine, except when I have TAB, the spaces generated by the tabulation marks are printed as a white rectangle (not transparent).
Is there any way to solve this?
^^^

You asked me about the version of TRichView that I'm using: I'm using the version 1.9.19

Tks in advance.

Kleber
Sergey Tkachenko
Site Admin
Posts: 17566
Joined: Sat Aug 27, 2005 10:28 am
Contact:

Post by Sergey Tkachenko »

Open RVItem.pas, find procedure TRVTabItemInfo.DrawTab
Make its subprocedure (DrawArrow) and var section unchanged, change the beginning to:

Code: Select all

begin
  ATextStyleNo := GetActualStyleNo(Style);
  Style.ApplyStyleColor(Canvas, ATextStyleNo, TextDrawState, Printing, ColorMode);
  Style.ApplyStyle(Canvas, ATextStyleNo, rvbdUnspecified, CanUseCustomPPI);
  if (Canvas.Brush.Color<>clNone) and (Canvas.Brush.Style<>bsClear)  then
    Canvas.FillRect(Bounds(x, y, dli.Width, dli.Height));
Post Reply