Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];




Вниз

Ну помогите же! 


exchoper   (2002-04-17 12:49) [5]

procedure TfmMain.lvTestCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
NodeRect: TRect;
begin
with lvtest.Canvas do
begin
NodeRect := Item.DisplayRect(drBounds);
case integer(Item.Data) of
0 : Brush.Color:=clBlue;
else Exit; end;
FillRect(NodeRect);
end;
end;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.047 c
3-2463            Sewix                 2002-04-09 14:56  2002.05.02  
Sql запрос как выбрать все поля кроме конкретного одного


1-2595            Martyn                2002-04-18 16:48  2002.05.02  
Вопрос по DBGrid


1-2570            ruslan_as             2002-04-19 11:12  2002.05.02  
Удалить все файлы из каталога


14-2677           Андрей Сенченко       2002-03-26 17:38  2002.05.02  
Дневник специалиста технической поддержки


1-2542            roman001              2002-04-18 18:32  2002.05.02  
TStringGrid.Objects