Текущий архив: 2002.11.07;
Скачать: CL | DM;

Вниз

DrawText... neworkaet !?   Найти похожие ветки 

← →
gluka ©   (2002-10-28 03:13) [0]

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;

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

---

← →
MBo ©   (2002-10-28 06:53) [1]

в faq поищи

---

← →
hooch ©   (2002-10-28 07:20) [2]

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

---

← →
Gluka ©   (2002-10-28 18:02) [3]

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"
то на кнопке все видно!!!
Почему нерисуется текст на форме!?!!?

---

← →
Gluka ©   (2002-10-28 18:28) [4]

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

---

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

Текущий архив: 2002.11.07;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.018 c