Форма с разноцветными надписями

[eks-s]

Здравствуйте! Подскажите, что то я сам не могу придумать. Есть массив записей, каждая запись это String, String, Boolean. Нужно вывести на форму список всех текстовых записей, причём записи, у которых третья переменная равна False, их нужны выводить красным цветом.
На сколько я знаю, стандарные компоненты (stringGrid, Label, Memo) не позволяют разные фрагменты текста делать разными цветами.

[mihali4]

На сколько я знаю, стандарные компоненты (stringGrid, Label, Memo) не позволяют разные фрагменты текста делать разными цветами.

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

[eks-s]

Спасибо, именно тремя лэйблами и хотел сделать, но массив динамический, создавать новые label на форме? брр... А с гридами спасибо, щас поищу

P.S. А почему в таблице первая ячейка синим выделена? как от этого избавиться?

[Баламут]

Можно еще проще.

Form1.Canvas.Font.Color := clRed;
Form1.Canvas.TextOut(10,10, 'Превед, медвед!');

Что-то в этом духе

[mihali4]

почему в таблице первая ячейка синим выделена? как от этого избавиться?

Эта ячейка имеет в State параметр gdSelected, т.е. она выделена.
При обработке события OnDrawCell вы сможете от этой закраски избавиться, игнорируя состояние ячейки и назначая цвет фона и шрифта без учета этого свойства, либо назначить другой, более подходящий (по вашему мнению) цвет.

[mrandrey]

Включи в ListBox свойство style в lbvirtual
а в реакции на ONDrawItem пиши что пожелаешь (хоч можеш и каждую строку разным цветом покрасить)

[mutabor]

StringGrid или ListBox по желанию, что лучше подходит.
И в том и в другом обрабатывать событие отрисовки, если динамически записи могут меняться, то после изменения вызывать отрисовку чтобы изменения отобразились.

[eks-s]

Сообщение от mihali4

Эта ячейка имеет в State параметр gdSelected, т.е. она выделена.
При обработке события OnDrawCell вы сможете от этой закраски избавиться, игнорируя состояние ячейки и назначая цвет фона и шрифта без учета этого свойства, либо назначить другой, более подходящий (по вашему мнению) цвет.

Что то я не могу разобраться, подскажите пожалуйста. Пишу вот так,

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  if (gdFocused in State) then

...а дальше?

    StringGrid1.Canvas.Brush.Color := clWhite;
    StringGrid1.Canvas.Font.Color := clBlack;

так? или можно просто не выделять ячейку? как его (состояние) игнорировать?

[mihali4]

как его (состояние) игнорировать?

Просто не анализировать
if (gdFocused in State) then
if (gdSelected in State) then
Правда, тогда вы не сможете что-либо выделять (просто не видно будет выделения), но, как я понял, вам это и не нужно...

[eks-s]

Спасибо всем огромное, лучшый форум