Discussion :

[fgsav]

Bonjour, voici une question qui semble simple mais je n'ai pas su trouver de réponse malgré de longues recherches, alors je m'en remets à vous

Je voudrais modifier les options d'un ReplaceDialog directement dans mon unité, en fait je cherche la ligne qui permet de définir les options que l'on choisit habituellement dans le menu du composant:
[frDown,frHideMatchCase,frHideWholeWord,frHideUpDown...]

Je sais comment tester leur validité:
if frReplace in ReplaceDialog1.Options then...

Mais comment les modifier, telle est la question.
Merci d'avance

[aityahia]

le sources de la VCL est fournie avec delphi a mon avis tu pourra faire tous les changements que tu veut.

[Cl@udius]

Salut

C'est de la manipulation d'ensemble (set of).

Affectation avec :

Code :

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

1
2
3
 
Options := [];
Options := [frOption1, frOption2];

Ajout/retait d'une option:

Code :

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

1
2
3
 
Options := Options + [frOption1]; // Ajout
Options := Options - |frOption2, frOption3]; // Retrait

ou encore:

Code :

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

1
2
3
 
Include(Options, frOption1);
Exclude(Options, frOption2);

Il existe d'autres opérateurs, par exemple l'opérateur d'intersection '*':

Code :

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

1
2
 
if Options * [frOption1, frOption2] <> [] then ...

Je t'invite à consulter l'aide de Delphi sur les opérateurs d'ensembles.

@+ Claudius

[aityahia]

j'avais mal compris la question désolé.
oui c'est exact d'ailleurs c'est primordial de connaitre comment manipuler les ensemble (Set) car tu vas les rencontrer partout (Style de font, Options de Dbgrid,....)

tu peut aussi faire des test pour savoir si une option est choisi ou pas.

Code :

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

if  Not ([frOption1] In Options)  Then Options := Options + [frOption1];

[fgsav]

Merci beaucoup, c'est bien ce que je cherchais
En ce qui concerne l'aide de Delphi, je l'ai pas car je prog sur Lazarus, mais bon je lance google et généralement je trouve...
Encore merci pour vos réponses rapides et à la prochaine