| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Dr. Andrew ©   (2007-08-28 15:22:00) 

Мастера, где может быть ошибка в коде:

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;"

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

---

Dr. Andrew   (2007-08-28 17:02:00) [1]

Спасибо!

---

{RASkov}   (2007-08-28 16:54:00) [2]

> [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);

---

Наверх