XProfan

Kompilieren Marque Séparation

H.Brill

Scheint chez mir plutôt qui linke Mausbutton trop son.

Déclarer hIcon&, ende%
Titre de la fenêtre "XProfan 11: TrayIcon-Demo"
Cls
hIcon& = create("hIcon", "Profan")
TrayIcon("add", %hWnd, 1, hIcon&, "XProfan 11")
Imprimer "Ende avec linkem Double-cliquez sur!"

WhileNot ende%

    WaitInput

    Select TrayIcon("msg", 1)

        CaseOf $201 : Imprimer "Linke Bouton de la souris gedrückt"

        CaseOf $202: Imprimer "Linke Bouton de la souris losgelassen"

        CaseOf $203: ende% = 1

        CaseOf $207 : Imprimer "Mittlere Bouton de la souris gedrückt"

        CaseOf $208 : Imprimer "Mittlere Bouton de la souris losgelassen"

        CaseOf $209 : Imprimer "Mittlere Bouton de la souris Doppelklick"

        CaseOf $204: Imprimer «Les droits Bouton de la souris gedrückt"

        Cas $205 : Imprimer «Les droits Bouton de la souris losgelassen"

        CaseOf $206: Imprimer "Rechter Doppelklick"

    EndSelect

Endwhile

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

mais là peux on sich oui aussi sur ...Button_UP behelfen, là es oui
zum gleichen Ergebnis führt.

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.

Kompilieren Marque Séparation

Hans-Jürgen
Trog

H.Brill (03.08.2024)

Scheint chez mir plutôt qui linke Mausbutton trop son.

Déclarer hIcon&, ende%
Titre de la fenêtre "XProfan 11: TrayIcon-Demo"
Cls
hIcon& = create("hIcon", "Profan")
TrayIcon("add", %hWnd, 1, hIcon&, "XProfan 11")
Imprimer "Ende avec linkem Double-cliquez sur!"

WhileNot ende%

    WaitInput

    Select TrayIcon("msg", 1)

        CaseOf $201 : Imprimer "Linke Bouton de la souris gedrückt"

        CaseOf $202: Imprimer "Linke Bouton de la souris losgelassen"

        CaseOf $203: ende% = 1

        CaseOf $207 : Imprimer "Mittlere Bouton de la souris gedrückt"

        CaseOf $208 : Imprimer "Mittlere Bouton de la souris losgelassen"

        CaseOf $209 : Imprimer "Mittlere Bouton de la souris Doppelklick"

        CaseOf $204: Imprimer «Les droits Bouton de la souris gedrückt"

        Cas $205 : Imprimer «Les droits Bouton de la souris losgelassen"

        CaseOf $206: Imprimer "Rechter Doppelklick"

    EndSelect

Endwhile

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

mais là peux on sich oui aussi sur ...Button_UP behelfen, là es oui
zum gleichen Ergebnis führt.

chez dem Voir le texte source reagiert cela Programme sur keinen Button.

quoi meinst Du avec "...Button_UP" ?

XProfan X4
Windows-Tablet mit Win11, XProfan X4

H.Brill

Bedienst du cela Programme aussi richtig ?
Unten dans qui Taskleiste flèche pour dessus (^).
dans dem Kästchen vois du ensuite dein Trayicon.

quoi meinst Du avec "...Button_UP" ?

So un Mausklick besteht eigentlich aus 2 Events. Z.b. un Linksklick aus
$0201 : wm_LButtonDown
et
$0202 : wm_LButtonUp
siehe WindowsMessages.

Besser dit aus dem Herunterdrücken et dem Losslassen qui
Bouton de la souris. qui Anwender merkt cela mais beim Klick gar pas. Daher
peux on so un Mausklick aussi avec dem wm_LButtonUp erkennen.
Bevor oui une bouton losgelassen volonté peux, doit vous oui erstmal gedrückt
son. et so ist es oui sans équivoque, si qui Anwender quelque chose angeklickt hat.

So gibt es oui aussi encore %mousepressed. Den braucht on mais plutôt
beim Freihandzeichnen, Drag & Drop usw.

Hans-Jürgen
Trog

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

Bedienst du cela Programme aussi richtig ?
Unten dans qui Taskleiste flèche pour dessus (^).
dans dem Kästchen vois du ensuite dein Trayicon.

Hatte je pas. j'ai toujours dans cela la fenêtre geclickt

si je sur cela Trayicon klicke, venez chez dem linken Mausbutton toujours seulement "linke Bouton de la souris losgelassen", ebenso beim Druck sur cela Mausrad. Es venons aucun anderen Reaktionen.

XProfan X4
Windows-Tablet mit Win11, XProfan X4

Kompilieren Marque Séparation

H.Brill

Probiere la fois cela :

Déclarer Int MNummer[], String MString[], Long ende, 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"
Fenêtre 600, 400
ende = 0
Utilisateur Messages $201, $202, $204, $205, $207, $208, $20A

WhileNot ende

    WaitInput
    x = 0
    Localiser 10, 2
    x = IndexOf(MNummer[], %UMessage)
    Imprimer Space$(20)
    Localiser 10, 2
    Cas x > -1 : Imprimer MString[x]
    Cas %Key = $10 : ende = 1

Endwhile

Fin

ou bien la hâte du irgendwelche Maustasten sur cela Windows-System umgelegt
(z.b. Linkshänder o. ä.) ?

Ansonsten devrait cela marcher.

Hans-Jürgen
Trog

cela zeigt alles richtig à!

comment baue je cela eh bien un?

XProfan X4
Windows-Tablet mit Win11, XProfan X4

Hans-Jürgen
Trog

je hoffe, je nerve toi pas!

XProfan X4
Windows-Tablet mit Win11, XProfan X4

H.Brill

allez car qui code, qui chez den TraIcon-Befehlen steht, pas ?

avec den Utilisateur Messages allez cela pas. qui sommes seulement pour cela Hauptfenster
gedacht. et un Handle pour den Systray avons wir aussi pas.
quoi sur dem TrayIcon gedrückt wurde, peux uns seulement qui
TrayIcon("msg", 1) liefern.
Printe fois le Messages, qui TrayIcon("msg", 1) zurück gibt, sur dem la fenêtre
aus. si es normale payons sommes, dois du qui encore auparavant avec Hex$() Travailler.
peut-être venons wir ensuite plus.

comment déjà dit : chez mir funktioniert es, comme soll.

Hans-Jürgen
Trog

rechte maustaste bringt 517 et ne...aucune Text

linke Bouton de la souris bringt 514 et Text linke Bouton de la souris losgelassen

Windows-Tablet mit Win11, XProfan X4

Hans-Jürgen
Trog

pour Umwandlung venez rechte Bouton de la souris losgelassen. Gedrückt venez gar pas.

XProfan X4
Windows-Tablet mit Win11, XProfan X4

H.Brill

Ist doch ensuite richtig, sommes ensuite qui normalen Zahlenwerte statt Hex :
Bringt avec Hex$(517) - 205 et Hex$(514) - 202

cela Dollarzeichen pour Hex venez naturellement encore devant. allez oui aussi
wieder zuück : Imprimer VAL("$205"), VAL("$202").

et si on eh bien Zahlenwerte ou bien Hexwerte miteinander vergleicht,
mais est schnuppe.

comment je dessus déjà erklärte : losgelassen (UP) est soviel comment gedrückt.
Den Wert de DOWN erhälst du seulement, si du qui Bouton de la souris gedrückt hälst.
qui Werte de TrayIcon("Msg", 1) sommes jedenfalls richtig.