[R] GUI toujours en premier-plan + raccourcis dans menu

[Varal7]

Bonjour,
J'ai deux questions.
J'aimerais créer ...

[R] Un GUI qui reste toujours visible (comme AutoIt) mais qui soit pas forcément la fenêtre active.

[R] Des raccourcis dans les menus. Par exemple, pour accéder au menu fichier : Alt+F, puis Ctrl+Q pour quitter.

Est-ce possible ?

[jbnh]

Pour les raccourcis, voir du coté de hotkeyset.

Exemple :

Code : Tout sélectionner

HotKeySet("^Q", "MyExit")

Func MyExit()
    Exit 
EndFunc

[Varal7]

Merci, mais en fait j'ai mal formulé :
J'utilise déjà les Hotkeys
En fait, ce que je voudrais c'est de pouvoir écrire Ctrl+Q à la fin de "Quitter"

► Afficher le texte

Code : Tout sélectionner

$quitter = GUICtrlCreateMenuItem("Quitter        Ctrl+Q", $menu)

J'ai essayé ça mais ne rend pas bien.
Au fait, peut-être comprendrez-vous mieux avec le code entier :

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiMenu.au3>

HotKeySet("^q", "Fin")
HotKeySet("{F1}", "Help")

dim $idNew
dim $idOpen
dim $idSave
dim $idExit

$height = @DesktopHeight-200
$width = @DesktopWidth - 100

GUICreate("Souris", 200, 100, 1000 , 600, $WS_OVERLAPPEDWINDOW)


GUICtrlCreateLabel("x=", 10, 10)
$x = GUICtrlCreateLabel("0", 30, 10, 50,50)
GUICtrlCreateLabel("y=", 10, 30)
$y = GUICtrlCreateLabel("0", 30, 30, 50,50)
GUICtrlCreateLabel("c=", 10, 50)
$c = GUICtrlCreateLabel("000000", 30, 50, 50,50)
$bk = GUICtrlCreateGraphic(100, 10, 50, 50)

$hFile = GUICtrlCreateMenu("Fichier")
$quitter = GUICtrlCreateMenuItem("Quitter", $hfile)
$about = GUICtrlCreateMenuItem("À propos de...", $hfile )

$hHelp = GUICtrlCreateMenu("?")
$Aide = GUICtrlCreateMenuItem("Aide", $hHelp)

GUISetState(@SW_SHOW)

Do
_pos()
Sleep(10)
$msg = GUIGetMsg()
Select
    
Case $msg = $GUI_EVENT_CLOSE Or $msg = $quitter 
    Exit 0


Case $msg = $about 
    msgbox(4096, "À propos", "Fait par Varal7")


Case $msg = $Aide 
    Call("Help")
EndSelect

until $msg = $GUI_EVENT_CLOSE
exit 0



func _pos()
$pos = MouseGetPos()
$color = PixelGetColor($pos[0], $pos[1])
GUICtrlSetData ($x, $pos[0])
GUICtrlSetData ($y, $pos[1])
GUICtrlSetData ($c, Hex($color, 6))
GUICtrlSetBkColor($bk, $color)
Endfunc

Func Fin()
Exit 0
EndFunc

func Help()
    msgbox(64, "Aide", "Bouger la souris...")
EndFunc
   

[timmalos]

Regardez avec Tooltip

[Varal7]

Je connais Tooltip, mais ce n'est pas cela que je voulais...
En fait c'est le GUI que je veux en Premier Plan...

À mon avis, ce n'est peut-être pas possible.....

[Tlem]

J'aimerais créer ...

[..] Un GUI qui reste toujours visible (comme AutoIt) mais qui soit pas forcément la fenêtre active.

[..] Des raccourcis dans les menus. Par exemple, pour accéder au menu fichier : Alt+F, puis Ctrl+Q pour quitter

J'ai bien lut et relut le topic en cherchant à comprendre ce que vous vouliez ...

Bon pour la première question, j'ai compris que vous voulez que la fenêtre soit toujours visible quoi qu'il arrive.
C'est ce qu'on appel le AllwaysOnTop, et vous l'obtiendrez en utilisant le flag ExStyle comme ceci :

Code : Tout sélectionner

GUICreate("Souris", 200, 100, 500 , 600, $WS_OVERLAPPEDWINDOW, $WS_EX_TOPMOST)

Par contre pour la deuxième question, c'est le brouillard car j'ai essayé votre code, et il fait ce que vous dites : CTRL+Q pour quitter, ALT + F pour ouvrir le menu Fichier ...
Donc sur cette partie j'aurais besoin d'un dessin, ou d'une explication claire et précise.

[Varal7]

merci Tlem !

Pour le Alt+F, j'ai trouvé, il suffit, de mettre "&" devant la lettre que l'on veut. (j'ai deviné en observant l'onglet "visible text", dans autoit.

Par contre pour Ctrl+Q, je vais essayer peut-être de mieux m'exprimer.
En fait, par exemple dans Scite, quand on va dans le menu file, on a new, open, etc., et à côté, aligné à droite on a les raccourcis.

En fait ce que je me demandais si c'était possible de faire, c'est d'avoir ceci.
J'ai tenté en mettant plein d'espace, dans la commande :

Code : Tout sélectionner

GUICtrlCreateMenuItem("&Quitter                      Ctrl+Q", $hfile)

Mais quand je teste, ça laisse toujorus une place à droite comme s'il y avait un emplacement réservé pour ces raccourcis ...

C'est pourquoi je fais appel à vous !

[Tlem]

J'ai tenté en mettant plein d'espace, dans la commande :

Code : Tout sélectionner

GUICtrlCreateMenuItem("&Quitter                      Ctrl+Q", $hfile)

Mais quand je teste, ça laisse toujorus une place à droite comme s'il y avait un emplacement réservé pour ces raccourcis

Hummm, j'ai essayé votre code et ne vois aucun problème de mon coté.
L'espace à droite est normale, et identique aux autres logiciels sur mon PC sous XP SP3.
Peut être avec vous une police de caractère qui perturbe l'affichage du MenuItem.

[karime1]

look

Code : Tout sélectionner

$Fenetre = GUICreate("Menu perfecto", 248, 250)
$Menu1 = GUICtrlCreateMenu("&Fichier")
$MenuItem11 = GUICtrlCreateMenuItem("&Nouveau" & [u]Chr(9)[/u] & "Ctrl+N", $Menu1)
$MenuItem12 = GUICtrlCreateMenuItem("&Ouvrir..." & Chr(9) & "Ctrl+O", $Menu1)
$MenuItem13 = GUICtrlCreateMenuItem("&Enregistrer" & Chr(9) & "Ctrl+S", $Menu1)
GUICtrlCreateMenuItem("", $Menu1)
$MenuItem10 = GUICtrlCreateMenuItem("&Quitter", $Menu1)
Dim $AccelTable_Fenetre[3][2] = [["^n", $MenuItem11],["^o", $MenuItem12],["^s", $MenuItem13]]
GUISetAccelerators($AccelTable_Fenetre)
 

alors satisfait?

[Tlem]

@karime1
Avez-vous vu la date du dernier message ?
Ce sujet date d'il y à 3 ans !!! C'est un sacré déterrage de sujet ça !

[mikell]

Oui mais la réponse est excellente et celui qui a posté le sujet il y a 3 ans va maintenant pouvoir le passer en "résolu"

[karime1]

j'ai la première fois que je resou un prob...

[Tlem]

Je doute que Varal7 revienne de si tôt :
Dernière visite: Ven 06 Mar 2009 à 21:34

Je vais donc moi même passer son sujet en résolu.