Re: picture in a richView

Author

Message

pierrebenoit

Posted: 02/15/2003 5:42:13

Thanks!

It works. I have the code for thr JPEG now and I'm able to display a text

from a file in the same directory. I can display a string with differents

styles. Thanks

My problem now is with hyperlinks. I'm able to display a hyperlink but when

I clicked on it nothing happen... I saw richview1jump, onjump...

How do you code: when you click the link, it send you a messagebox with 'hello".

Thanks

=== For JPEG=====

procedure TForm1.Button1Click(Sender: TObject);

var

img : TJPEGimage;

begin

img := TJPEGimage.Create;

img.LoadFromFile('repInfo.jpg');

richview1.AddBreak;

richView1.AddPicture(img);

richView1.Format;

end;

== For a file with text ====

procedure TForm1.Button2Click(Sender: TObject);

var

stg : string;

F : textfile;

begin

richview1.AddBreak;

assignFile(F, 'base.txt');

reset(F);

repeat

readln(F, stg);

richView1.AddTextFromNewLine(stg, rvsNormal);

until eof(F);

richView1.Format;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

// Affichage et lancement d'url

richview1.AddBreak;

richView1.AddTextFromNewLine('le roi du jour', rvsJump1);

richView1.Format;

// richview1.OnJump ...

end;

"Sergey Tkachenko" <[email protected]> wrote:

>var bmp: TBitmap;

>bmp := TBitmap.Create;

>bmp.LoadFromFile(FileName);

>rv.AddPicture(bmp);

>rv.Format;

>> Please,

>> I would like to insert a picture in a richView (freeware - Thanks for

your

>> job). I have a picture (bmp ot gif) in the same path as the .exe but

>althout

>> I have read more the documentation (Thanks for pointing me where to find

>> it) I dont succes.

>> I saw you use addpicture but everitime I have error. I'm using D6 perso.

>> Thanks for a simple sample