Virtual Piano

[Namenloser]

Also ich bin mal mit dem Debugger durchgesteppt, und der Fehler scheint bei den Listboxen zu liegen. Er tritt auf in der Unit uControls ab Zeile 793:

Delphi-Quellcode:

    InstrumentList := CTRL_ListBoxCreate(hMain, PAnsiChar(SKAERO_FOLDER + 'Midi.png'),
      150, 67, 585, 257, ID_INSTRUMENTLIST, False, 18, SKAERO_INACTIVECAPTION);
    InstrumentList.SetFont(SKAERO_CAPTIONFONTHEIGHT, PAnsiChar(SKAERO_TEXTFONT),
      SKAERO_ACTIVECAPTION, SKAERO_INACTIVECAPTION, TRUE, 2, 0);
    SKAERO_SetAnchorMode(InstrumentList.Handle, ANCHOR_HEIGHT_WIDTH);
    SKAERO_SetZorder(InstrumentList.Handle, HWND_TOP);

    DrumList := CTRL_ListBoxCreate(hMain, PAnsiChar(SKAERO_FOLDER + 'Midi.png'),
      150, 67, 585, 257, ID_DRUMLIST, False, 18, SKAERO_INACTIVECAPTION);
    InstrumentList.SetFont(SKAERO_CAPTIONFONTHEIGHT, PAnsiChar(SKAERO_TEXTFONT),
      SKAERO_ACTIVECAPTION, SKAERO_INACTIVECAPTION, TRUE, 2, 0);
    SKAERO_SetAnchorMode(DrumList.Handle, ANCHOR_HEIGHT_WIDTH);
    SKAERO_SetZorder(DrumList.Handle, HWND_TOP);

    EffectList := CTRL_ListBoxCreate(hMain, PAnsiChar(SKAERO_FOLDER + 'Midi.png'),
      150, 67, 585, 257, ID_EFFECTLIST, False, 18, SKAERO_INACTIVECAPTION);
    InstrumentList.SetFont(SKAERO_CAPTIONFONTHEIGHT, PAnsiChar(SKAERO_TEXTFONT),
      SKAERO_ACTIVECAPTION, SKAERO_INACTIVECAPTION, TRUE, 2, 0);
    SKAERO_SetAnchorMode(EffectList.Handle, ANCHOR_HEIGHT_WIDTH);
    SKAERO_SetZorder(EffectList.Handle, HWND_TOP);

    VLList := CTRL_ListBoxCreate(hMain, PAnsiChar(SKAERO_FOLDER + 'Midi.png'),
      150, 67, 585, 257, ID_VLLIST, False, 18, SKAERO_INACTIVECAPTION);
    InstrumentList.SetFont(SKAERO_CAPTIONFONTHEIGHT, PAnsiChar(SKAERO_TEXTFONT),
      SKAERO_ACTIVECAPTION, SKAERO_INACTIVECAPTION, TRUE, 2, 0);
    SKAERO_SetAnchorMode(VLList.Handle, ANCHOR_HEIGHT_WIDTH);
    SKAERO_SetZorder(VLList.Handle, HWND_TOP);

    Trackbar := CTRL_TrackbarCreate(hMain, (SKAERO_FOLDER + 'BTN_TrackL.png'),
      735, 67, 20, 257, ID_TRACK_VSCROLL, 1, 0, 1, SKAERO_TRACKHICOLOR, SKAERO_TRACKPROGRESSCOLOR);
    SKAERO_SetAnchorMode(Trackbar.Handle, ANCHOR_RIGHT);
    SKAERO_SetZorder(Trackbar.Handle, HWND_TOP);

Und zwar beim Aufruf von InstrumentList.SetFont und (wenn man dieses auskommentiert) SKAERO_SetZorder. Dabei springt er nämlich beim endgültigen Funktionsaufruf offensichtlich statt zur gewollten Adresse zu irgendeiner Junk-Adresse, sodass sinnlose Bytes ausgeführt werden, was zu einer Zugriffsverletzung führt.

Es scheint irgendein Problem mit dem Interface zu sein. Genaueres kann ich leider nicht rausfinden, da ich nicht den Source von der DLL habe.