перенос текста на канве

[0nni]

Вот этот код нарисует на канве текст и уместит его в 100 пикселей по ширине, при необходимости перенося строки.

var
  rt : TRect;
begin
  rt := Rect(0, 0, 100, 0);
  DrawText(Canvas.Handle, Pchar(Memo1.Text), Length(Memo1.Text), rt, DT_WORDBREAK or DT_NOCLIP);

А вот это ни чего не нарисует. Но после его выполнения, rt.Bottom будет содержать высоту, необходимую для вывода этого текста при ширине 100 клеток.

var
  rt : TRect;
begin
  rt := Rect(0, 0, 100, 0);
  DrawText(Canvas.Handle, Pchar(Memo1.Text), Length(Memo1.Text), rt, DT_WORDBREAK or DT_CALCRECT);

[0nni]

Вот этот код нарисует на канве текст и уместит его в 100 пикселей по ширине, при необходимости перенося строки.

var
  rt : TRect;
begin
  rt := Rect(0, 0, 100, 0);
  DrawText(Canvas.Handle, Pchar(Memo1.Text), Length(Memo1.Text), rt, DT_WORDBREAK or DT_NOCLIP);

А вот это ни чего не нарисует. Но после его выполнения, rt.Bottom будет содержать высоту, необходимую для вывода этого текста при ширине 100 клеток.

var
  rt : TRect;
begin
  rt := Rect(0, 0, 100, 0);
  DrawText(Canvas.Handle, Pchar(Memo1.Text), Length(Memo1.Text), rt, DT_WORDBREAK or DT_CALCRECT);