Главная страница
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.026 c
7-81978
Red Alert
2003-06-09 13:09
2003.08.25
Как получить информацию о COM и LPT портах в системе?


6-81861
GreatLesh
2003-06-19 07:55
2003.08.25
Обработка событий WInSock


3-81568
Leran2003
2003-07-30 12:37
2003.08.25
Midas


7-81992
rocker
2003-06-11 06:05
2003.08.25
Как обратиться к реестру от имени другой программы


14-81879
_Alex_
2003-08-08 14:22
2003.08.25
пинпонг в стиле матрицы