XProfan

- Page 1 -

Hans-Jürgen
Trog

H.Brill (03.08.2024)

shining by me sooner the left Mausbutton To his.

Compile Mark Separation

Declare hIcon&, end%
Window Title "XProfan 11: TrayIcon-Demo"
Cls
hIcon& = create("hIcon", "Profan")
TrayIcon("add", %hWnd, 1, hIcon&, "XProfan 11")
Print "Ende with linkem Double click!"

WhileNot end%

    WaitInput

    Select TrayIcon("msg", 1)

        CaseOf $201 : Print "Linke Mouse button gedrückt"

        CaseOf $202: Print "Linke Mouse button losgelassen"

        CaseOf $203: end% = 1

        CaseOf $207 : Print "Mittlere Mouse button gedrückt"

        CaseOf $208 : Print "Mittlere Mouse button losgelassen"

        CaseOf $209 : Print "Mittlere Mouse button Doppelklick"

        CaseOf $204: Print "Rechte Mouse button gedrückt"

        Case $205 : Print "Rechte Mouse button losgelassen"

        CaseOf $206: Print "Rechter Doppelklick"

    EndSelect

EndWhile

TrayIcon("delete", %hWnd, 1)
DeleteObject hIcon&
End

but there can itself indeed over ...Button_UP behelfen, there it Yes
to that equal Result lead.

with the View source reacted the program on none Button.

what mean You with "...Button_UP" ?

XProfan X4
Windows-Tablet mit Win11, XProfan X4

H.Brill

Bedienst You the program too correctly. ?
under in the Taskbar arrow to supra (^).
in the Kästchen you see then your Trayicon.

what mean You with "...Button_UP" ?

so one Click exists really from 2 Events. Z.b. one Linksklick from
$0201 : wm_LButtonDown
and
$0202 : wm_LButtonUp
see WindowsMessages.

rather said from the Herunterdrücken and the Losslassen the
Mouse button. The users observes the but at Click none. therefore
can so one Click too with the wm_LButtonUp discern.
before Yes a Button losgelassen go can, must tappt im dunkeln Yes first pressed
his. And so is it Yes eindeutig, whether the users something klicked has.

so there indeed yet %mousepressed. whom need one but sooner
at Freihandzeichnen, Drag & Drop etc.

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.

Hans-Jürgen
Trog

