TRichView.com

Sergey, I have used my real code (not mockup) and ask for help with:-

1) Scaling images 50% of paper/orientation selection (rve2 image table has 2 cells) with aspect ratio preserved

2) Inserting RVF streams (from Unicode DB) into rve2 notes table

procedure TfRichView.Print1Click(Sender: TObject ...

Hi, RVActions provides a popup grid to select row/col size on table create.

My project does not use RVActions but I would like to emulate this feature.

Can you please show me how to add this feature to my project without using RVActions - Thanks.

Hi, I cannot undo lines added by code below:-

rve.BeginUpdate;
rve.BeginUndoGroup(rvutMiscTyping); // Tried everything ???
rve.SetUndoGroupMode(True);

rve.AddNL('', CurTextStyleNo, CurParStyleNo);

rve.CurTextStyleNo:= TextStyleNo;
rve.CurParaStyleNo:= ParStyleNo;
rve.AddNL(DateStr ...

So if I need to add 30 images I need to have 30 Bitmap Objects ??? If this is so it seems cumbersome ???

I need the Table (100% of page) with 2 cells which would make the desired cell (50% of page) so Bitmap size should be scaled to cell width taking into account the aspect ratio (we have already ...

Thanks Sergey for your support, truly appreciated - however I have some issues (please look for ***):-

procedure TfRichView.Print1Click(Sender: TObject);
var
PrintIt: Boolean;
ClientName, s: String;
table: TRVTableItemInfo;
i, w: Integer;
ItemInfo: TCustomRVItemInfo;
//
bm: TBitmap;
RVData ...

rve2.AddItem('MyTempTable', table);
//
for i:= 0 to rve2.TopLevelEditor.ItemCount -1 do begin
ItemInfo:= rve2.TopLevelEditor.GetItem(i);
if ItemInfo.ItemText = 'MyTempTable' then begin
ItemNo:= rve2.TopLevelEditor.GetItemNo(ItemInfo);
Offs:= rve2.TopLevelEditor.GetOffsBeforeItem(ItemNo);
rve2 ...

Thank you Seregy.

You did not explain:-

1) How to add Bold Attribute to text style ?

2) How to select Text Attribute when using ADDNL ?

3) How to insert rv stream/file into table cell, either during table construction -or- locating table and cell in editor ?

function TfRichView.RVCopy(RVSource, RVDest: TCustomRichView): Boolean;
var
MyStream: TMemoryStream;
begin
try
MyStream:= TMemoryStream.Create;
try
RVSource.SaveRVFToStream(MyStream, False);
MyStream.Position:= 0;
Result:= RVDest.InsertRVFFromStream(MyStream, RVDest.ItemCount);
RVDest ...

How Can I Build a Style Programatically and use when inserting line (need to use TextStyle with Bold Attribute) ?

rvs2.ResetTextStyles;
rvs2.ResetParaStyles;
//
rvs2.TextStyles.AddFont('Times New Roman', 12, clBlack, clWhite, [want bold]);
rvs2.ParaStyles.Add;
rvs2.ParaStyles[0].Alignment ...

Inserting other rv data and rtf data would be good to.

Hi, I have a need to Append Lines to the output on Print and PrintPreview but leave the original rve contents unchanged.

RVPrint1.AssignSource(rve);

add new lines here ?

RVPrint1.FormatPages(rvdoALL);

RVPrint1.Print('', 1, False);

Thanks
Andy

(1) Thanks, I feel rather silly missing that one

(2) I look forward to your example

Thanks Sergey,

1) My StrechDraw method will not compile (which unit must I put in the uses clause) ?

2) Can you show me code "display it scaled using trichview item properties" on insert where we constrain the size to the current table cell size ?

Thanks Again

Hi, Please advise how to pre scale image during insert ?

pic:= TPicture.Create;
try
pic.LoadFromFile(OpenDialog1.FileName);

bm:= TBitmap.Create;
bm.Height:= 100; // fudge value for testing
bm.Width:= 100; // fudge value for testing

ARect:= Rect(0, 0, bm.Height, bm.Width);
bm.Canvas ...

Any ideas anyone ?