Главная страница
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
2-1213386303
lewka-serdceed
2008-06-13 23:45
2008.07.13
Chat по средствам Delphi


15-1212299399
LightRipple
2008-06-01 09:49
2008.07.13
Образ диска под Линуксом


6-1190105366
ocean
2007-09-18 12:49
2008.07.13
Как успокоить брандмауэр?


15-1211874057
Tualatin
2008-05-27 11:40
2008.07.13
ресурсы (да они самые)


2-1213600853
JanMihail
2008-06-16 11:20
2008.07.13
Открыть ссылку в браузере по умолчанию?