[QUOTE_=H.Brill (03.08.2024) [...]

Bedienst You the program too correctly. ?
under in the Taskbar arrow to supra (^).
in the Kästchen you see then your Trayicon.

having I do not. I have always into Window geclickt

If I on the Trayicon click, comes with the left Mausbutton always only "linke Mouse button losgelassen", likewise at pressure the Mausrad. it come no others Reaktionen.

XProfan X4
Windows-Tablet mit Win11, XProfan X4

H.Brill

Try time the :

Compile Mark Separation

Declare Int MNummer[], String MString[], Long end, x
MNummer[0] = $0201 : MString[0] = "wm_LButtonDown"
MNummer[1] = $0202 : MString[1] = "wm_LButtonUp"
MNummer[2] = $0204 : MString[2] = "wm_RButtonDown"
MNummer[3] = $0205 : MString[3] = "wm_RButtonUp"
MNummer[4] = $0207 : MString[4] = "wm_MButtonDown"
MNummer[5] = $0208 : MString[5] = "wm_MButtonUp"
MNummer[6] = $20A  : MString[6] = "Mausrad"
Window 600, 400
end = 0
User Messages $201, $202, $204, $205, $207, $208, $20A

WhileNot end

    WaitInput
    x = 0
    Locate 10, 2
    x = IndexOf(MNummer[], %UMessage)
    Print Space$(20)
    Locate 10, 2
    Case x > -1 : Print MString[x]
    Case %Key = $10 : end = 1

EndWhile

End

or have you got any Mouse buttons over the windows-system umgelegt
(z.b. Linkshänder o. ä.) ?

otherwise should the functions.

Hans-Jürgen
Trog

the shows everything correctly. on!

How building I the now one?

XProfan X4
Windows-Tablet mit Win11, XProfan X4

Hans-Jürgen
Trog

I hope, I nerve you not!

XProfan X4
Windows-Tablet mit Win11, XProfan X4

H.Brill

goes because the code, the with whom TraIcon-command standing, not ?

with the User Messages does it not. The only for the Mainwindow
virtual. and a lever for Systray having We also not.
what on the TrayIcon pressed watts, can us only The
TrayIcon("msg", 1) supplying.
Printe times the Messages, The TrayIcon("msg", 1) back gives, on the Window
from. If it normal numbers are, must You The yet before with Hex$() Edit.
Perhaps come we then moreover.

How already said : by me functions it, as should.

Hans-Jürgen
Trog

rights maustaste bring 517 and no Text

left Mouse button bring 514 and text left Mouse button losgelassen

Windows-Tablet mit Win11, XProfan X4

Hans-Jürgen
Trog

to conversion comes rights Mouse button losgelassen. pressed comes none.

XProfan X4
Windows-Tablet mit Win11, XProfan X4

H.Brill

is still then correctly., are then The normalen Zahlenwerte instead of Hex :
bring with Hex$(517) - 205 and Hex$(514) - 202

the Dollarzeichen for Hex comes naturally yet before it. goes indeed
again zuück : Print VAL("$205"), VAL("$202").

and whether one now Zahlenwerte or Hexwerte together vergleicht,
is still schnuppe.

How I supra already explained : losgelassen (UP) is as much as pressed.
whom worth of DOWN erhälst You only, if You The Mouse button pressed hälst.
The values of TrayIcon("Msg", 1) are anyway correctly..

- Page 2 -

Hans-Jürgen
Trog

many Thanks. then I will time see, How I the einbaue

XProfan X4
Windows-Tablet mit Win11, XProfan X4

H.Brill

well, so as well as others inquire in a GUI too :

Compile Mark Separation

Declare Int MNummer[], String MString[], Long end, x, hicon
hicon = Create("hIcon", "Gesicht")
Window Title "Mittlere Mouse button in the TrayIcon exits Program !"
Window 600, 400
CreateMenu %HWnd
TrayIcon("add", %hWnd, 1, hIcon, "Mein Icon")
end = 0

WhileNot end

    WaitInput

    Select TrayIcon("msg", 1)

        CaseOf $202: SetMenuItem 101

        CaseOf $205: action(2)

        CaseOf $208: action(3)

    EndSelect

    Case %Key = $10 : end = 1
    Case MenuItem(101) : MessageBox("Linke  Mouse button -> action 1", "Info", 0)

EndWhile

TrayIcon("delete", %hWnd, 1)
DeleteObject hIcon

Proc action

    Parameters Long action

    Select action

        'CaseOf 1 : MessageBox("Linke  Mouse button -> action 1", "Info", 0)

        CaseOf 2 : MessageBox("Rechte Mouse button -> action 2", "Info", 0)

        CaseOf 3 : end = 1

    EndSelect

ENDPROC

End

whether now in the master - Loop The action carryed out becomes or How by me over
a Proc, remaining Geschmackssache and is you give over. Since there it several
Opportunities. I have supra in the code for action 1 a exhaust staid
and over MenuItem(101) quizzed.
important is, the Menu (CreateMenu) to the TrayIcon to create, otherwise
disappears the Icon suddenly.
otherwise can you you your Kreativität disengaged running let. there went too
The User Messages, because You ans %HWnd a eigens defined Message schikst and %uMessage query. usually but use I The User Messages, if I Multiprozessing with thereby have.there can I with
pExec the %Hwnd with transfer. If I then in the Process the Hauptprogramm over something informieren must, does it then too over SendMessage.

08/04/24 ▲