| View previous topic :: View next topic |
| Author |
Message |
Seb@stieN Member
Joined: 28 May 2003 Posts: 9
|
Posted: 11/05/04 20:16 Post subject: ADD to Preview |
|
|
I have Add :
| Code: | FOnAfterRenderRTF: TNotifyEvent;
...
procedure AfterRenderRTF;
....
property OnAfterRenderRTF: TNotifyEvent read FOnAfterRenderRTF write FOnAfterRenderRTF;
|
IN function PaintRichText After
| Quote: |
if Range.chrg.cpMin <> -1 then
Inc(Result);
|
| Code: |
RestoreDC(FCanvas.Handle, SaveIndex);
AfterRenderRTF;
SaveIndex := SaveDC(FCanvas.Handle);
|
AND
| Code: |
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 |
|
| Back to top |
|
 |
Kambiz Administrator

Joined: 07 Mar 2003 Posts: 362
|
Posted: 12/05/04 07:17 Post subject: |
|
|
| I think it's better to add a more general end-of-page event. What do you think? |
|
| Back to top |
|
 |
Seb@stieN Member
Joined: 28 May 2003 Posts: 9
|
Posted: 12/05/04 08:06 Post subject: |
|
|
| Quote: | | 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... |
|
| Back to top |
|
 |
Seb@stieN Member
Joined: 28 May 2003 Posts: 9
|
Posted: 12/05/04 21:59 Post subject: |
|
|
| What can i change tomake a more generale End Of Page? |
|
| Back to top |
|
 |
Kambiz Administrator

Joined: 07 Mar 2003 Posts: 362
|
Posted: 13/05/04 08:50 Post subject: |
|
|
| I added the new OnEndPage event to TPrintPreview. And, the new release is available to download. |
|
| Back to top |
|
 |
Seb@stieN Member
Joined: 28 May 2003 Posts: 9
|
Posted: 13/05/04 10:07 Post subject: |
|
|
Thank You ! ! !
It's great Job . . . |
|
| Back to top |
|
 |
|