Показать сообщение отдельно
  #8  
Старый 07.04.2015, 14:24
FreddyZSX FreddyZSX вне форума
Прохожий
 
Регистрация: 20.06.2014
Сообщения: 14
Версия Delphi: Delphi 2010
Репутация: 10
По умолчанию

В ListBox есть цветные строки.
Добавляю так:
Код:
  ListBox1.Items.AddObject(aStr, TObject(aColor));

и в методе DrawItem так:
Код:
 with ListBox1.Canvas do begin
    //Извлекаем сведения о цвете фона и задаём для кисти этот цвет.
    Brush.Color := TColor( ListBox1.Items.Objects[Index] );
    //Закрашиваем прямоугольник, в который потом будет выведена строка.
    FillRect(Rect);
    //Выводим текст строки.
    TextOut(Rect.Left, Rect.Top, ListBox1.Items[Index]);
  end;
Вопрос:
как же сохранить их в файл и потом при загрузке из файла в ListBox строки сохраняли свои цвета?
При
Код:
ListBox1.Items.SaveToFile('h:\qqq.txt'); 

сохраняется только текст и цвет теряется.... При загрузке из файла в ListBox строки все одинаковые... Не ужели только приклеивать к строке какие то данные-потом их декодировать и т.д. - гемор! может есть метод более красивый подход?.
Ответить с цитированием