Re: Hypertext in editor as in read-only mode

Author

Message

Sergey Tkachenko

Posted: 05/31/2005 22:03:15

> Hi,

> is it possible to have hyperlink text in editor mode behave like links

without

> having to press the CTRL key? (e.g. behaving as in read-only mode).

As for clicking, you can use OnRVMouseDown instead of OnJump.

But do not rely on ItemNo parameter, use GetItemAt method instead, see the

example in the help file, it the topic about OnRVMouseDown.

As for displaying hypertext cursor, include the attached file in your

project. Unfortunately, it does not work for images.

> Also, is it possible to apply custom formatting (e.g. select some text and

> change background or font) in TRichView or in editor while in read-only

mode?

> I found examples of how to do this by using ApplyTextStyle but this works

> only in non-readonly editor.

It's not possible in TRichView, if you mean modifying styles of the selected

text.

In TRichViewEdit, you can set ReadOnly to False before making changes and

restore it after them.

If you need to change color or font, use ApplyStyleConversion instead of

ApplyTextStyle, see the demo Demos\Delphi\Editors\Editor 2\

begin 666 ForceHyperText.pas

M=6YI="!&;W)C94AY<&5R5&5X=#L-"@T*:6YT97)F86-E#0IU<V5S($-L87-S

M97,L(%)64W1Y;&4L4E9)=&5M+"!#4E9&1&%T82P@1F]R;7,L(%)I8VA6:65W

M.PT*#0IT>7!E#0H@(%125E1E>'1)=&5M26YF;T5X(#T@8VQA<W,@*%125E1E

M>'1)=&5M26YF;RD-"B @("!P<FEV871E#0H@(" @<'5B;&EC#0H@(" @("!F

M=6YC=&EO;B!-;W5S94UO=F4H4VAI9G0Z(%13:&EF=%-T871E.R!8+%DL($ET

M96U.;SH@26YT96=E<CL@4E9$871A.B!43V)J96-T*3I";V]L96%N.R!O=F5R

M<FED93L-"B @96YD.PT*#0II;7!L96UE;G1A=&EO;@T*#0IU<V5S($=R87!H

M:6-S.PT*#0I[(%125E1E>'1)=&5M26YF;T5X('T-"@T*+R\@<F5T=7)N('9A

M;'5E.B!C=7)S;W(@:7,@8VAA;F=E9 T*9G5N8W1I;VX@5%)65&5X=$ET96U)

M;F9O17@N36]U<V5-;W9E*%-H:69T.B!44VAI9G13=&%T93L@6"P@62P-"B @

M271E;4YO.B!);G1E9V5R.R!25D1A=&$Z(%1/8FIE8W0I.B!";V]L96%N.PT*

M=F%R(%)64W1Y;&4Z(%125E-T>6QE.PT*8F5G:6X-"B @4E93='EL92 Z/2!4

M0W5S=&]M4E9&;W)M871T961$871A*%)61&%T82DN1V5T4E93='EL93L-"B @

M4F5S=6QT(#H]($=E=$)O;VQ686QU945X*')V8G!*=6UP+"!25E-T>6QE*3L-

M"B @:68@4F5S=6QT('1H96X-"B @("!40W5S=&]M4E9&;W)M871T961$871A

M*%)61&%T82DN4V5T0W5R<V]R*$=E=$AY<&5R=&5X=$-U<G-O<BA25E-T>6QE

M*2D[#0IE;F0[#0H-"FEN:71I86QI>F%T:6]N#0H@(%)I8VA6:65W5&5X=$ET

G96U#;&%S<R Z/2!44E9497AT271E;4EN9F]%>#L-"@T*96YD+@T*

end