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.
TppRichView Transparent
-
- Posts: 5
- Joined: Thu Nov 10, 2005 7:54 pm
TppRichView with background image
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
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
-
- Site Admin
- Posts: 17566
- Joined: Sat Aug 27, 2005 10:28 am
- Contact:
Open RVItem.pas, find procedure TRVTabItemInfo.DrawTab
Make its subprocedure (DrawArrow) and var section unchanged, change the beginning to:
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));