Ajouter un icone avant un texte

Aide et conseils concernant AutoIt et ses outils.
Règles du forum
.
Répondre
YuChan
Niveau 5
Niveau 5
Messages : 113
Enregistré le : jeu. 12 nov. 2020 14:09
Status : Hors ligne

Ajouter un icone avant un texte

#1

Message par YuChan »

Bonjour,

J'ai un GUICtrlCreateEdit() et je soughaiterai lorsque j'envoie un GUICtrlSetData() avec n'importe quel texte commencer par une petite icon comme les warn...ok.. etc

Code : Tout sélectionner

Global $journal = GUICtrlCreateEdit("", 16, 32, 257, 329, BitOR($ES_READONLY,$ES_AUTOVSCROLL + $WS_VSCROLL))
GUICtrlSetData($journal, "test")
CDT
Avatar du membre
walkson
Modérateur
Modérateur
Messages : 1020
Enregistré le : ven. 12 août 2011 19:49
Localisation : Hurepoix
Status : Hors ligne

Re: Ajouter un icone avant un texte

#2

Message par walkson »

Bonjour,
Avec un simple édit, ce n'est pas possible. Il faut passer par _GUICtrlRichEdit_Create()
Mais on peut tricher en mettant un label sur l'édit où apparaîtra l'icone. Ce n'est pas très propre mais ça peut se faire

Code : Tout sélectionner

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

Global $Form1 = GUICreate(@ScriptName, 615, 438)
Global $Edit1 = GUICtrlCreateEdit("", 88, 24, 185, 225, BitOR($ES_WANTRETURN,$ES_MULTILINE))
GUICtrlSetData(-1, @TAB & "mon texte est ici mon texte est ici mon texte est ici mon texte est ici mon texte est ici mon texte est ici mon texte est ici ")
Global $label = GUICtrlCreateLabel("",95,25,30,20,$SS_CENTER)
GUICtrlSetData(-1, Chr(40))
GUICtrlSetFont(-1,12,Default,Default,"Wingdings") ;Webdings
GUICtrlSetState (-1,$GUI_ONTOP )
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
Global $button = GUICtrlCreateButton("ok",400,50,80,25)
Global $label1 = GUICtrlCreateLabel("",15,24,40,30,$SS_RIGHT)
GUISetState(@SW_SHOW)

While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
   Case $GUI_EVENT_PRIMARYUP, $GUI_EVENT_PRIMARYDOWN
	GUICtrlSetState ($label,$GUI_SHOW ) ;pour garder le label visible
	 Case $button
		 For $y = 33 To 100 ;255
			 GUICtrlSetData($label, Chrw($y))
			 GUICtrlSetData($label1, "Chr(" & $y & ")" &@CRLF& Chr($y))
			 Sleep(1000)
		 Next


 EndSwitch

WEnd
Ici, j'utilise la police Wingdings, il y a aussi Webdings. Je pense que c'est ce que vous souhaitez...
Cordialement,
Walkson
"Horas non numero nisi serenas " Le canon de midi
(Je ne compte que les heures heureuses)
YuChan
Niveau 5
Niveau 5
Messages : 113
Enregistré le : jeu. 12 nov. 2020 14:09
Status : Hors ligne

Re: Ajouter un icone avant un texte

#3

Message par YuChan »

Merci mais je voudrais un truc de ce style

viewtopic.php?t=4624c

CDT
Répondre