Gambas France BETA


Pas de compte ? Incription

Paint ??

Ce sujet est résolu.

1
AuteurMessages
valaquarus#1 Posté le 28/2/2019 à 16:57:29
-- Unus Ex Altera --Bonjour,
je voudrais écrire sur la Trayicon le nombre de mail, je sais c'est futile mais tellement indispensable, voici ce que j'ai écrit qui écrit bien le nombre sur l'icone du Tray mais comment fait on pour revenir à l'icone initiale parce que là j'ai pas compris du tout la doc (moi petit cerveau), j'ai essayer de faire reset, marche pas, de jouer avec les calques, pas compris bref j'y arrive pas et je suis sûr que c'est tellement c...que je vais me mordre les doigts dès que je saurais
1
2
3
4
5
6
7
8
9
10
11
12
13
PUBLIC SUB ecritTexte(img AS Picture, sText AS STRING) AS Picture

DIM iSizeFont AS INTEGER = 14

WITH Paint
.Begin(img)
.Brush = .Color(Color.Red)
.Font = Font["DejaVu Sans,Bold," & iSizeFont]
.DrawText(sText, 4, 6, 32, 16)
.End
END WITH

END
Philippe
Système d'exploitation : KDE neon 6.0 ~ Version Gambas : 3.19.5
spheris#2 Posté le 28/2/2019 à 21:07:06
1
paint.clear()

;)
www.gambaslinux.fr
valaquarus#3 Posté le 28/2/2019 à 21:33:44
-- Unus Ex Altera --Rebonsoir Spheris,
j'avais pas vu ta réponse. Et bien ça ne marche pas, je l'avais déjà testé mais je dois m'y prendre mal. J'ai deux sub une pour écrire le nombre de mail, ça ça fonctionne et une pour, normalement effacer la zone écrite auparavant et ça ça fonctionne pas :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
PUBLIC SUB ecritTexte(img AS Picture, sText AS STRING) AS Picture

DIM iSizeFont AS INTEGER = 14

WITH Draw
.Begin(img)
.Foreground = Color.Red
.Transparent = TRUE
.Font = Font["DejaVu Sans,Bold," & iSizeFont]
.Text(sText, 4, 6) ', 32, 16)
.End
END WITH

END

PUBLIC SUB effTexte(img AS Picture, sText AS STRING) AS Picture

DIM iSizeFont AS INTEGER = 14

WITH Draw
.Begin(img)
.clear()
.End
END WITH

END

Philippe
Système d'exploitation : KDE neon 6.0 ~ Version Gambas : 3.19.5
spheris#4 Posté le 1/3/2019 à 08:21:43
Philippe,
Je m'y serais pris autrement.

Dans ton programme, je garde bien ta fonction ecristexte telle quelle, mais

La fonction effacetexte appelle la première avec un texte NULL.

genre ça :

1
2
3
4
PUBLIC SUB effTexte()
sText = ""
ecritTexte(monimage, sText)
END




En fait tu écris un texte vide et redessine le tout.
;)
www.gambaslinux.fr
valaquarus#5 Posté le 1/3/2019 à 09:00:55
-- Unus Ex Altera --Bonjour Spheris,
j'ai déjà essayé ce que tu proposes, ça ne fonctionne pas et pour cause je me suis aperçu que j'écrivais sur l'image originale (j'utilise la même icône pour autre chose dans le prog)donc j'ai "triché" en créant une nouvelle image à partir de la première et transformé la sub en function qui retourne la nouvelle image utilisable comme icone pour le Trayicon et donc plus qu'une seule fonction pour afficher ce que je veux:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
PUBLIC FUNCTION ecritTexte(hPict AS Picture, sText AS STRING) AS Picture

DIM iSizeFont AS INTEGER = 15
DIM img AS Image
DIM iCouleurBackground AS INTEGER = Color.Background

img = NEW Image(48, 48, iCouleurBackground)
img = hPict.Image
WITH Draw
.Begin(img)
.Foreground = Color.Red
.Transparent = TRUE
.Font = Font["DejaVu Sans,Regular," & iSizeFont]
.Text(sText, 4, 6) ', 32, 16)
.End
END WITH
RETURN img.Picture

END

J’appelle la function ainsi :
1
Tray.Icon = ecritTexte(Picture["mail.png"], CStr(nbrMail))
ou avec toute autre picture utilisable.
Merci encore de ton aide car vraiment cela m'a incité à réfléchir et à me creuser les méninges, c'est bien le but de l'échange.
Philippe
Système d'exploitation : KDE neon 6.0 ~ Version Gambas : 3.19.5
spheris#6 Posté le 2/3/2019 à 11:43:06
Astuce sympa, je la note dans un coin du calpin.
;)
www.gambaslinux.fr
valaquarus#7 Posté le 2/3/2019 à 12:40:31
-- Unus Ex Altera --You are welcome!
comme disent les Ricains.
Philippe

PS: les admin doivent être en voyage car je ne peux toujours pas mettre d'avatar et plus gênant, je ne peux pas mettre d'images sur le forum et je voudrais bien déposer mon petit "truc" sur la forge.
Système d'exploitation : KDE neon 6.0 ~ Version Gambas : 3.19.5
valaquarus#8 Posté le 2/3/2019 à 12:40:37
-- Unus Ex Altera --You are welcome!
comme disent les Ricains.
Philippe

PS: les admin doivent être en voyage car je ne peux toujours pas mettre d'avatar et plus gênant, je ne peux pas mettre d'images sur le forum et je voudrais bien déposer mon petit "truc" sur la forge.

Deux fois le même message en un seul clic whaou!
c'est comment qu'on freine (Bashung dans le texte)
Système d'exploitation : KDE neon 6.0 ~ Version Gambas : 3.19.5
spheris#9 Posté le 3/3/2019 à 22:35:08
Cela fait belle lurette qu'on ne voit plus d'admin ici.
J'ai croisé in extremis flachy il y a un moment, en courant d'air.
Plus trop de gambasiens à l'oeuvre...
:(
www.gambaslinux.fr
valaquarus#10 Posté le 4/3/2019 à 18:35:08
-- Unus Ex Altera --Oh je sens comme un ton de reproche dans tes dires mais c'est vrai que j'ai l'impression d'être seul sur un radeau au milieu d'un océan d'incertitude en venant sur ce forum, heureusement que tu es là, j'ai comme le sentiment que tu dois avoir le même âge que moi (je suis de 1957) est ce que je me trompe de beaucoup?
Philippe.
Système d'exploitation : KDE neon 6.0 ~ Version Gambas : 3.19.5
1