Virtual Piano

[Namenloser]

Kannst du gerne machen, solange es sich unter TDE kompilieren lässt.

[lbccaleb]

Zitat:

Zitat von NamenLozer (Beitrag 1088725)

Kannst du gerne machen, solange es sich unter TDE kompilieren lässt.

Da er ja komplett nonVCL Coded sollte das eigentlich kein Problem sein :)

Edit:

Achja...

@Emil, da ich ja nun sehe dass du offensichtlich das Problem mit der ListBox und dem Neuzeichnen gelöst hast (wenn vllt auch noch net ganz zu 100%) kannst du ja vllt. auch deine Kompo überarbeiten, die da ja noch so halb offen rumliegt :P

Zur erinnerung: http://www.delphipraxis.net/129129-translistbox.html

[EWeiss]

Zitat:

@Emil, da ich ja nun sehe dass du offensichtlich das Problem mit der ListBox und dem Neuzeichnen gelöst hast (wenn vllt auch noch net ganz zu 100%) kannst du ja vllt. auch deine Kompo überarbeiten, die da ja noch so halb offen rumliegt

Kann ja mal schaun.. ;)

@NamenLozer
Kann über Private Nachrichten keine Dateien verschicken..
Hmm das ist neu.

Was mir noch einfällt du hast genügend Rechte die im Ordner Config
liegende Textdateien zu öffnen ?

gruss

[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:

Zitat von NamenLozer (Beitrag 1088765)

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 :thumb:

alfold

[EWeiss]

Zitat:

Zitat von alfold (Beitrag 1088812)

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

Gute Arbeit :thumb:

alfold

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

gruss