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
How to insert into TRICHVIEW not the full-size picture
-
- Posts: 1
- Joined: Wed Jul 11, 2018 3:55 pm
-
- Site Admin
- Posts: 17557
- Joined: Sat Aug 27, 2005 10:28 am
- Contact: