XProfan

Kompilieren Marque Séparation

- page 1 -

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.

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 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.

- page 2 -

Hans-Jürgen
Trog

vielen Dank. ensuite werde je la fois voyons, comment je cela einbaue

XProfan X4
Windows-Tablet mit Win11, XProfan X4

Kompilieren Marque Séparation

H.Brill

Na, so aussi autre Abfragen dans einer GUI aussi :

Déclarer Int MNummer[], String MString[], Long ende, x, hicon
hicon = Créer("hIcon", "Gesicht")
Titre de la fenêtre "Mittlere Bouton de la souris im TrayIcon finissez Programme !"
Fenêtre 600, 400
CreateMenu %HWnd
TrayIcon("add", %hWnd, 1, hIcon, "Mein Icon")
ende = 0

WhileNot ende

    WaitInput

    Select TrayIcon("msg", 1)

        CaseOf $202: SetMenuItem 101

        CaseOf $205: Aktion(2)

        CaseOf $208: Aktion(3)

    EndSelect

    Cas %Key = $10 : ende = 1
    Cas MenuItem(101) : MessageBox("Linke  Bouton de la souris -> Aktion 1", "Info", 0)

Endwhile

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

Proc Aktion

    Paramètres Long action

    Select action

        'CaseOf 1 : MessageBox("Linke  Bouton de la souris -> Aktion 1", "Info", 0)

        CaseOf 2 : MessageBox(«Les droits Bouton de la souris -> Aktion 2", "Info", 0)

        CaseOf 3 : ende = 1

    EndSelect

ENDPROC

Fin

si eh bien dans qui tête - Boucle qui Aktion fonctionnement wird ou bien comment chez mir sur
une Proc, bleibt Geschmackssache et ist dir überlassen. là gibt es plusieurs
Opportunités. j'ai dessus im Code pour Aktion 1 une Menüpunkt gesetzt
et sur MenuItem(101) abgefragt.
important ist, cela menu (CreateMenu) avant dem TrayIcon trop erstellen, sonst
verschwindet cela Icon soudain.
Ansonsten peux du dir deiner Kreativität freien le cours laisser. là ginge aussi
qui Utilisateur Messages, indem du à l' %HWnd une eigens definierte Message schikst et %uMessage abfragst. la plus part du temps mais verwende je qui Usermessages, si je Multiprozessing avec dabei habe.là peux je chez
pExec cela %Hwnd avec transfert. si je ensuite im Prozess cela Hauptprogramm sur quelque chose informer doit, allez cela ensuite aussi sur SendMessage.

04.08.2024 ▲