Скачать: CL | DM;

DrawText   Найти похожие ветки 

← →
race1   (2004-12-22 09:08) [0]

делаю так:

procedure Tfrm.lbMeasureItem(Control: TWinControl; Index: Integer; var Height: Integer)
var
rct: RECT;
begin
SetRect(@rct, 0, 0, lb.Width, 0);
//SelectObject(lb.Canvas.Handle, lb.Font.Handle);
Height = DrawText(lb.Canvas.Handle, PChar(lb.Items[Index]),
 Length(lb.Items[Index]), @rct, DT_WORDBREAK or DT_CALCRECT or DT_CENTER or DT_EXTERNALLEADING);
end;

lb - tlistbox, в котором я рисую. т.е. хочу устанвить высоту элемента равной высоте текста, который ещё разбивается на строки. но если выбрать в lb большой шрифт, то высота элементов почему-то не меняется. хотя в DrawItem я рисую этим же кодом и всё отображается большим шрифтом. даже если раскомментировать закомментированные строки (хотя это и бессмысленно), не помогает

---

← →
Просто Джо ©   (2004-12-22 13:02) [1]

Навскидку: попробуй использовать сначала DrawText с параметром uFormat равным DT_CALCRECT.

---

← →
race1   (2004-12-24 17:02) [2]

странное дело. у меня это дело рисуется, потом юзер выбирает какой-то эл-т, потом всё очищается и заполняется снова. так вот, после первого заполнения всё высчитывается прально, но первое заполнение и рисование листбокса неработает

вариант с calrect не сработал

---

← →
race1   (2004-12-28 17:13) [3]

вариантов нету?

сейчас делаю так: вобще все данные заносятся в листбокс в рантайме. я в режиме дизайнера добавляю какойлибо эл-т в листбокс, при добавлении моих эл-в предварительно очищаю список (т.е. убирается эл-т, добавленный в режиме дизайна). почему-то работает, чудеса...

---

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

Скачать: CL | DM;



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