ADD to Preview

[Seb@stieN]

I have Add :

Code: Select all

FOnAfterRenderRTF: TNotifyEvent;
...
procedure AfterRenderRTF;
....
property OnAfterRenderRTF: TNotifyEvent read FOnAfterRenderRTF write FOnAfterRenderRTF;


IN function PaintRichText After

if Range.chrg.cpMin <> -1 then
Inc(Result);

Code: Select all

RestoreDC(FCanvas.Handle, SaveIndex);
AfterRenderRTF;
SaveIndex := SaveDC(FCanvas.Handle);


AND

Code: Select all

procedure TPrintPreview.AfterRenderRTF;
begin
    if Assigned(FOnAfterRenderRTF) then
      FOnAfterRenderRTF(Self);
end;


Is it Correct???
I Think it can util to paint over the RTF file

[Kambiz]

I think it's better to add a more general end-of-page event. What do you think?

[Seb@stieN]

I think it's better to add a more general end-of-page event. What do you think?

Yes it's..
I have add this because after i render a RichtEdit i would add some élément in the front og the page... I don't Think to add a general end_of_page...

[Seb@stieN]

What can i change tomake a more generale End Of Page?

[Kambiz]

I added the new OnEndPage event to TPrintPreview. And, the new release is available to download.

[Seb@stieN]

Thank You ! ! !
It's great Job . . .