---
title: "Sätta färger på olika rader i en listbox"
type: "forum-thread"
url: "https://www.webforum.nu/amne/programmering/42367-sätta-färger-på-olika-rader-i-en-listbox"
topic: "Programmering"
topic_url: "https://www.webforum.nu/amne/programmering"
author: "FreeZer"
published: "2002-04-23T20:03:54.000Z"
updated: "2002-04-24T06:25:44.000Z"
replies: 1
views: 476
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/programmering/42367-sätta-färger-på-olika-rader-i-en-listbox"
---

# Sätta färger på olika rader i en listbox

## #1 — FreeZer, 2002-04-23T20:03Z

Kan man sätta en speciell färg på en rad i en listbox? eller på texten på en viss rad?

Om detta inte går, vad finns det för möjligheter för att uppnå samma resultat?

Permalänk: https://www.webforum.nu/p/42367

## #2 — MinOrk, 2002-04-24T06:25Z

```
procedure TForm1.FormCreate(Sender: TObject); 
begin 
  ListBox1.Style := lbOwnerDrawFixed; 
end; 

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; 
  Rect: TRect; State: TOwnerDrawState); 
begin 
  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; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  ListBox1.Items.AddObject('Red Item', Pointer(clRed)); 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
  ListBox1.Items.AddObject('Green Item', Pointer(clGreen)); 
end;
```

 

Har inte testat detta själv... utan hittade det [här](http://www.swissdelphicenter.ch/torry/showcode.php?id=736)

Permalänk: https://www.webforum.nu/p/656627

---

Tråden på webben: https://www.webforum.nu/amne/programmering/42367-sätta-färger-på-olika-rader-i-en-listbox