// CALENDAR // COLOR // SELECTION // MESSAGE //############################################################################# //############################################################################# //############################################################################# // CALENDAR var arCalendarObject = new Array() function CalendarObject(NewFrame,NewDate,NewLang,InitDraw,InitChange,NewEnabled) { var index = arCalendarObject.length; arCalendarObject[index] = this this.ObjectIndex = index this.Frame = NewFrame this.IsFrame = (ListFind("DIV|SPAN|TABLE|TD",NewFrame.tagName) == false) this.Document = (this.IsFrame == true) ? GetFrameDocument(this.Frame) : window.document this.Active = ToDate(NewDate,-1) != -1 this.Date = ToDate(NewDate) this.Data = new Array(); for (var i=0;i<6;i++) this.Data[i] = new Array() this.Run = null this.Events = true this.Enabled = (NewEnabled || true) this.Title = "Calendar" this.Lang = "NL"; if ((NewLang != null) && (NewLang != "")) this.Lang = NewLang this.Langs = new Array("NL","DE","GB","ES","FR","IT","US") this.Formats = new Array("{w} {d} {m} {y}","{w}, {d}. {m} {y}","{w}, {d} {m} {y}","{w}, {d} de {m} de {y}","{w} {d} {m} {y}","{w} {d} {m} {y}","{w}, {m} {d}, {y}") this.SDays = new Array(["zo","ma","di","wo","do","vr","za"],["so","mo","di","mi","do","fr","sa"],["su","mo","tu","we","th","fr","sa"],["do","lun","ma","mi","ju","vi","s"+Chr(225)],["di","lu","ma","me","je","ve","sa"],["do","lu","ma","me","gi","ve","sa"],["su","mo","tu","we","th","fr","sa"]) this.FDays = new Array(["zondag","maandag","dinsdag","woensdag","donderdag","vrijdag","zaterdag"],["Sonntag","Montag","Dienstag","Mittwoch","Donnerstag","Freitag","Samstag"],["sunday","monday","tuesday","wednesday","thursday","friday","saturday"],["domingo","lunes","martes","mi"+Chr(233)+"rcoles","jueves","viernes","s"+Chr(225)+"bado"],["dimanche","lundi","mardi","mercredi","jeudi","vendredi","samedi"],["domenica","luned"+Chr(236),"marted"+Chr(236),"mercoled"+Chr(236),"gioved"+Chr(236),"venerd"+Chr(236),"sabato"],["sunday","monday","tuesday","wednesday","thursday","friday","saturday"]) this.FMonths = new Array(["januari","februari","maart","april","mei","juni","juli","augustus","september","oktober","november","december"],["Januar","Februar","M"+Chr(228)+"rz","April","Mai","Juni","Juli","August","September","Oktober","November","Dezember"],["january","february","march","april","may","june","july","august","september","october","november","december"],["enero","febrero","marzo","abril","mayo","junio","julio","agosto","septiembre","octubre","noviembre","diciembre"],["janvier","f"+Chr(233)+"vrier","mars","avril","mai","juin","juillet","ao"+Chr(251)+"t","septembre","octobre","novembre","d"+Chr(233)+"cembre"],["gennaio","febbraio","marzo","aprile","maggio","giugno","luglio","agosto","settembre","ottobre","novembre","dicembre"],["january","february","march","april","may","june","july","august","september","october","november","december"]) this.GetElement = CalendarObject_GetElement this.RunKeyDown = CalendarObject_RunKeyDown this.RunClick = CalendarObject_RunClick this.RunDblClick = CalendarObject_RunDblClick this.RunDraw = CalendarObject_RunDraw this.SetActive = CalendarObject_SetActive this.RunChange = CalendarObject_RunChange this.OnKeyDown = CalendarObject_OnKeyDown this.OnChange = CalendarObject_OnChange this.OnClick = CalendarObject_OnClick this.OnDblClick = CalendarObject_OnDblClick this.OnConfirm = CalendarObject_OnConfirm this.OnDelete = CalendarObject_OnDelete this.OnEnter = CalendarObject_OnEnter this.OnEscape = CalendarObject_OnEscape this.OnResult = CalendarObject_OnResult //RESULT ! if (InitDraw != false) this.RunDraw() if (InitChange != false) this.RunChange(null,null,null,true) } function CalendarObjectRunKeyDown(evt) { for (var i=0;i\n" tmp += "\n" tmp += "{Title}\n" tmp += "\n" tmp += "" } tmp += "\n" tmp = tmp.replace("{Height}",(IsSafari() == true) ? "200" : "100%") //KeyMinus=189,KeyAdd=187,KeyPageUp=33,KeyPageDown=34 if (this.Events == true) { tmp += "\n" } else { tmp += "\n" } tmp += "\n" var iLang = 0; for (var i=0;i" + this.SDays[iLang][i] + "\n" } tmp += "\n" for (var i=0;i<6;i++) { tmp += "\n" for (j=0;j<7;j++) { tmp += "\n" } tmp += "\n" } tmp += "<\/table>" if (this.IsFrame == true) { tmp += "<\/body>\n" tmp += "<\/html>\n" } tmp = Replace(tmp,"{BackColor}",(this.Enabled == true) ? "white" : "whitesmoke") tmp = Replace(tmp,"{Cursor}",(this.Enabled == true) ? "pointer" : "default") tmp = Replace(tmp,"{Calendar}",(this.IsFrame == true) ? "parent.arCalendarObject[{Index}]" : "arCalendarObject[{Index}]") tmp = Replace(tmp,"{Cursor}",(this.Enabled == true) ? "pointer" : "default") tmp = Replace(tmp,"{Select}",(IsFirefox() == true) ? "-moz-user-select: none" : "") tmp = Replace(tmp,"{Title}",this.Title) tmp = Replace(tmp,"{Index}",this.ObjectIndex) if (this.IsFrame == true) { var doc = GetFrameDocument(this.Frame) doc.open() doc.clear() doc.write(tmp) doc.close() CallFocus(this.Frame) CallFocus(doc) } else { this.Frame.innerHTML = tmp } } function CalendarObject_RunChange(day,month,year,force) { if (this.GetElement() == null) return if (day == null) { day = this.Date.getDate() } if (month == null) { month = this.Date.getMonth()+1 } if (year == null) { year = this.Date.getFullYear() } if ((this.Date.getDate() != day) || ((this.Date.getMonth()+1) != month) || (this.Date.getFullYear() != year) || (force == true)) { var hold = new Date(this.Date) this.Date = new Date(year,month-1,day) //this.Date = new Date(1900,0,1) //this.Date.setDate(day) //this.Date.setMonth(month-1) //this.Date.setYear(year) var ctr = this.GetElement("CalendarDate" + this.ObjectIndex) var f = " " var iLang = 0; for (var i=0;i\n" } htm += "
 - << >> + 
 
 
