Copy Text from RichEdit to Image Canvas

Information in this Brief applies to:

• Delphi 5, 6, 7
• Windows

Overview

Explains how to copy text from a RichEdit to an Image Canvas

Details

Drop a TRichEdit component on a form along with a TImage and a TButton component. In the buttons' on click event, place the following code:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 1 to length(RichEdit1.Text) - 1 do
  begin
    if RichEdit1.Text[i] = #13 then
    with Image1.Canvas do
      MoveTo(0, PenPos.Y + TextHeight(RichEdit1.Lines.Strings[0]));
    RichEdit1.SelStart := i;
    RichEdit1.SelLength := 1;
    with image1.Canvas do
    begin
      Font.Color := RichEdit1.SelAttributes.Color;
      Font.Size := RichEdit1.SelAttributes.Size;
      Font.Style := RichEdit1.SelAttributes.Style;
      if (RichEdit1.Text[i] <> #13) and (char(RichEdit1.Text[i]) <> #10) then
        TextOut(PenPos.X, PenPos.Y, RichEdit1.Text[i]);
    end;
  end;

end;