Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.07.13;
Скачать: CL | DM;

Вниз

Как изменить цвет выделения в ListBox , и цвет текста в выделен..   Найти похожие ветки 

 
НаТаШа   (2008-06-16 05:39) [0]

ПРИВЕТ НАРОД ! Подскажите как можно изменить цвет выделения в листбоксе , и цвет выделеной строки , ОЧЕНЬ НУЖНО ! Зарание большое Вам Спасибо !


 
AlexanderMS ©   (2008-06-16 06:21) [1]

Поставить Style = lbOwnerDrawFixed и поставить обработчик события OnDrawItem, примерно такой:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
 Rect: TRect; State: TOwnerDrawState);
begin
 with ListBox1.Canvas do
   begin
     if odSelected in State
       then Brush.Color := clGreen // цвет выделения - зелёный
       else Brush.Color := Listbox1.Color;

     FillRect(Rect);
     if Index >= 0
       then TextOut(Rect.Left + 2, Rect.Top, ListBox1.Items[Index]);
   end;
end;


 
AlexanderMS ©   (2008-06-16 06:35) [2]


> изменить цвет выделения в листбоксе , и цвет выделеной строки

не понял, что есть что, но поможет ещё Font.Color. :)


 
НаТаШа   (2008-06-16 06:39) [3]

Всё СПАСИБО ! Разобралася !



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

Текущий архив: 2008.07.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.022 c
15-1211874057
Tualatin
2008-05-27 11:40
2008.07.13
ресурсы (да они самые)


3-1201867497
Quart
2008-02-01 15:04
2008.07.13
Access через Tdatabase


15-1211675216
MerCus
2008-05-25 04:26
2008.07.13
TCHARTFX


2-1213009941
Мария
2008-06-09 15:12
2008.07.13
Вопрос по коду алгоритма


15-1211669739
Kolan
2008-05-25 02:55
2008.07.13
Тут по телеку евровидение выиграли,