Форум: "Основная";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c