TCheckGroup/fr: what changed

Revision 0 to 1. Removed lines have a minus sign; added lines have a plus sign.

Title: TCheckGroup/fr

New		Line
1	+	Un TCheckGroup ![](/wiki-images/1/1b/Tcheckgroup.png) est un contrôle qui comporte un groupe d'articles avec des [[TCheckBox/fr\|TCheckBox]] placé dans un composant conteneur.
2	+
3	+	# Usage
4	+
5	+	Pour utiliser un TCheckGroup sur une [[TForm/fr\|fiche]], vous pouvez simplement le sélectionner dans l'[[Standard tab/fr\|onglet Standard]] de la [[Component Palette/fr\|palette de composants]] et le placer en cliquant sur la fiche.
6	+
7	+	## Petit exemple
8	+
9	+	Il modifie la couleur de fond d'une fiche. Cette couleur est obtenue en additionnant les composants individuelles de couleur :
10	+
11	+	- Créez une nouvelle application et place un TCheckGroup sur votre fiche.
12	+	- Dans l'inspecteur d'objet, modifiez la propriété Name en cgRed et Caption en Red.
13	+	- Ajoutez les CheckBox dans cgRed:
14	+	- Dans l'inspecteur d'objet, sélectionnez la propriété Items de cgRed.
15	+	- Cliquez sur le bouton \[...\], l'éditeur de liste de chaînes s'ouvre.
16	+	- Entrez les valeurs 1 2 4 8 16 32 64 128 sur autant de lignes puis compléter en cliquant sur le bouton OK.
17	+	- Copier ce TCheckGroup à l'aide du clic droit sur cgRed et en cliquant après sur Copy.
18	+	- Cliquez droit sur la fiche puis sur Insérer, ce qui crée un TCheckGroup nommé cgRed1.
19	+	- Maintenant modifiez Name de cgRed1 en cgGreen et l'intitulé en Green.
20	+	- Recommencez la copie pour créer le TCheckGroup nommé cgBlue intitulé Blue.
21	+	- A chaque fois qu'un CheckBox est cliqué, la couleur changera :
22	+	- Dans l'inspecteur d'objet, créez le gestionnaire d'événement OnItemClick de cgRed en cliquant sur le bouton \[...\] en face de l'événement OnItemClick
23	+	- Sélectionnez aussi pour cgGreen et cgBlue ce gestionnaire d'événement, en choisissant pour chacun le gestionnaire cgRedItemClick dans le ComboBox en face de l'événement OnItemClick (le gestionnaire d'événement est ainsi partagé entre les trois composants).
24	+	- Ecrivez le code suivant dans le gestionnaire d'événement :
25	+
26	+	``` pascal
27	+	procedure TForm1.cgRedItemClick(Sender: TObject; Index: integer);
28	+	var
29	+	i, c: Integer;
30	+	begin
31	+	c := $000000; // first the color is black
32	+	for i := 0 to 7 do begin // test Items 0..7 of all Checkgroups
33	+	if cgRed.Checked[i] then c := c + 1 shl i; // amount of red $000000..$0000FF
34	+	if cgGreen.Checked[i] then c := c + 1 shl (i + 8); // amount of green $000000..$00FF00
35	+	if cgBlue.Checked[i] then c := c + 1 shl (i + 16); // amount of blue $000000..$FF0000
36	+	end;
37	+	Color := c;
38	+	end;
39	+	```
40	+
41	+	- Démarrez votre programme, il devrait ressembler à ceci :
42	+
43	+	<figure>
44	+	<img src="ExampleTCheckGroup.png" title="ExampleTCheckGroup.png" />
45	+	<figcaption>ExampleTCheckGroup.png</figcaption>
46	+	</figure>
47	+
48	+	# Voir aussi
49	+
50	+	- [[doc:lcl/extctrls/tcheckgroup.html\|Doc. TCheckGroup]]
51	+	- [[TCheckBox/fr\|TCheckBox]]
52	+	- [[TGroupBox/fr\|TGroupBox]]
53	+
54	+	---
55	+	From the Free Pascal wiki, page "TCheckGroup/fr", as it stood on 2020-02-29 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history