Hello,
There is problem with TabPositions when it's value > to the Rich Edit width.
Text disappear and a line jump is added.
Try only this code with TMSFNCRichEditor1.width:=185;
Full source and screenshot in attachment.
Tabulation.zip (13.1 KB)
procedure TForm52.Button1Click(Sender: TObject);
begin
TMSFNCRichEditor1.addtext('L1 Field1');
TMSFNCRichEditor1.AddTab;
TMSFNCRichEditor1.addtext('L1 Field2');
TMSFNCRichEditor1.AddTab;
TMSFNCRichEditor1.Addtext('L1 Field3');
TMSFNCRichEditor1.AddLineBreak;
TMSFNCRichEditor1.addtext('L2 Field1');
TMSFNCRichEditor1.AddTab;
TMSFNCRichEditor1.addtext('L2 Field2');
TMSFNCRichEditor1.AddTab;
TMSFNCRichEditor1.Addtext('L2 Field3');
// Add 2 tabposition
TMSFNCRichEditor1.TabPositions.Add(100);
TMSFNCRichEditor1.TabPositions.Add(200);
end;
See :