Menu Ownerdraw

[TiGü]

Guck dir mal GetMenuFromHandle an und die Stellen wo es verwendet wird.

[EWeiss]

Zitat von TiGü:

Guck dir mal GetMenuFromHandle an und die Stellen wo es verwendet wird.

Danke.. Ist etwas komplizierter muss mich da durchbeißen.

Delphi-Quellcode:

    WM_PAINT, WM_PRINTCLIENT:
      begin
        HToolBarMenu := HMENU(SendMessage(GetParent(WinHandle), MN_GETHMENU, 0, 0));
        if HToolBarMenu <> 0 then
            ToolBarSubClass(hToolbarMenu);

Innerhalb der ToolbarProc.
Handle ist immer 0.

GetParent(WinHandle) und nur WinHandle immer 0.
Kann ich mit den VCL Styles nicht vergleichen. Hmmm...

gruss

[EWeiss]

Messagen die ich bekomme und das Menu siehe im Anhang.. hat bei den VCL Styles nichts mit einem Popupmenu zu tun.
Deshalb scheint MN_GETHMENU nicht das richtige zu sein.

gruss

[TiGü]

Wo kommt denn der Wert für hToolbar in procedure TSkinOpenSaveDialog.ToolBarSubClassProc(var Message: TMessage); her?

[EWeiss]

Zitat von TiGü:

Wo kommt denn der Wert für hToolbar in procedure TSkinOpenSaveDialog.ToolBarSubClassProc(var Message: TMessage); her?

Delphi-Quellcode:

  hToolbar := FindWindowEx(hMain, 0, 'ToolBarWindow32', nil);
  GetWindowRect(hToolbar, rc);
  lpt.x := rc.Left;
  lpt.y := rc.Top;
  ScreenToClient(hMain, lpt);

  MoveWindow(hToolbar, lpt.x, lpt.y, (rc.Right - rc.Left) + 3, rc.Bottom - rc.Top, false);

  ExStyle := GetWindowLongPtr(hToolbar, GWL_EXSTYLE);
  ExStyle := ExStyle or WS_EX_TRANSPARENT;
  SetWindowLongPtr(hToolbar, GWL_EXSTYLE, ExStyle);
  ToolBarSubClass(hToolbar);

hMain = Handle der Class #32700 Dialog Box

gruss

[TiGü]

Anbei mal ein Minimalbeispiel (ja, das geht in der Tat recht schnell) zum nachdebuggen in einer höheren Delphiversion, die schon VCL Styles unterstützt (z.B. die Delphi Community Editon).

Du kannst ja einfach mal nachvollziehen, wie in procedure TSysPopupStyleHook.WMPRINT(var Message: TMessage); der Hintergrund bei der Message WM_PRINT (791) gezeichnet wird.

[EWeiss]

Danke werde es mir anschauen..

gruss

[EWeiss]

Report:
Ist einfach mit seiner Engine aber nicht auf meiner weise..
Ich kann nicht erkennen wo das Event ausgelöst wird.. bei mir sollte es eigentlich WM_LBUTTONDOWN sein.

Aber ich bekomme kein gültiges Handle.
Ich klicke ja auf den Tollbarbutton nur welches Handle ist das bekomme ja nur das von der Toolbar selbst zurück geliefert.
Nicht das des Button den ich klicke noch das vom Menu.

Wenn ich das auf seine weise mache schlägt es fehl.

Delphi-Quellcode:

    WM_LBUTTONDOWN:
      begin
        Style := GetWindowLongPtr(WinHandle, GWL_STYLE);
        if (Style and WS_POPUP = WS_POPUP) then
        begin
          if HToolBarMenu <> 0 then
            ToolBarSubClass(hToolbarMenu);
        end;
      end;

Hmmm schwierig..
PS:
Werde es wohl erst mal verwerfen komme nicht an das Handle.

gruss