Главная страница
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.013 c
3-1202049109
Бэтман
2008-02-03 17:31
2008.07.13
Проблема с Acces


2-1213341653
Dmitry
2008-06-13 11:20
2008.07.13
Canvas


11-1190218398
Vladimir Kladov
2007-09-19 20:13
2008.07.13
Версия 2.80


15-1211952988
Ega23
2008-05-28 09:36
2008.07.13
С Днём Пограничника!


15-1211891858
Knight
2008-05-27 16:37
2008.07.13
1C 7.7 + Delphi + ADO + MS SQL