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

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

← →
kirillrepin ©   (2006-10-26 15:07) [0]

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

---

← →
i-am-vladko ©   (2006-10-26 15:15) [1]

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

---

← →
MBo ©   (2006-10-26 15:20) [2]

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

---

← →
kirillrepin ©   (2006-10-26 15:25) [3]

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

---

← →
MBo ©   (2006-10-26 15:27) [4]

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

---

← →
kirillrepin ©   (2006-10-26 15:33) [5]

спасибо!

---

← →
MetalFan ©   (2006-10-27 11:30) [6]

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

...
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;


---

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

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



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