ADD to Preview

Please post bug reports, feature requests, or any question regarding the DELPHI AREA projects here.

ADD to Preview

Postby Seb@stieN » May 11th, 2004, 8:16 pm

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
Seb@stieN
Active Member
Active Member
 
Posts: 10
Joined: May 28th, 2003, 7:41 pm

Postby Kambiz » May 12th, 2004, 7:17 am

I think it's better to add a more general end-of-page event. What do you think?
User avatar
Kambiz
Administrator
Administrator
 
Posts: 2429
Joined: March 7th, 2003, 7:10 pm

Postby Seb@stieN » May 12th, 2004, 8:06 am

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
Active Member
Active Member
 
Posts: 10
Joined: May 28th, 2003, 7:41 pm

Postby Seb@stieN » May 12th, 2004, 9:59 pm

What can i change tomake a more generale End Of Page?
Seb@stieN
Active Member
Active Member
 
Posts: 10
Joined: May 28th, 2003, 7:41 pm

Postby Kambiz » May 13th, 2004, 8:50 am

I added the new OnEndPage event to TPrintPreview. And, the new release is available to download.
User avatar
Kambiz
Administrator
Administrator
 
Posts: 2429
Joined: March 7th, 2003, 7:10 pm

Postby Seb@stieN » May 13th, 2004, 10:07 am

Thank You ! ! !
It's great Job . . . :D :D :D
Seb@stieN
Active Member
Active Member
 
Posts: 10
Joined: May 28th, 2003, 7:41 pm


Return to DELPHI AREA Projects

Who is online

Users browsing this forum: Bing [Bot] and 2 guests

cron