Ka╛d² seznam °et∞zc∙ mß mo╛nost, mimo svΘho seznamu °et∞zc∙, obsahovat i seznam objekt∙. Nap°. aplikace sprßvce soubor∙ m∙╛e obsahovat spoleΦn∞ s pφsmeny jednotek i bitovΘ mapy indikujφcφ typ jednotek. K tomu je zapot°ebφ p°idat k aplikaci po╛adovanΘ obrßzky a odkazy na n∞ vlo╛it do seznamu °et∞zc∙.
OvladaΦ obrßzku je komponenta obsahujφcφ obrßzek (nap°. bitovou mapu). OvladaΦ obrßzku m∙╛eme pou╛φt k zobrazenφ obrßzku na formulß°i. M∙╛eme jej takΘ pou╛φt k dr╛enφ skryt²ch obrßzk∙, kterΘ pou╛φvßme v na╣φ aplikaci. Nap°. m∙╛eme ulo╛it bitovΘ mapy pro ovladaΦe vlastnφho zobrazovßnφ ve skryt²ch ovladaΦφch obrßzk∙. To provedeme takto: P°idßme komponenty Image na formulß°, nastavφme jejich vlastnosti Name, nastavφme jejich vlastnosti Visible na false a nastavφme jejich vlastnosti Picture na po╛adovanou bitovou mapu pomocφ Editoru obrßzk∙ z Inspektora objekt∙.
Kdy╛ ji╛ mßme obrßzky v aplikaci, m∙╛eme je p°i°adit k °et∞zc∙m v seznamu °et∞zc∙ (m∙╛eme p°idßvat objekty spoleΦn∞ s °et∞zci nebo je p°i°adit k ji╛ existujφcφm °et∞zc∙m). Pokud jsou pot°ebnß data dostupnß, pak je vhodnΘ p°idßvat objekty a °et∞zce najednou. Nßsledujφcφ p°φklad ukazuje jak m∙╛eme p°idßvat obrßzky k seznamu °et∞zc∙. Je to Φßst aplikace, ve kterΘ spoleΦn∞ s pφsmenem pro ka╛dou existujφcφ jednotku, p°idßme bitovou mapu indikujφcφ typ jednotky (tato obsluha bude pou╛ita pozd∞ji p°i v²voji sprßvce soubor∙).
void __fastcall TFMForm::FormCreate(TObject *Sender)
{
  int AddedIndex;
  char DriveName[4] = "A:\";
  for (char Drive = 'A'; Drive <= 'Z'; Drive++)
  {
    DriveName[0] = Drive;
    switch (GetDriveType(DriveName))
    {
      case DRIVE_REMOVABLE:       // p°idßnφ prvku seznamu
        DriveName[1] = '\0';      // bere pouze pφsmeno jednotky
        AddedIndex = DriveList->Items->AddObject(DriveName,
           Floppy->Picture->Graphic);
        DriveName[1] = ':'        // p°evßdφ zp∞t na tvar A:\
        break;
      case DRIVE_FIXED:          // p°idßnφ prvku seznamu
        DriveName[1] = '\0';
        AddedIndex = DriveList->Items->AddObject(DriveName,
           Fixed->Picture->Graphic);
        DriveName[1] = ':'
        break;
      case DRIVE_REMOTE:        // p°idßnφ prvku seznamu
        DriveName[1] = '\0';
        AddedIndex = DriveList->Items->AddObject(DriveName,
           Network->Picture->Graphic);
        DriveName[1] = ':'
        break;
    }
    if ((int)(Drive - 'A') == getdisk()) // aktußlnφ jednotka?
      DriveList->ItemIndex = AddedIndex; // pak vybere prvek seznamu
  }
}
Kdy╛ nastavφme styl vlastnφho zobrazovßnφ, pak ji╛ Windows nezobrazuje ovladaΦ na obrazovku. Pro ka╛d² viditeln² prvek v ovladaΦi zaΦne generovat udßlosti. Na╣e aplikace tyto udßlosti musφ vyu╛φt pro zobrazenφ prvk∙.
D°φve ne╛ aplikace m∙╛e zaΦφt se zobrazovßnφm prvku u stylu Variable, Windows generuje udßlost OnMeasureItem. Tato udßlost °φkß aplikaci, kde prvek bude na ovladaΦi zobrazen. Windows urΦuje velikost prvku (velikost pot°ebnou k zobrazenφ textu prvku souΦasn²m pφsmem). Na╣e aplikace m∙╛e udßlost zpracovat a zm∞nit volbu Windows. Nap°. chceme-li text prvku nahradit obrßzkem, pak zadßme velikost obrßzku. Ke zm∞n∞ velikosti prvku vytvo°φme obsluhu udßlosti OnMeasureItem (komponenty m°φ╛ky tuto udßlost nemajφ). Tato obsluha udßlosti mß dva d∙le╛itΘ parametry: index prvku a velikost prvku. Velikost je p°edßvßna odkazem a aplikace ji m∙╛e zmen╣it nebo zv∞t╣it. Pozice nßsledujφcφho prvku zßvisφ na velikosti p°edchozφch prvk∙. Nap°. kdy╛ v okn∞ seznamu, aplikace nastavφ v²╣ku prvnφho prvku na 5 bod∙, pak druh² prvek zaΦne ╣est²m bodem od hornφho okraje ovladaΦe, atd. V komponentßch ComboBox a ListBox m∙╛e aplikace ovliv≥ovat pouze v²╣ku prvku. ⌐φ°ka prvku je v╛dy ╣φ°ka ovladaΦe. U m°φ╛ek nelze m∞nit velikost bun∞k. Velikost ka╛dΘho °ßdku a sloupce musφme nastavit p°ed zobrazenφm pomocφ vlastnostφ ColWidths a RowHeights.
Nßsledujφcφ k≤d p°ipojen² k obsluze udßlosti OnMeasureItem okna seznamu urΦuje v²╣ku ka╛dΘho prvku seznamu podle svΘ p°ipojenΘ bitovΘ mapy:
void __fastcall TForm1::ListBox1MeasureItem(TWinControl *Control,
                int Index, int &Height)   // v²╣ka je p°edßna odkazem
{
  int BitmapHeight=((TBitmap*)ListBox1->Items->Objects[Index])->Height
                   + 2;
  // ud∞lßme dostateΦnΘ mφsto pro bitovou mapu (+ 2)
  if (BitmapHeight > Height)
    Height = BitmapHeight;
}
V p°edchozφm k≤du musφme provΘst p°etypovßnφ vlastnosti Objects seznamu °et∞zc∙. Tato vlastnost je typu TObject a m∙╛e obsahovat odkaz na libovoln² typ objektu. Pokud zφskßvßme objekt z pole, musφme provΘst p°etypovßnφ na aktußlnφ typ prvku.
Kdy╛ aplikace po╛aduje zobrazenφ nebo p°ekreslenφ ovladaΦe, pak Windows generuje udßlost OnDrawItem (OnDrawCell) pro ka╛d² viditeln² prvek v ovladaΦi. Tato udßlost obsahuje parametry urΦujφcφ index zobrazovanΘho prvku, obdΘlnφk, ve kterΘm prvek bude zobrazen a obvykle n∞jakΘ informace o stavu prvku (nap°. zda prvek mß zaost°enφ). Aplikace zpracuje ka╛dou udßlost zobrazenφm p°φslu╣nΘho prvku v danΘm obdΘlnφku. Nap°. nßsledujφcφ k≤d ukazuje jak zobrazit prvky v okn∞ seznamu, kter² mß ke ka╛dΘmu °et∞zci p°i°azenou bitovou mapu:
void __fastcall TForm1::ListBox1DrawItem(TWinControl *Control,
    int Index, TRect &Rect, TOwnerDrawState State)
  TBitmap *Bitmap = (TBitmap *)ListBox1->Items->Objects[Index];
  ListBox1->Canvas->Draw(Rect.Left, Rect.Top + 2, Bitmap);
  ListBox1->Canvas->TextOut(Rect.Left + Bitmap->Width + 2, Rect.Top + 2,
    ListBox1->Items->Strings[Index]);
}

