PROCEDURE DIALOG_Pref;

CONST

	D_ID=32;



	End_Button=1;	{Enter対策}



	iHelp=3;



	iS_Gb=4;

	iD_Gb=5;

	iP_Gb=6;



	SPref1= 9;

	SPrefN1='拡大時に線の太さを表示';

	SPrefH1='線の太さの表示が画面表示倍率に追従するようになります';



	SPref2=14;

	SPrefN2='グループ編集時に他の図形を表示';

	SPrefH2='「グループに入る」使用時にグループ外の図形を表示します';



	DPref1=10;

	DPrefN1='白黒表示';

	DPrefH1='作図ウィンドウ上の図形を白黒で表示します';



	DPref2=11;

	DPrefN2='カラーレイヤ';

	DPrefH2='レイヤカラーの設定が使用されます';



	PPref1=49;

	PPrefN1='用紙の大きさを表示';

	PPrefH1='デザインレイヤ上に用紙の大きさが表示されます';



	PPref2=34;

	PPrefN2='用紙境界を表示';

	PPrefH2='全レイヤの用紙の境界が表示されます';



	BT_Standard=1;

	BT_AutoCheck=4;

VAR

	Item	:INTEGER;

	Done	:BOOLEAN;



BEGIN

	BeginDialog(D_ID,1,						  0,  0,370,170);

	SetTitle('簡易環境設定');



	AddGroupBox('システム環境',iS_Gb,		 10, 10,210, 80);

	AddGroupBox('用紙環境',iD_Gb,			 10, 90,120,160);

	AddGroupBox('用紙設定',iP_Gb,			220, 10,360, 80);



	AddButton(SPrefN1,SPref1,BT_AutoCheck,	 20, 30,200, 45);

	AddButton(SPrefN2,SPref2,BT_AutoCheck,	 20, 55,200, 70);



	AddButton(DPrefN1,DPref1,BT_AutoCheck,	 20,110,110,125);

	AddButton(DPrefN2,DPref2,BT_AutoCheck,	 20,135,110,150);



	AddButton(PPrefN1,PPref1,BT_AutoCheck,	230, 30,350, 45);

	AddButton(PPrefN2,PPref2,BT_AutoCheck,	230, 55,350, 70);



	AddHelpItem(iHelp,						130, 85,360,130);



	AddButton('設定終了',End_Button,BT_Standard,	280,140,360,160);

	EndDialog;





	Done:=FALSE;

	GetDialog(D_ID);



	SetItem(SPref1,GetPref(SPref1));

	SetItem(SPref2,GetPref(SPref2));

	SetItem(DPref1,GetPref(DPref1));

	SetItem(DPref2,GetPref(DPref2));

	SetItem(PPref1,GetPref(PPref1));

	SetItem(PPref2,GetPref(PPref2));



	SetHelpString(SPref1,SPrefH1);

	SetHelpString(SPref2,SPrefH2);

	SetHelpString(DPref1,DPrefH1);

	SetHelpString(DPref2,DPrefH2);

	SetHelpString(PPref1,PPrefH1);

	SetHelpString(PPref2,PPrefH2);





	REPEAT

		DialogEvent(Item);



		CASE Item OF

			1,2:	{Enter、閉じる対策}

				Done:=TRUE;



			SPref1:

			BEGIN

				SetPref(SPref1,ItemSel(SPref1));

				ReDrawAll;

			END;



			SPref2:

			BEGIN

				SetPref(SPref2,ItemSel(SPref2));

				ReDrawAll;

			END;



			DPref1:

			BEGIN

				SetPref(DPref1,ItemSel(DPref1));

				ReDrawAll;

			END;



			DPref2:

			BEGIN

				SetPref(DPref2,ItemSel(DPref2));

				ReDrawAll;

			END;



			PPref1:

			BEGIN

				SetPref(PPref1,ItemSel(PPref1));

				ReDrawAll;

			END;



			PPref2:

			BEGIN

				SetPref(PPref2,ItemSel(PPref2));

				ReDrawAll;

			END;

		END;

	UNTIL Done;



	ClrDialog;

END;



RUN(DIALOG_Pref);