trichview.com

trichview.support




Re: picture in a richView


Return to index


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" <svt@trichview.com> 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

>

>





Powered by ABC Amber Outlook Express Converter