Скачать: CL | DM;

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

← →
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.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c