Le site de la communauté de Gambas

Ce sujet est résolu.

Auteur Messages

spheris #1 Posté le 31/12/2018 à 18:15:06

Bonjour,
Je souhaiterais ecrire du texte par la commande draw.text puis le tourner de 90°.
Savez-vous comment faire?
Merci pour vos réponses.

www.gambaslinux.fr

spheris #2 Posté le 14/4/2019 à 08:26:22

Je remonte le sujet car j'en ai vraiment besoin.
Si quelqu'un sait, ce serait super.

www.gambaslinux.fr

valaquarus #3 Posté le 14/4/2019 à 10:37:39

-- Unus Ex Altera --

Bonjour Spheris,
pour écrire un texte dans un Drawarea je fais ceci:

1 2 3 4 5 6 7 8 9	`WITH Draw v = CSingle((Log10(fev) - xx1) * scaleX) .Foreground = Color.Blue .Line(v, haut / 6, v, haut * 5 / 6) .Text("FEV", v, haut / 20 * 0.25) .Text(Format(CStr(fev), "###"), v, haut / 20 * 0.75) .Font.Name = "Symbol" .Text("a = " & Format(CStr(a), "##0.0##"), v + 5, haut * (8 + increment) / 18) END WITH`

Le texte ou tout autre objet est à situer dans le Drawarea par ses coordonnées.
Pour changer l'orientation, il devrait suffire je ne l'ai pas fait encore) de changer les coordonnées du texte à écrire par exemple dans une boucle pour chaque lettre changer une des coordonnées(verticale dans ce cas)
En espérant t'avoir orienté vers quelque chose de réalisable.
Philippe

Système d'exploitation : KDE Manjaro.testing ~ Version Gambas : 3.20.1

Flachy Joe #4 Posté le 14/4/2019 à 13:01:39

Iguane : Il Gambas Uniquement pour Activer ses NEurones

Salut,
En utilisant une image intermédiaire, comme ça ?

1 2 3 4 5 6 7 8 9 10 11 12 13 14	`PUBLIC SUB airdessin_Draw() DIM i AS Image DIM p AS Picture p = NEW Picture(500, 50, FALSE) Draw.Begin(p) Draw.FillRect(0, 0, 500, 50, Color.White) Draw.Text("Machin", 0, 0) Draw.End i = p.Image i = i.RotateRight() Draw.Begin(airdessin) Draw.Image(i, 0, 0) draw.End END SUB`

Flachy Joe

spheris #5 Posté le 30/4/2019 à 17:13:50

Merci c'est ce que je cherchais.

Gambas France BETA

rotation d'un texte dans la commande draw.text