Как фон строк в 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]

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

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