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; iStyleNo ...

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, sr ...