---------------------------- function starting () base = INIFile.GetSectionNames("base.ini"); for j,num in base do test = INIFile.GetValue("base.ini", num, "live") if test ~= "0" then butTS = {} butTS.ButtonFile = INIFile.GetValue("base.ini", num, "file") butTS.Text = INIFile.GetValue("base.ini", num, "name") butTS.X = INIFile.GetValue("base.ini", num, "posx") butTS.Y = INIFile.GetValue("base.ini", num, "posy") butTS.TooltipText = INIFile.GetValue("base.ini", num, "live") Page.CreateObject(OBJECT_BUTTON, num, butTS); Page.SetObjectScript(num, "On Click", "clicko ();"); Page.SetObjectScript(num, "On Click", clicko); else butTS = {} butTS.ButtonFile = INIFile.GetValue("base.ini", num, "file") butTS.Text = INIFile.GetValue("base.ini", num, "name") butTS.X = INIFile.GetValue("base.ini", num, "posx") butTS.Y = INIFile.GetValue("base.ini", num, "posy") butTS.TooltipText = "Номер пустой" Page.CreateObject(OBJECT_BUTTON, num, butTS); Page.SetObjectScript(num, "On Click", "clicko ();"); Page.SetObjectScript(num, "On Click", clicko); end end end clicko = [[focus = Button.GetProperties(this).ObjectName; Dialog.Message("Notice", focus, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1); ]] function clicko () focus = Button.GetProperties(this).ObjectName; Dialog.Message("Notice", focus, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1); end --------------------------------------------- |