I'm trying to set the Right and Left indent of a paragraph. For that I'm using the following code:
procedure TfrmParrafo.Clicks(Sender: TObject; Button: TUDBtnType);
if Sender = UpDown1 then
Edit1.Text := FloatToStr(UpDown1.Position) + ' (mm)';
reEjemplo.Paragraph.LeftIndent := UpDown1.Position;
else if Sender = UpDown2 then
Edit2.Text := FloatToStr(UpDown2.Position) + ' (mm)';
reEjemplo.Paragraph.RightIndent := UpDown1.Position
else if Sender = UpDown3 then
Edit3.Text := FloatToStr(UpDown3.Position) + ' (mm)';
reEjemplo.Paragraph.FirstIndent := UpDown1.Position
What am I doing wrong? 'cause it doesn't work.
PS: I'm also trying to do an undo/redo command. Redo is the problem, is there any way to do it?
Thanks in advance.