Virtual Piano

[alfold]

Naja, so schlimm wird es ja nicht!
Ich brauch ja ne ganze weile. Erst wenn ich soweit fertig bin schick ich ihm die überarbeitete zu. EWeiss wird selbst nichts ändern, in meinem Sinne. Würde ich auch nicht verlangen, da es ja so schon funktioniert

Es ging Ihm ja auch nicht darum was ich möchte, sondern um zu zeigen das man auch ohne VCL tolle Oberflächen gestallten kann.

Es wird also kein Codegespame in dieser hinsicht geben

Der Rest erfolgt eh per Mail

@NamenLozer: Idee ist gut, nur wie man sowas macht
@blackfin: Warten muss er eh, bin ja nicht der schnellste
Gruss alfold

[EWeiss]

Zitat:

Warten muss er eh, bin ja nicht der schnellste

Kein problem für mich.

gruss

[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