Компонент

← →
Ivolg (2005-01-16 12:48) [0]

Всем привет!! Подскажите пожайлусто компонент типа Memo или RichEdit"a ,только чтобы у каждой строчки текста можно было менять цвет!!! СПАСИБО!!!!

← →
Fay © (2005-01-16 13:03) [1]

Ivolg (16.01.05 12:48)
Тогда уж пайжойлуйсто 8)

← →
Ivolg (2005-01-16 17:09) [2]

Капец!!! чё не кто незнат! Помню сто раз натыкался на подобный вопрос в форуме, ну тогда он был мне не к чему!!

← →
remb (2005-01-16 17:15) [3]

asvt (21.12.04 13:03) [2]

Procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with TListBox(Control).Canvas do begin
if odSelected In State then begin
Brush.Color := clBlack;// Выделение черным
Font.Color := clWhite;
end
else
case index mod 4 of //четыре строки с чередованием
0: begin
Brush.Color := clRed;
Font.Color := clWhite;
end;
1: begin
Brush.Color := clAqua;
Font.Color := clBlack;
end;
2: begin
Brush.Color := clYellow;
Font.Color := clBlack;
end;
3: begin
Brush.Color := clLime;
Font.Color := clBlack;
end;
end; { Case }

FillRect(Rect);
TextOut(Rect.Left +2, Rect.Top, TListBox(Control).Items[Index]);

If odFocused In State Then Begin
InflateRect(Rect, -1, -1);
DrawFocusRect(Rect);
End;
End;
end;
procedure TForm1.ListBox1MeasureItem(Control: TWinControl; Index: Integer;
var Height: Integer);
begin
Height := (Control As TListbox).ItemHeight + 2;
end;

← →
Ivolg (2005-01-17 14:22) [4]

Спасибо!

Компонент Найти похожие ветки