TCheckGroup/ja: what changed

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

Old	New		Line
1	1		TCheckGroup![](/wiki-images/1/1b/Tcheckgroup.png)は、コンテナコンポーネント上で物理的におよび論理的にグループ化されたTCheckBoxアイテムのグループを含むコントロールである。
2	2
3	3		TForm上でTCheckGroupを使用するには、単に[[Component Palette/ja\|コンポーネントパレットの]][[Standard tab/ja\|Standardタブでそれを]]選択し、フォーム上でクリックして配置する。
4	4
5	5		### 例
6	6
7	7		フォームの背景色を変更する。この色は、個々の色成分を加算して決定される:
8	8
9	9		- 新しいアプリケーションを作成し、フォームにTCheckGroupを配置する。
10	10		- オブジェクトインスペクタで、CheckGroup1のNameプロパティをcgRedに変更し、キャプションをRedに変更する。
11	11		- cgRedにチェックボックスを追加する。
12	12		- オブジェクトインスペクタで、cgRedのItemsプロパティを選択する。
13	13		- \[...\]ボタンをクリックすると、文字列エディタが開く。
14	14		- 1 2 4 8 16 32 64 128と入力し、OKボタンをクリックしてエントリを完了する。
15	15		- フォーム上のcgRedを右クリックし、「コピー」をクリックしてこのTCheckGroupをコピーする。
16	16		- フォームを右クリックし、Insertをクリックして、名前がcgRed1のTCheckGroupが作成される。
17	17		- cgRed1のNameをcgGreenに変更し、CaptionをGreenに変更する。
18	18		- TCheckGroupを挿入し、その名前をcgBlueに変更し、キャプションをBlueに変更する。
19	19		- チェックボックスがクリックされるたびに、色が変わる。
20	20		- オブジェクトインスペクタで、cgRedのOnItemClickイベントハンドラを作成するために、OnItemClickイベントの隣の \[...\] ボタンをクリックする。
21	21		- cgGreenとcgBlueについても同じイベントハンドラを選択するために、OnItemClickイベントの隣にあるComboBoxでそれぞれcgRedItemClickを選択する。
22	22		- cgGreenとcgBlueに対しても同じイベントハンドラを選択するために、OnItemClickイベントの隣にあるコンボボックスでそれぞれcgRedItemClickを選択する。
23	23		- イベントハンドラに以下のコードを記述する:
24	24
25	25		``` pascal
26	26		procedure TForm1.cgRedItemClick(Sender: TObject; Index: integer);
27	27		var
28	28		i, c: Integer;
29	29		begin
30	30		c := $000000; // first the color is black
31	31		for i:=0 to 7 do begin // test Items 0..7 of all Checkgroups
32	32		if cgRed.Checked[i] then c := c + 1 shl i; // amount of red $000000..$0000FF
33	33		if cgGreen.Checked[i] then c := c + 1 shl (i + 8); // amount of green $000000..$00FF00
34	34		if cgBlue.Checked[i] then c := c + 1 shl (i + 16); // amount of blue $000000..$FF0000
35	35		end;
36	36		Color := c;
37	37		end;
38	38		```
39	39
40	40		- プログラムを実行すると、以下のように見えるだろう:
41	41
42		-	~~<figure>~~
43		-	~~<img src="ExampleTCheckGroup.png" title="ExampleTCheckGroup.png" />~~
44		-	~~<figcaption>ExampleTCheckGroup.png</figcaption>~~
45		-	~~</figure>~~
	42	+	![](/wiki-images/c/ca/ExampleTCheckGroup.png)
46	43
47	44		## チェックボックスにアクセスする
48	45
49	46		TCheckGroup内の各アイテムにはCheckedプロパティがあり、それらをすべてチェック済みに設定するには、次のようにする。
50	47
51	48		``` pascal
52	49		for i := 0 to MyCheckGroup.items.Count-1 do // 見つかったすべてのカテゴリを調べる
53	50		MyCheckGroup.Checked[i] := true;
54	51		```
55	52
56	53		実行時にアイテムを追加するには、TCheckGroup.Itemsを使用する。これはTStringsリストである。新しいチェックボックスをセットに追加するには、単にMyCheckGroup.Items.add('CheckThis');を行う。同様に、すべてのアイテムを削除するには、リストをクリアする MyCheckGroup.Items.clear;
57	54
58	55		## 以下も参照のこと
59	56
60	57		- [[doc:lcl/extctrls/tcheckgroup.html\|TCheckGroup doc]]
61	58		- [[TCheckBox/ja]]
62	59		- [[TGroupBox/ja]]
63	60
64	61		---
65	62		From the Free Pascal wiki, page "TCheckGroup/ja", as it stood on 2024-03-24 after a change by Ariben, 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