TRichView.com

Code: Select all

function TRVEditRVData.GetCurItemNo: Integer;
  {........................................}
  function IndexOf(obj: TObject): Integer;
  begin
    if not Assigned(DrawItems) then
    begin
      Result := -1;
      Exit;
    end;
    if CaretDrawItemNo > DrawItems.Count - 1 then
    begin
      Result := -1;
      Exit;
    end;
    if DrawItems[CaretDrawItemNo].ItemNo > Items.Count - 1 then
    begin
      Result := -1;
      Exit;
    end;
    if (CaretDrawItemNo>=0) and (Items.Objects[DrawItems[CaretDrawItemNo].ItemNo]=obj) then
      Result := DrawItems[CaretDrawItemNo].ItemNo
    else
      Result := Items.IndexOfObject(obj);
  end;
  {........................................}
begin
  PrepareForEdit;
  if FPartialSelectedItem<>nil then
    Result := IndexOf(FPartialSelectedItem)
  else if GetChosenItem<>nil then
    Result := IndexOf(GetChosenItem)
  else if CaretDrawItemNo=-1 then
    Result := -1
  else
  begin
    if CaretDrawItemNo <= DrawItems.Count - 1 then
      Result := DrawItems[CaretDrawItemNo].ItemNo
    else
      Result := -1;
  end;
end;

Code: Select all

  if (rvstEditorUnformatted in RvData.State) or (rvstMakingSelection in RvData.State)
    or (rvstDeselecting in RvData.State) or (rvstStartingDragDrop in RvData.State) or
    (rvstForceStyleChangeEvent in RvData.State) or (rvstLineSelection in RvData.State)
    or (rvstClearing in RvData.State) then
    Exit;