[R] Faire apparaître un texte sur fond transparent

[EvilRyu]

Bonjour à tous, et Bonne Année 2014!

Je voudrais faire apparaitre un texte sur l'écran, de type splash mais sur fond transparent. En fait, c'est pour faire un décompte ( 3, 2, 1 ) en gros et en rouge par dessus l'écran d'un jeu.

La fonction SplashTextOn n'est pas adéquate, car le texte est dans une fenêtre.

J'ai trouvé sur ce topic un script SplashOn_ mais celui-ci bug beaucoup je trouve. Ou alors je n'arrive pas à le faire marcher correctement, mais la transparence est en fait un carré en fond du texte qui laisse apparaitre mon fond d'écran, comme si ça trouait l'écran du jeu. De plus, ça flick beaucoup...



Auriez-vous une solution viable et simple pour faire cela? Tous les topics en rapport sont très vieux, il y a peut être une nouvelle méthode...

Merci!

[Tlem]

Bonsoir.
L'affichage d'image sur fond transparent a été abordé de nombreuse fois sur ce forum. Avec un petit effort et quelques recherches vous allez trouver.

[EvilRyu]

Bonsoir Tlem!

Je ne souhaite pas faire apparaître une image mais du texte, et j'ai déjà cherché pas mal de temps sans trouver mon bonheur ( mes exemples cités dans mon premier post devraient pourtant faire foi ).
Il faut dire que le mot "texte" est ignoré lors des recherches, donc ce n'est pas facile de chercher "texte fond transparent"

[TT22]

Je ne souhaite pas faire apparaître une image mais du texte

Il suffit de faire apparaitre une image avec un texte dessus

Sinon, pour faire comme un SplashText mais transparent, essaye ça :

► Afficher le texte

Code : Tout sélectionner

#include <WinAPI.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>

$Form1 = GUICreate("Form1", 800, 500, Default, Default, $WS_POPUP, $WS_EX_LAYERED)
GUISetBkColor(0xABCDEF)
$Text = GUICtrlCreateLabel("TT22", 0, 0, 800, 500)
GUICtrlSetColor($Text, 0xFF0000)
GUICtrlSetFont($Text, 200, Default, Default, "Arial Black")
_WinAPI_SetLayeredWindowAttributes($Form1, 0xABCDEF, 255)
GUISetState(@SW_SHOW)

While True
    If GUIGetMsg() = $GUI_EVENT_CLOSE Then Exit
WEnd

[Tlem]

En fait, c'est pour faire un décompte ( 3, 2, 1 ) en gros et en rouge par dessus l'écran d'un jeu.

Un nombre ou du texte peux être "convertit" en image ...

Si c'est juste pour faire le "3, 2, 1 Partez", créez chaque nombre avec un style qui va bien sous forme d'image avec fond transparent. Ce sera très certainement plus sympa que du texte tout bête.

Mais au cas ou vous préférez les choses simple et sobre ...

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>

$GUI = GUICreate("", 300, 200, -1, -1, $WS_POPUP, $WS_EX_LAYERED)
GUISetBkColor(0xABCDEF)
_WinAPI_SetLayeredWindowAttributes($GUI, 0xABCDEF, 450)
$Lbl = GUICtrlCreateLabel("", -1, -1, 300, 150, $SS_CENTER)
GUICtrlSetFont(-1, 60, 600, 0, "Times New Roman")
GUICtrlSetColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)

Dim $Timer = 4
Dim $Msg = ""

While 1
    $Timer -= 1
    $Msg = ($Timer > 0) ? $Timer : "Partez ..."
    GUICtrlSetData($Lbl, $Msg)
    Sleep(1000)
    If $Timer = 0 Then ExitLoop
WEnd

Edit : Grillé par TT22 !!!

[TT22]

Créez chaque nombre avec un style qui va bien sous forme d'image avec fond transparent. Ce sera très certainement plus sympa que du texte tout bête.

+1

[EvilRyu]

Merci pour vos réponses!

Non en fait 3,2,1 c'était juste pour illustrer. Mais le décompte sera variable dans le temps, et pourra démarrer à 1000 donc c'est plus simple en texte je pense

Sinon, le script de Tlem renvoie: : ==> Unable to parse line.: pour la ligne $Msg = ($Timer > 0) ? $Timer : "Partez ..."

[Tlem]

Sinon, le script de Tlem renvoie: : ==> Unable to parse line.: pour la ligne $Msg = ($Timer > 0) ? $Timer : "Partez ..."

Hé oui, il faut mettre à jour votre version d'AutoIt ...
Ce serait bête de vous priver de toutes les nouvelles fonctionnalités de la 3.3.10.x et des corrections de bugs.

[EvilRyu]

Ah c'est bon ça, merci!

Le code marche impec du coup, par contre c'est dommage que le compteur disparaisse dès qu'on clique en jeu. J'ai essayé de rajouter WS_EX_TOPMOST mais du coup je perds la transparence

[mikell]

J'ai essayé de rajouter WS_EX_TOPMOST mais du coup je perds la transparence

Ah non ! Testé sur le code de Tlem, ça fonctionne

Code : Tout sélectionner

$GUI = GUICreate("", 300, 200, -1, -1, $WS_POPUP, BitOr($WS_EX_LAYERED, $WS_EX_TOPMOST))

@Thierry
_WinAPI_SetLayeredWindowAttributes($GUI, 0xABCDEF, 450)
Avec une transparence de 0 à 255, là tu fais de la super-transparence

[EvilRyu]

Ok je ne l'avais pas écrit de cette manière! là, effectivement, ça marche du tonnerre!

Merci à tous!

[Tlem]

@mikell
Tu sais bien que j'ai les doigts fourchus ...