\n" htm = htm.replace("{Height}",(IsSafari() == true) ? "180px" : "100%") htm += "\n" htm += "
\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" htm += "
\n" htm += "
\n" htm += "" htm += "\n" htm += "\n" if (IsIE() == true) { var bCanCreate = false try { var col = new ActiveXObject("MsComDlg.CommonDialog") bCanCreate = true } catch(e) { } if (bCanCreate == true) { htm += "\n" } } htm += "\n" htm += "
 X  ?  Colors...  
\n" htm += "
\n" htm += "
\n" if (this.IsFrame == true) { htm += "\n" htm += "\n" htm = Replace(htm,"{Color}","parent.arColorObject[{Index}]") } else { htm = Replace(htm,"{Color}","arColorObject[{Index}]") } htm = Replace(htm,"{Index}",this.ObjectIndex) htm = Replace(htm,"{Title}",this.Title) htm = Replace(htm,"{Select}",(IsFirefox() == true) ? "-moz-user-select: none" : "") if (this.IsFrame == true) { var doc = GetFrameDocument(this.Frame) doc.open() doc.clear() doc.write(htm) doc.close() } else { this.Frame.innerHTML = htm } } function ColorObject_RunOver(evt) { var el = GetEventElement(evt) var color = ToString(el.bgColor); if (color == "") return var ct = this.GetElement("ColorSample" + this.ObjectIndex) ct.style.backgroundColor = color ct.innerHTML = "" + color + "" } function ColorObject_RunOut(evt) { var el = GetEventElement(evt) var ct = this.GetElement("ColorSample" + this.ObjectIndex) ct.style.backgroundColor = "white" ct.innerHTML = " " } function ColorObject_RunClick(evt) { var el = GetEventElement(evt) var color = ToString(el.bgColor); if (color == "") return this.RunSelect(color) } function ColorObject_RunSelect(color) { if (color == null) { try { var col = new ActiveXObject("MsComDlg.CommonDialog") try { col.CancelError = true col.ShowColor() var c = col.Color var h = "0123456789abcdef" color = "#" + h.charAt(Math.floor(c / 16) % 16) + h.charAt(c % 16) + h.charAt(Math.floor(c / 4096) % 16) + h.charAt(Math.floor(c / 256) % 16) + h.charAt(Math.floor(c / 1048576) % 16) + h.charAt(Math.floor(c / 65536) % 16) this.OnResult(color) } catch (e) { return } } catch (e) { ShowAlert(e.message || e) } } else if (color == "?") { color = ShowInput("Insert a color code or name: (sample: #ff0000 or Red)") if (color == "") return this.OnResult(color) } else if (color != null) { this.OnResult(color) } } function ColorObject_OnResult(color) { } function ColorObject_OnEscape() { } //############################################################################# //############################################################################# //############################################################################# // SELECTION var arSelectionObject = new Array() function SelectionObject(NewFrame,NewData,InitDraw) { var index = arSelectionObject.length; arSelectionObject[index] = this this.ObjectIndex = index this.Frame = NewFrame this.IsFrame = false this.Document = null this.Data = NewData this.GetElement = SelectionObject_GetElement this.RunDraw = SelectionObject_RunDraw this.RunOver = SelectionObject_RunOver this.RunKeyDown = SelectionObject_RunKeyDown this.RunClick = SelectionObject_RunClick this.OnResult = SelectionObject_OnResult this.Index = -1 this.Title = "Selection" this.HTML = null if (InitDraw == true) this.RunDraw() } function SelectionObjectRunKeyDown(evt) { for (var i=0;i\n" htm += "\n" htm += "{Title}\n" htm += "\n" htm += "\n" } htm += "
\n" htm += "
\n" htm += "\n" htm += "\n" htm += "\n" htm += "\n" var bImage = false for (var i=0;i\n" s += "\n" s += "\n" s += "\n" this.Data[i].Image = ToString(this.Data[i].Image) this.Data[i].Font = ToString(this.Data[i].Font) this.Data[i].Text = ToString(this.Data[i].Text) || ToString(this.Data[i]) s = Replace(s,"{i}",i) s = Replace(s,"{Image}",(this.Data[i].Image != "") ? ("") : "") s = Replace(s,"{Font}",(this.Data[i].Font != "") ? ("font-family:" + this.Data[i].Font) : "") s = Replace(s,"{Text}",this.Data[i].Text) if (this.Data[i].Image != "") bImage = true htm += s if (htm.length > 1000) { htm2 += htm; htm = "" } } htm = htm2 + htm htm = Replace(htm,"{BackColor}",(bImage == true) ? "#ddeeff" : "white") htm += "
{Image}{Text}
\n" htm += "
\n" htm += "
\n" if (this.IsFrame == true) { htm += "\n" htm += "\n" htm = Replace(htm,"{Selection}","parent.arSelectionObject[{Index}]") } else { htm = Replace(htm,"{Selection}","arSelectionObject[{Index}]") } htm = Replace(htm,"{Index}",this.ObjectIndex) htm = Replace(htm,"{Title}",this.Title) htm = Replace(htm,"{Scroll}",(IsIE() == true) ? "scrollbar-arrow-color:steelblue;scrollbar-base-color:white;scrollbar-3dlight-color:steelblue;scrollbar-shadow-color:white;scrollbar-darkshadow-color:steelblue;scrollbar-highlight-color:white;scrollbar-track-color:whitesmoke" : "") htm = Replace(htm,"{Select}",(IsFirefox() == true) ? "-moz-user-select: none" : "") htm = Replace(htm,"{Width}",((IsFirefox() == true) || (IsSafari() == true)) ? ((GetElementWidth(this.Frame)-4) + "px") : "100%") htm = Replace(htm,"{Height}",((IsFirefox() == true) || (IsSafari() == true)) ? ((GetElementHeight(this.Frame)-4) + "px") : "100%") this.HTML = htm } if (this.IsFrame == true) { var doc = GetFrameDocument(this.Frame) doc.open() doc.clear() doc.write(this.HTML) doc.close() CallFocus(this.Frame) CallFocus(doc) } else { this.Frame.innerHTML = this.HTML } } function SelectionObject_RunOver(evt,tr) { if (tr == null) tr = GetEventElement(evt) while ((tr != null) && (tr.tagName != "TR")) tr = tr.parentNode var tb = this.GetElement("SelectionItemTable_" + this.ObjectIndex) if ((this.Index != -1) && (this.Index != tr.rowIndex)) { var ro = tb.rows[this.Index] ro.cells[0].style.backgroundColor = "" ro.cells[1].style.backgroundColor = "" ro.cells[2].style.backgroundColor = "" } this.Index = tr.rowIndex tr.cells[0].style.backgroundColor = "#66aaee" tr.cells[1].style.backgroundColor = "#66aaee" tr.cells[2].style.backgroundColor = "#66aaee" if (IsIE() == true) { try { CallFocus(tb.rows[tr.rowIndex-1].cells[0].children[0]) } catch(e) {} CallFocus(tr.cells[0].children[0]) try { CallFocus(tb.rows[tr.rowIndex+1].cells[0].children[0]) } catch(e) {} } else { try { CallFocus(tb.rows[tr.rowIndex-1].cells[0].childNodes[0]) } catch(e) {} CallFocus(tr.cells[0].childNodes[0]) try { CallFocus(tb.rows[tr.rowIndex-1].cells[0].childNodes[0]) } catch(e) {} } } function SelectionObject_RunClick(evt,tr) { if (tr == null) tr = GetEventElement(evt) while ((tr != null) && (tr.tagName != "TR")) tr = tr.parentNode var Index = tr.rowIndex var Value = this.Data[Index].Value || this.Data[Index].Text || this.Data[Index] || "" var Text = this.Data[Index].Text || this.Data[Index] || "" this.OnResult(Index,Value,Text) } function SelectionObject_RunKeyDown(evt) { var key = GetEventKeyCode(evt) if ((key == KeyUp) && (this.Data.length > 0)) { var Index = (this.Index == -1) ? this.Data.length-1 : (this.Index-1); Index = LimitNumeric(Index,0,this.Data.length-1) var tb = this.GetElement("SelectionItemTable_" + this.ObjectIndex) var tr = tb.rows[Index] this.RunOver(evt,tr) evt.cancelBubble = true return false } if ((key == KeyPageUp) && (this.Data.length > 0)) { var Index = LimitNumeric((this.Index == -1) ? this.Data.length-1 : (this.Index-5),0,this.Data.length-1) var tb = this.GetElement("SelectionItemTable_" + this.ObjectIndex) var tr = tb.rows[Index] this.RunOver(evt,tr) evt.cancelBubble = true return false } if ((key == KeyDown) && (this.Data.length > 0)) { var Index = LimitNumeric((this.Index == -1) ? 0 : (this.Index+1),0,this.Data.length-1) var tb = this.GetElement("SelectionItemTable_" + this.ObjectIndex) var tr = tb.rows[Index] this.RunOver(evt,tr) evt.cancelBubble = true return false } if ((key == KeyPageDown) && (this.Data.length > 0)) { var Index = LimitNumeric((this.Index == -1) ? 0 : (this.Index+5),0,this.Data.length-1) var tb = this.GetElement("SelectionItemTable_" + this.ObjectIndex) var tr = tb.rows[Index] this.RunOver(evt,tr) evt.cancelBubble = true return false } if ((key == KeyEnter) && (this.Index != -1) && (this.Data.length > 0)) { var tb = this.GetElement("SelectionItemTable_" + this.ObjectIndex) var tr = tb.rows[this.Index] this.RunClick(evt,tr) evt.cancelBubble = true return false } } function SelectionObject_OnResult(Index,Value,Text) { } //############################################################################# //############################################################################# //############################################################################# // MESSAGE var Message_OkLabel = null function MessageOkLabel(text) { var win = GetTopWindow() try { if (text != null) win.Message_OkLabel = text } catch(e) { } return win.Message_OkLabel || "Ok" } var Message_CancelLabel = null function MessageCancelLabel(text) { var win = GetTopWindow() try { if (text != null) win.Message_CancelLabel = text } catch(e) { } return win.Message_CancelLabel || "Annuleren" } var Message_CloseLabel = null function MessageCloseLabel(text) { var win = GetTopWindow() try { if (text != null) win.Message_CloseLabel = text } catch(e) { } return win.Message_CloseLabel || "Sluiten" } //############################################################################# //############################################################################# //############################################################################# // MESSAGE function ShowMessageManager(win,msg,img) { if (win == null) win = window if ((win.showModalDialog) && (IsIE() == true)) { var obj = new Object() obj.Window = win obj.CloseLabel = MessageCloseLabel() obj.Message = msg obj.Icon = img obj.Url = "../Lib/MessageWindow.htm" obj.Features = "dialogWidth:600px;dialogHeight:140px;center:yes;help:no;close:no;unadorned:yes;status:no;scroll:no" try { var res = win.showModalDialog(obj.Url,obj,obj.Features) } catch(e) { msg = HTMLToText(msg) ShowAlert(msg) } } else { msg = HTMLToText(msg) if (Find(img,"Critical",true) != -1) msg = "[ CRITICAL ]\n\n" + msg if (Find(img,"Exclamation",true) != -1) msg = "[ EXCLAMATION ]\n\n" + msg ShowAlert(msg) } } function ShowMessage(msg,win) { ShowMessageManager(win,msg,"../Images/Message_Information.gif") } function ShowMessageCritical(msg,win) { ShowMessageManager(win,msg,"../Images/Message_Critical.gif") } function ShowMessageExclamation(msg,win) { ShowMessageManager(win,msg,"../Images/Message_Exclamation.gif") } //############################################################################# //############################################################################# //############################################################################# // INFORMATION var InformationArguments = null var InformationWindow = null function ShowInformationManager(win,msg,height,modal) { if (win == null) win = window if (modal == null) modal = true if (height == null) height = 300 if ((win.showModalDialog) && (IsIE() == true) && (modal == true)) { var obj = new Object() obj.Window = win obj.CloseLabel = MessageCloseLabel() obj.Message = msg obj.Icon = "../Images/Message_Information.gif" var Url = "../Lib/InformationWindow.htm" var Fea = "dialogWidth:600px;dialogHeight:" + height + "px;center:yes;help:no;close:no;unadorned:yes;status:no;scroll:no" try { var res = win.showModalDialog(Url,obj,Fea) } catch(e) { msg = HTMLToText(msg) ShowAlert(msg) } } else { if ((InformationWindow != null) && (InformationWindow.closed == false)) InformationWindow.close() InformationArguments = new Object() InformationArguments.Window = win InformationArguments.CloseLabel = MessageCloseLabel() InformationArguments.Message = msg InformationArguments.Icon = "../Images/Message_Information.gif" var Url = "../Lib/InformationWindow.htm" var Fea = "menubar=no,status=no,resizable={r},scrollbars={s},left={x},top={y},width={w},height={h}" Fea = Fea.replace("{x}",(screen.availWidth - 600) / 2) Fea = Fea.replace("{y}",(screen.availHeight - height) / 2) Fea = Fea.replace("{w}",600) Fea = Fea.replace("{h}",height) InformationWindow = window.open(Url,"",Fea) //} else { //msg = HTMLToText(msg) //ShowAlert(msg) } } function CloseInformationWindow() { // PRIVATE if ((InformationWindow != null) && (InformationWindow.closed == false)) InformationWindow.close() } AttachEvent(window,"unload",CloseInformationWindow) function ShowInformation(msg,win,modal) { ShowInformationManager(win,msg,300,modal) } function ShowInformationSmall(msg,win,modal) { ShowInformationManager(win,msg,200,modal) } function ShowInformationMedium(msg,win,modal) { ShowInformationManager(win,msg,300,modal) } function ShowInformationLarge(msg,win,modal) { ShowInformationManager(win,msg,400,modal) } //############################################################################# //############################################################################# //############################################################################# // TEXT function ShowTextManager(win,text,height) { if (win == null) win = window if ((win.showModalDialog) && (IsIE() == true)) { var obj = new Object() obj.Window = win obj.CloseLabel = MessageCloseLabel() obj.Text = text obj.Url = "../Lib/TextWindow.htm" obj.Features = "dialogWidth:600px;dialogHeight:" + height + "px;center:yes;help:no;close:no;unadorned:yes;status:no;scroll:no" try { var res = win.showModalDialog(obj.Url,obj,obj.Features) } catch(e) { msg = HTMLToText(msg) ShowAlert(msg) } } else { text = HTMLToText(text) ShowAlert(text) } } function ShowText(text,win) { ShowTextManager(win,text,350) } function ShowTextSmall(text,win) { ShowTextManager(win,text,250) } function ShowTextMedium(text,win) { ShowTextManager(win,text,350) } function ShowTextLarge(text,win) { ShowTextManager(win,text,450) } //############################################################################# //############################################################################# //############################################################################# // QUESTION function ShowQuestionManager(win,msg,img) { // returns true|false if (win == null) win = window if ((win.showModalDialog) && (IsIE() == true)) { var obj = new Object() obj.Window = win obj.OkLabel = MessageOkLabel() obj.CancelLabel = MessageCancelLabel() obj.Message = msg obj.Icon = img obj.Result = false obj.Url = "../Lib/QuestionWindow.htm" obj.Features = "dialogWidth:600px;dialogHeight:140px;center:yes;help:no;close:no;unadorned:yes;status:no;scroll:no" try { var res = win.showModalDialog(obj.Url,obj,obj.Features) } catch(e) { msg = HTMLToText(msg) return ShowConfirm(msg) } return res.Result == true } else { msg = HTMLToText(msg) if (Find(img,"Critical",true) != -1) msg = "[ CRITICAL ]\n\n" + msg if (Find(img,"Exclamation",true) != -1) msg = "[ EXCLAMATION ]\n\n" + msg return ShowConfirm(msg) } } function ShowQuestion(msg,win) { return ShowQuestionManager(win,msg,"../Images/Message_Question.gif") } function ShowQuestionCritical(msg,win) { return ShowQuestionManager(win,msg,"../Images/Message_Critical.gif") } function ShowQuestionExclamation(msg,win) { return ShowQuestionManager(win,msg,"../Images/Message_Exclamation.gif") } //############################################################################# //############################################################################# //############################################################################# // INPUT function ShowInputManager(win,msg,text,func) { // returns ''|'text' if (win == null) win = window if ((win.showModalDialog) && (IsIE() == true)) { var obj = new Object() obj.Window = win obj.OkLabel = MessageOkLabel() obj.CancelLabel = MessageCancelLabel() obj.Message = msg obj.Text = text obj.Function = func obj.Ok = false obj.Url = "../Lib/InputWindow.htm" obj.Features = "dialogWidth:600px;dialogHeight:150px;center:yes;help:no;close:no;unadorned:yes;status:no;scroll:no" var res = null try { res = win.showModalDialog(obj.Url,obj,obj.Features) } catch(e) { msg = HTMLToText(msg) return ShowPrompt(msg,text) } return (res.Ok == true) ? res.Text : "" } else { msg = HTMLToText(msg) return ShowPrompt(msg,text) } } function ShowInput(msg,text,win,func) { return ShowInputManager(win,msg,text,func) } //############################################################################# //############################################################################# //############################################################################# // SELECTION function ShowSelectionManager(opt,win) { win = win || window if ((win.showModalDialog) && (IsIE() == true)) { opt = opt || SelectionOptions var obj = new Object() obj.Window = win obj.OkLabel = MessageOkLabel() obj.CancelLabel = MessageCancelLabel() opt.Result = "" obj.Options = opt obj.Url = "../Lib/SelectionWindow.htm" obj.Features = "dialogWidth:600px;dialogHeight:300px;center:yes;help:no;close:no;unadorned:yes;status:no;scroll:no" try { var res = win.showModalDialog(obj.Url,obj,obj.Features) SelectionOptions = new Array() return res.Result } catch(e) { ShowAlert("Selection not supported: " + (e.message || e)) } } else { var s = "" for (var i=0;i (screen.availWidth - 100)) w = screen.availWidth - 100 var h = 800; if (h > (screen.availHeight - 100)) h = screen.availHeight - 100 var x = (screen.availWidth - w) / 2 var y = (screen.availHeight - h) / 2 var fea = "menubar=no,resizable=yes,scrollbars=yes,left={x},top={y},width={w},height={h}" fea = fea.replace("{x}",x) fea = fea.replace("{y}",y) fea = fea.replace("{w}",w) fea = fea.replace("{h}",h) HTMLWindow = win.open(url || "","HTMLWindow",fea) if ((htm || "") != "") { HTMLWindow.document.clear() HTMLWindow.document.writeln("") HTMLWindow.document.writeln("") HTMLWindow.document.writeln("" + tit + "<\/title>") HTMLWindow.document.writeln("<style>\nhtml{border:0px}\nbody,table,td{font-family:arial;font-size:9pt}\n<\/style>") HTMLWindow.document.writeln("<\/head>") HTMLWindow.document.writeln("<body onkeyup=\"if((event||window.event).keyCode==27)window.close()\">") HTMLWindow.document.writeln(htm) HTMLWindow.document.writeln("<\/body>") HTMLWindow.document.writeln("<\/html>") HTMLWindow.document.close() } return HTMLWindow } function CloseHTMLManager() { if ((HTMLWindow != null) && (HTMLWindow.closed == false)) HTMLWindow.close() } AttachEvent(window,"unload",CloseHTMLManager) function ShowHTML(htm,tit,win) { return ShowHTMLManager("",htm,tit,win) } function ShowURL(url,tit,win) { return ShowHTMLManager(url,"",tit,win) } //############################################################################# //############################################################################# //#############################################################################