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

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

ListBox [D5, Win2k, WinXP]

kirillrepin ©   (2006-10-26 15:07:00) 

подскажите как в ListBox некоторые строки выделить жирным текстом?

---

MetalFan   (2006-10-27 11:30:00) [1]

нашел?
пример:

...
ListBox.Style := lbOwnerDrawFixed;
...
procedure TForm1.ListBoxDrawItem(Control: TWinControl; Index: Integer;
 Rect: TRect; State: TOwnerDrawState);
var
 lFs: TFontStyles;
begin
 lFs := TListBox(Control).Canvas.Font.Style;
 if Succ(Index) mod 2 = 0 then //здесь ставишь свое условие выделения жырным
    Include(lFs, fsBold )
 else
   Exclude(lFs, fsBold);
 TListBox(Control).Canvas.Font.Style := lFs;
 if odSelected in State then
 begin
    TListBox(Control).Canvas.Brush.Color := clHighlight;
    TListBox(Control).Canvas.Font.Color := clHighlightText;
 end
 else
 begin
    TListBox(Control).Canvas.Brush.Color := clWindow;
    TListBox(Control).Canvas.Font.Color := clWindowText;
 end;
 TListBox(Control).Canvas.FillRect(Rect);
 TListBox(Control).Canvas.TextRect( Rect, Rect.Left,Rect.Top, TListBox(Control).Items[Index]);
end;


---

kirillrepin   (2006-10-26 15:33:00) [2]

спасибо!

---

MBo   (2006-10-26 15:27:00) [3]

Если пример в справке есть, то зачем просить???

---

kirillrepin   (2006-10-26 15:25:00) [4]

Style сменить и OnDrawItem использовать - а возможноли попросить пример кода?

---

MBo   (2006-10-26 15:20:00) [5]

Style сменить и OnDrawItem использовать

---

i-am-vladko   (2006-10-26 15:15:00) [6]

написать свой ListBox

---

Наверх