---
title: "Playlist"
type: "forum-thread"
url: "https://www.webforum.nu/amne/programmering/27957-playlist"
topic: "Programmering"
topic_url: "https://www.webforum.nu/amne/programmering"
author: "trasher"
published: "2001-12-20T12:23:00.000Z"
updated: "2001-12-22T21:45:00.000Z"
replies: 8
views: 366
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/27957-playlist"
---

# Playlist

## #1 — trasher, 2001-12-20T12:23Z

Jag behöver på något sätt kunna visa
i en listbox eller vad som helst vilken
fil som är aktiv. t.ex. fet font eller nått...
Är det någon som har ett förslag?
Och sen skulle jag behöva göra så att
om listboxen får in en fil säg:
c:\\kalle\\anka.txt så ska den visa
anka och vara := c:\\kalle\\anka.txt.

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

## #2 — jt, 2001-12-20T13:15Z

Du borde kunna använda Listboxens event OnDrawItem.

Först måste du sätta:
ListBox1.Style := lbOwnerDrawFixed

Sedan skriver du något som liknar detta i OnDrawItem(exemplet borde markera valt item med rödtext):

With Control As TListbox Do
Begin
  if (odSelected in State) then
  begin
    Canvas.Font.Style := \[fsBold\];
    Canvas.Font.Color := clRed;
  end;
  Canvas.TextRect( Rect, Rect.Left + 3, Rect.Top, Items\[index\] );
end;

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

## #3 — trasher, 2001-12-20T13:33Z

ok, det fungerar ;). Tack.
Men om jag vill att den itemen som
motsvarar mplayer2.filename ska vara
bold, hur blir det då? För nu är det
ju den valda i listboxen vilket inte
var meningen...

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

## #4 — jt, 2001-12-20T14:31Z

Jag vet ju inte vad du håller på med men...

Det borde funka om du bytter "if (odSelected in State) then" till
"if Items\[index\]= mplayer2.filename then". Du kanske behöver köra repaint på listboxen när du ändrar mplayer2.filename.

Annars kan du väl se till så att rätt item i listboxen blir valt när du byter mplayer2.filename.

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

## #5 — trasher, 2001-12-20T15:15Z

Man tackar, nu fungerar det väldigt bra ;).
Du har inte en lösning på mitt andra problem också?:
om listboxen får in en fil(item) säg
c:\\kalle\\anka.txt så ska den visa
anka och betyda c:\\kalle\\anka.txt för
mplayer2.filename?

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

## #6 — jt, 2001-12-20T15:53Z

\>Du har inte en lösning på mitt andra program också?

Ändra lite i OnDrawItem:

var
  ItemText: String;

ItemText := ChangeFileExt(ExtractFileName(Items\[index\]), '');
Canvas.TextRect( Rect, Rect.Left + 3, Rect.Top, ItemText);

\[Redigerat av jt den 20 dec 2001\]

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

## #7 — trasher, 2001-12-20T21:09Z

Ännu ett problem ...
Om jag vill kunna flytta en item i listboxen genom att hålla ner vänster musknapp och dra upp & ner. Hur ska jag gå till väga då?

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

## #8 — MurMel, 2001-12-22T21:26Z

Trasher skulle man kunna få typ källkoden på din spelare så man skulle kunna få lära sig nått?? Jag försöker också göra en player men är inte så bra på att programera! :-)
MVH / Pontus

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

## #9 — trasher, 2001-12-22T21:45Z

Nja inte just nu iaf...
Kanske senare. Det är dock mycket
kvar som ska skrivas...

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

---

Tråden på webben: https://www.webforum.nu/amne/programmering/27957-playlist