Carries of lines in RVEdit

Return to index

Author

Message

Roman

Posted: 07/06/2005 16:58:13

procedure TForm1.Button2Click(Sender: TObject);

var

  ItemNo, Offs, n  :Integer;

  text             :string;

  function GetBulletImageIndex: Integer;

    var s: String;

    tag: Integer;

    il: TCustomImageList;

  begin

    rve4.GetBulletInfo(n, s, Result, il, tag);

  end;

  function GetSmile(ImageIndex: Integer): String;

  begin

    case ImageIndex of

      0: Result := ':)';

      1: Result := ':|';

      else Result := ':(';

    end;

  end;

begin

  ItemNo:=rve4.ItemCount;

  for n:=0 to ItemNo-1 do begin

    Offs := rve4.RVData.ItemLength(n);

    if (rve4.GetItemStyle(n)=rvsBullet) and (Offs=1) then begin

      rve4.SetSelectionBounds(n, 0, n, 1);

      text:=text+GetSmile(GetBulletImageIndex);

    end else begin

      text:=text+rve4.RVData.Items.Strings[n];

    end;

  end;

  rv3.AddText(text,0);

  rv3.Format;

end;

How correctly to insert carries (#10#13) of lines?

I am sorry for bad English =)