Fonctions Souris

Des exemples d'utilisation des fonctions du WLangage

Rien de tel qu'un exemple pour comprendre une fonction de WLangage. Dans cette section, vous trouverez des exemples simples.

Des exemples évolués, où la fonction est utilisée en contexte, sont également disponible sur ce site.

Aller à la page des exemples évolués

ClavierListe (en anglais SIPList)

// Ajout des types de claviers disponibles
// dans la combo "ComboClavier"
ListeAjoute(ComboClavier, ClavierListe ())

Début de la page

ClavierMode (en anglais SIPMode)

--Traitement d'entrée en saisie d'un champ
// Récupérer la liste des types de claviers disponibles
TypeClavier est une chaîne = ClavierListe()
SI Position(TypeClavier, "Transcriber") <> 0 ALORS
    // Sélectionnez le clavier "Transcriber"
    ClavierMode ("Transcriber")
    // Activer le clavier sélectionné
    ClavierVisible( Vrai )
FIN

Début de la page

ClavierVisible (en anglais SIPVisible)

--Traitement d'entrée en saisie d'un champ
// Récupérer la liste des types de claviers disponibles
TypeClavier est une chaîne = ClavierListe()
SI Position(TypeClavier, "Transcriber") <> 0 ALORS
    // Sélectionnez le clavier "Transcriber"
    ClavierMode("Transcriber")
    // Activer le clavier sélectionné
    ClavierVisible ( Vrai )
FIN

Début de la page

ClavierVisible (en anglais SIPVisible)

--Traitement de sortie d'un champ de saisie
// Est-ce-que le clavier en cours d'utilisation est activé ?
SI ClavierVisible () = Vrai ALORS
// Désactiver le clavier en cours d'utilisation
ClavierVisible ( Faux )
FIN

Début de la page

CurseurAffiche (en anglais CursorDisplay)

-- Code d'entrée dans le champ de saisie
// On masque le curseur lorsque que le champ de saisie a le focus
CurseurAffiche ( Faux )

Début de la page

CurseurCapture (en anglais CursorCapture)

// Tous les événement souris son dirigés vers la fenêtre "Mafenêtre"
CurseurCapture ( Vrai , Handle(MaFenêtre))

Début de la page

CurseurPos (en anglais CursorPos)

Res est un entier = CurseurPos ( cpClient )
SI Res <> -1 ALORS
Message("Position X = " + PoidsFaible(Res) + ...
"Position Y = " + PoidsFort(Res))
FIN

Début de la page

Sablier (en anglais HourGlass)

Sablier ()        // Affichage du sablier
ProcTraitement()  // Traitement long
Sablier( Faux )     // Restitution du pointeur initial

Début de la page

SourisPosX (en anglais MouseXPos)

// Survol souris de la fenêtre "Dessin"
// Code optionnel de la fenêtre
Message("Position de la souris : X : "+ SourisPosX ()+" Y : "+SourisPosY())

Début de la page

SourisPosX (en anglais MouseXPos)

// Affiche un message différent selon l'endroit cliqué
SI SourisPosX ()<25 ALORS
Info("A droite")
SINON
Info("A gauche")
FIN

Début de la page

SourisPosY (en anglais MouseYPos)

// Survol souris de la fenêtre "Dessin"
// Code optionnel de la fenêtre
Message("Position de la souris : X : "+SourisPosX()+" Y : "+ SourisPosY ())

Début de la page

SourisPosY (en anglais MouseYPos)

// Affiche un message différent selon l'endroit cliqué
SI SourisPosY ()<25 ALORS
Info("En haut")
SINON
Info("En bas")
FIN

Début de la page