listbox og farver

http://www.swissdelphicenter.com/en/showcode.php?id=736

eller

http://www.swissdelphicenter.com/en/showcode.php?id=248

alt efter hvad det er du vil ændre farven på.

Det var jo et godt svar!
Et som vi alle kan bruge.

//dl

tak for linket

men kan ik helt finde ud af det :(

alle mine items for den samme farver, jeg kan godt tilføje nye items med en anden farve, med det er ik det jeg vil.

jeg har en listbox1 med nogle sti'er til nogle filer.
når mit program starter så køre den en lykke for at se om filen findes, hvis den gør så skal den bare tilføjes til listbox1, men hvis den IKKE findes så skal den også tilføjes, men så skal farven være rød.

Under Form1.Create:
  ListBox1.Style := lbOwnerDrawFixed;

Under den procedure som flytter fra Listbox2 (hvor filerne står) til listbox1 (hvor filerne bliver flyttet hen farvet:

var I : integer;
begin
  ListBox1.Clear;
  For I := 0 to ListBox2.Items.Count - 1 do
  begin
    if not FileExists(ListBox2.Items[I]) then
      ListBox1.Items.AddObject(ListBox2.Items[I], Pointer(clRed))    // Hvis filen IKKE eksisterer
    else
      ListBox1.Items.AddObject(ListBox2.Items[I], Pointer(clBlack));  // Hvis filen eksisterer.
  end;

Og under ListBox1DrawItem:

  with Control as TListBox do
  begin
    Canvas.FillRect(Rect);
    Canvas.Font.Color := TColor(Items.Objects[Index]);
    Canvas.TextOut(Rect.Left + 2, Rect.Top, Items[Index]);
  end;

Og så gør den som du gerne vil have at den gør. Og bare giv snowball pointne, koderne er lavet ud fra det link som han har givet :-D

// Jonat.

okay det virker :) har lige et spørgesmål mere, hvordan ændre jeg farven på item 3 uden at tilføje den som en ny item.

jeg har 10 item's i min listbox og så har jeg en button. når jeg så klikker på button så skal den ændre item 3's farve uden at tilføje den som et nyt Object

Det ved jeg ikke hvordan man gør... Kan ikke lige gennemskue det, Du kan se om snowball ved det, jeg har på fornemmelsen han er bedre til delphi end mig :-)...

// Jonat.