Mr Scott's IT Notes (Bryanston High)
Tuesday, 29 May 2012
Gr11: Formating using tab settings in Rich Edit
{$R *.dfm}
procedure TForm1.btnSet_ParagraphClick(Sender: TObject);
begin
redtOutput.Paragraph.TabCount:=4;
redtOutput.Paragraph.Tab[0]:=0;
redtOutput.Paragraph.Tab[1]:=35;
redtOutput.Paragraph.Tab[2]:=90;
redtOutput.Paragraph.Tab[3]:=120;
redtOutput.Lines.Add('Name Surname Test1 Test2');
redtOutput.Lines.Add('===============================');
end;
procedure TForm1.btnLoad_InfoClick(Sender: TObject);
begin
redtOutput.Lines.Add(edtName.Text+#9 + edtSurname.Text+#9 + edtTest1.Text +
#9 + edtTest2.Text);
end;
No comments:
Post a Comment
Newer Post
Older Post
Home
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment