XProfan

Julian
Schmidt

have you got it already over Messages probiert?

WM_LBUTTONDOWN = $0201;
WM_LBUTTONUP = $0202;
WM_LBUTTONDBLCLK = $0203;
WM_RBUTTONDOWN = $0204;
WM_RBUTTONUP = $0205;
WM_RBUTTONDBLCLK = $0206;
WM_MBUTTONDOWN = $0207;
WM_MBUTTONUP = $0208;
WM_MBUTTONDBLCLK = $0209;

the goes either by User Messages or by Subclassing.

for latter here example:
Compile Mark Separation

 $H Messages.ph
Declare Handle fenster, Status
Declare Memory L
Dim L, 4' für Statuswindow (nur 1 Feld)
Long L, 0 = -1

SubClassProc

    If SubClassMessage(fenster, ~WM_RBUTTONDOWN)' rechte Maustaste

        SetMenuItem 2000

    ElseIf SubClassMessage(fenster, ~WM_LBUTTONDOWN)' Linke Maustaste

        SetMenuItem 2001

    ElseIf SubClassMessage(fenster, ~WM_MBUTTONDOWN)' Mittlere Maustaste

        SetMenuItem 2002

    EndIf

EndProc

WindowStyle 512 + 8' Dialogstil + Systemmenü
fenster   = Create("Window", %HWnd, "Mein Fenster", 100, 50, 800, 400)
Status    = @Create("StatusWindow", fenster,"", 1,L)
SubClass fenster, 1

While 1

    Waitinput
    Case %Key = 2 : Break' Schließen-Kreuz gedrückt.

    If MenuItem(2000)

        SetText Status, 0, "Rechte Maustaste"

    ElseIf MenuItem(2001)

        SetText Status, 0, "Linke Maustaste"

    ElseIf MenuItem(2002)

        SetText Status, 0, "Mittlere Maustaste"

    EndIf

Wend

SubClass fenster, 0
Dispose L
./../funcion-referencias/XProfan/end/'>End

XProfan X2
Windows 8.1 Pro, AMD FX(tm)-8350 Eight-Core Processor, 16365,20 MB
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

maroro

Yes User Messages weg not but I have now still a Solution found.
Yes Subclassing could evtl. too weg is in the comparison To of my
actually Solution very costly.
somehow blickt one then rather through if one it time written has.

The Solution is %notifycode the by me -16 auswirft if I left press.
in the normal lying it with -121 and already can what evaluate.

H.Brill

maroro (12.06.14)

what's this thing because for a Headline of/ one GridBOX ?
The Gridboxen, The I know, having Spaltenbuttons.
Meinst You these ?

then wären The LVM_ - Messages interestingly.
in example
LVM_GETHEADER = ~LVM_FIRST + 31;

Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.