TRichView.com

This should have been posted in the private forum because am a registered user. I do not know why it appeared here instead?

I try to set the initial font for load pascal (*.pas} file as text but after loading font is not correct. How to load .pas file with 'Courier New' Font size = 10?

// set the initial font
iFontInfo := TFontInfo.Create(nil);
try
iFontInfo.FontName := 'Courier New';
iFontInfo.Size := 10 ...

Your code almost worked but I had to modify it to work without an exception in the line TRichViewEdit.InnerEditor.BeginItemModify( ItemNo, Data );

procedure TFormMain.TableCellVAlignMiddle1Click( Sender: TObject );
var
Item: TCustomRVItemInfo;
Table: TRVTableItemInfo;
RichViewEdit ...

1. How to set table.SetCellVAlign for selected cells and at the caret position?

procedure TFormMain.TableCellVAlignMiddle1Click( Sender: TObject );
var
Item: TCustomRVItemInfo;
Table: TRVTableItemInfo;
RichViewEdit: TCustomRichViewEdit;
ItemNo: integer;
r, c: integer;
tr, lc: integer;
sc ...