Implemention Ideas for Word-style comments

roknjohn

My users have been hammering me for years to add support for document comments. While I can use bookmarks or hidden text to store the acutal comment string, I am having trouble figuring out how to display the comments in a manner similar to Word. Hover hints are not really desireable, but they are simple enough to code. Rather, I would like the comments to be displayed in the right margin. I would like them all to be visible at once and scroll with the page.

Do you have any ideas of how I might approach this?

support

Hi,

You could use the event OnWPRichText1CustomLinePaintBefore to paint some text in the margin.

One demo is using this event to paint an arrow when the paragraph uses the Keep property

Zitat

procedure TWPTBXForm.WPRichText1CustomLinePaintBefore(Sender: TObject;
RTFEngine: TWPRTFEngineBasis; Param: TWPVirtPagePaintParam;
EndOfPageRun: Boolean);
var r: TRect; o: Integer; par: TParagraph; thiskeep, prevkeep, nextkeep: Boolean; s: string;
begin
par := Param.Par;
if par.AGetDef(WPAT_ParKeep,0)<>0 then
begin
r := Param.FirstRect;
Param.Canvas.Pen.COlor := clGreen;
Param.Canvas.Pen.Width := 0;
Param.Canvas.MoveTo(r.Left-30, r.Top);
Param.Canvas.LineTo(r.Left-30, r.Bottom);
end;

Alles anzeigen