• Zdroje mohou b²t rychle zp°φstup≥ovßny (nenφ zapot°ebφ hledat jejich umφst∞nφ, staΦφ je zavΘst ze souboru).
• K≤d a zdroje jsou umφst∞ny v jednΘ jednotce (EXE souboru) a nejsou zapot°ebφ dal╣φ soubory.

    void __fastcall StartClick(TObject *Sender);
    void __fastcall StopClick(TObject *Sender);
private:        // User declarations
    bool done;
    void DrawImage(String& name);
public:         // User declarations
    virtual __fastcall TMainForm(TComponent* Owner);
};
extern PACKAGE TMainForm *MainForm;
#endif
Na prvnφm z nich deklarujeme datovou slo╛ku typu bool, kterß je pou╛ita k urΦenφ zda animaci zastavit. Na druhΘm °ßdku je deklarace metody pou╛itΘ k zobrazovßnφ bitovΘ mapy v komponent∞ Image.
Ve v²pisu zdrojovΘho k≤du jednotky, si pov╣imn∞te dvou funkcφ API, kterΘ jsou pou╛ity k zavßd∞nφ zdroj∙ °et∞zc∙ a zvukov²ch soubor∙. Na ΦervenΘm °ßdku, funkce LoadString zavßdφ zdroj °et∞zce do textovΘ vyrovnßvacφ pam∞ti na zßklad∞ ΦφselnΘ identifikace °et∞zce. ╪et∞zec je potom p°i°azen vlastnosti Caption komponenty Label. Na modrΘm °ßdku, funkce PlaySound je pou╛ita k p°ehrßnφ zdroje zvukovΘho souboru. P°φznak SND_ASYNC urΦuje, ╛e zvuk bude p°ehrßvßn asynchronn∞, tj. animace bude probφhat souΦasn∞ s p°ehrßvßnφm. P°φznak SND_RESOURCE °φkß Windows, ╛e zvuk je obsa╛en ve zdroji a ne v souboru na disku. Ob∞ tyto funkce p°ebφrajφ globßlnφ prom∞nnou HInstance, kterß °φkß Windows, kde hledat zdroje ve spustitelnΘm souboru. Pokud poΦφtaΦ nenφ vybaven zvukovou kartou, pak zvuk neusly╣φme.
#include <vcl\vcl.h>
// zapot°ebφ pro funkci PlaySound()
#include <vcl\mmsystem.hpp>
#pragma hdrstop
#include "JJMain.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
// definice pro zdroje °et∞zc∙
#define IDS_UP    101
#define IDS_DOWN  102
HINSTANCE hInst;
TMainForm *MainForm;
//--------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
  : TForm(Owner), done(false)
{
}
void __fastcall TMainForm::FormCreate(TObject *Sender)
{
  hInst = (HINSTANCE)HInstance;
  // Zavedenφ a zobrazenφ prvnφ bitovΘ mapy
  Image->Picture->Bitmap->
    LoadFromResourceName((int)hInst, "ID_BITMAP1");
}
void __fastcall TMainForm::StartClick(TObject *Sender)
{
  String s = "ID_BITMAP";
  char buff[10];
  done = false;
  while (!done) {
    for (int i=1;i<6;i++) {
      String resName = s + String(i);
      DrawImage(resName);
    }
    LoadString(hInst, IDS_UP, buff, sizeof(buff));
    Label->Caption = buff;
    Label->Refresh();
    PlaySound("ID_WAVEUP", hInst, SND_ASYNC | SND_RESOURCE);
    Sleep(200);
    for (int i=5;i>0;i--) {
      String resName = s + String(i);
      DrawImage(resName);
    }
    PlaySound("ID_WAVEDOWN", hInst, SND_ASYNC | SND_RESOURCE);
    LoadString(hInst, IDS_DOWN, buff, sizeof(buff));
    Label->Caption = buff;
    Label->Refresh();
    Sleep(200);
  }
}
void __fastcall TMainForm::StopClick(TObject *Sender)
{
  done = true;
}
void TMainForm::DrawImage(String& name)
{
  Image->Picture->Bitmap->LoadFromResourceName((int)hInst, name);
  Application->ProcessMessages();
  Sleep(20);
}
Nßsleduje v²pis zaΦßtku souboru skriptu zdroj∙.
#define IDS_UP   101
#define IDS_DOWN 102
STRINGTABLE
{
 IDS_UP, "Up"
 IDS_DOWN, "Down"
}
ID_WAVEUP   WAVE "up.wav"
ID_WAVEDOWN WAVE "down.wav"
ID_BITMAP1 BITMAP LOADONCALL MOVEABLE DISCARDABLE IMPURE
{
 '42 4D 76 02 00 00 00 00 00 00 76 00 00 00 28 00'
 '00 00 20 00 00 00 20 00 00 00 01 00 04 00 00 00'
...
╚erven∞ oznaΦenΘ °ßdky definujφ zdroj tabulky °et∞zc∙. Tabulku °et∞zc∙ snadno vytvo°φme v libovolnΘm textovΘm editoru. «lutΘ °ßdky jsou zdroje WAVE (pro oba soubory WAV, kterΘ byly p°edem zaznamenßny a umφst∞ny do adresß°e projektu). Kdy╛ p°ekladaΦ zdroj∙ uvidφ deklaraci WAVE, p°eΦte urΦen² soubor a p°elo╛φ jej do binßrnφho souboru zdroj∙. BitovΘ mapy jsou vytvo°eny v tradiΦnφm editoru zdroj∙. Popis zdroj∙ pro bitovΘ mapy m∙╛e b²t velmi dlouh². Zbytek na╣eho souboru jsou zdroje bitov²ch map.