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

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

DrawText... neworkaet !? [D6]

gluka ©   (2002-10-28 03:13:00) 

var
TheRect: TRect;
dc: HDC;
st:PChar;
begin
TheRect:=GetClientRect;
dc:=GetDC(Form1.Handle);
st:="jkhb ldhlghgh ldfghldhl fjhsgljd fgl s hdf gjs dhflg";
DrawText(Form1.Canvas.Handle,st,StrLen(st),
TheRect,DT_CALCRECT);
end;

Поидеи это должно выводить текст в несколько строк!!! или я неправ???
Если прав, то почему неворкает?
Зарание благодарен!!!

---

Gluka   (2002-10-28 18:28:00) [1]

Ищу помощь!!!!

---

Gluka   (2002-10-28 18:02:00) [2]

var
R : TRect;
Buff :PChar;
begin

Buff:= "A really really long";
Canvas.Font := Self.Font;
Width := Width - 6;
Height := Height - 6;
R := Bounds(0, 0, Form1.Width, 0);
DrawText(Form1.Canvas.Handle,Buff,StrLen(Buff),R,DT_CENTER or DT_WORDBREAK or DT_CALCRECT);
OffsetRect(R,(Form1.Width - R.Right) div 2,
(Form1.Height - R.Bottom) div 2);
DrawText(Form1.Canvas.Handle,Buff,StrLen(Buff),R,DT_WORDBREAK);
ShowMessage(SyserrorMessage(GetLastError));
end;
end.
Возвращает интересное описание ошибки: "Окно неимеет полос прокрутки"!!!
А если заместь формы использоваьт "BitBtn1.Glyph.canvas.Handle"
то на кнопке все видно!!!
Почему нерисуется текст на форме!?!!?

---

hooch   (2002-10-28 07:20:00) [3]

боюсь ошибиться но c флагом DT_CALCRECT текст не рисуется а расчитывется Therect для данного текста

---

MBo   (2002-10-28 06:53:00) [4]

в faq поищи

---

Наверх