Форум: "Media";
Текущий архив: 2008.11.30;
Скачать: [xml.tar.bz2];

Вниз

Ошибка при заполнении текста 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]

Спасибо!

---

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

Форум: "Media";
Текущий архив: 2008.11.30;
Скачать: [xml.tar.bz2];

Наверх

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