So only Ctrl+Alt+Del helps

Code: Select all
object RichViewEdit1: TRichViewEdit
Left = 0
Top = 23
Width = 348
Height = 202
AcceptDragDropFormats = [rvddRVF, rvddRTF, rvddText, rvddUnicodeText, rvddBitmap, rvddMetafile, rvddURL, rvddFiles]
ReadOnly = False
OnCaretMove = RichViewEdit1CaretMove
OnCurParaStyleChanged = RichViewEdit1CurParaStyleChanged
OnCurTextStyleChanged = RichViewEdit1CurTextStyleChanged
OnParaStyleConversion = RichViewEdit1ParaStyleConversion
OnPaste = RichViewEdit1Paste
OnStyleConversion = RichViewEdit1StyleConversion
Align = alClient
PopupMenu = TBXPopupMenu1
TabOrder = 0
Visible = False
OnKeyDown = RichViewEdit1KeyDown
OnKeyPress = RichViewEdit1KeyPress
DoInPaletteMode = rvpaCreateCopies
Options = [rvoAllowSelection, rvoScrollToEnd, rvoTagsArePChars, rvoAutoCopyText, rvoAutoCopyRVF, rvoAutoCopyImage, rvoAutoCopyRTF, rvoFormatInvalidate, rvoDblClickSelectsWord, rvoRClickDeselects]
RTFReadProperties.TextStyleMode = rvrsAddIfNeeded
RTFReadProperties.ParaStyleMode = rvrsAddIfNeeded
RTFReadProperties.UseHypertextStyles = True
RVFOptions = [rvfoSavePicturesBody, rvfoSaveControlsBody, rvfoIgnoreUnknownPicFmt, rvfoIgnoreUnknownCtrls, rvfoSaveBinary, rvfoSaveBack, rvfoLoadBack, rvfoSaveTextStyles, rvfoSaveParaStyles, rvfoSaveLayout, rvfoLoadLayout, rvfoSaveDocProperties, rvfoLoadDocProperties]
Style = RVStyle1
OnJump = RichViewEdit1Jump
OnReadHyperlink = RichViewEdit1ReadHyperlink
OnWriteHyperlink = RichViewEdit1WriteHyperlink
end
Code: Select all
procedure TMainForm.RichViewEdit1CaretMove(Sender: TObject);
var line,linescount,col:Integer;
begin
RichViewEdit1.GetCurrentLineCol(line,col);
With RichViewEdit1 do
linescount:=GetLineNo(ItemCount-1,GetOffsAfterItem(ItemCount-1));
end;