[Ex] Créer un panneau d'affichage (comme dans les trams ^^)

[pierrotm777]

Quel boulot,

Bravo !! Et merci !!!

[freMea]

@toto1515

merci.

Cependant, les lettres sont trop espacées, non?

Pour moi, c'est ce dernier détail qui pêche. Pourrais-tu rectifier cela toto1515?

[toto1515]

Salut,

j'ai revu tout mon travail pour que les lettres ne soient pas espacées.
en fait, j'ai changé de police, et refait les script.
maintenant ça marche avec les caractères ascii de 32 à 255.
Donc, les chiffres, les accents et tout et tout.

Je joins 3 fichiers.
"new Testeur Panneau.au3" pour tester le panneau.
"new creer panneau.au3" qui crée le panneau.
"txt_var_x_13.au3" c'est la liste des caractères (include de 'new creer panneau.au3')

Voila.

Nota : même remarque que précédemment pour AdlibEnable et AdlibDisable...

[freMea]

Bon boulot!

Par contre, le code original comme le dernier posté occupent presque 50% de mon CPU (voir config dans ma signature).

En attendant, j'avais cherché dans mes polices quelques chose d'inspirant pour un panneau défilant. Et j'ai trouvé la police "Airport".


J'ai donc utiliser cette police en relation avec l'UDF Marquee pour créer un exemple de panneau qui n'occupe pas le CPU. (le tout dispo en pj)



Je suis complètement débutant donc cet exemple nécessiterait une correction d'expert. Notamment quand on applique un nouveau texte, il reste un résidu de l'ancien qui flashe. Et ce serait bien de supprimer le menu contextuel qui s'affiche au clic droit sur le label.

Certes, ma méthode est moins stylée car le fond est uni. Peut-être que quelqu'un serait en mesure d'arranger ça.

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <Marquee.au3>
#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1)

Dim $sText, $label, $inputlabel, $btStyle

; scrolling options
$iLoop=0 ; 0=défile indéfiniment, 1=une fois, 20=vingt fois
$sMove="scroll" ; From  "scroll" (Default), "slide" and "alternate"
$sDirection="left" ; From "left" (Default), "right", "up" and "down".
$iScroll=3 ; Distance of each advance - controls speed of scrolling (Default = 6). Higher numbers increase speed, lower numbers give smoother animation.
$iDelay=5 ; Time in milliseconds between each advance (Default = 85). Higher numbers lower speed, lower numbers give smoother animation.

; display options
$iBorder=1 ; 0 = None (Default), 1 = 1 pixel, 2 = 2 pixel, 3 = 3 pixel
$vTxtCol=0x01FE33 ; Colour for text (Default = system colour, -1 = unchanged)

$vBkCol=0x001200 ; Colour for Background (Default = system colour, -1 = unchanged)
;                              Colour can be passed as RGB value or as one of the following strings:
;                              'black', 'gray', 'white', 'silver', 'maroon', 'red', 'purple', 'fuchsia',
;                              'green', 'lime', 'olive', 'yellow', 'navy', 'blue', 'teal', 'aqua'

$iSize =30 ; Font size (Default = 12, -1 = unchanged)
$sFont="Airport" ; Font to use (Default = Tahoma, "" = unchanged)

; label options
; The text (or HTML markup) the marquee should display
$sText="12:38 Dès Noël où un zéphyr haï me vêt de glaçons würmiens, je dîne d’exquis rôtis de bœuf au kir à l’aÿ d’âge mûr & cætera !"
$iLeft=10 ; The Left side of the control. If -1 is used then left will be computed according to GUICoordMode.
$iTop=10 ; The Top of the control. If -1 is used then left will be computed according to GUICoordMode.
$iWidth=500 ; The width of the control.
$iHeight=$iSize*1.75; The height of the control.
$sTipTxt="Exemple" ; Tip text displayed when mouse hovers over the control.

; GUI options
$largeurgui=$iWidth+20
$hauteurgui=$iHeight+80
$ecartbouton=10
$largeurbouton=55
$hauteurbouton=25
$btStyle=$BS_DEFPUSHBUTTON


$GUI=GUICreate("GUI",$largeurgui, $hauteurgui,-1,-1, $WS_POPUPWINDOW + $WS_SIZEBOX, $WS_EX_TOOLWINDOW)
GUISetBkColor(0x000000)
GUISetOnEvent($GUI_EVENT_CLOSE, "quit")

_GUICtrlMarquee_SetScroll($iLoop, $sMove, $sDirection, $iScroll, $iDelay)
_GUICtrlMarquee_SetDisplay($iBorder, $vTxtCol, $vBkCol, $iSize, $sFont)
$label=_GUICtrlMarquee_Create($sText, $iLeft, $iTop, $iWidth, $iHeight)

$inputlabel=GUICtrlCreateInput("Entrer votre texte et validez", 10, $iHeight+20, $largeurgui-$largeurbouton -$ecartbouton-$ecartbouton-5, 20)
$BoutonValider = GUICtrlCreateButton("Valider", $largeurgui - $largeurbouton - $ecartbouton, $iHeight+18, $largeurbouton, $hauteurbouton, $btStyle)
$BoutonQuitter = GUICtrlCreateButton("Quitter", $largeurgui - $largeurbouton-$ecartbouton, $iHeight+50, $largeurbouton, $hauteurbouton)

GUICtrlSetOnEvent($BoutonValider, "ChangerText")
GUICtrlSetOnEvent($BoutonQuitter, "quit")
GUISetState()

$monsize=WinGetPos("[ACTIVE]")
GUIRegisterMsg(0x24,'MY_WM_GETSIZE')

Func ChangerText()
    $sText = GUICtrlRead($inputlabel)
    $label=_GUICtrlMarquee_Create($sText, $iLeft, $iTop, $iWidth, $iHeight)
EndFunc

While(True)
    Sleep(10)
WEnd

Func quit()
    Exit
EndFunc

Func MY_WM_GETSIZE($hWnd, $Msg, $wParam, $lParam)
    Local $minmaxinfo = DllStructCreate('int;int;int;int;int;int;int;int;int;int',$lParam)
    DllStructSetData($minmaxinfo,7,$monsize[2]); min X
    DllStructSetData($minmaxinfo,8,$monsize[3]); min Y
    DllStructSetData($minmaxinfo,9,$monsize[2]); max X
    DllStructSetData($minmaxinfo,10,$monsize[3]); max Y
    Return $GUI_RUNDEFMSG
EndFunc

Sinon, voici ce que propose signbot

Il crée un simple GIF. Mais les paramètres de création se limitent au choix du texte et la taille du panneau.

Text generator propose plus d'options mais le résultat est un code html. Peut-être pas impossible à intégrer dans une fenêtre autoit.