How to insert into TRICHVIEW not the full-size picture

General TRichView support forum. Please post your questions here
Post Reply
romansochi
Posts: 1
Joined: Wed Jul 11, 2018 3:55 pm

How to insert into TRICHVIEW not the full-size picture

Post by romansochi » Wed Jul 11, 2018 4:10 pm

How to insert into TRICHVIEW not the full-size picture, but the sketch of the picture for example 100 on 100 in size. I couldn't find...
Thanks

rv.Clear;
for I := 0 to dm.mas.RecordCountFromSrv - 1 do
begin
rv.AddNL('',1,0);
rv.AddNamedCheckpointEx(dm.masnn.Asstring, True);
rv.AddNL(dm.masUSERS.Asstring,1,0);
rv.AddNL(dm.masTXT1.Asstring+dm.masTXT4.Asstring+dm.masTXT3.Asstring+dm.masTXT2.Asstring,0,0);
if (not dm.sec.isempty) then
begin
Bm2:= TMemoryStream.Create;
dm.secim.SaveToStream(Bm2);
Bm2.Position := 0;
gr:=RVGraphicHandler.LoadFromStream(bm2) ;
if gr <> nil then Rv.AddPictureEx('', gr, -1, rvvaBaseline);
end;

rv.AddNL('',1,0);
// rv.AddBreakEx(3, rvbsLine, clRed);
rv.AddNL('',1,0);
rv.Format;
dm.mas.Next;
end;

Inserting large image


Post Reply