Discussion :

[Sylvain11]

Bonjour tout le monde,
j'ai un petit problème de types, si quelqu'un pouvait m'aider, ce serait génial...
Je récupère des champs dans un ComboBox (donc des strings) dans une variable X et je voulais faire
Pen.Style := X.
Mais là, j'ai un fabuleux :
E2010 Types incompatibles : 'TPenStyle' et 'string'

Suis-je passé à coté d'une fonction qui permet de changer des strings en PenStyles ou dois-je me créer un tableau de PenStyle et gérer ca, par exemple, avec les tags (ou la position dans la combobox, peu importe)?

Merci d'avance !

[TicTacToe]

Le message de Delphi aurait pu te mettres la puce à l'oreille

Syntaxe Delphi :

type TPenStyle = (psSolid, psDash, psDot, psDashDot, psDashDotDot, psClear, psInsideFrame);

Syntaxe C++ :

enum TPenStyle {psSolid, psDash, psDot, psDashDot, psDashDotDot, psClear, psInsideFrame};

Description

TPenStyle peut avoir l'une des valeurs suivantes :

Valeur Signification

psSolid Une ligne continue.
psDash Une ligne constituée d'une série de tirets.
psDot Une ligne constituée d'une série de points.
psDashDot Une ligne constituée d'une alternance de tirets et de points.
psDashDotDot Une ligne constituée d'une série de séquences tiret-point-point.
psClear Pas de ligne dessinée (style utilisé pour ne pas dessiner la ligne autour de formes dont le contour est dessiné par le crayon en cours).
psInsideFrame Une ligne continue pouvant utiliser une couleur mélangée si Width est supérieure à 1.

tu cherches à faire une affectation dont les type sont différent à gauches et à droite.
Je ne sais pas ce que tu cherches exactement à faire, mais aide-toi de la touche F1 sur les types de propriétés que tu cherches à affecter, je pense que tu comprendras vite ton problème.

bon courage !

[Sylvain11]

Heuuu,

tu cherches à faire une affectation dont les type sont différent à gauches et à droite.

Effectivement, c'est le problème...
Ce que je cherche, c'est effectivement si il existe une fonction intégrée pour passer de String à TPenStyle, ou si je dois la faire moi même!
Ca ne sert à rien de faire du crade si la fonction existe

[TicTacToe]

A vrai dire, tu avais l'air étonné de cette erreur dans ton 1er post ...

que contient ta combo exactement ? des chaines de car. représentant des style de lignes ?

si c'est le cas, tu peux affecter a chaque item de la combo, la valeur correspondant au style dans l'object associé (en faisant un cast)

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ComboBox1.AddItem( 'Trait Solide', Tobject( Ord( psSolid ) ) );

et pour retrouver ton style sur un click

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
var MonStyle: TPenStyle;
...
MonStyle := TPenStyle( Integer( ComboBox1.Items.Objects[ IIndex cliqué ] ) ).

JE ne suis pas sur, s'il faut obligatoirement passer par le cast Integer à chaque fois, à tester...

Mais cette méthode t'oblige à construire ta liste dynamiquement.

Sinon, il faut te faire une liste, associant les numéros d'index de ta combo aux styles de trait.


:EDIT:
Après un petit test, le cast Ord() et Integer() ne sont pas nécessaires

[Sylvain11]

Mouais...

ComboBox1.AddItem( 'Trait Solide', Tobject( Ord( psSolid ) ) );

Cette réponse me parait... Parfaite!
Merci bien!

EDIT : Ouaip, j'avais réussi à les réutiliser après coup, merci! C'était le Tobject qui me faisait defaut