Скачать: CL | DM;

Как фон строк в KOLListView сделать   Найти похожие ветки 

← →
France   (2003-04-04 13:47) [0]

Всем привет! Вот в 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? Если можете, дайте примерчик... :-)

---

← →
GandalfTheWhite   (2003-04-04 17:38) [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:
( 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;

---

← →
France   (2003-04-04 17:45) [2]

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.988 c