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.

[EWeiss]

Die Frage ist warum tritt der fehler nicht bei mir auf.
Hmmm...

gruss

[EWeiss]

grrr .. was ist das da ist einiges aus dem Ruder gelaufen..
Kommt davon wenn man vorherige funktionen kopiert und nicht neu aufsetzt.


Schau mal bei SetFont..
Und mit welcher Liste der Font erstellt wird.

Bei DrumList solte da anstelle von

Delphi-Quellcode:

    InstrumentList.SetFont(SKAERO_CAPTIONFONTHEIGHT, PAnsiChar(SKAERO_TEXTFONT),
      SKAERO_ACTIVECAPTION, SKAERO_INACTIVECAPTION, TRUE, 2, 0);

das stehen

Delphi-Quellcode:

    DrumList.SetFont(SKAERO_CAPTIONFONTHEIGHT, PAnsiChar(SKAERO_TEXTFONT),
      SKAERO_ACTIVECAPTION, SKAERO_INACTIVECAPTION, TRUE, 2, 0);

Das selbe bei den anderen.

Aber trotzdem seltsam das es bei mir funktioniert hat trotz des fehlers.

gruss

[Namenloser]

Hab’s mal geändert, aber das hat leider nichts geholfen. Hätte mich allerdings auch gewundert, denn der Fehler trat ja auch vorher bereits beim ersten Aufruf auf.

[EWeiss]

Zitat von NamenLozer:

Hab’s mal geändert, aber das hat leider nichts geholfen. Hätte mich allerdings auch gewundert, denn der Fehler trat ja auch vorher bereits beim ersten Aufruf auf.

Ich denk das ist ein Problem unter Vista.
Bei lbccaleb tritt es ja auch nicht auf unter Win7 64 Bit..

Habs's dir ja schon geschrieben.
Würde mich interessieren ob andere das auch haben.

gruss

[alfold]

mh... bei mir funct alles W7/32 in VM
allerdings flackert die Scrollbox wenn ich die knöpfe bewege?

Gute Arbeit

alfold

[EWeiss]

Zitat von alfold:

mh... bei mir funct alles W7/32 in VM
allerdings flackert die Scrollbox wenn ich die knöpfe bewege?

Gute Arbeit

alfold

Bei den Knobs?
Oder meinst den Slider. (Das ist bekannt)

gruss