| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как фон строк в KOLListView сделать

France ©   (2003-04-04 13:47:00) 

Всем привет! Вот в VCL я это делал просто:

procedure TForm.ListViewCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
with ListView.Canvas.Brush do
( Item.Index)

Всем привет! Вот в VCL я это делал просто:

procedure TForm.ListViewCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
with ListView.Canvas.Brush do
if Odd(Item.Index) then
Color:=clSilver
end;

А как то же самое реализовать в KOL? Если можете, дайте примерчик... :-)

---

France   (2003-04-04 17:45:00) [1]

СПАСИБО!!! :-)

---

GandalfTheWhite   (2003-04-04 17:38:00) [2]

По разному... можно так:

function TForm1.ListView2LVCustomDraw(Sender: PControl; DC: HDC;
Stage: Cardinal; ItemIdx, SubItemIdx: Integer; const Rect: TRect;
ItemState: TDrawState; var TextColor, BackColor: Integer): Cardinal;
begin
Result := CDRF_DODEFAULT;
case Stage of
CDDS_PREPAINT: Result := CDRF_NOTIFYITEMDRAW;
CDDS_ITEMPREPAINT:
( ItemIdx) [1]

По разному... можно так:

function TForm1.ListView2LVCustomDraw(Sender: PControl; DC: HDC;
Stage: Cardinal; ItemIdx, SubItemIdx: Integer; const Rect: TRect;
ItemState: TDrawState; var TextColor, BackColor: Integer): Cardinal;
begin
Result := CDRF_DODEFAULT;
case Stage of
CDDS_PREPAINT: Result := CDRF_NOTIFYITEMDRAW;
CDDS_ITEMPREPAINT:
if Odd(ItemIdx) then
BackColor := clSilver;
end; // case
end;

---

Наверх