O jejku jejeczku, aż ręce opadają. Takie pytania do Newbie idź się poopalaj czy coś, programowanie jest nie dla Ciebie skoro mając link
do przykładowego kodu ze zmienną Index nie potrafisz sobie dostosować kodu. Także programowanie nie jest dla Ciebie niestety. Ech,
masz poniżej gotowca, ale i tak się niczego nie nauczysz i zaraz się zacznie 100 pytan do. Ja chętnie pomagam na ow forum, ale jejku
bez przesady. Trochę samodzielności i logicznego myślenia by się przydało Tobie, a tymbardziej jeśli zostałeś naprowadzony na kod ;/
var
MyColor : TColor;
MyBrush : TBrush;
begin
MyBrush := TBrush.Create;
with (Control as TListBox).Canvas do
begin
case Index of
3, 4, 7 : MyColor := clYellow;
2, 6, 9, 10 : MyColor := clGreen;
else
MyColor := (Control as TListBox).Color;
end;
MyBrush.Style := bsSolid;
MyBrush.Color := MyColor;
Windows.FillRect(handle, Rect, MyBrush.Handle);
Brush.Style := bsClear;
TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[Index]);
MyBrush.Free;
end;
end;