New Tool : Simple RTF Annotation ?

moelski · Post by **moelski** » Sun Nov 11, 2007 2:14 pm

Hi Support !

Would it be possible that you offer a simple RTF annotation tool in further releases? This would be a great enhancement !!

Narcís · Post by **Narcís** » Mon Nov 12, 2007 9:32 am

Hi Dominik,

This is already possible as you can see at the example at All Features\Welcome!\3D Canvas\RichText Drawing in the features demo.

moelski · Post by **moelski** » Mon Nov 12, 2007 11:59 am

Hi Narcis,

well that´s amazing. That solves a lot of our problems.

Would it be possible to use a wprichtext (wptools) instead of the RichEdit?

Narcís · Post by **Narcís** » Mon Nov 12, 2007 1:57 pm

Hi Dominik,

You could try replacing TRichEdit objects for wprichtext.

Narcís · Post by **Narcís** » Mon Nov 12, 2007 2:04 pm

Hi Dominik,

As you can see here doesn't seem to inherit from TRichEdit.

moelski · Post by **moelski** » Mon Nov 12, 2007 2:15 pm

Hi Narcis,

As you can see here doesn't seem to inherit from TRichEdit.

I know ...

But I thin k the only problem is this procedure.
Procedure DrawRichText(Chart:TCustomTeePanel; RichEdit:TRichEdit; R:TRect); overload;
{$IFDEF CLR}{$IFDEF ACCEPTDRAW}unsafe;{$ENDIF}{$ENDIF}
{$IFDEF ACCEPTDRAW}
const TwipsPerPixel=1440.0/96.0;
var fr : FORMATRANGE;
{$ENDIF}
begin
{$IFDEF ACCEPTDRAW}
fr.hdc := Chart.Canvas.Handle;
fr.hdcTarget := fr.hdc;
r.left :=Round(r.Left*twipsPerPixel);
r.top :=Round(r.Top*twipsPerPixel);
r.right :=Round(r.Right*twipsPerPixel);
r.bottom := Round(r.Bottom*twipsPerPixel);
fr.rc := r;
fr.rcPage := r;
fr.chrg.cpMin :=0;
fr.chrg.cpMax :=-1;

RichEdit.Perform(EM_FORMATRANGE,1,{$IFNDEF CLR}Integer{$ENDIF}(@fr));
{$ENDIF}
end;

I think the bold parts are the Problem.

Du you think I can change it to work with wptools?

Narcís · Post by **Narcís** » Mon Nov 12, 2007 2:19 pm

Hi Dominik,

We don't have WPTools here. You may want to ask them at their support site.

moelski · Post by **moelski** » Mon Nov 12, 2007 9:29 pm

hi Narcis,

Well we could live with a normal RichEdit as well.
The only important thing we need is background transparency. Did you know an RichEdit inherit from TRichEdit wich supports transparency?

This would solve all our Problems perfectly !

Narcís · Post by **Narcís** » Mon Nov 19, 2007 10:26 am

Hi Dominik,

Sorry but we don't know of any but there must be something similar. Try searching in the internet.

moelski · Post by **moelski** » Mon Nov 19, 2007 10:35 am

Hi Narcis,

I´ve found one. TRichView fits perfect our needs !