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