Page 1 sur 1
[R] Faire apparaître un texte sur fond transparent
Posté : jeu. 09 janv. 2014 20:54
par 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!
Re: [..] Faire apparaître un texte sur fond transparent
Posté : jeu. 09 janv. 2014 21:00
par 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.
Re: [..] Faire apparaître un texte sur fond transparent
Posté : jeu. 09 janv. 2014 21:05
par 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"
Re: [..] Faire apparaître un texte sur fond transparent
Posté : jeu. 09 janv. 2014 21:25
par TT22
EvilRyu a écrit :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
Re: [..] Faire apparaître un texte sur fond transparent
Posté : jeu. 09 janv. 2014 21:41
par Tlem
EvilRyu a écrit :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 !!!
Re: [..] Faire apparaître un texte sur fond transparent
Posté : jeu. 09 janv. 2014 21:43
par TT22
Tlem a écrit :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
Re: [..] Faire apparaître un texte sur fond transparent
Posté : jeu. 09 janv. 2014 22:51
par 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 ..."
Re: [..] Faire apparaître un texte sur fond transparent
Posté : jeu. 09 janv. 2014 23:03
par Tlem
EvilRyu a écrit :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.
Re: [R] Faire apparaître un texte sur fond transparent
Posté : ven. 10 janv. 2014 12:41
par 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
Re: [R] Faire apparaître un texte sur fond transparent
Posté : ven. 10 janv. 2014 14:30
par mikell
EvilRyu a écrit : 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
Re: [R] Faire apparaître un texte sur fond transparent
Posté : ven. 10 janv. 2014 17:27
par EvilRyu
Ok je ne l'avais pas écrit de cette manière! là, effectivement, ça marche du tonnerre!
Merci à tous!
Re: [R] Faire apparaître un texte sur fond transparent
Posté : ven. 10 janv. 2014 23:43
par Tlem
@mikell
Tu sais bien que j'ai les doigts fourchus ...