TCheckGroup/ja: what changed

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

Title: TCheckGroup/ja

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