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;



Posted by Eddie Scott at 02:32
Email ThisBlogThis!Share to XShare to FacebookShare to Pinterest

No comments:

Post a Comment

Newer Post Older Post Home
Subscribe to: Post Comments (Atom)

Blog Archive

  • ►  2013 (12)
    • ►  November (2)
    • ►  July (1)
    • ►  June (1)
    • ►  May (2)
    • ►  March (3)
    • ►  February (3)
  • ▼  2012 (9)
    • ►  September (1)
    • ►  June (2)
    • ▼  May (6)
      • Gr11: Formating using tab settings in Rich Edit
      • Gr10 Homework for Wednesday 30/5
      • Gr10 Homewwork Practical for 24 May
      • Gr10 Practical Exam Scope
      • Gr10 June Exam Scope (Theory)
      • The following code will test to see if a number is...

About Me

My photo
Eddie Scott
View my complete profile
Awesome Inc. theme. Powered by Blogger.