//******************************************
// Modal dialog simple with checking column
// LABPP 2022
//******************************************

#include "items.h"
// 
string sProcName = "Modal dialog simple with checking column";

int main()
{
	cout << sProcName << "\n";

	int iarg1; double darg2; string sarg3;
	run_cpp("get_args",iarg1, darg2, sarg3);

	if (sarg3 == "Get PCG item name")
	{
		var_extern_set("PCG item name", sProcName);
		return 0;
	}


	if (sarg3 == "Help")
	{
		tsalert(-3, "Information", "",
			"");
		return 0;
	}

//	string genesis, v_type, varname, svalue, sdescription, sgroup;
//	programcodegen("get_bimmaster_cur_selected_parameter_info", genesis, v_type, varname, svalue, sdescription, sgroup);

	string prg_code_gen;
	string CheckItems20221207="MDCheck20221207";

	int res;
	res = var_extern_get("DCName", CheckItems20221207,0);
	if(res != 0) {
		CheckItems20221207="_DCName";
	}

	res = ac_request("editstringdialog", "Enter Dialog Suffix Name", CheckItems20221207);
	if (res == 1)
	{
		CheckItems20221207 = ac_getstrvalue();
	}
	var_extern_set("DCName", CheckItems20221207);

	prg_code_gen = "// " +sProcName+ " -------------------------------->\n\
int iDialog" + CheckItems20221207+";\n\
int iListBox" + CheckItems20221207+", iButton_Ok"+CheckItems20221207+", iButton_Cancel"+CheckItems20221207+";\n\
int iTable" +CheckItems20221207+";\n\
\n\
int main()\n\
{\n\
	int ires;\n\
	ac_request(\"clearmessagewindow\");\n\
	object(\"create\", \"ts_table\", iTable"+CheckItems20221207+");\n\
\n\
	ts_table(iTable"+CheckItems20221207+", \"add_column\", -1, \"string\", \"Column 1\");\n\
	ts_table(iTable"+CheckItems20221207+", \"add_column\", -1, \"int\"   , \"Column 2\");\n\
	ts_table(iTable"+CheckItems20221207+", \"add_column\", -1, \"double\", \"Column 3\");\n\
	ts_table(iTable"+CheckItems20221207+", \"add_column\", -1, \"bool\"  , \"Checked\");\n\
	ts_table(iTable"+CheckItems20221207+", \"add_column\", -1, \"string\", \"Column 4\");\n\
\n\
	int i, icount=20;\n\
	for (i = 0; i < icount; i++)\n\
	{\n\
		ts_table(iTable"+CheckItems20221207+", \"add_row\", 0, \"Value \"+itoa(i), \"Column 2\", i, \"Column 3\", i*1.01,\n\
			\"Column 4\", itoa(i), \"Checked\", false);\n\
	}\n\
\n\
	string str;\n\
	ts_table(iTable"+CheckItems20221207+", \"print_to_str\", str);\n\
	coutvar << str;\n\
\n\
	// Create Dialog\n\
	int x, y, w, h, offset;\n\
\n\
	object(\"create\", \"ts_dialog\", iDialog"+CheckItems20221207+");\n\
	ts_dialog(iDialog"+CheckItems20221207+", \"init_dialog\", \"modaldialog\", 0, 0, 350, 400);\n\
	ts_dialog(iDialog"+CheckItems20221207+", \"SetGrowType\", 3);\n\
\n\
	ts_dialog(iDialog"+CheckItems20221207+", \"SetTitle\", \"The Dialog Header\");\n\
\n\
	object(\"create\", \"ts_dialogcontrol\", iListBox"+CheckItems20221207+", \"iListBox"+CheckItems20221207+"\");\n\
\n\
	ts_dialogcontrol(iListBox"+CheckItems20221207+", \"init_control\", \"singlesellistbox\", iDialog"+CheckItems20221207+", 5, 5, 340, 350, 48, 20);\n\
	ts_dialogcontrol(iListBox"+CheckItems20221207+", \"eventreaction\", \"Event_ListBoxClicked\", \"Event_ListBoxClicked"+CheckItems20221207+"\");\n\
	ts_dialogcontrol(iListBox"+CheckItems20221207+", \"SetAnchorToPanelResize\", 0, 0, 1, 1);\n\
\n\
	ts_table(iTable"+CheckItems20221207+", \"set_columns_width_when_export\", 100);\n\
\n\
	ts_table(iTable"+CheckItems20221207+", \"mapping_columns_to_export\",\n\
		-1, \"Empty column\", \"\",\n\
		\"Column 1\", \"Header 2\", \"\",\n\
		\"Column 3\", \"Header 3\", \"\",\n\
		\"Column 4\", \"Header 4\", \"\",\n\
		-1, \"Checked\", \"\",\n\
		\"Column 2\", \"Column 2\", \"\"\n\
		);\n\
\n\
	int iconid;\n\
\n\
	ts_table(iTable"+CheckItems20221207+", \"export_to_dialogcontrol\", iListBox"+CheckItems20221207+", -1, -1);\n\
	ts_dialogcontrol(iListBox"+CheckItems20221207+", \"getitemcount\", icount);\n\
\n\
	bool bChecked;\n\
	for (i = 0; i < icount; i++)\n\
	{\n\
		ts_table(iTable"+CheckItems20221207+", \"select_row\", i);\n\
		ts_table(iTable"+CheckItems20221207+", \"get_value_of\", \"Checked\", bChecked);\n\
		if (bChecked) {\n\
			iconid = 32001; // icon code for checked. unchecked - 32000\n\
		}\n\
		else {\n\
			iconid = 32000; // icon code for checked. unchecked - 32000\n\
		}\n\
		ts_dialogcontrol(iListBox"+CheckItems20221207+", \"SetTabItemIconId\", i + 1, 5, iconid);\n\
	}\n\
\n\
	ts_dialogcontrol(iListBox"+CheckItems20221207+", \"SetTabFieldBEPosition\", 1, 0, 30);\n\
	ts_dialogcontrol(iListBox"+CheckItems20221207+", \"SetTabFieldBEPosition\", 2, 30, 60);\n\
	ts_dialogcontrol(iListBox"+CheckItems20221207+", \"SetTabFieldBEPosition\", 3, 60, 130);\n\
	ts_dialogcontrol(iListBox"+CheckItems20221207+", \"SetTabFieldBEPosition\", 4, 130, 260);\n\
	ts_dialogcontrol(iListBox"+CheckItems20221207+", \"SetTabFieldBEPosition\", 5, 260, 320);\n\
	ts_dialogcontrol(iListBox"+CheckItems20221207+", \"SetTabFieldBEPosition\", 6, 320, 390);\n\
\n\
	ts_dialogcontrol(iListBox"+CheckItems20221207+", \"EnableSeparatorLines\", 1);\n\
	ts_dialogcontrol(iListBox"+CheckItems20221207+", \"RepaintBackgroundItemsByColumnValue\", 3, 255, 255, 255, 250, 250, 250);";
	
	prg_code_gen +="x = 10;	w = 98;	int delta = 10;\n\
	x = x + w + delta;\n\
	y = 370;\n\
	h = 20;\n\
	object(\"create\", \"ts_dialogcontrol\", iButton_Cancel"+CheckItems20221207+", \"iButton_Cancel"+CheckItems20221207+"\");\n\
	ts_dialogcontrol(iButton_Cancel"+CheckItems20221207+", \"init_control\", \"button\", iDialog"+CheckItems20221207+", x, y, w, h);\n\
	ts_dialogcontrol(iButton_Cancel"+CheckItems20221207+", \"eventreaction\", \"Event_ButtonClicked\", \"Event_ButtonClicked"+CheckItems20221207+"\");\n\
	ts_dialogcontrol(iButton_Cancel"+CheckItems20221207+", \"settext\", \"Cancel\");\n\
	ts_dialogcontrol(iButton_Cancel"+CheckItems20221207+", \"settooltip\", \"Close dialog with cancel\");\n\
	ts_dialogcontrol(iButton_Cancel"+CheckItems20221207+", \"SetAnchorToPanelResize\", 1, 1, 0, 0);\n\
\n\
	x = x + w + delta;\n\
	object(\"create\", \"ts_dialogcontrol\", iButton_Ok"+CheckItems20221207+", \"iButton_Ok"+CheckItems20221207+"\");\n\
	ts_dialogcontrol(iButton_Ok"+CheckItems20221207+", \"init_control\", \"button\", iDialog"+CheckItems20221207+", x, y, w, h);\n\
	ts_dialogcontrol(iButton_Ok"+CheckItems20221207+", \"eventreaction\", \"Event_ButtonClicked\", \"Event_ButtonClicked"+CheckItems20221207+"\");\n\
	ts_dialogcontrol(iButton_Ok"+CheckItems20221207+", \"settext\", \"Ok\");\n\
	ts_dialogcontrol(iButton_Ok"+CheckItems20221207+", \"SetAnchorToPanelResize\", 1, 1, 0, 0);\n\
\n\
	bool bres;\n\
	ts_dialog(iDialog"+CheckItems20221207+", \"invoke\", bres);\n\
\n\
	for (i = 0; i < icount; i++)\n\
	{\n\
		ts_table(iTable"+CheckItems20221207+", \"select_row\", i);\n\
		ts_dialogcontrol(iListBox"+CheckItems20221207+", \"GetTabItemIconId\", i + 1, 5, iconid);\n\
		if (iconid == 32001) {\n\
			bChecked = true;\n\
		}\n\
		else {\n\
			bChecked = false;\n\
		}\n\
		ts_table(iTable"+CheckItems20221207+", \"set_value_of\", \"Checked\", bChecked);\n\
	}\n\
\n\
	ts_table(iTable"+CheckItems20221207+", \"print_to_str\", str);\n\
	coutvar << str;\n\
\n\
	return 0;\n\
}\n\
\n\
int Event_ListBoxClicked"+CheckItems20221207+"(int iDescr, string sDescr)\n\
{\n\
	if (sDescr == \"iListBox"+CheckItems20221207+"\") { switch_onofficon"+CheckItems20221207+"(iListBox"+CheckItems20221207+", 5); }\n\
}\n\
int Event_ButtonClicked"+CheckItems20221207+"(int iDescr, string sDescr)\n\
{\n\
	if (sDescr == \"iButton_Cancel"+CheckItems20221207+"\") { ts_dialog(iDialog"+CheckItems20221207+", \"PostCloseRequest\", \"cancel\"); }\n\
	else if (sDescr == \"iButton_Ok"+CheckItems20221207+"\") { ts_dialog(iDialog"+CheckItems20221207+", \"PostCloseRequest\", \"ok\"); }\n\
}\n\
int switch_onofficon"+CheckItems20221207+"(int iListBoxWhereDo, int iColumnWhereDo)\n\
{\n\
	int selecteditem;\n\
	int iconid;\n\
	int mousex, mousey;\n\
	int sx, ex;\n\
	ts_dialogcontrol(iListBoxWhereDo, \"GetMouseClickedPosXY\", mousex, mousey);\n\
	ts_dialogcontrol(iListBoxWhereDo, \"GetTabFieldPosition\", iColumnWhereDo, sx, ex);\n\
	ex = sx + 22;\n\
	if ((mousex > sx) && (mousex < ex))\n\
	{\n\
		ts_dialogcontrol(iListBoxWhereDo, \"GetSelectedItem\", selecteditem);\n\
		if (selecteditem != 0)\n\
		{\n\
			ts_dialogcontrol(iListBoxWhereDo, \"GetTabItemIconId\", selecteditem, iColumnWhereDo, iconid);\n\
			if (iconid == 32000) { ts_dialogcontrol(iListBoxWhereDo, \"SetTabItemIconId\", selecteditem, iColumnWhereDo, 32001); }\n\
			else { ts_dialogcontrol(iListBoxWhereDo, \"SetTabItemIconId\", selecteditem, iColumnWhereDo, 32000); }\n\
		}\n\
	}\n\
}";

	var_extern_set("PCG item result", prg_code_gen);
}

//<--------