Рисовать текст с переносом строк

← →
PZ (2005-01-20 07:09) [0]

Здравствуйте. Прошу подсказать, почему в следующей процедуре не происходит перенос строк? Спасибо.

procedure TForm1.Button4Click(Sender: TObject);
Var
Rct : tRect;
S: String;
List : tStringList;
begin
List := tStringList.Create;
List.LoadFromFile("Proba.txt");
S := List.Text;
List.Free;

With Image1.Canvas do
begin
Rct := ClientRect;
FillRect(Rct);
DrawText(Handle, PChar(S), Length(S), Rct,
DT_EXPANDTABS or DT_WORDBREAK or DT_LEFT);
end;
end;

← →
PKT (2005-01-20 07:49) [1]

У Image1.Canvas нет ClientRect-а. Поэтому в Rct попадают
координаты самой формы. Замени на Rct := Image1.ClientRect

← →
PZ (2005-01-20 07:55) [2]

Дорогой PKT, действительно так. Величайшее спасибо. PZ.

Рисовать текст с переносом строк Найти похожие ветки