Главная страница
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.025 c
1-81817
Nick2000
2003-08-13 10:22
2003.08.25
MS Word


1-81831
dataMaster
2003-08-13 12:58
2003.08.25
OpenDialog и его размеры


1-81610
Fktrc
2003-08-13 07:59
2003.08.25
Проблема с Opera, начиная с 6.10 и выше


1-81644
Islander
2003-08-12 12:30
2003.08.25
Защита от клавиатурных шпионов


14-81963
[lamer]Barmaglot
2003-08-06 16:02
2003.08.25
Что с орешником?