TAlignment (Delphi)

From RAD Studio Code Examples
Jump to: navigation, search

Description

To use this example, place a Toolbar and a RichEdit on the form. Right-click the toolbar and select New Button three times. Place the ToolButton1Click handling code in the on-click event of the first TToolButton, then attach the same OnClick handler for each button. Double-click the Image-List to load the images. Load in the order right, center, and left. Name the Imagelist ToolbarImages. Select the Toolbar and set the Images property to ToolbarImages. Then select each ToolButton and set the ImageIndex property.

Code

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
   if (Sender = ToolButton1) then
    RichEdit1.Paragraph.Alignment := taLeftJustify
  else if (Sender = Toolbutton2) then
    RichEdit1.Paragraph.Alignment := taCenter
  else if (Sender = Toolbutton3) then
    RichEdit1.Paragraph.Alignment := taRightJustify;

end;

Uses