Virtual Piano

[EWeiss]

@NamenLozer

Wenn du zeit hast kannst nochmal testen ob die Listbox jetzt bei dir funktioniert?
Hab da einiges umgestellt vor allem was das ansprechen der ClientProc aus der DLL angeht.
Zusätzlich noch einen visuellen Rect erstellt für Selektierte Auswahl.

gruss

[Namenloser]

Leider nein
Beim Start kommt jetzt die Meldung im Anhang (vorher passierte gar nichts, und das Programm hing nur).

[EWeiss]

Zitat von NamenLozer:

Leider nein
Beim Start kommt jetzt die Meldung im Anhang (vorher passierte gar nichts, und das Programm hing nur).

Hmm das hilft mir nicht wirklich weiter.
Kann mit dem Skin bzw.. dem einlesen der Instrumentenlisten zu tun haben wenn die nicht
korrekt sind. (Alte Version)

Danke für's testen.

Das linken auf die WinProc der Hauptanwendung sollte eigentlich so OK sein!

Delphi-Quellcode:

  FClientInstance,
  FPrevClientProc: TFNWndProc;

nachdem ich das Handle habe initialisiere ich die Subclass

SubClass(FHandle);

Delphi-Quellcode:

procedure TSkinListBox.SubClass(WinHandle: HWND);
begin
  FClientInstance := MakeObjectInstance(ClientWndProc);

  FPrevClientProc := Pointer(GetWindowLong(WinHandle, GWL_WNDPROC));
  SetWindowLong(WinHandle, GWL_WNDPROC, Integer(FClientInstance));
end;

Delphi-Quellcode:

procedure TSkinListBox.ClientWndProc(var Message: TMessage);

begin
  with Message do
  begin
    case Msg of
      WM_ERASEBKGND:
        Result := ListBoxProc(FHandle, integer(Msg), Message.WParam, Message.LParam);
      WM_MOUSEWHEEL:
        Result := ListBoxProc(FHandle, integer(Msg), Message.WParam, Message.LParam);
      WM_PAINT:
        Result := ListBoxProc(FHandle, integer(Msg), Message.WParam, Message.LParam);
      WM_LBUTTONUP:
        Result := ListBoxProc(FHandle, integer(Msg), Message.WParam, Message.LParam);
      WM_KILLFOCUS:
        Result := ListBoxProc(FHandle, integer(Msg), Message.WParam, Message.LParam);
    end;

    if (Result = 0) then
      Result := CallWindowProc(FPrevClientProc, FHandle, Msg, wParam, lParam);
  end;
end;

und dann.. bla bla

Delphi-Quellcode:

function TSkinListBox.ListBoxProc(WinHandle: HWND; Msg: UINT; wP: WParam; lP: LParam): LRESULT; stdcall;
begin
  ...
  Result := CallWindowProc(Pointer(FPrevClientProc), WinHandle, Msg, wP, lP);
end;

Kann mir jetzt nicht vorstellen das es daran liegen könnte (vermutung)
das die ListBoxProc privat deklariert ist.


gruss

[Namenloser]

Moment mal – deine WndProc ist eine Methode eines Objekts? Woher soll denn dann der implizite Parameter self kommen, wenn die WndProc von Windows aufgerufen wird? Das könnte durchaus der Grund für den Crash sein.

Änder doch mal die Deklaration in class procedure TSkinListBox.ClientWndProc(var Message: TMessage); static; . Das ist dann quasi wie eine „normale“ Procedure, nur in einer Klasse deklariert.


edit: Okay, sorry, kannte MakeObjectInstance nicht. Gerade nachgelesen, was das ist – damit sollte es wohl doch in Ordnung sein.

edit 2: Allerdings könnte es sein, dass diese Methode mit der Datenausführungsverhinderung DEP (die ich aktiviert habe) in Konflikt gerät. Denn anscheinend wird dabei Code on-the-fly generiert/alloziiert, allerdings konnte ich nirgends sehen, dass für den Speicherbereich das PAGE_EXECUTE -Flag gesetzt würde. Vielleicht könntest du es ja doch mal so probieren, wie ich oben vorgeschlagen habe?

[EWeiss]

Zitat von NamenLozer:

Moment mal – deine WndProc ist eine Methode eines Objekts? Woher soll denn dann der implizite Parameter self kommen, wenn die WndProc von Windows aufgerufen wird? Das könnte durchaus der Grund für den Crash sein.

Änder doch mal die Deklaration in class procedure TSkinListBox.ClientWndProc(var Message: TMessage); static; . Das ist dann quasi wie eine „normale“ Procedure, nur in einer Klasse deklariert.


edit: Okay, sorry, kannte MakeObjectInstance nicht. Gerade nachgelesen, was das ist – damit sollte es wohl doch in Ordnung sein.

Sollte nicht funktionieren.

Zitat:

[DCC Fehler] uListBox.pas(98): E2376 STATIC kann nur für nicht-virtuelle Klassenmethoden verwendet werden

Zitat:

Okay, sorry, kannte MakeObjectInstance nicht. Gerade nachgelesen, was das ist – damit sollte es wohl doch in Ordnung sein.

Kein problem

gruss

[Namenloser]

Ach sorry, mein Fehler. Ich habe völlig übersehen, dass in dem Archiv nur die geänderten Dateien enthalten waren. Deshalb ging es nicht. Ich habe jetzt dieses Dateien über eine ältere Version drüberkopiert, und siehe da: Es funktioniert Cool!

Glückwunsch, du hast den Fehler wohl doch behoben!

[EWeiss]

Zitat von NamenLozer:

Ach sorry, mein Fehler. Ich habe völlig übersehen, dass in dem Archiv nur die geänderten Dateien enthalten waren. Deshalb ging es nicht. Ich habe jetzt dieses Dateien über eine ältere Version drüberkopiert, und siehe da: Es funktioniert Cool

Glückwunsch, du hast den Fehler wohl doch behoben!

WOW Das ist doch mal was.. ohne Vista
OK das mit dem Selektieren aslo einen Rahmen um den Selektierten eintrag wird wohl nicht gehen da hier ein *png für benötigt wird..
Das nur mal so am Rande!
Dann danke nochmal für das Testen.

gruss