Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.08.25;
Скачать: CL | DM;

Вниз

Цветные строки в ListView...   Найти похожие ветки 

 
tytus ©   (2003-08-11 17:28) [0]

Хелп!!! Никак не получается писать строки в ListView разным цветом...
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=1 to 10 do
begin
n:=i;
{ListView1.Items.Add.Caption:="Item "+IntToStr(i);}(-так пишет но одним цветом - синим...)
end;
end;

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if odd(n) then
begin
ListView1.Canvas.Font.Color:=clRed;
ListView1.Canvas.TextOut(0,n*10,"Item"+IntToStr(n));
end
else
begin
ListView1.Canvas.Font.Color:=clHotLight;
ListView1.Canvas.TextOut(0,n*10,"Item"+IntToStr(n));
end;
end;


 
Семен Сорокин ©   (2003-08-11 17:32) [1]

DefaultDraw indicates whether the list view should continue with the default painting after the event handler exits. Set DefaultDraw to false to prevent the drawing of the list view after event handler exits. If DefaultDraw remains set to true, the list view continues with the default painting process.


 
tytus ©   (2003-08-11 18:00) [2]

Народ!!! Все РАБОТАЕТ!
if odd(n) then --- все дело в глобальной переменной n. Если написать if odd(item.index) то все будет работать...!



Страницы: 1 вся ветка

Текущий архив: 2003.08.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.015 c
1-81788
Duncan
2003-08-13 16:38
2003.08.25
Кто работает с Fast Report.


1-81827
off
2003-08-13 13:32
2003.08.25
Количество месяцев между дататми.


1-81679
Zheks
2003-08-11 17:14
2003.08.25
Как string := 45.324 перевести в Real := 45.324 ?


1-81802
Checist [root]
2003-08-13 22:03
2003.08.25
Интеграция с IE


14-81939
Best Gun
2003-08-07 01:05
2003.08.25
Вопрос создателям