Ошибка при заполнении текста bitmap. Почему?

← →
Dr. Andrew (2007-08-28 15:22) [0]

Мастера, где может быть ошибка в коде:
procedure TForm1.Button1Click(Sender: TObject); var dc: hdc; SaveIndex: integer; bm: TBitmap; begin bm := TBitmap.Create; bm.LoadFromFile("c:download/est.bmp"); Canvas.Font.Name := "Arial"; Canvas.Font.Height := 100; dc := Canvas.Handle; SaveIndex := SaveDc(Dc); SetBkMode(dc, TRANSPARENT); BeginPath(dc); Canvas.TextOut(0, 0, "Many TeamB guys ignore me"); EndPath(dc); SelectClipPath(dc, RGN_COPY); Canvas.Draw(0, 0, bm); RestoreDc(dc, SaveIndex); bm.Free; end;"

При клике на кнопку прорисовывается только первая буква и часть второй, остальной текст обрезается. Почему обрезается большая часть текста.

← →
{RASkov} © (2007-08-28 16:54) [1]

> [0] Dr. Andrew (28.08.07 15:22)
>Canvas.Draw(0, 0, bm);

Canvas.StretchDraw(Rect(0,0,Canvas.TextWidth("Many TeamB guys ignore me"), Canvas.TextHeight("Many TeamB guys ignore me")), bm);

← →
Dr. Andrew (2007-08-28 17:02) [2]

Спасибо!

Ошибка при заполнении текста bitmap. Почему? Найти похожие ветки