wpobjHorizontalLine

Hi;

Is it possible to add an horizontal line in a way it's paragraph remains read-only and only can be deleted?.

I use the next code for inserting and it works. But if I go to the begin of the line, I can start adding text to the same paragrph. Also, if I remove the end of paragraph for the previous paragraph then both paragraphs are joined.

procedure TEditor.LineahorizontalClick(Sender: TObject);
var
  iPos: integer;
begin
  if WP.Changing then
  begin
    iPos := WP.CPPosition;
    WP.BeginUpdate;
    try
      while not WP.ActivePar.IsEmpty do
      begin
        WP.InputString(#13);
        if not WP.ActivePar.IsEmpty then WP.CPPosition := iPos;
      end;
      WP.ActivePar.ADel(WPAT_IndentFirst);
      WP.ActivePar.ADel(WPAT_IndentLeft);
      WP.ActivePar.ADel(WPAT_IndentRight);
      WP.ActivePar.AppendNewObject(wpobjHorizontalLine);
      WP.ChangeApplied;
    finally
      WP.EndUpdate;
      WP.CPPosition := iPos;
    end;
  end;
end;

Thank you.

Felipe

Hi Julian;

Ok, I tried and it is much better; but I see two things:

1. The line, not always is painted with the same Height.

2. If I am at the end of the protected paragraph, I can't press <Enter> for adding a new one; and, if the line is the last paragraph in the document, then I can't add more text after it.

3. Even if the paragraph is protected, it still accepts changes in the paragraph properties (like indents); so, if the user want a full horizontal line (from left margin to right marging) he must take care when it does paragraph formating for the whole text, because he line changes too (even if it is protected).

4. Is there a way to show the line with a special background or so when it is focused?. I tried to use ProtectedTextAttr but nothing.

Thank you.

Felipe