Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Подсчет времени какого-либо события
   Категория: Математика
  Как показать balloon tooltips в программе
   Категория: Приложение
  Найти все компьютеры в сети
   Категория: Интернет и Сети
  Получить имена всех папок и файлов в директории
   Категория: Файловая система
  Корректное колесико мыши
   Категория: Приложение
  Listbox - элементы вверх-вниз
   Категория: Компоненты
  Преобразовать любой тип в строку
   Категория: Текст и строки
  Компонент PopupMenu
   Категория: Компоненты
  Компоненты ToolBar и PageScroller
   Категория: Компоненты
  Распознавание кодировки. Перекодировка.
   Категория: Текст и строки

мокрый фасад купить,RSVP ON OUR EVENTBRITE PAGE HERE http://2event.com,Романтическая вечеринка знакомств, общения и флирта. Флирт вечеринки или вечера знакомств.,Поездка в Свирский из Петербурга: туры в Таиланд из Самары .
Delphi - База Знаний: Создание цветных строк в ListBox

  << Вернуться к Содержанию  

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);  
begin                  
with (Control as TListBox).Canvas do    
begin                        
//далее можно задать наше условие для цвета отдельных строк    
if Index=3 then            
begin  
Font.Color := clRed; //здесь любой ваш цвет. Можно и другие параметры шрифта задать, например, Bold...        
Font.Style:=Font.Style+[fsBold];
Brush.Color:=clYellow;
end;  
FillRect(Rect);
TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[Index]);  
end;

end;
  << Вернуться к Содержанию