Language: Delphi
Untitled Delphi (26-Mar @ 13:35)
Syntax Highlighted Code
- ›¯‡†ĞˆĞ¸È‘¦¨…ÆĞ’™Ç›’©Š
Plain Code
›¯‡†ĞˆĞ¸È‘¦¨…ÆĞ’™Ç›’©ŠUntitled Delphi (2-Aug @ 19:47)
Syntax Highlighted Code
- $$õ„•´ë Ï«²!§•ø_‰U}
Plain Code
$$õ„•´ë Ï«²!§•ø_‰U}Untitled Delphi (23-Jul @ 10:53)
Syntax Highlighted Code
- gdf gdfgdf
- gfd
- gdfg
- class
- [1 more lines...]
Plain Code
gdf gdfgdf
gfd
gdfg
class
begin
Untitled Delphi (29-Apr @ 00:44)
Syntax Highlighted Code
- Ãtvаd
- }ϛ؀Ü
- 7}Ã*`phH< :W
- 芕!^Ư̌5S鵀
- [6 more lines...]
Plain Code
Ãtvаd
}ϛ؀Ü
7}Ã*`phH< :W
芕!^Ư̌5S鵀
耽6ά
蘱ߧ|ۂ⒇㓺
а8JėXӃѤV9
!Âh@<g5Ek
塦зB%17M̨"@冨'@ áˆ/\ žq @]à·šhÄ€í§§Ì«Ò„Ä p 誇@#+
T(Ĭъ<Äæ‡`e ï°Ë’×€j
\ ЃjЙ"ë¸Ã Untitled Delphi (8-Apr @ 16:04)
Syntax Highlighted Code
- Code Dumper
- does what it says on the tin
- [1145 more lines...]
Plain Code
Code Dumper
does what it says on the tin
New
Login
« I bet you've already got a login!
Tip: Click lines to highlight, hold ctrl/cmd to multi-select
http://codedumper.com/udeho (22-May @ 22:24)
Highlighted
Plain code
Text
Copy to clipboard
<script language="JavaScript" type="text/JavaScript" src="/js/common/common.js"></script>
<script language="JavaScript">
<!--
function doRangeFormSubmit(){
document.rangeForm.rangeSelected.value=document.rangeForm.DateRange.value;
document.rangeForm.submit();
document.rangeForm.DateRange.disabled=true;
return false;
}
var clicked = false;
function sortData(sortBy,sortType){
document.genForm.sortBy.value=sortBy;
document.genForm.sortType.value=sortType;
if(!clicked){
document.genForm.submit();
clicked = true;
return false;
}
}
function doClick(pageNumber){
document.GeneralPagingForm.pageNum.value = pageNumber;
document.GeneralPagingForm.inf_action.value="BoostAccountActivity";
document.GeneralPagingForm.inf_template.value="boost_account_activity";
if(!clicked){
document.GeneralPagingForm.submit();
clicked = true;
return false;
}
}
//-->
</script>
<html>
<head>
<title>Boost Account Activity</title>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Expires" CONTENT="-1">
<link rel="stylesheet" href="/boost_nav/includes/css/stylesheet.css">
<link rel="stylesheet" href="/boost_nav/includes/css/style.css">
</head>
<body>
<center>
<!-- BEGIN: Header -->
<blockquote>
<table border="0" cellpadding="0" cellspacing="0" width="690" BGCOLOR="#1b2836">
<tr valign=top>
<td align="left" colspan="2">
<script language="JavaScript" src="/boost_nav/includes/js/boost.js" type="text/javascript"></script>
<script language="javascript">
preload('subnav_account_details','subnav_plan_addon','subnav_account_activity','subnav_account_security','subnav_add_money','subnav_update_handset1','subnav_voicemail');
</script>
<div id="header">
<iframe id="Iframe1" name="headerNav" src="https://plans.boostmobile.com/header.aspx" class="Nav" scrolling="no" frameborder="0" width="757" height="105">Your Browser does not support iframes.</iframe>
</div>
<!-- Starting Flash Navigation -->
<table border="0" cellpadding="0" cellspacing="0">
<tr><td colspan="3" align="right"><img src="/boost_nav/images/banner_myaccount2.jpg" alt="Placeholder Banner" /></td></tr>
</table>
<!--END: Header-->
<script>
function popupMonthlyPaymentDetails()
{
if (window.showModalDialog){
window.showModalDialog('/servlet/ecare?inf_action=MonthlyPaymentView&action=MonthlyPaymentDetailsPopUp','Monthly_Payment_Amount_Details',"dialogHeight: 20;dialogWidth: 20;center:yes;help:no;resizable:no;scroll:yes;status:no;");
}else{
window.open('/servlet/ecare?inf_action=MonthlyPaymentView&action=MonthlyPaymentDetailsPopUp','Monthly_Payment_Amount_Details','modal=yes,height=280,width=280,center=yes,help=no,resizable=no,scroll=yes,status=no');
}
}
var activityLinkEnabled=true;
</script>
<tr>
<td>
<blockquote class="contentpad">
<table border="0" cellpadding="0" cellspacing="0" width="721" ID="Table2">
<tr>
<td colspan="2" valign="top" width="721" height="30">
<div align="left">
<table border="0" cellpadding="0" cellspacing="0" width="721" ID="Table3">
<tr>
<td width="81" align="left">
<a href="/servlet/ecare?inf_action=BoostAccountInfo"
onmouseover="rollover('subnav_account_details','over')"
onmouseout="rollover('subnav_account_details','off')" ><img name="subnav_account_details" src="/boost_nav/images/subnav_account_details.gif" alt="Account Details" /></a>
</td>
<td width="9" align="left"><img src="/boost_nav/images/subnav_seperator.gif" alt="" width="9"/></td>
<td width="84" align="left">
<a href="/servlet/ecare?inf_action=PlanAddon"
onmouseover="rollover('subnav_plan_addon','over')"
onmouseout="rollover('subnav_plan_addon','off')"><img name="subnav_plan_addon" src="/boost_nav/images/subnav_plan_addon.gif" alt="Plan Add-On" /></a>
</td>
<td width="9" align="left"><img src="/boost_nav/images/subnav_seperator.gif" alt="" width="9"/></td>
<td width="19" align="left">
<img src="/boost_nav/images/subnav_wedgeleft.gif" alt="" width="19"/>
</td>
<td width="84" align="left">
<img name="subnav_account_activity_on" src="/boost_nav/images/subnav_account_activity_on.gif" alt="Account Activity" />
</td>
<td width="19" align="left">
<img src="/boost_nav/images/subnav_wedgeright.gif" alt="" width="19"/>
</td>
<td width="9" align="left"><img src="/boost_nav/images/subnav_seperator.gif" alt="" width="9"/></td>
<!--Link 3 Change Pin -->
<td width="86" align="left"><a href="/servlet/ecare?inf_action=boost_viewChangePin&viewType=ALL" onmouseover="rollover('subnav_account_security','over')"
onmouseout="rollover('subnav_account_security','off')"><img name="subnav_account_security" src="/boost_nav/images/subnav_account_security.gif" alt="Account Security" /></a></td>
<td width="9" align="left"><img src="/boost_nav/images/subnav_seperator.gif" alt="" width="9"/></td>
<!--Link 4 Add Money -->
<td width="52" align="left"><a href="/servlet/ecare?inf_action=reBoost"
onmouseover="rollover('subnav_add_money','over')" onmouseout="rollover('subnav_add_money','off')">
<img name="subnav_add_money" src="/boost_nav/images/subnav_add_money.gif" alt="Add Money" /></a></td>
<!-- CR IA V.UBP 8.0 CR Prp8_Care_E2900 R8 Care Efficiencies - Equipment Swap - START -->
<!--UBP 8.0 CR Prp8_Care_E2900 Update Handset -Enable/Disable Switch -->
<td width="9" align="left"><img src="/boost_nav/images/subnav_seperator.gif" alt="" width="9"/></td>
<td width="52" align="left"><a href="/servlet/ecare?inf_action=updateHandset"
onmouseover="rollover('subnav_update_handset1','over')" onmouseout="rollover('subnav_update_handset1','off')">
<img name="subnav_update_handset1" src="/boost_nav/images/subnav_update_handset1.gif" alt="Update Handset" /></a></td>
<!-- CR IA V.UBP 8.0 CR Prp8_Care_E2900 R8 Care Efficiencies - Equipment Swap - END -->
<td width="9" align="left"><img src="/boost_nav/images/subnav_seperator.gif" alt="" width="9"/></td>
<!--Link 5 boostResetVMP -->
<td width="143" align="left"><a href="/servlet/ecare?inf_action=boostResetVMP" onmouseover="rollover('subnav_voicemail','over')" onmouseout="rollover('subnav_voicemail','off')"><img name="subnav_voicemail" src="/boost_nav/images/subnav_voicemail.gif" alt="ResetVMP" /></a></td>
<td width="441" align="left"><img src="/boost_nav/images/1x1.gif" alt="" width="19"/></td>
</tr>
<tr>
<td valign="top" colspan=15 height=4>
<font style="font-size:2px">
<img height="3" src="/boost_nav/images/break_horizontal.gif" width="721" align="top" border="0">
</font>
</td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="2" width="721">
<tr align="left">
<td valign="top" align="left" >
<font class="accountIDtext">Boost Phone Number: 5803036154</font></td>
<td valign="top" align="left" class="accountIDtext">
<a href="javascript:popupMonthlyPaymentDetails()" class="navigationlink">
Next Monthly Payment:</a>
<b>$50.00</td>
<td valign="top" align="right" class="accountIDtext">
<font class="accountIDtext">Account Balance: $0.72</font>
</td>
</tr>
<tr><td valign="top" align="left" width="38%"></td><td valign="top" align="left" class="accountIDtext">
<font class="accountIDtext">Due on:
06/07/2010
</font></td>
<td valign="middle" align="right" class="accountIDtext">
Low balance, remember to add funds!
</td></tr>
<tr>
<td valign="top" height="4" colspan="3">
<font style="font-size:2px">
<img height="3" src="/boost_nav/images/break_horizontal.gif" width="721" align="top" border="0">
</font>
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
<img src="/images/empty.gif" width="1" height="3">
<script language="JavaScript">
<!--
window.onload=doNow;
function doNow()
{
if (document.getElementById("DateRange")!=null && document.getElementById("rangeSelected")!=null)
{
setDropdown(document.getElementById("DateRange"),document.getElementById("rangeSelected").value);
}
}
function setDropdown(obj,str)
{
var list = obj;
for (i = 0; i < list.options.length; i++)
{
if(list.options[i].value==str)
{
list.options[i].selected=true;
}
}
}
//This function will set id number of event as parameter on request
//and open pop-up window for content items' additional information.
function openPopup(idNum){
strUrl = "/account/boost/boost_account_activity_details.jsp?eventId="+idNum;
strWindowName = "";
strWindowFeaturesIE = 'dialogWidth: 550px; dialogHeight: 325px; center: Yes; help: No; resizable: No; toolbar: No; menubar: No; Titlebar: No';
strWindowFeaturesMozilla = 'center, width=550, height=325, toolbar=no, titlebar=no, menubar=no, modal, dialog, resizable=No;';
if (window.showModalDialog){
//This is Internet Explorer
window.showModalDialog(strUrl, strWindowName, strWindowFeaturesIE);
}else{
window.open(strUrl, strWindowName, strWindowFeaturesMozilla);
}
return false;
}
//-->
</script>
<tr>
<td>
<blockquote class="contentpad">
<table width=690 border=0 cellspacing=4 cellpadding=2>
<tr>
<td width = 440 align="right" class="ptext">View Account Activity</td>
<td width = 250 align=left valign="top">
<form name="rangeForm" action="/servlet/ecare" method="post">
<input type="hidden" name="inf_action" value="BoostAccountActivity">
<input type="hidden" name="rangeSelected" value="1">
<SELECT class="textOrderForm" NAME="DateRange" SIZE=1 onChange="doRangeFormSubmit()">
<OPTION VALUE="0" TARGET="_self" >48 hours </option>
<OPTION VALUE="1" TARGET="_self" selected>1 week
<OPTION VALUE="2" TARGET="_self" >2 weeks
<OPTION VALUE="3" TARGET="_self" >30 days
<OPTION VALUE="4" TARGET="_self" >31 — 60 days
<OPTION VALUE="5" TARGET="_self" >61 — 90 days
</SELECT>
</form>
</tr>
</tr>
<tr><td colspan="2" width="100%" align="left" class="ptext">Some Monthly Unlimited customers may only have the ability to view Account Activity for voice calls that resulted in an additional charge to your account, such as directory assistance calls and international calls.</td></tr>
</table>
<br>
<table width=690 border=0 cellspacing=1 cellpadding=1>
<tr>
<TD>
<table id="ActivityTable" border="0" cellPadding="2" cellSpacing="2" width="100%" align="left">
<tr class=tabtablebghead>
<form name="genForm" action="/servlet/ecare" method="post">
<input type="hidden" name="inf_action" value="BoostAccountActivity">
<input type="hidden" name="DateRange" value="1">
<input type="hidden" name="sortBy" value="">
<input type="hidden" name="sortType" value="">
<td width="22%" class=tabtablehead> <b>Time</b><a href="#" onClick="sortData('eventNonConvertedProcessTime','AscSort');return false;"><img src="../../images/button_sort_up.gif" width="13" height="11" border="0" alt="Ascending"></a><a href="" onClick="sortData('eventNonConvertedProcessTime','DscSort');return false;"><img src="../../images/button_sort_down.gif" width="13" height="11" border="0" alt="Descending" nowrap></a></td>
<td width="37%" class=tabtablehead> <b>Description</b><a href="#" onClick="sortData('eventDescription','AscSort');return false;"><img src="../../images/button_sort_up.gif" width="13" height="11" border="0" alt="Ascending"></a><a href="" onClick="sortData('eventDescription','DscSort');return false;"><img src="../../images/button_sort_down.gif" width="13" height="11" border="0" alt="Descending"></a></td>
<td width="18%" class=tabtablehead> <b>Amount</b><a href="#" onClick="sortData('amount','AscSort');return false;"><img src="../../images/button_sort_up.gif" width="13" height="11" border="0" alt="Ascending"></a><a href="" onClick="sortData('amount','DscSort');return false;"><img src="../../images/button_sort_down.gif" width="13" height="11" border="0" alt="Descending"></a></td>
<td width="23%" align="middle" class="tabtablehead" nowrap> <b>Account Balance
</b><a href="#" onClick="sortData('accountBalance','AscSort');return false;"><img src="../../images/button_sort_up.gif" width="13" height="11" border="0" alt="Ascending"></a><a href="" onClick="sortData('accountBalance','DscSort');return false;"><img src="../../images/button_sort_down.gif" width="13" height="11" border="0" alt="Descending"></a></td>
</form>
</tr>
<tr><td width="22%" class="tabtabledata" nowrap>
05/22/2010 02:54PM </td>
<td width="37%" class="tabtabledata" wrap>
<a href="#" onclick = "javascript:openPopup('0')"/>
Multi-Media Messaging</a></td>
<td width="18%" class=tabtabledata>$0.00</td>
<td width="23%" align="right" class=tabtabledata>$0.72</td>
</tr>
<tr><td width="22%" class="tabtabledata" nowrap>
05/22/2010 02:49PM </td>
<td width="37%" class="tabtabledata" wrap>
<a href="#" onclick = "javascript:openPopup('1')"/>
Airtime Outbound - 611</a></td>
<td width="18%" class=tabtabledata>$0.00</td>
<td width="23%" align="right" class=tabtabledata>$0.72</td>
</tr>
<tr><td width="22%" class="tabtabledata" nowrap>
05/22/2010 02:34PM </td>
<td width="37%" class="tabtabledata" wrap>
<a href="#" onclick = "javascript:openPopup('2')"/>
Airtime Outbound - 611</a></td>
<td width="18%" class=tabtabledata>$0.00</td>
<td width="23%" align="right" class=tabtabledata>$0.72</td>
</tr>
<tr><td width="22%" class="tabtabledata" nowrap>
05/22/2010 12:52PM </td>
<td width="37%" class="tabtabledata" wrap>
<a href="#" onclick = "javascript:openPopup('3')"/>
Multi-Media Messaging</a></td>
<td width="18%" class=tabtabledata>$0.00</td>
<td width="23%" align="right" class=tabtabledata>$0.72</td>
</tr>
<tr><td width="22%" class="tabtabledata" nowrap>
05/21/2010 08:11PM </td>
<td width="37%" class="tabtabledata" wrap>
<a href="#" onclick = "javascript:openPopup('4')"/>
Multi-Media Messaging</a></td>
<td width="18%" class=tabtabledata>$0.00</td>
<td width="23%" align="right" class=tabtabledata>$0.72</td>
</tr>
<tr><td width="22%" class="tabtabledata" nowrap>
05/21/2010 07:30PM </td>
<td width="37%" class="tabtabledata" wrap>
<a href="#" onclick = "javascript:openPopup('5')"/>
Multi-Media Messaging</a></td>
<td width="18%" class=tabtabledata>$0.00</td>
<td width="23%" align="right" class=tabtabledata>$0.72</td>
</tr>
<tr><td width="22%" class="tabtabledata" nowrap>
05/21/2010 07:23PM </td>
<td width="37%" class="tabtabledata" wrap>
<a href="#" onclick = "javascript:openPopup('6')"/>
Multi-Media Messaging</a></td>
<td width="18%" class=tabtabledata>$0.00</td>
<td width="23%" align="right" class=tabtabledata>$0.72</td>
</tr>
<tr><td width="22%" class="tabtabledata" nowrap>
05/21/2010 07:18PM </td>
<td width="37%" class="tabtabledata" wrap>
<a href="#" onclick = "javascript:openPopup('7')"/>
Multi-Media Messaging</a></td>
<td width="18%" class=tabtabledata>$0.00</td>
<td width="23%" align="right" class=tabtabledata>$0.72</td>
</tr>
<tr><td width="22%" class="tabtabledata" nowrap>
05/21/2010 07:17PM </td>
<td width="37%" class="tabtabledata" wrap>
<a href="#" onclick = "javascript:openPopup('8')"/>
Multi-Media Messaging</a></td>
<td width="18%" class=tabtabledata>$0.00</td>
<td width="23%" align="right" class=tabtabledata>$0.72</td>
</tr>
<tr><td width="22%" class="tabtabledata" nowrap>
05/21/2010 07:13PM </td>
<td width="37%" class="tabtabledata" wrap>
<a href="#" onclick = "javascript:openPopup('9')"/>
Multi-Media Messaging</a></td>
<td width="18%" class=tabtabledata>$0.00</td>
<td width="23%" align="right" class=tabtabledata>$0.72</td>
</tr>
<tr><td width="22%" class="tabtabledata" nowrap>
05/21/2010 06:29PM </td>
<td width="37%" class="tabtabledata" wrap>
<a href="#" onclick = "javascript:openPopup('10')"/>
Multi-Media Messaging</a></td>
<td width="18%" class=tabtabledata>$0.00</td>
<td width="23%" align="right" class=tabtabledata>$0.72</td>
</tr>
<tr><td width="22%" class="tabtabledata" nowrap>
05/21/2010 06:27PM </td>
<td width="37%" class="tabtabledata" wrap>
<a href="#" onclick = "javascript:openPopup('11')"/>
Multi-Media Messaging</a></td>
<td width="18%" class=tabtabledata>$0.00</td>
<td width="23%" align="right" class=tabtabledata>$0.72</td>
</tr>
<tr><td width="22%" class="tabtabledata" nowrap>
05/21/2010 06:19PM </td>
<td width="37%" class="tabtabledata" wrap>
<a href="#" onclick = "javascript:openPopup('12')"/>
Multi-Media Messaging</a></td>
<td width="18%" class=tabtabledata>$0.00</td>
<td width="23%" align="right" class=tabtabledata>$0.72</td>
</tr>
<tr><td width="22%" class="tabtabledata" nowrap>
05/21/2010 06:17PM </td>
<td width="37%" class="tabtabledata" wrap>
<a href="#" onclick = "javascript:openPopup('13')"/>
Multi-Media Messaging</a></td>
<td width="18%" class=tabtabledata>$0.00</td>
<td width="23%" align="right" class=tabtabledata>$0.72</td>
</tr>
<tr><td width="22%" class="tabtabledata" nowrap>
05/21/2010 06:15PM </td>
<td width="37%" class="tabtabledata" wrap>
<a href="#" onclick = "javascript:openPopup('14')"/>
Multi-Media Messaging</a></td>
<td width="18%" class=tabtabledata>$0.00</td>
<td width="23%" align="right" class=tabtabledata>$0.72</td>
</tr>
<tr><td width="22%" class="tabtabledata" nowrap>
05/21/2010 06:13PM </td>
<td width="37%" class="tabtabledata" wrap>
<a href="#" onclick = "javascript:openPopup('15')"/>
Multi-Media Messaging</a></td>
<td width="18%" class=tabtabledata>$0.00</td>
<td width="23%" align="right" class=tabtabledata>$0.72</td>
</tr>
<tr><td width="22%" class="tabtabledata" nowrap>
05/21/2010 06:07PM </td>
<td width="37%" class="tabtabledata" wrap>
<a href="#" onclick = "javascript:openPopup('16')"/>
Multi-Media Messaging</a></td>
<td width="18%" class=tabtabledata>$0.00</td>
<td width="23%" align="right" class=tabtabledata>$0.72</td>
</tr>
<tr><td width="22%" class="tabtabledata" nowrap>
05/21/2010 06:04PM </td>
<td width="37%" class="tabtabledata" wrap>
<a href="#" onclick = "javascript:openPopup('17')"/>
Multi-Media Messaging</a></td>
<td width="18%" class=tabtabledata>$0.00</td>
<td width="23%" align="right" class=tabtabledata>$0.72</td>
</tr>
<tr><td width="22%" class="tabtabledata" nowrap>
05/21/2010 06:04PM </td>
<td width="37%" class="tabtabledata" wrap>
<a href="#" onclick = "javascript:openPopup('18')"/>
Multi-Media Messaging</a></td>
<td width="18%" class=tabtabledata>$0.00</td>
<td width="23%" align="right" class=tabtabledata>$0.72</td>
</tr>
<tr><td width="22%" class="tabtabledata" nowrap>
05/21/2010 06:02PM </td>
<td width="37%" class="tabtabledata" wrap>
<a href="#" onclick = "javascript:openPopup('19')"/>
Multi-Media Messaging</a></td>
<td width="18%" class=tabtabledata>$0.00</td>
<td width="23%" align="right" class=tabtabledata>$0.72</td>
</tr>
</table>
<br>
<form name="GeneralPagingForm" action="/servlet/ecare" method="post" >
<input type="hidden" name="pageNum" value=''>
<input type="hidden" name="totalRows" value='89' />
<input type="hidden" name="inf_action" value="">
<input type="hidden" name="inf_template" value="">
<!-- <input type="hidden" name="action" value=""> -->
<input type="hidden" name="DateRange" value='1'>
<!--//tr align="center" bgcolor="#FFFFFF"-->
<tr align="center">
<td colspan="10" class="smallText">
<span class="textBlue9">
<<Previous</span>
|
<select name="select2" class="formInputs" onChange="javaScript:doClick(document.GeneralPagingForm.select2.selectedIndex)">
<option selected> 1
<option> 2
<option> 3
<option> 4
<option> 5
</select> |
<a href="javaScript:doClick(1)">
Next>></span>
</a>
</td>
</tr>
</form>
</td>
</tr>
</table>
</blockquote>
<!-- Start Log out and Help links -->
<div id="container1" align="center">
<div id="content">
<table id="options_container" border="0" width="721" BGCOLOR="#1b2836">
<tr>
<td class="options" width="721">
<li><a href="/account/boost/boost_helpfaqs.jsp" class="navbar">Help</a></li>
<li><a href="http://www.boostmobile.com/terms" class="navbar">Terms & Condition</a></li>
<li><a href="http://www.boostmobile.com/support" class="navbar">Checkout our FAQs</a></li>
<li><a href="/servlet/ecare?inf_action=boostLogout" class="navbar">Logout</a></li>
</td>
</tr>
</table>
</div>
</div>
</blockquote>
<!-- End logout and Help Links -->
<!--START: footer -->
<!-- Begin Footer -->
<tr >
<td align="center" nowrap="nowrap" >
<div id="footerHome" nowrap="nowrap">
<ul class="nav" >
<li ><a href="http://www.boostmobile.com/about/">About Boost Mobile</a></li>
<li><a href="http://www.boostmobile.com/sitemap/">Site Map</a></li>
<li><a href="http://support.boostmobile.com/service_policies/privacy_policy.html">Privacy/Legal</a></li>
<li><a href="http://support.boostmobile.com/service_policies/index.html">Acceptable use Policy and Visitor Agreement</a></li>
<li><a href="http://support.boostmobile.com/service_policies/copyright.html">Copyright/Disclaimer Notice</a></li>
<li><a href="http://support.boostmobile.com/service_policies/terms.html">Terms and Conditions</a></li>
</ul>
<br/>
<p>By accessing this site you accept the terms of our Acceptable Use Policy and Policy Agreement.
<br/>©2008 Boost Worldwide, Inc. All rights reserved.</p>
</div>
<!--END: Bottom footer table-->
<!--END: footer -->
</td>
</tr>
<!-- V.8.1_04 CR FT2699 Add Tracking Codes to My Account -->
<!-- Omniture tags to BoostAccountInfo, boostLogin -->
<!-- Omniture tags to BoostAccountInfo, boostLogin, BoostAccountActivity, boost_viewChangePin
boostResetVMP, reBoost, boostPremiumPlan-->
<!-- SiteCatalyst Code -->
<script language="JavaScript" src="https://www.boostmobile.com/include/js/s_code.js"></script>
<script language="JavaScript"><!--
/* SiteCatalyst Variables */
s.pageName="My Account > BoostAccountActivity"
s.channel="My Account"
s.prop2="My Account"
s.prop21="My Account > BoostAccountActivity"
/************* DO NOT ALTER ANYTHING BELOW THIS LINE ! **************/
var s_code=s.t();if(s_code)document.write(s_code)//--></script>
<!-- End SiteCatalyst Code -->
<!-- Omniture tags to the Thank you page for IDEN subscribers enrolling in BPP-->
</center>
</body>
</html>
Permalink: http://codedumper.com/udeho
A Left Logic project
|
Get in touch to make this project better
|
Latest dumps
|
All code is copyright of it's author
Untitled Delphi (4-Apr @ 00:50)
Syntax Highlighted Code
- <input name="serverStreamInfo" value="boost4a" type="hidden">
- [1178 more lines...]
Plain Code
<input name="serverStreamInfo" value="boost4a" type="hidden">
<script language="JavaScript" type="text/JavaScript" src="/js/common/common.js"></script>
<script language="JavaScript">
<!--
function doRangeFormSubmit(){
document.rangeForm.rangeSelected.value=document.rangeForm.DateRange.value;
document.rangeForm.submit();
document.rangeForm.DateRange.disabled=true;
return false;
}
var clicked = false;
function sortData(sortBy,sortType){
document.genForm.sortBy.value=sortBy;
document.genForm.sortType.value=sortType;
if(!clicked){
document.genForm.submit();
clicked = true;
return false;
}
}
function doClick(pageNumber){
document.GeneralPagingForm.pageNum.value = pageNumber;
document.GeneralPagingForm.inf_action.value="BoostAccountActivity";
document.GeneralPagingForm.inf_template.value="boost_account_activity";
if(!clicked){
document.GeneralPagingForm.submit();
clicked = true;
return false;
}
}
//-->
</script>
<input name="serverStreamInfo" value="boost4a" type="hidden">
<link rel="shortcut icon" href="/images/favicon.ico" mce_href="/images/favicon.ico">
<title>Boost Account Activity</title>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Expires" content="-1">
<!--<link href="https://www.boostmobilecommunity.com/includes/css/boostmobile_ui.css" rel="stylesheet" type="text/css" media="screen"/>-->
<link rel="stylesheet" href="/boost_nav/includes/css/boostmobile_nav.css">
<link rel="stylesheet" href="/boost_nav/includes/css/stylesheet.css">
<!--Embeds flash content-->
<link rel="stylesheet" href="/boost_nav/includes/css/style.css">
<center>
<input name="serverStreamInfo" value="boost4a" type="hidden">
<script type="text/javascript" src="https://www.boostmobile.com/include/js/s_code.js">
</script>
<script language="JavaScript">
<!--
/* SiteCatalyst Variables */
s.pageName=""
/************* DO NOT ALTER ANYTHING BELOW THIS LINE ! **************/
var s_code=s.t();if(s_code)document.write(s_code)
//-->
</script>
<!-- End SiteCatalyst Code -->
<!-- BEGIN: Header -->
<blockquote>
<table bgcolor="#1b2836" border="0" cellpadding="0" cellspacing="0" width="690">
<tbody><tr valign="top">
<td colspan="2" align="left">
<script language="JavaScript" src="/boost_nav/includes/js/boost.js" type="text/javascript"></script>
<script language="javascript">
preload('subnav_account_details','subnav_plan_addon','subnav_account_activity','subnav_account_security','subnav_add_money','subnav_update_handset1','subnav_voicemail');
</script>
<div id="header">
<iframe id="Iframe1" name="headerNav" src="https://plans.boostmobile.com/header.aspx" class="Nav" frameborder="0" height="105" scrolling="no" width="757">Your Browser does not support iframes.</iframe>
</div>
<!-- Starting Flash Navigation -->
<table border="0" cellpadding="0" cellspacing="0">
<tbody><tr><td colspan="3" align="right"><img src="/boost_nav/images/header_myaccount.jpg" alt="Placeholder Banner"></td></tr>
</tbody></table>
<!--END: Header-->
<input name="serverStreamInfo" value="boost4a" type="hidden">
<script>
function popupMonthlyPaymentDetails()
{
if (window.showModalDialog){
window.showModalDialog('/servlet/ecare?inf_action=MonthlyPaymentView&action=MonthlyPaymentDetailsPopUp','Monthly_Payment_Amount_Details',"dialogHeight: 20;dialogWidth: 20;center:yes;help:no;resizable:no;scroll:yes;status:no;");
}else{
window.open('/servlet/ecare?inf_action=MonthlyPaymentView&action=MonthlyPaymentDetailsPopUp','Monthly_Payment_Amount_Details','modal=yes,height=280,width=280,center=yes,help=no,resizable=no,scroll=yes,status=no');
}
}
var activityLinkEnabled=true;
</script>
<input name="serverStreamInfo" value="boost4a" type="hidden">
</td></tr><tr>
<td>
<blockquote class="contentpad">
<table id="Table2" border="0" cellpadding="0" cellspacing="0" width="721">
<tbody><tr>
<td colspan="2" height="30" valign="top" width="721">
<div align="left">
<table id="Table3" border="0" cellpadding="0" cellspacing="0" width="721">
<tbody><tr>
<td align="left" width="81">
<a href="/servlet/ecare?inf_action=BoostAccountInfo" onmouseover="rollover('subnav_account_details','over')" onmouseout="rollover('subnav_account_details','off')"><img name="subnav_account_details" src="/boost_nav/images/subnav_account_details.gif" alt="Account Details"></a>
</td>
<td align="left" width="19"><img src="/boost_nav/images/subnav_seperator.gif" alt="" width="19"></td>
<td align="left" width="84">
<a href="/servlet/ecare?inf_action=PlanAddon" onmouseover="rollover('subnav_plan_addon','over')" onmouseout="rollover('subnav_plan_addon','off')"><img name="subnav_plan_addon" src="/boost_nav/images/subnav_plan_addon.gif" alt="Plan Add-On"></a>
</td>
<td align="left" width="19"><img src="/boost_nav/images/subnav_seperator.gif" alt="" width="19"></td>
<td align="left" width="19">
<img src="/boost_nav/images/subnav_wedgeleft.gif" alt="" width="19">
</td>
<td align="left" width="84">
<img name="subnav_account_activity_on" src="/boost_nav/images/subnav_account_activity_on.gif" alt="Account Activity">
</td>
<td align="left" width="19">
<img src="/boost_nav/images/subnav_wedgeright.gif" alt="" width="19">
</td>
<td align="left" width="19"><img src="/boost_nav/images/subnav_seperator.gif" alt="" width="19"></td>
<!--Link 3 Change Pin -->
<td align="left" width="86"><a href="/servlet/ecare?inf_action=boost_viewChangePin&viewType=ALL" onmouseover="rollover('subnav_account_security','over')" onmouseout="rollover('subnav_account_security','off')"><img name="subnav_account_security" src="/boost_nav/images/subnav_account_security.gif" alt="Account Security"></a></td>
<td align="left" width="19"><img src="/boost_nav/images/subnav_seperator.gif" alt="" width="19"></td>
<!--Link 4 Add Money -->
<td align="left" width="52"><a href="/servlet/ecare?inf_action=reBoost" onmouseover="rollover('subnav_add_money','over')" onmouseout="rollover('subnav_add_money','off')">
<img name="subnav_add_money" src="/boost_nav/images/subnav_add_money.gif" alt="Add Money"></a></td>
<!-- Changes for CRPJ004354 Switch On/Off START-- done by neha -->
<td align="left" width="9"><img src="/boost_nav/images/subnav_seperator.gif" alt="" width="9"></td>
<td align="left" width="52"><a href="/servlet/ecare?inf_action=newUpdateHandset" onmouseover="rollover('subnav_update_handset1','over')" onmouseout="rollover('subnav_update_handset1','off')">
<img name="subnav_update_handset1" src="/boost_nav/images/subnav_update_handset1.gif" alt="Update Handset"></a></td>
<!-- CR IA V.UBP 8.0 CR Prp8_Care_E2900 R8 Care Efficiencies - Equipment Swap - END -->
<!-- Changes for CRPJ004354 Switch On/Off END-- done by neha -->
<td align="left" width="19"><img src="/boost_nav/images/subnav_seperator.gif" alt="" width="19"></td>
<!--Link 5 boostResetVMP -->
<td align="left" width="143"><a href="/servlet/ecare?inf_action=boostResetVMP" onmouseover="rollover('subnav_voicemail','over')" onmouseout="rollover('subnav_voicemail','off')"><img name="subnav_voicemail" src="/boost_nav/images/subnav_voicemail.gif" alt="ResetVMP"></a></td>
<td align="left" width="441"><img src="/boost_nav/images/1x1.gif" alt="" width="19"></td>
</tr>
<tr>
<td colspan="15" height="4" valign="top">
<font style="font-size:2px">
<img src="/boost_nav/images/break_horizontal.gif" align="top" border="0" height="3" width="721">
</font>
</td>
</tr>
</tbody></table>
<table border="0" cellpadding="0" cellspacing="1" width="721">
<tbody><tr align="left">
<td align="left" valign="top" width="38%">
<font class="accountIDtext">Boost Phone Number: 3233585775</font></td>
<td class="accountIDtext" align="left" valign="top">
<a href="javascript:popupMonthlyPaymentDetails()" class="navigationlink">
Next Monthly Payment:</a>
<b>$55.00</b></td>
<td class="accountIDtext" align="right" valign="top">
<font class="accountIDtext">Account Balance:
$2.86
</font>
</td>
</tr>
<tr><td align="left" valign="top" width="38%"></td><td class="accountIDtext" align="left" valign="top">
<font class="accountIDtext">Due on:
04/26/2012
</font></td>
<td class="accountIDtext" align="right" valign="middle">
Low balance, remember to add funds!
</td></tr>
<tr>
<td colspan="3" height="4" valign="top">
<font style="font-size:2px">
<img src="/boost_nav/images/break_horizontal.gif" align="top" border="0" height="3" width="721">
</font>
</td>
</tr>
</tbody></table>
</div>
</td>
</tr>
</tbody></table>
<img src="/images/empty.gif" height="3" width="1">
<input name="serverStreamInfo" value="boost4a" type="hidden">
<script language="JavaScript">
<!--
window.onload=doNow;
function doNow()
{
if (document.getElementById("DateRange")!=null && document.getElementById("rangeSelected")!=null)
{
setDropdown(document.getElementById("DateRange"),document.getElementById("rangeSelected").value);
}
}
function setDropdown(obj,str)
{
var list = obj;
for (i = 0; i < list.options.length; i++)
{
if(list.options[i].value==str)
{
list.options[i].selected=true;
}
}
}
//This function will set id number of event as parameter on request
//and open pop-up window for content items' additional information.
function openPopup(idNum){
strUrl = "/account/boost/boost_account_activity_details.jsp?eventId="+idNum;
strWindowName = "";
strWindowFeaturesIE = 'dialogWidth: 550px; dialogHeight: 325px; center: Yes; help: No; resizable: No; toolbar: No; menubar: No; Titlebar: No';
strWindowFeaturesMozilla = 'center, width=550, height=325, toolbar=no, titlebar=no, menubar=no, modal, dialog, resizable=No;';
if (window.showModalDialog){
//This is Internet Explorer
window.showModalDialog(strUrl, strWindowName, strWindowFeaturesIE);
}else{
window.open(strUrl, strWindowName, strWindowFeaturesMozilla);
}
return false;
}
//-->
</script>
</blockquote></td></tr><tr style="">
<td style="">
<blockquote style="" class="contentpad">
<table style="" border="0" cellpadding="2" cellspacing="4" width="690">
<tbody style=""><tr style="">
<td class="ptext" align="right" width="440">View Account Activity</td>
<td style="" align="left" valign="top" width="250">
<form name="rangeForm" action="/servlet/ecare" method="post">
<input name="inf_action" value="BoostAccountActivity" type="hidden">
<input name="rangeSelected" value="1" type="hidden">
<select class="textOrderForm" name="DateRange" size="1" onchange="doRangeFormSubmit()">
<option value="0" target="_self">48 hours </option>
<option value="1" target="_self" selected="selected">1 week
</option><option value="2" target="_self">2 weeks
</option><option value="3" target="_self">30 days
</option><option value="4" target="_self">31 — 60 days
</option><option value="5" target="_self">61 — 90 days
</option></select>
</form>
</td></tr>
<tr style=""><td style="" colspan="2" class="ptext" align="left" width="100%">Some Monthly Unlimited customers may only have the ability to view Account Activity for voice calls that resulted in an additional charge to your account, such as directory assistance calls and international calls.</td></tr>
</tbody></table>
<br>
<table border="0" cellpadding="1" cellspacing="1" width="690">
<tbody style=""><tr style="">
<td style="">
<table style="" id="ActivityTable" align="left" border="0" cellpadding="2" cellspacing="2" width="100%">
<tbody style=""><tr style="" class="tabtablebghead">
<form name="genForm" action="/servlet/ecare" method="post"></form>
<input name="inf_action" value="BoostAccountActivity" type="hidden">
<input name="DateRange" value="1" type="hidden">
<input name="sortBy" value="eventNonConvertedProcessTime" type="hidden">
<input name="sortType" value="AscSort" type="hidden">
<td style="" class="tabtablehead" width="22%"> <b>Time</b><a style="" href="#" onclick="sortData('eventNonConvertedProcessTime','AscSort');return false;"><img style="" src="../../images/button_sort_up.gif" alt="Ascending" border="0" height="11" width="13"></a><a href="" onclick="sortData('eventNonConvertedProcessTime','DscSort');return false;"><img src="../../images/button_sort_down.gif" alt="Descending" nowrap="" border="0" height="11" width="13"></a></td>
<td class="tabtablehead" width="37%"> <b>Description</b><a href="#" onclick="sortData('eventDescription','AscSort');return false;"><img src="../../images/button_sort_up.gif" alt="Ascending" border="0" height="11" width="13"></a><a href="" onclick="sortData('eventDescription','DscSort');return false;"><img src="../../images/button_sort_down.gif" alt="Descending" border="0" height="11" width="13"></a></td>
<td class="tabtablehead" width="18%"> <b>Amount</b><a href="#" onclick="sortData('amount','AscSort');return false;"><img src="../../images/button_sort_up.gif" alt="Ascending" border="0" height="11" width="13"></a><a href="" onclick="sortData('amount','DscSort');return false;"><img src="../../images/button_sort_down.gif" alt="Descending" border="0" height="11" width="13"></a></td>
<td class="tabtablehead" align="center" nowrap="nowrap" width="23%"> <b>Account Balance
</b><a href="#" onclick="sortData('accountBalance','AscSort');return false;"><img src="../../images/button_sort_up.gif" alt="Ascending" border="0" height="11" width="13"></a><a href="" onclick="sortData('accountBalance','DscSort');return false;"><img src="../../images/button_sort_down.gif" alt="Descending" border="0" height="11" width="13"></a></td>
</tr>
<tr style=""><td style="" class="tabtabledata" nowrap="nowrap" width="22%">
03/23/2012 09:55PM </td>
<td class="tabtabledata" wrap="" width="37%">
<a href="#" onclick="javascript:openPopup('0')">
Airtime Outbound - 3236773544</a></td>
<td class="tabtabledata" width="18%">$0.00</td>
<td class="tabtabledata" align="right" width="23%">$2.86</td>
</tr>
<tr><td class="tabtabledata" nowrap="nowrap" width="22%">
03/23/2012 09:49PM </td>
<td class="tabtabledata" wrap="" width="37%">
<a href="#" onclick="javascript:openPopup('1')">
Airtime Outbound - 3239215358</a></td>
<td class="tabtabledata" width="18%">$0.00</td>
<td class="tabtabledata" align="right" width="23%">$2.86</td>
</tr>
<tr><td class="tabtabledata" nowrap="nowrap" width="22%">
03/23/2012 09:47PM </td>
<td class="tabtabledata" wrap="" width="37%">
<a href="#" onclick="javascript:openPopup('2')">
Airtime Outbound - 6263445297</a></td>
<td class="tabtabledata" width="18%">$0.00</td>
<td class="tabtabledata" align="right" width="23%">$2.86</td>
</tr>
<tr><td class="tabtabledata" nowrap="nowrap" width="22%">
03/23/2012 09:46PM </td>
<td class="tabtabledata" wrap="" width="37%">
<a href="#" onclick="javascript:openPopup('3')">
M2M Outbound - 3236142623</a></td>
<td class="tabtabledata" width="18%">$0.00</td>
<td class="tabtabledata" align="right" width="23%">$2.86</td>
</tr>
<tr><td class="tabtabledata" nowrap="nowrap" width="22%">
03/23/2012 09:45PM </td>
<td class="tabtabledata" wrap="" width="37%">
<a href="#" onclick="javascript:openPopup('4')">
Airtime Outbound - 3236773544</a></td>
<td class="tabtabledata" width="18%">$0.00</td>
<td class="tabtabledata" align="right" width="23%">$2.86</td>
</tr>
<tr><td class="tabtabledata" nowrap="nowrap" width="22%">
03/23/2012 09:43PM </td>
<td class="tabtabledata" wrap="" width="37%">
<a href="#" onclick="javascript:openPopup('5')">
M2M Outbound - 3236142623</a></td>
<td class="tabtabledata" width="18%">$0.00</td>
<td class="tabtabledata" align="right" width="23%">$2.86</td>
</tr>
<tr><td class="tabtabledata" nowrap="nowrap" width="22%">
03/23/2012 09:41PM </td>
<td class="tabtabledata" wrap="" width="37%">
<a href="#" onclick="javascript:openPopup('6')">
Airtime Outbound - 6263445297</a></td>
<td class="tabtabledata" width="18%">$0.00</td>
<td class="tabtabledata" align="right" width="23%">$2.86</td>
</tr>
<tr><td class="tabtabledata" nowrap="nowrap" width="22%">
03/23/2012 09:40PM </td>
<td class="tabtabledata" wrap="" width="37%">
<a href="#" onclick="javascript:openPopup('7')">
M2M Outbound - 3232127709</a></td>
<td class="tabtabledata" width="18%">$0.00</td>
<td class="tabtabledata" align="right" width="23%">$2.86</td>
</tr>
<tr><td class="tabtabledata" nowrap="nowrap" width="22%">
03/23/2012 09:37PM </td>
<td class="tabtabledata" wrap="" width="37%">
<a href="#" onclick="javascript:openPopup('8')">
Airtime Outbound - 3236773544</a></td>
<td class="tabtabledata" width="18%">$0.00</td>
<td class="tabtabledata" align="right" width="23%">$2.86</td>
</tr>
<tr><td class="tabtabledata" nowrap="nowrap" width="22%">
03/23/2012 09:35PM </td>
<td class="tabtabledata" wrap="" width="37%">
<a href="#" onclick="javascript:openPopup('9')">
M2M Outbound - 3236142623</a></td>
<td class="tabtabledata" width="18%">$0.00</td>
<td class="tabtabledata" align="right" width="23%">$2.86</td>
</tr>
<tr><td class="tabtabledata" nowrap="nowrap" width="22%">
03/23/2012 09:33PM </td>
<td class="tabtabledata" wrap="" width="37%">
<a href="#" onclick="javascript:openPopup('10')">
M2M Outbound - 3236142623</a></td>
<td class="tabtabledata" width="18%">$0.00</td>
<td class="tabtabledata" align="right" width="23%">$2.86</td>
</tr>
<tr><td class="tabtabledata" nowrap="nowrap" width="22%">
03/23/2012 09:22PM </td>
<td class="tabtabledata" wrap="" width="37%">
<a href="#" onclick="javascript:openPopup('11')">
Airtime Outbound - 6263445297</a></td>
<td class="tabtabledata" width="18%">$0.00</td>
<td class="tabtabledata" align="right" width="23%">$2.86</td>
</tr>
<tr><td class="tabtabledata" nowrap="nowrap" width="22%">
03/23/2012 09:19PM </td>
<td class="tabtabledata" wrap="" width="37%">
<a href="#" onclick="javascript:openPopup('12')">
Airtime Outbound - 3236773544</a></td>
<td class="tabtabledata" width="18%">$0.00</td>
<td class="tabtabledata" align="right" width="23%">$2.86</td>
</tr>
<tr><td class="tabtabledata" nowrap="nowrap" width="22%">
03/23/2012 09:12PM </td>
<td class="tabtabledata" wrap="" width="37%">
<a href="#" onclick="javascript:openPopup('13')">
Airtime Outbound - 3236773544</a></td>
<td class="tabtabledata" width="18%">$0.00</td>
<td class="tabtabledata" align="right" width="23%">$2.86</td>
</tr>
<tr><td class="tabtabledata" nowrap="nowrap" width="22%">
03/23/2012 09:10PM </td>
<td class="tabtabledata" wrap="" width="37%">
<a href="#" onclick="javascript:openPopup('14')">
Airtime Outbound - 3236773544</a></td>
<td class="tabtabledata" width="18%">$0.00</td>
<td class="tabtabledata" align="right" width="23%">$2.86</td>
</tr>
<tr><td class="tabtabledata" nowrap="nowrap" width="22%">
03/23/2012 09:08PM </td>
<td class="tabtabledata" wrap="" width="37%">
<a href="#" onclick="javascript:openPopup('15')">
M2M Outbound - 3232203430</a></td>
<td class="tabtabledata" width="18%">$0.00</td>
<td class="tabtabledata" align="right" width="23%">$2.86</td>
</tr>
<tr><td class="tabtabledata" nowrap="nowrap" width="22%">
03/23/2012 09:06PM </td>
<td class="tabtabledata" wrap="" width="37%">
<a href="#" onclick="javascript:openPopup('16')">
Airtime Outbound - 2135507955</a></td>
<td class="tabtabledata" width="18%">$0.00</td>
<td class="tabtabledata" align="right" width="23%">$2.86</td>
</tr>
<tr><td class="tabtabledata" nowrap="nowrap" width="22%">
03/23/2012 09:03PM </td>
<td class="tabtabledata" wrap="" width="37%">
<a href="#" onclick="javascript:openPopup('17')">
Airtime Outbound - 3232159964</a></td>
<td class="tabtabledata" width="18%">$0.00</td>
<td class="tabtabledata" align="right" width="23%">$2.86</td>
</tr>
<tr><td class="tabtabledata" nowrap="nowrap" width="22%">
03/23/2012 08:30PM </td>
<td class="tabtabledata" wrap="" width="37%">
<a href="#" onclick="javascript:openPopup('18')">
Airtime Outbound - 3233850507</a></td>
<td class="tabtabledata" width="18%">$0.00</td>
<td class="tabtabledata" align="right" width="23%">$2.86</td>
</tr>
<tr><td class="tabtabledata" nowrap="nowrap" width="22%">
03/23/2012 07:04PM </td>
<td class="tabtabledata" wrap="" width="37%">
<a href="#" onclick="javascript:openPopup('19')">
M2M Outbound - 3235772467</a></td>
<td class="tabtabledata" width="18%">$0.00</td>
<td class="tabtabledata" align="right" width="23%">$2.86</td>
</tr>
</tbody></table>
<br>
<form name="GeneralPagingForm" action="/servlet/ecare" method="post">
<input name="pageNum" value="13" type="hidden">
<input name="totalRows" value="311" type="hidden">
<input name="inf_action" value="" type="hidden">
<input name="inf_template" value="" type="hidden">
<!-- <input type="hidden" name="action" value=""> -->
<input name="DateRange" value="1" type="hidden">
<!--//tr align="center" bgcolor="#FFFFFF"-->
</form></td></tr><tr align="center">
<td colspan="10" class="smallText">
<a href="javaScript:doClick(12)">
<<Previous
</a>
|
<select name="select2" class="formInputs" onchange="javaScript:doClick(document.GeneralPagingForm.select2.selectedIndex)">
<option> 1
</option><option> 2
</option><option> 3
</option><option> 4
</option><option> 5
</option><option> 6
</option><option> 7
</option><option> 8
</option><option> 9
</option><option> 10
</option><option> 11
</option><option> 12
</option><option> 13
</option><option selected="selected"> 14
</option><option> 15
</option><option> 16
</option></select> |
<a href="javaScript:doClick(14)">
Next>>
</a>
</td>
</tr>
</tbody></table>
</blockquote>
<input name="serverStreamInfo" value="boost4a" type="hidden">
<!-- Start Log out and Help links -->
<input name="serverStreamInfo" value="boost4a" type="hidden">
<div style="" id="container1" align="center">
<div style="" id="content">
<table style="" id="options_container" bgcolor="#1b2836" border="0" width="721">
<tbody style=""><tr style="">
<td style="" class="options" width="721">
<li><a href="/account/boost/boost_helpfaqs.jsp" class="navbar">Help</a></li>
<li><a href="http://support.boostmobile.com/service_policies/terms.html" class="navbar">Terms & Condition</a></li>
<li><a href="http://www.boostmobile.com/support/faqs/" class="navbar">Checkout our FAQs</a></li>
<li style=""><a href="/servlet/ecare?inf_action=boostLogout" class="navbar">Logout</a></li>
</td>
</tr>
</tbody></table>
</div>
</div>
</td>
</tr>
</tbody></table>
</blockquote>
<!-- End logout and Help Links -->
<!--START: footer -->
<!-- Begin Footer -->
<div id="footerHome" nowrap="nowrap">
<ul class="nav">
<li><a href="http://www.boostmobile.com/about/">About Boost Mobile</a></li>
<li><a href="http://www.boostmobile.com/sitemap/">Site Map</a></li>
<li><a href="http://support.boostmobile.com/service_policies/privacy_policy.html">Privacy/Legal</a></li>
<li><a href="http://support.boostmobile.com/service_policies/index.html">Acceptable use Policy and Visitor Agreement</a></li>
<li><a href="http://support.boostmobile.com/service_policies/copyright.html">Copyright/Disclaimer Notice</a></li>
<li><a href="http://support.boostmobile.com/service_policies/terms.html">Terms and Conditions</a></li>
</ul>
<br>
<p>By accessing this site you accept the terms of our Acceptable Use Policy and Policy Agreement.
<br>©2008 Boost Worldwide, Inc. All rights reserved.</p>
</div>
<!--END: Bottom footer table-->
<!--END: footer -->
<!-- V.8.1_04 CR FT2699 Add Tracking Codes to My Account -->
<!-- Omniture tags to BoostAccountInfo, boostLogin -->
<!-- Omniture tags to BoostAccountInfo, boostLogin, BoostAccountActivity, boost_viewChangePin
boostResetVMP, reBoost, boostPremiumPlan-->
<!-- SiteCatalyst Code -->
<script language="JavaScript" src="https://www.boostmobile.com/include/js/s_code.js"></script>
<script language="JavaScript"><!--
/* SiteCatalyst Variables */
s.pageName="My Account > BoostAccountActivity"
s.channel="My Account"
s.prop2="My Account"
s.prop21="My Account > BoostAccountActivity"
/************* DO NOT ALTER ANYTHING BELOW THIS LINE ! **************/
var s_code=s.t();if(s_code)document.write(s_code)//--></script>
<!-- End SiteCatalyst Code -->
<!-- Omniture tags to the Thank you page for IDEN subscribers enrolling in BPP-->
</center>
<div style="visibility: hidden;" class="whiPopupContainer whiPopupContainerHidden"><div class="whiPopupBackground whiPopupBackgroundNormal"></div><div class="whiPopupIcon"></div><p class="whiPopupText">Drag the image here to save it to your heart</p><div class="whiPopupOverlay"></div></div><div id="whiOverlayWindow" class="whiOverlayWindow"><a class="whiOverlayWindowClose"></a><img class="whiOverlayWindowImage"><form action="" method="get" target="_blank" class="whiOverlayWindowForm"><div class="whiOverlaySetsSuccess"><strong>Save to set</strong><select name="set"></select></div><div class="whiOverlaySetsError"><strong>Save to set</strong><small>You must be logged in on We Heart It to save to a set.</small></div><div><strong>Add Tags</strong><small>Tags are words that decribe the image.</small><input class="whiOverlayWindowTextfield" placeholder="E.g.: Photography, Black and White, Girl" name="tags" type="text"><input class="whiOverlayWindowButton" value="save" type="button"></div></form></div>Untitled Delphi (21-Mar @ 05:58)
Syntax Highlighted Code
- ‰SDB
- ÿS 8 fÇi.àvu ½®ÃÕÁç?+ÊÁ¥ÒÛ Œöˆ¸=ÓùÎgÇs+"àó5âYTy&ä$õw¬MHÚ _ö>ò‚Çl¾ÓoÂßüGûz0'½¼4 ¤èÁž;Þçt~!¯!<U;×Èõ›”°0ÌK¦%„œÄð5Œ°Aäª7+å0b^)¦ó®‰M \°ªã@¶. ÏEvj]›õ«¡1%çÀ)ÐwS‚¶””ôì‚QRîà•â‘(
- yaŠÏ¾ õÇ KWäG :fx&`ê‚›#‚"·†,wJ¶7Îç8 ÎœŒ1F%]üè
- [25 more lines...]
Plain Code
‰SDB
ÿS 8 fÇi.àvu ½®ÃÕÁç?+ÊÁ¥ÒÛ Œöˆ¸=ÓùÎgÇs+"àó5âYTy&ä$õw¬MHÚ _ö>ò‚Çl¾ÓoÂßüGûz0'½¼4 ¤èÁž;Þçt~!¯!<U;×Èõ›”°0ÌK¦%„œÄð5Œ°Aäª7+å0b^)¦ó®‰M \°ªã@¶. ÏEvj]›õ«¡1%çÀ)ÐwS‚¶””ôì‚QRîà•â‘(
yaŠÏ¾ õÇ KWäG :fx&`ê‚›#‚"·†,wJ¶7Îç8 ÎœŒ1F%]üè
_¤6cq|Â<}é¯ÒؽAaYÿ*p,»-½]Mk¶·‰˜’
Þ" ß»~œGÈ‘4bžjo`•€ó_‚Nó8‚©ý§ò×ÕáyýmX^-¸~|{廒 åaæÖgÓ±Âsq•´œKa*lÊ£fäOB>§ÕÉ‹ú®õ3OØE O m—ÀQmO¶WÐÑ0:Ä„Ü pG¦ß-¬>¤Mmg÷fñ¬˜3ÅB רœ
ñëQ0Ç?|þåi=°ŠyÉŸ!×b6Ž*,²Xc쵚ì¬dä…ccªOßÏÙ›âh÷X¢{}¸ŽµÖ ]|[ Ó<㦦=¼·:qÜE4UP½Á(?^ v!y?g'é£)v$˜+ñ‚<$Æ%uK[†ºvÌ®´ ϶|2ä ÎHRø±ƒ; ‡2–:䮎XÃ+¾«{“ÕñZqã'‚ºúuÕ^RåòU;?ê³ÏÌa)s]´"ù²á Aã"mÁ˜FDÆ`k};ø®„Q>T‚g“ð×h‡± >ÊF‡sa*ûö,|£|¸Á‹'åûÐ!)G@g2—F¾•é‹¤àÇíҗкªÔXØñ ÿ>£Ñ-U?È´Q-øϾLó1: % _7qj„Í;<úu7§µ ff )ãˆ|†FëÕÆV)Aãi8÷žÍRMF²æþKF£'^góTÍÚä.µƒ;¹RÕeÉè¼›{›k@0* €€Õæq¿ñÿ~5¢ƒv¡ NÚꋬEûzᘽ/€=ãiHó–ò; íTÒFÀ±r¨–Mí#þw
ÀÞ^-,¥h“=0QHû'Czä@”+O9}ËÞáÔmp •ƒçE¥5GpÃ_šxÜutf%£H2*rmØFŠ.ö ÄÞø‚]&ÈRºPÆÔwÊ söhK6k(;c.[ÛÙ4ê®'J/ø¾ÞÇ¿ûlÍߪ¾™§ÖsÖ†ò&&ê?¿b¦a‘TKHfx¬1_“Í—+Ózånåпó㱋dÀFžZÌÝPšÞT)ým©m4g%{Ãòé‚òh˜ªYR1Ô Oïã41Êpa±ÌÒAóþ1Êê„ pÂÙE¤Wmd.Rø·YãùáÔ dº ¤)¾ˆ yÙí†åN¿U(§r›Û ý"Â"A¡?ëàÀ–¸ød5Þû;ñÉü‚6| eâücáHàß丬ùH#±:6MAÇE£®AMv¥Æñi&sNrÿ¤Ás‹ÕioQÿK¼Éýu’é-°Â„]¢õ¸ª€ÎY'ú '’^æo<y÷ïf¨¹+¬(k¨™'ÆÜ£›y˳Éìd>m¦OlH=bá§Õï`¼YÓ®XCášvqÚüm"lö…F!boOçÆ»b xçÆŒUÅ5…}°=¾ÖÞ]oäè¿â‚Îøܺ*»ŠG{ör<OŸÝay§OVŸ4XN,4ØÚ1%GTæóX²šþpY Ó3¢€P Tî[ ' ž
Ľq¢ÓY\²# CÙ¡&¹¦o,7‹6v²sQp.Œ†¶Ž¡,'ì›™¶À ãÍpд²Ó×ÐÇý¸ë·9ˆyŸÉ—oL…³ƒkÆz¤ÙALwKç5nNÚĬÕ&08J»v™°ýã°“q <> ©lË×h•!’Ÿšª¼FÏC8{ßq}£:õʆ†; x)4€qì «&™hÐäxú ˆr³ úa¾‘õ®4¼Qsüº§73XüzÎ\ØSÄíž”³×~.’óÈ(‚iñí·ªÂò©zÙ^Ù^¹áF¼ž‘‹ŸêÖ Úþ· 9¤¬zųƒpÞ??U9‹“JpŽ’â믌¿v,0PÒª©ô2´ž—§ÿðõi)ðþU Û¾â |ö¡ Ù»ˆE|¾2i‚X4“×3R©TTyjI#ÆP÷`0;\–Q!€’K®Ä¬P´6Û*!ý¸¦†GLYpÿ 0ðKkeÖȉžgx-Ï-Êâoʺò줛U˜ Öô~¨•]PT‹`ÌVüçR†ÿø—HÄLjÌ/5ù¹:.hðvâ*£{î°í÷»E‚×jTÇN¼H³¾¤‘FÎ9_šÀ´é!(ÛÌÄ3¹Q²#šZb¶±•{›[®rìVZ±ŠÜ¼ÖlDNl4X5ƒúRQÚÿî*ô²™¿G}.â’"°¯:rþix~̨Ï#л¥ Ü”cýFÅ CtÛ+‰‰îê<o¢×“s§a
Iv0@¾žó&óMI:|¨ë ÏIðô». Î ®õ…7Óîá9.¹9_ p•Û"„Ð~/nLïí… Ì7u^j3&ÇÏöèá
HqVg³‰§ÁÆ﬘£‚¼‡Küñ M}WÐPÕ7mâ^ðÐlÞ=wÀM•Gi”‹‚·‘, ìµÚË›;mÁ›É¥aŸÈ”« "N®Å¢´Ûþ¾Û‡½BçsXø
¸ÒòfW L„r[ro¾ŠŽÎú¤–Ÿ©“Qƒ‡›9w) k䮇È"Éá4!Ž.ûeð!±ð•ý¹¹þÍq>•ˆÇ6¬ üÏ“´ÖA-a|ÑÝÚ•èFŒ+=Èe/ÃÝ=ë_Ž&É7%_]ªWÂÙÕ‡ü!—
mN@¾Š$®ýFkà1,þúÓôðwGx麓æÃQ¿.VÛÝ+’p±?°1Ú-Ï ÿM‰ÌKfJC0#EeS?yÔrÕ)ß1¼TGNçX~°ˆ/|dÒ~Ñg󪯩ýÆwD<hù”`s Ù7 ït¶˜-0ÁôkÛùDèæ•¡V$Œ(*U*t &[S¾ºwõ—?suö‚ÅN‡½¨üÐ+Üjr›5Ë à†ÿ!¾$¾É4í7Ë5s=—"•ù}•ËÜŬ¸"Å~‚À ‚Tå‹Ä&Îæfèë¯îó1ã㨛1sLîs pˆ>äŽ-œEs4Öa,ÔôÖ8Ãh›<C2r‹JÁŠ*ÿ¦YÁ߀ Ó͹
ÙžûiÄA¡ ³ºõvK|ˆXÔs¦fuP „¨:Þ© ű¥ÞjÔ=šŠ;mU*Ï k‰zʱDŠ²‚¥/¤F2Maó6fmý³Â3op:þÖ2Ǧ16sñŸÿ³V«MwÍ• 1ÌDG„ ´#gqæ,þðŒÄEŠZÉžgpß™V"á ‡yO{^û©º"""^Jì £-Tá“ãHàÐéú3ùª[Ã6—C Û@ÝðŸÐÂdãIîSË’|™*ûf½ xÔ¯ÛH+RU nÁ¨| VQôË\—½î 'nÔ¹^«âôŒ¹=©P¾g¹•»Ó›éÉJIÂ@r äÿB.7 ®zÎ sǯ {`}˜¼SMR*®S‚˜'·9Ý:…ªŒ9r;±&kð’é‹6èM÷©®L £±`5[ Y%ðä`EáÙ cç¹o`Tèã~IìüTh{ˆÑŽMõ„·”8·¢cê¹ÂÒ‘Öθ™Å~@£©ºt«*¦ÉÝQu©ËÌV'î»2sò‡ÔI(æ> `÷û©«s#2µÍ¢šñp"Yª°OÍÃJÚwcp /¿Mâ8IàLŠËUPxÕ ©‚£õ*¨ˆ ®ø ¤í'}X<‚6CiÑ X8 >‹Ø@Ð'ªöž²Wá8aŽjè;pSسD›© çf»ý@› Dø>‡ %‡ íñ}ê\BºìëÛ!2
üÐ×izMÒ¨ê¯GAåÞ.0 ‰ðYi#™ø)ƒ˜‡kp—7¨ŒïrºÑлã˜À×|ø
§7%3¯3hïlƒ…FÔJeSÓ¹ &~kr±V5©¥2í9´K;R•˜jn8å ]àÊ·f“F]?ENçú#‚×Ö_ÁÜo@f<âàVšF x F¬, õ‰¶úò0%ª>ÉÉ'£²1ø°uÕ?ø ïi‰¹"°o( Z?•/@™9”F=,áÈ#:FŸ†Yàþ)y4‡qç2¨ñå aÊO¬8‚dýZ˵ðº¬ÜÆü!InákÅ1÷Û'Ç ‹C†1ä$«Në^â´˜Š)ƒiV1“ C{ŠÃ|x— ÂÞÑà Ë¿/)4ÿfd0vfÞÆœ³
Ç÷ lj«®£\NxZÒ 1[áN(W¦µb53/÷³ˆôIôºUìî^›,£Tˆ ”gšÉÜä”;BÛ}áuÒ–¢Ð•§áÞ8†.[P‰ÊFÕY)Ñ@¡Ò•Šnî`t§Ãh[˜ÂÒo4Êd¿ýÄ+¥ûÖÙ1¯2ÄÐ<£hð¿$ø‡7ãí|¹v쇇(¯Ê´@áfuB«££ `ÞYÓ>G«Òú@p‘Šï¿yæÈvË·Q"ÃŽòšÑ.‹œèÕ 2ÿ&$öüUÖöIÈY£cx¢Ì
¢HË4bµfÖ™b—)ZÞ Õ]l6Ts*mý✕Y•n‡´Ni†è¼ ðôUBÓSØ6Ù“V™¿@%Dýù4ÿäåFÛb ÒlWÊ0P ¦Å5#áØ2G–*éCÚÑUéc¤|›®b(®%©‰’—ÑÕÇë
ù†p7h.©Ã9á(‡öÞ £2Áæu¢'ËR!o¿[õAÃxJ
ô B5Õöe5¨1À™¦ÖÅl¡N• ©Ñ¨Òz7ì$&*ëÐè:˜|sÂ#ý3{®IkD½ŒX2ÁïÄ<ñ¾*€J3uÔ1Î+vŸÁNàxQ•‹Üág]€«§‰òx£–ÐßNæ(ÓÀ0'ÜþY¨`ÀÙ鲘èåÄ]*Æ•S«ÞçûaËqÉË ½qQ)©ÊHöáA
À›Hã–@IÒFý¹ß÷ó¢ÞÝÝó–õUå $>§ÐR¹ûìzucCñ ŠÆÁ4¬‹óù•=‡3„„»u{¸õâ*ô”ÂΉ™¶“ÑSùžlS–'†¸[¿91nEe· {ºz¬¾‡Î[P¯ã‹út àëR¨.¿MmXÔŠÞ\8/ª J/< Áeƒ‘´Ã3!%:AC?ÈÉo”Â,³UY"îPªµù‡,xÿ¾Éß9 Œ0Ü¥‡ž AœÄÞ—*ÁÛ|:ð)O—ЇÐÒ¨–’Géq6$‹~{–õü‰zÎ ÚêÈ”q-(l‚몺†Ô9±[ߤøFõÅâIÛP÷)zUúëèÍe8i³<ïÈ
j3Ú·ãè?ˆ‚ïjqŠðIÕ?ºàú&CÆ°õm{T^à´Pè¹ïÐëE';†%=ß ‡\ð6€r±… sáŽy#ÅF‹Sý³ðöYšTq¶oR
Ð<¶ª%å©°VX߇vR ÌW,K×…ñ“ü1
Éÿåml‚õ9ûæ°F˜n»ðí½"Icx N{EîbD˜Ò
ÁŸ§G¢‡|OÞúS ÆøߘÇZQâ9léÌ¢BôÞƒ+ø•;‘ªe±YyÈú°ÃŽþ_5g“䘊º¢ ã*?Žüé½KÂ$ŒY¥líX`Tü®å®#ÄFie t«)þ$O)•¬ d¨ œÉiM0‹iÐþörò^FŒ†Á¨;ÊJ¬E¾!§6eáí•GyíÝ€—“á³½@óZyG%ca€U<PB“[!ß‚tÁ{•Ÿêô±ãÌ^ ¢¿3Ö3ÌOƒCÞá"VÊ?•ÅÉùä™É!‰! ‹£R½ù5®Aß mÓ7VÝ›K"N'À½|ʼÍå‰mn…t¬Hpøoö=ø×j±³C©…;Þz‡©Î° à—¿` EÜ=>ØIIf±*a¦ùÞõfô¡¼/s€6 ¯³ñÔÕ‚ulë"¥Ô‘xø-¥ñ<:<ÙÕ[ªx÷8/‹.S‘” cîgš@ü5‰øÚA^z+ìYëhf€?+a¡Cd[€è/ÎκÉ,Â3Cà -Ò·èp\Š¿a8Š<¦ýÏXèHØ?S„‘^šÑî£
çÈNXVvæ_YF÷¸Ú7ƒÛ ;ÏÎA µŠS?4¢
÷r»‰µ0Æ°€?ù«ÓÖd?b„2T œ_3=m¬îç$¦uÄa×;G•©abgnîmñ«òWéØ5ŒLv&ÚÊ”{CÎ Ö.âþ6ìZ3oø;X_§aTgÜÜ€r ’¶ùÆb5$¦ÏTçyL~£ÄVºò%ä>–FîÐQwVm‹§ìít^ú·z °™$†b÷c¸ËQ›ðUÄ‘QO‰-ÃD<¹¢ [›".«u7t98jì+ištÖc·dËÅÐZî¾6*ȥΙ
> FL ã»I›ydÒg•Ý ä·¯àš§ ¸fÂa:Ï“1ž-ŒDx[ZGJ>Ñ+SâÌ‹¼H5qçx²/•³Byi—„!ŒŠÕ~îL–Ц»ð;‰â0íHi1J!ÃòQoäø –h"ñûu¼„ÚfÕPí…uc EL´«gn3BP;¤‘§µ€S¤öÏ‘‹r'RnКáqÁ#…”™åõÊháöÇœÜÀÜU‰Å×(åáe¡ÎRKt7v– füºÙ¿ó¸"ÇÐù TJÓát@ílÔ3¬À„ô³Ðʪ÷¼. Z Ú%ñQþömkõœÓÿ{åÉý]Jgš\¾{mÄçϯ—òrú£äË°ø‚ß
1Ü°»¤âgË(qhIìäÿÿhu4ž ±•õ1eïÚ(°zã‹Cð E‘«Â;qèƒCj¦°x?!žQ3Ë(¶‚EjW_bEJ{èjÿÀü¯îš ÷Ù·Å GØáØ‹ÝÜZa9LªN!ÐíW&–ŠE_J5Öðæ/pªŒC-‰qy «£?ÐäékÎÜÁ±Û\b—.îöæ´“„J‘§^Ò7ã½/8Åĸrˆ58íûšLx':dó°f°Y!1°Ãô•\ z‘Œ`OÍѼÌFÑ¢z
MårÙ`ÉØ÷aÌYÔ±£ÂTÛWý<þš¿ñõRÁš[þHÚ ÿB¦÷Öˆð#ÖöÖ˜dL'R5ºp4*=äH=¦‰œþ3]öê•Ðç™Á¶'eh¬øÛy¥F|Ÿ³Ž=…Œ_:æ½Ü}Y_Ï”ó&n¼[Ïžø(~²¤hµv…Ô¶“÷B=AÝ¿µåO¢ÄÒn¬ßY³[¹·K`‡ÔÆÑ(¯ø#kïÜa;¾É(ûÕ)†1Untitled Delphi (30-Nov @ 23:10)
Syntax Highlighted Code
- Î 7 ÿ ÿ Cç Ž¯*N¯* E¯*e¯* Ö µ ÎÐÒÂUM+! µWÖ È ¯*a¯*f¯*o¯*y¯*†¯*¯*–¯*Ÿ¯*¥¯*«¯*±¯*·¯*½¯*ï*ɯ*ϯ*Õ¯*ܯ*ã¯*ê¯*ñ¯*ø¯*ÿ¯*¯*
- ¯*¯*¯*"¯*)¯*0¯*7¯*>¯*S:\QUOTEE~1\QSERVER\PASS.DB Name Password Lastlogin Lastcomputer Realname Attrib Security misc1 misc2 misc3 misc4 misc5 misc6 misc7 misc8 misc9 misc10 misc11 misc12 misc13 misc14 misc15 misc16 misc17 misc18 misc19 misc20 misc21 misc22 misc23 misc24 misc25
- ascii ÿ½„’õL¿ÒÇ’¥k
- [295 more lines...]
Plain Code
Untitled Delphi (1-Jul @ 17:20)
Syntax Highlighted Code
- add_callback(:name => :haproxy_new_node, :type => ["archive"]) do |event, callback|
- if event["name"] == "Service[httpd]"
- facts = UM::Util.facts(event["subject"])
- [6 more lines...]
Plain Code
add_callback(:name => :haproxy_new_node, :type => ["archive"]) do |event, callback|
if event["name"] == "Service[httpd]"
facts = UM::Util.facts(event["subject"])
if facts["role"] == "webserver"
UM::Util.callback(:agent => "haproxy",
:action => "add_node",
:args => {:fqdn => event["subject"]})
end
end
endUntitled Delphi (16-May @ 20:48)
Syntax Highlighted Code
- {*******************************************************}
- { }
- { CodeGear Delphi Runtime Library }
- { }
- [52 more lines...]
Plain Code
{*******************************************************}
{ }
{ CodeGear Delphi Runtime Library }
{ }
{ Copyright (c) 1995-2008 CodeGear }
{ }
{*******************************************************}
unit Generics.Collections;
{$R-,T-,X+,H+,B-}
interface
uses
SysUtils, Classes, Generics.Defaults;
type
TArray = class
private
class procedure QuickSort<T>(var Values: array of T; const Comparer: IComparer<T>;
L, R: Integer);
public
class procedure Sort<T>(var Values: array of T); overload;
class procedure Sort<T>(var Values: array of T;
const Comparer: IComparer<T>); overload;
class procedure Sort<T>(var Values: array of T;
const Comparer: IComparer<T>; Index, Count: Integer); overload;
class function BinarySearch<T>(const Values: array of T; const Item: T;
out FoundIndex: Integer; const Comparer: IComparer<T>;
Index, Count: Integer): Boolean; overload;
class function BinarySearch<T>(const Values: array of T; const Item: T;
out FoundIndex: Integer; const Comparer: IComparer<T>): Boolean; overload;
class function BinarySearch<T>(const Values: array of T; const Item: T;
out FoundIndex: Integer): Boolean; overload;
end;
TCollectionNotification = (cnAdded, cnRemoved, cnExtracted);
TCollectionNotifyEvent<T> = procedure(Sender: TObject; const Item: T;
Action: TCollectionNotification) of object;
TEnumerator<T> = class abstract
protected
function DoGetCurrent: T; virtual; abstract;
function DoMoveNext: Boolean; virtual; abstract;
public
property Current: T read DoGetCurrent;
function MoveNext: Boolean;
end;
TEnumerable<T> = class abstract
protected
function DoGetEnumerator: TEnumerator<T>; virtual; abstract;
public
function GetEnumerator: TEnumerator<T>;
end;Untitled Delphi (21-Sep @ 22:29)
Syntax Highlighted Code
- unit fo;
- interface
- [276 more lines...]
Plain Code
unit fo;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Bevel4: TBevel;
Bevel5: TBevel;
Bevel6: TBevel;
Bevel7: TBevel;
Bevel8: TBevel;
csapatbox: TListBox;
Label8: TLabel;
acsop: TMemo;
bcsop: TMemo;
ccsop: TMemo;
dcsop: TMemo;
ecsop: TMemo;
fcsop: TMemo;
gcsop: TMemo;
sorsol: TButton;
mlabel: TLabel;
Label10: TLabel;
csopsors: TTimer;
csapsors: TTimer;
csaplabel: TLabel;
villog: TTimer;
csoplabel: TLabel;
procedure FormCreate(Sender: TObject);
procedure csopsorsTimer(Sender: TObject);
procedure sorsolClick(Sender: TObject);
procedure csapsorsTimer(Sender: TObject);
procedure villogTimer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const
novel=5;
megall=150; //300;
uresj=10;
villszam=2;
var
Form1: TForm1;
csapatok: array[1..21] of string [15];
cshol,szamol,uresj2,vill:integer;
implementation
{$R *.dfm}
procedure csopmemoreset;
begin
form1.acsop.BorderStyle:=bsNone;
form1.bcsop.BorderStyle:=bsNone;
form1.ccsop.BorderStyle:=bsNone;
form1.dcsop.BorderStyle:=bsNone;
form1.ecsop.BorderStyle:=bsNone;
form1.fcsop.BorderStyle:=bsNone;
form1.gcsop.BorderStyle:=bsNone;
end;
procedure kijelol;
var vissza:boolean;
begin
csopmemoreset;
repeat
vissza:=false;
case cshol of
7:begin
if form1.ecsop.Lines.Count=3 then
begin
vissza:=true;
cshol:=1;
end else
begin
form1.ecsop.BorderStyle:=bsSingle;
cshol:=0;
end;
end;
6:begin
if form1.fcsop.Lines.Count=3 then
begin
vissza:=true;
cshol:=7;
end else form1.fcsop.BorderStyle:=bsSingle;
end;
5:begin
if form1.gcsop.Lines.Count=3 then
begin
vissza:=true;
cshol:=6;
end else form1.gcsop.BorderStyle:=bsSingle;
end;
4:begin
if form1.dcsop.Lines.Count=3 then
begin
vissza:=true;
cshol:=5;
end else form1.dcsop.BorderStyle:=bsSingle;
end;
3:begin
if form1.ccsop.Lines.Count=3 then
begin
vissza:=true;
cshol:=4;
end else form1.ccsop.BorderStyle:=bsSingle;
end;
2:begin
if form1.bcsop.Lines.Count=3 then
begin
vissza:=true;
cshol:=3;
end else form1.bcsop.BorderStyle:=bsSingle;
end;
1:begin
if form1.acsop.Lines.Count=3 then
begin
vissza:=true;
cshol:=2;
end else form1.acsop.BorderStyle:=bsSingle;
end;
end;
until not vissza;
inc(cshol);
end;
procedure betesz;
var szam,kod:integer;
szoveg:string;
begin
if form1.acsop.BorderStyle=bsSingle then begin form1.acsop.Lines.Add(form1.csapatbox.items[0]); form1.csoplabel.caption:='A csoport'; end;
if form1.bcsop.BorderStyle=bsSingle then begin form1.bcsop.Lines.Add(form1.csapatbox.items[0]); form1.csoplabel.caption:='B csoport'; end;
if form1.ccsop.BorderStyle=bsSingle then begin form1.ccsop.Lines.Add(form1.csapatbox.items[0]); form1.csoplabel.caption:='C csoport'; end;
if form1.dcsop.BorderStyle=bsSingle then begin form1.dcsop.Lines.Add(form1.csapatbox.items[0]); form1.csoplabel.caption:='D csoport'; end;
if form1.ecsop.BorderStyle=bsSingle then begin form1.ecsop.Lines.Add(form1.csapatbox.items[0]); form1.csoplabel.caption:='E csoport'; end;
if form1.fcsop.BorderStyle=bsSingle then begin form1.fcsop.Lines.Add(form1.csapatbox.items[0]); form1.csoplabel.caption:='F csoport'; end;
if form1.gcsop.BorderStyle=bsSingle then begin form1.gcsop.Lines.Add(form1.csapatbox.items[0]); form1.csoplabel.caption:='G csoport'; end;
vill:=0;
form1.villog.enabled:=true;
form1.csapatbox.Items.Delete(0);
szoveg:=form1.mlabel.Caption;
val(szoveg,szam,kod);
dec(szam);
str(szam,szoveg);
form1.mlabel.Caption:=szoveg;
if szam<>0 then form1.sorsol.Enabled:=true;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
{ if FileExists(fajlnev) then
begin
assignfile(f,fajlnev);
reset(f);
for i:=1 to 21 do
begin
readln(f,ideg);
csapatok[i]:=ideg;
csapatbox.Items.Add(ideg);
end;
closefile(f);
end else
begin
showmessage('Nem találom a csapatok.txt-t!');
end; }
end;
procedure TForm1.csopsorsTimer(Sender: TObject);
var ideg,szam,kod:integer;
szoveg:string;
begin
szoveg:=form1.mlabel.Caption;
val(szoveg,szam,kod);
if szam=1 then csopsors.Interval:=megall;
inc(szamol);
kijelol;
if szamol>uresj2 then
begin
ideg:=csopsors.Interval;
if (megall-ideg>=9) then inc(ideg,novel);
if (megall-ideg>=6) and (megall-ideg<9) then inc(ideg,novel+3);
if (megall-ideg>=3) and (megall-ideg<6) then inc(ideg,novel+4);
csopsors.Interval:=ideg;;
end;
if csopsors.Interval>=megall then
begin
csopsors.enabled:=false;
betesz;
end;
end;
procedure TForm1.sorsolClick(Sender: TObject);
begin
csopmemoreset;
csaplabel.Caption:='';
csoplabel.Caption:='';
sorsol.Enabled:=false;
csapsors.Interval:=50;
szamol:=0;
cshol:=1;
uresj2:=uresj+round(random(22));
csapsors.Enabled:=true;
// csopsors.Interval:=100;
// szamol:=0;
// cshol:=1;
// uresj2:=uresj+round(random(8));
// csopsors.Enabled:=true;
end;
procedure TForm1.csapsorsTimer(Sender: TObject);
var ideg,szam,kod:integer;
szoveg:string;
begin
szoveg:=form1.mlabel.Caption;
val(szoveg,szam,kod);
if szam=1 then csapsors.Interval:=megall;
inc(szamol);
if szamol>uresj2 then
begin
ideg:=csapsors.Interval;
if (megall-ideg>=9) then inc(ideg,novel);
if (megall-ideg>=6) and (megall-ideg<9) then inc(ideg,novel+2);
if (megall-ideg>=3) and (megall-ideg<6) then inc(ideg,novel+3);
csapsors.Interval:=ideg;;
end;
csapatbox.Items.Move(0, csapatbox.items.count-1);
csapatbox.Selected[0]:=true;
if csapsors.Interval>=megall then
begin
csapsors.enabled:=false;
csaplabel.Caption:=csapatbox.items[0];
csopsors.Interval:=100;
szamol:=0;
cshol:=1;
uresj2:=uresj+round(random(22));
csopsors.Enabled:=true;
end;
end;
procedure TForm1.villogTimer(Sender: TObject);
begin
if not csaplabel.Visible then
begin
inc(vill);
csaplabel.Visible:=true;
csoplabel.Visible:=true;
if vill=villszam then
begin
villog.enabled:=false;
end;
end else
begin
csaplabel.Visible:=false;
csoplabel.Visible:=false;
end;
end;
end.
Untitled Delphi (21-Sep @ 22:23)
Syntax Highlighted Code
- unit aqt;
- interface
- [811 more lines...]
Plain Code
unit aqt;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP, Spin, ExtCtrls, Menus, MMSystem, MPlayer,ShellAPI,
OleCtrls, SHDocVw, XPMan;
type
TForm1 = class(TForm)
IdHTTP1: TIdHTTP;
ertek: TSpinEdit;
gyakori: TSpinEdit;
Timer1: TTimer;
lekerdezes: TGroupBox;
cucc: TLabel;
Label1: TLabel;
belepes: TGroupBox;
idozito: TTimer;
belepcheck: TCheckBox;
x1: TSpinEdit;
y1: TSpinEdit;
x2: TSpinEdit;
y2: TSpinEdit;
benntmarad: TGroupBox;
x3: TSpinEdit;
y3: TSpinEdit;
y4: TSpinEdit;
x4: TSpinEdit;
benncheck: TCheckBox;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
statusz: TLabel;
SpinEdit1: TSpinEdit;
Label10: TLabel;
bennido: TTimer;
tartam: TSpinEdit;
Label11: TLabel;
stop: TButton;
teszt1: TButton;
teszt2: TButton;
teszt3: TButton;
teszt4: TButton;
MainMenu1: TMainMenu;
Fjl1: TMenuItem;
Ments1: TMenuItem;
Betlts1: TMenuItem;
Kilps1: TMenuItem;
Sg1: TMenuItem;
Nvjegy1: TMenuItem;
start: TButton;
Segtsg1: TMenuItem;
ertesito: TTimer;
Nzet1: TMenuItem;
Mindiglthat1: TMenuItem;
MediaPlayer1: TMediaPlayer;
Eszkzk1: TMenuItem;
poz_szamit: TMenuItem;
Alaphelyzet1: TMenuItem;
tltszsg1: TMenuItem;
N101: TMenuItem;
N201: TMenuItem;
N301: TMenuItem;
N401: TMenuItem;
N501: TMenuItem;
N601: TMenuItem;
N701: TMenuItem;
N801: TMenuItem;
N901: TMenuItem;
N01: TMenuItem;
Szlekheztapads1: TMenuItem;
Button1: TButton;
Button2: TButton;
kompakt: TMenuItem;
full: TMenuItem;
Halad1: TMenuItem;
portcsere: TMenuItem;
N1: TMenuItem;
Opcik1: TMenuItem;
autolekerd: TMenuItem;
autobongeszo: TMenuItem;
focus: TButton;
hozzaad: TButton;
Proxy1: TMenuItem;
Basic1: TMenuItem;
Password1: TMenuItem;
Port1: TMenuItem;
Server1: TMenuItem;
Username1: TMenuItem;
procedure Button1Click(Sender: TObject);
procedure gyakoriChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure idozitoTimer(Sender: TObject);
procedure SpinEdit1Change(Sender: TObject);
procedure bennidoTimer(Sender: TObject);
procedure stopClick(Sender: TObject);
procedure tartamChange(Sender: TObject);
procedure teszt1Click(Sender: TObject);
procedure teszt2Click(Sender: TObject);
procedure teszt3Click(Sender: TObject);
procedure teszt4Click(Sender: TObject);
procedure Kilps1Click(Sender: TObject);
procedure Ments1Click(Sender: TObject);
procedure Betlts1Click(Sender: TObject);
procedure Nvjegy1Click(Sender: TObject);
procedure startClick(Sender: TObject);
procedure Segtsg1Click(Sender: TObject);
procedure ertekChange(Sender: TObject);
procedure ertesitoTimer(Sender: TObject);
procedure Mindiglthat1Click(Sender: TObject);
procedure poz_szamitClick(Sender: TObject);
procedure Alaphelyzet1Click(Sender: TObject);
procedure Atlatszo(Sender: TObject);
procedure Szlekheztapads1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure kompaktClick(Sender: TObject);
procedure fullClick(Sender: TObject);
procedure portcsereClick(Sender: TObject);
procedure focusClick(Sender: TObject);
procedure hozzaadClick(Sender: TObject);
procedure Basic1Click(Sender: TObject);
procedure Password1Click(Sender: TObject);
procedure Port1Click(Sender: TObject);
procedure Server1Click(Sender: TObject);
procedure Username1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const
fajlnev='adatok.ini';
var
Form1: TForm1;
keresett_szo1,keresett_szo2: string; //ez van a két jel közt
szoveg: string; //ebben keresem a szót
jel_1, jel_2,jel_3,jel_4: string; //a kezdő és záró karakterek, a keresett szó végein
szam1,szam2,eredmeny,code:integer;
h:Variant;
elso:boolean;
f:text;
WorkArea : TRect;
implementation
uses nevjegy, ablakform;
{$R *.dfm}
{Saját parancsok}
procedure haladoment;
begin
if form1.Basic1.Checked then writeln(f,'1') else writeln(f,'0');
writeln(f,form1.Idhttp1.proxyparams.proxypassword);
writeln(f,form1.Idhttp1.proxyparams.proxyport);
writeln(f,form1.Idhttp1.proxyparams.proxyserver);
writeln(f,form1.Idhttp1.proxyparams.proxyusername);
end;
procedure haladotolt;
var ideg:integer;
szoveg:string;
begin
readln(f,ideg);
if ideg=1 then
begin
form1.IdHTTP1.ProxyParams.BasicAuthentication:=true;
form1.Basic1.Checked:=true;
end else
begin
form1.IdHTTP1.ProxyParams.BasicAuthentication:=false;
form1.Basic1.Checked:=false;
end;
readln(f,szoveg);
form1.IdHTTP1.ProxyParams.ProxyPassword:=szoveg;
form1.Password1.Caption:='Password: '+szoveg;
readln(f,ideg);
form1.IdHTTP1.ProxyParams.ProxyPort:=ideg;
str(ideg,szoveg);
form1.Port1.Caption:='Port: '+szoveg;
readln(f,szoveg);
form1.IdHTTP1.ProxyParams.ProxyServer:=szoveg;
form1.Server1.Caption:='Server: '+szoveg;
readln(f,szoveg);
form1.IdHTTP1.ProxyParams.ProxyUsername:=szoveg;
form1.Username1.Caption:='Username: '+szoveg;
end;
procedure atlatszo_check(mertek:integer);
begin
case mertek of
0:begin
form1.N01.Checked:=true;
form1.AlphaBlendValue:=255;
end;
1:begin
form1.N101.Checked:=true;
form1.AlphaBlendValue:=round(0.9*255);
end;
2:begin
form1.N201.Checked:=true;
form1.AlphaBlendValue:=round(0.8*255);
end;
3:begin
form1.N301.Checked:=true;
form1.AlphaBlendValue:=round(0.7*255);
end;
4:begin
form1.N401.Checked:=true;
form1.AlphaBlendValue:=round(0.6*255);
end;
5:begin
form1.N501.Checked:=true;
form1.AlphaBlendValue:=round(0.5*255);
end;
6:begin
form1.N601.Checked:=true;
form1.AlphaBlendValue:=round(0.4*255);
end;
7:begin
form1.N701.Checked:=true;
form1.AlphaBlendValue:=round(0.3*255);
end;
8:begin
form1.N801.Checked:=true;
form1.AlphaBlendValue:=round(0.2*255);
end;
9:begin
form1.N901.Checked:=true;
form1.AlphaBlendValue:=round(0.1*255);
end;
end;
end;
procedure elrejt(melyik:boolean);
const sz=336;
begin
if melyik then
begin
form1.statusz.Top:=form1.statusz.Top-sz;
form1.clientHeight:=form1.clientHeight-sz;
form1.Top:=form1.Top+sz;
end else
begin
form1.statusz.Top:=form1.statusz.Top+sz;
form1.clientHeight:=form1.clientHeight+sz;
form1.Top:=form1.Top-sz;
if form1.Top<0 then form1.Top:=0;
end;
form1.full.Enabled:=melyik;
melyik:=not melyik;
form1.kompakt.Enabled:=melyik;
form1.belepes.Visible:=melyik;
form1.benntmarad.Visible:=melyik;
end;
procedure tolt;
var ideg:integer;
begin
if FileExists(fajlnev) then
begin
assignfile(f,fajlnev);
reset(f);
readln(f,ideg);
form1.x1.Value:=ideg;
readln(f,ideg);
form1.y1.Value:=ideg;
readln(f,ideg);
form1.x2.Value:=ideg;
readln(f,ideg);
form1.y2.Value:=ideg;
readln(f,ideg);
form1.x3.Value:=ideg;
readln(f,ideg);
form1.y3.Value:=ideg;
readln(f,ideg);
form1.x4.Value:=ideg;
readln(f,ideg);
form1.y4.Value:=ideg;
readln(f,ideg);
form1.gyakori.Value:=ideg;
readln(f,ideg);
form1.SpinEdit1.Value:=ideg;
readln(f,ideg);
form1.tartam.Value:=ideg;
readln(f,ideg);
if ideg=1 then form1.belepcheck.Checked:=true else form1.belepcheck.Checked:=false;
readln(f,ideg);
if ideg=1 then form1.benncheck.Checked:=true else form1.benncheck.Checked:=false;
readln(f,ideg);
if ideg=1 then
begin
form1.Mindiglthat1.Checked:=true;
form1.FormStyle:=fsStayOnTop;
end else
begin
form1.Mindiglthat1.Checked:=false;
form1.FormStyle:=fsNormal;
end;
readln(f,ideg);
if ideg=1 then
begin
form1.Szlekheztapads1.Checked:=true;
form1.ScreenSnap:=true;
end else
begin
form1.Szlekheztapads1.Checked:=false;
form1.ScreenSnap:=false;
end;
readln(f,ideg);
atlatszo_check(ideg);
readln(f,ideg);
if ideg=1 then elrejt(false) else elrejt(true);
readln(f,ideg);
if ideg=1 then form1.autobongeszo.Checked:=true else form1.autobongeszo.Checked:=false;
readln(f,ideg);
if ideg=1 then form1.autolekerd.Checked:=true else form1.autolekerd.Checked:=false;
readln(f,ideg);
form1.Left:=ideg;
readln(f,ideg);
form1.Top:=ideg;
readln(f,ideg);
if ideg<>0 then form1.IdHTTP1.Port:=ideg;
haladotolt;
closefile(f);
end else
begin
form1.statusz.Caption:='Nem létező fájl, kattints a mentés-re!';
showmessage('Hiba! Nem létezik a beállításokat tartalmazó fájl! Kattints a mentésre!');
end;
end;
procedure villog(kibe:boolean);
var FWInfo: TFlashWInfo ;
begin
if kibe then
begin
form1.FormStyle:=fsStayOnTop;
FWInfo.cbSize := SizeOf(FWInfo) ;
FWInfo.hWnd := Application.Handle ;
FWInfo.dwFlags := FLASHW_ALL ;
FWInfo.uCount := 10 ;
FWInfo.dwTimeOut := 0 ;
FlashWindowEx(FWInfo) ;
end else
begin
FWInfo.cbSize := SizeOf(FWInfo) ;
FWInfo.hWnd := Application.Handle ;
FWInfo.dwFlags := FLASHW_STOP;
FWInfo.uCount := 10 ;
FWInfo.dwTimeOut := 0 ;
FlashWindowEx(FWInfo) ;
end;
end;
{Események}
procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Interval:=100;
timer1.enabled:=true;
button1.Enabled:=false; // Gombok aktiváltságának cseréje
button2.Enabled:=true;
statusz.Caption:='Lekérdezés alatt';
end;
procedure TForm1.gyakoriChange(Sender: TObject);
begin
Timer1.Interval:=gyakori.Value
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Interval:=gyakori.Value;
bennido.interval:=tartam.value;
idozito.interval:=SpinEdit1.value;
elso:=true;
tolt;
if form1.autolekerd.Checked then
begin
timer1.Interval:=100;
timer1.enabled:=true;
button1.Enabled:=false; // Gombok aktiváltságának cseréje
button2.Enabled:=true;
statusz.Caption:='Lekérdezés alatt';
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
timer1.Enabled:=false;
button1.enabled:=true;
button2.Enabled:=false;
statusz.Caption:='Kikapcsolva';
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
keresett_szo1:='FULL'; //Alapérték, hogyha nem sikerül lekérni helyesen az adatokat, ne mutasson szabad helyet
timer1.Interval:=gyakori.Value;
szoveg := IDHTTP1.Get ( 'http://aq.battleon.com/build30/msg-GuardianMax1.asp' );
// szoveg := IDHTTP1.Get ( 'http://samsoft.uw.hu/msg-GuardianMax1.htm' ); // nincs szabad hely
// szoveg := IDHTTP1.Get ( 'http://samsoft.uw.hu/msg-GuardianMax2.htm' ); // van szabad hely
jel_1:='<font color="#FFFF33">'; //22 karakter
jel_2:='</font>';
keresett_szo1:=copy(szoveg,pos(jel_1,szoveg)+22,pos(jel_2, szoveg)-pos(jel_1,szoveg)-22);
if keresett_szo1='FULL' then
begin
jel_1:='All'; //3 karakter
jel_2:=' spots for free';
jel_3:='<br><b>'; //7 karakter
jel_4:=' Online Players (';
keresett_szo1:=copy(szoveg,pos(jel_1,szoveg)+3,pos(jel_2, szoveg)-pos(jel_1,szoveg)-3);
keresett_szo2:=copy(szoveg,pos(jel_3,szoveg)+7,pos(jel_4, szoveg)-pos(jel_3,szoveg)-7);
cucc.font.Color:=clRed;
cucc.Caption:=keresett_szo1+' szabad helyből '+keresett_szo2+' foglalt';
val(keresett_szo1,szam1,code);
val(keresett_szo2,szam2,code);
eredmeny:=szam1-szam2;
ertek.Value:=eredmeny;
ertek.Visible:=true;
end
else
begin
cucc.Font.Color:=clGreen;
cucc.Caption:='Van szabad hely!';
ertek.Visible:=false;
villog(true);
ablak.FormStyle:=fsStayOnTop;
button1.Enabled:=true;
button2.enabled:=false;
SystemParametersInfo(SPI_GETWORKAREA, 0, @WorkArea, 0);
ablak.Left := WorkArea.Right - 200;
ablak.Top := WorkArea.Bottom - 100;
ablak.Visible:=true;
ertesito.Enabled:=true;
MediaPlayer1.Play;
if (belepcheck.Checked=true) then
begin
elso:=true;
idozito.interval:=100;
idozito.Enabled:=true;
statusz.Caption:='Belépés folyamatban...';
end
else
begin
statusz.Caption:='Kikapcsolva';
if form1.autobongeszo.Checked then ShellExecute(handle,PChar('open'),PChar('http://aq.battleon.com/build30/game.asp'),NIL,NIL,0);
end;
timer1.Enabled:=false;
end;
end;
procedure TForm1.idozitoTimer(Sender: TObject);
begin
idozito.Interval:=spinedit1.Value;
if elso=true then
begin
Mouse.CursorPos := Point(x1.Value,y1.Value);
Mouse_Event(MOUSEEVENTF_LEFTDOWN, x1.Value, y1.Value, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTUP, x1.Value, y1.Value, 0, 0);
elso:=false;
end
else
begin
Mouse.CursorPos := Point(x2.Value,y2.Value);
Mouse_Event(MOUSEEVENTF_LEFTDOWN, x2.Value, y2.Value, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTUP, x2.Value, y2.Value, 0, 0);
elso:=true;
statusz.caption:='Belépés sikeres';
if benncheck.Checked=true then
begin
bennido.Enabled:=true;
statusz.Caption:='Kattintgatás folyamatban...';
start.enabled:=false;
stop.Enabled:=true;
end;
idozito.Enabled:=false;
end;
end;
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
idozito.Interval:=SpinEdit1.Value;
end;
procedure TForm1.bennidoTimer(Sender: TObject);
begin
start.enabled:=false;
stop.Enabled:=true;
bennido.Interval:=tartam.Value;
if elso=true then
begin
Mouse.CursorPos := Point(x3.Value,y3.Value);
Mouse_Event(MOUSEEVENTF_LEFTDOWN, x3.Value, y3.Value, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTUP, x3.Value, y3.Value, 0, 0);
elso:=false;
end
else
begin
Mouse.CursorPos := Point(x4.Value,y4.Value);
Mouse_Event(MOUSEEVENTF_LEFTDOWN, x4.Value, y4.Value, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTUP, x4.Value, y4.Value, 0, 0);
elso:=true;
end;
end;
procedure TForm1.stopClick(Sender: TObject);
begin
bennido.Enabled:=false;
if button1.Enabled=false
then statusz.Caption:='Lekérdezés alatt'
else statusz.caption:='Kikapcsolva';
stop.enabled:=false;
start.enabled:=true;
elso:=true;
end;
procedure TForm1.tartamChange(Sender: TObject);
begin
bennido.Interval:=tartam.Value;
end;
procedure TForm1.teszt1Click(Sender: TObject);
begin
Mouse.CursorPos := Point(x1.Value,y1.Value);
end;
procedure TForm1.teszt2Click(Sender: TObject);
begin
Mouse.CursorPos := Point(x2.Value,y2.Value);
end;
procedure TForm1.teszt3Click(Sender: TObject);
begin
Mouse.CursorPos := Point(x3.Value,y3.Value);
end;
procedure TForm1.teszt4Click(Sender: TObject);
begin
Mouse.CursorPos := Point(x4.Value,y4.Value);
end;
procedure TForm1.Kilps1Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.Ments1Click(Sender: TObject);
begin
assignfile(f,fajlnev);
rewrite(f);
writeln(f,x1.value);
writeln(f,y1.value);
writeln(f,x2.value);
writeln(f,y2.value);
writeln(f,x3.value);
writeln(f,y3.value);
writeln(f,x4.value);
writeln(f,y4.value);
writeln(f,gyakori.value);
writeln(f,SpinEdit1.value);
writeln(f,tartam.value);
if belepcheck.Checked then writeln(f,'1') else writeln(f,'0');
if benncheck.Checked then writeln(f,'1') else writeln(f,'0');
if Mindiglthat1.Checked then writeln(f,'1') else writeln(f,'0');
if Szlekheztapads1.Checked then writeln(f,'1') else writeln(f,'0');
if N01.Checked then writeln(f,'0');
if N101.Checked then writeln(f,'1');
if N201.Checked then writeln(f,'2');
if N301.Checked then writeln(f,'3');
if N401.Checked then writeln(f,'4');
if N501.Checked then writeln(f,'5');
if N601.Checked then writeln(f,'6');
if N701.Checked then writeln(f,'7');
if N801.Checked then writeln(f,'8');
if N901.Checked then writeln(f,'9');
if full.Checked then writeln(f,'1') else writeln(f,'0');
if form1.autobongeszo.Checked then writeln(f,'1') else writeln(f,'0');
if form1.autolekerd.Checked then writeln(f,'1') else writeln(f,'0');
writeln(f,form1.left);
writeln(f,form1.top);
writeln(f,form1.IdHTTP1.port);
haladoment;
closefile(f);
statusz.Caption:='Adatok elmentve';
end;
procedure TForm1.Betlts1Click(Sender: TObject);
begin
tolt;
end;
procedure TForm1.Nvjegy1Click(Sender: TObject);
begin
form2.visible:=true;
end;
procedure TForm1.startClick(Sender: TObject);
begin
bennido.Enabled:=true;
statusz.Caption:='Kattintgatás folyamatban...';
start.Enabled:=false;
stop.Enabled:=true;
end;
procedure TForm1.Segtsg1Click(Sender: TObject);
begin
ShellExecute(handle,PChar('open'),PChar('http://samsoft.uw.hu/404/index2.html'),NIL,NIL,0);
statusz.Caption:='Sajnálom, de nincs help...';
end;
procedure TForm1.ertekChange(Sender: TObject);
begin
if ertek.Value>0
then ertek.Font.Color:=clGreen
else ertek.Font.Color:=clRed;
end;
procedure TForm1.ertesitoTimer(Sender: TObject);
begin
ablak.Visible:=false;
ertesito.Enabled:=false;
MediaPlayer1.Stop;
if not form1.Mindiglthat1.Checked then form1.FormStyle:=fsNormal;
end;
procedure TForm1.Mindiglthat1Click(Sender: TObject);
begin
if Mindiglthat1.Checked=true then
begin
Mindiglthat1.Checked:=false;
form1.FormStyle:=fsNormal;
end
else
begin
Mindiglthat1.Checked:=true;
form1.FormStyle:=fsStayOnTop;
end;
end;
procedure TForm1.poz_szamitClick(Sender: TObject);
begin
x2.Value:=x1.Value+125;
y2.Value:=y1.Value-155;
x3.Value:=x1.Value+130;
y3.Value:=y1.Value-125;
x4.Value:=x1.Value-490;
y4.Value:=y1.Value-335;
end;
procedure TForm1.Alaphelyzet1Click(Sender: TObject);
begin
x1.Value:=770;
y1.Value:=525;
x2.Value:=895;
y2.Value:=370;
x3.Value:=900;
y3.Value:=400;
x4.Value:=280;
y4.Value:=190;
atlatszo_check(0);
form1.AlphaBlendValue:=255;
benncheck.Checked:=true;
belepcheck.Checked:=true;
if not kompakt.Enabled then elrejt(false);
autobongeszo.Checked:=false;
autolekerd.Checked:=false;
idhttp1.ProxyParams.BasicAuthentication:=false;
basic1.Checked:=false;
idhttp1.ProxyParams.ProxyPassword:='';
password1.Caption:='Password';
idhttp1.ProxyParams.ProxyPort:=0;
port1.Caption:='Port';
idhttp1.ProxyParams.ProxyServer:='';
server1.Caption:='Server';
idhttp1.ProxyParams.Proxyusername:='';
username1.Caption:='Username';
end;
procedure TForm1.Atlatszo(Sender: TObject);
begin
if Sender=N01 then
begin
N01.Checked:=true;
form1.AlphaBlendValue:=255;
// form1.AlphaBlend:=false;
end
else
begin
// if not form1.AlphaBlend then form1.AlphaBlend:=true;
if Sender=N101 then atlatszo_check(1);
if Sender=N201 then atlatszo_check(2);
if Sender=N301 then atlatszo_check(3);
if Sender=N401 then atlatszo_check(4);
if Sender=N501 then atlatszo_check(5);
if Sender=N601 then atlatszo_check(6);
if Sender=N701 then atlatszo_check(7);
if Sender=N801 then atlatszo_check(8);
if Sender=N901 then atlatszo_check(9);
end;
end;
procedure TForm1.Szlekheztapads1Click(Sender: TObject);
begin
if Szlekheztapads1.Checked=true then
begin
Szlekheztapads1.Checked:=false;
form1.ScreenSnap:=false;
end
else
begin
Szlekheztapads1.Checked:=true;
form1.ScreenSnap:=true;
end;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
// villog(false);
end;
procedure TForm1.kompaktClick(Sender: TObject);
begin
elrejt(true);
end;
procedure TForm1.fullClick(Sender: TObject);
begin
elrejt(false);
end;
procedure TForm1.portcsereClick(Sender: TObject);
var bevitel:string;
szam,kod:integer;
begin
bevitel:=inputbox('Port csere','Add meg azt a portot, amit a program használhat:','80');
val(bevitel,szam,kod);
if kod=0 then IdHTTP1.Port:=szam else showmessage('Hibás port!');
end;
procedure TForm1.focusClick(Sender: TObject);
begin
form1.ActiveControl:=form1.hozzaad;
end;
procedure TForm1.hozzaadClick(Sender: TObject);
var pont:Tpoint;
begin
pont:=mouse.CursorPos;
x1.Value:=pont.X;
y1.Value:=pont.Y;
end;
procedure TForm1.Basic1Click(Sender: TObject);
var melyik:boolean;
begin
melyik:=false;
if basic1.Checked then melyik:=true;
IdHTTP1.ProxyParams.BasicAuthentication:=melyik;
end;
procedure TForm1.Password1Click(Sender: TObject);
var szamol:integer;
csillag:string;
begin
csillag:='';
Idhttp1.ProxyParams.ProxyPassword:=inputbox('Proxy password','Add meg a proxy password-ot:','');
for szamol:=1 to length(Idhttp1.ProxyParams.ProxyPassword) do csillag:=csillag+'*';
password1.Caption:='Password: '+csillag;
end;
procedure TForm1.Port1Click(Sender: TObject);
var bevitel:string;
szam,kod:integer;
begin
bevitel:=inputbox('Proxy port','Add meg a proxy port-ot:','');
val(bevitel,szam,kod);
if kod=0 then
begin
IdHTTP1.ProxyParams.ProxyPort:=szam;
port1.Caption:='Port: '+bevitel;
end else showmessage('Hibás port!');
end;
procedure TForm1.Server1Click(Sender: TObject);
begin
Idhttp1.ProxyParams.ProxyServer:=inputbox('Proxy server','Add meg a proxy server-t:','');
Server1.Caption:='Server: '+Idhttp1.ProxyParams.ProxyServer;
end;
procedure TForm1.Username1Click(Sender: TObject);
begin
Idhttp1.ProxyParams.ProxyUsername:=inputbox('Proxy username','Add meg a proxy username-et:','');
Username1.Caption:='Username: '+Idhttp1.ProxyParams.ProxyUsername;
end;
end.
Untitled Delphi (21-Sep @ 22:20)
Syntax Highlighted Code
- unit Unit1;
- interface
- [1200 more lines...]
Plain Code
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, ExtCtrls, Spin, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, IdAntiFreezeBase,
IdAntiFreeze, XPMan, MPlayer, ShellAPI, Menus, Buttons;
type
TForm1 = class(TForm)
lapok: TPageControl;
tab1: TTabSheet;
tab3: TTabSheet;
tsb1: TScrollBox;
blapok: TPageControl;
btab1: TTabSheet;
btab3: TTabSheet;
akttimer: TTimer;
IdHTTP1: TIdHTTP;
status: TStatusBar;
IdAntiFreeze1: TIdAntiFreeze;
jelzeskezel: TTimer;
megy: TCheckBox;
btab2: TTabSheet;
Label1: TLabel;
Label2: TLabel;
bt1_keres1: TEdit;
bt1_alapm: TListBox;
bt1_nemfigyel: TButton;
bt1_figyel: TButton;
bt1_nemfigyelossz: TButton;
bt1_figyeltm: TListBox;
Button3: TButton;
bt1_alapa: TListBox;
bt1_figyelta: TListBox;
aktfigyelcb: TCheckBox;
Label4: TLabel;
Label3: TLabel;
XPManifest1: TXPManifest;
StaticText1: TStaticText;
keresmnev: TEdit;
StaticText2: TStaticText;
Label5: TLabel;
bt2_figyeltm: TListBox;
bt2_betesz: TButton;
bt2_kivesz: TButton;
bt2_figyel: TCheckBox;
bt2_osszki: TButton;
aktido: TSpinEdit;
Label6: TLabel;
jelzeskezel2: TTimer;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
autotolt: TCheckBox;
automent: TCheckBox;
fajlutvonal: TEdit;
toltmost: TButton;
mentmost: TButton;
hangcb: TCheckBox;
MediaPlayer1: TMediaPlayer;
mutimost: TButton;
nyelvvalt: TComboBox;
bt1_figyelossz: TButton;
Label10: TLabel;
Label11: TLabel;
bt2_valtozat: TLabel;
idoalert: TCheckBox;
Label12: TLabel;
elotteido: TSpinEdit;
fajlfigyel: TCheckBox;
Label13: TLabel;
idofigyel: TTimer;
Image1: TImage;
Label14: TLabel;
figyelsz: TListBox;
figyelsz2: TListBox;
PopupMenu1: TPopupMenu;
N21: TMenuItem;
N11: TMenuItem;
Elrejt1: TMenuItem;
TabSheet1: TTabSheet;
Memo1: TMemo;
MImegypp1: TMenuItem;
Label16: TLabel;
jeltartam: TSpinEdit;
BitBtn1: TBitBtn;
procedure FormResize(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure bt1_figyelClick(Sender: TObject);
procedure bt1_nemfigyelClick(Sender: TObject);
procedure aktidoChange(Sender: TObject);
procedure aktfigyelcbClick(Sender: TObject);
procedure akttimerTimer(Sender: TObject);
procedure jelzeskezelTimer(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure bt1_keres1Click(Sender: TObject);
procedure bt1_keres1Change(Sender: TObject);
procedure bt1_keres1KeyPress(Sender: TObject; var Key: Char);
procedure bt1_keres1Exit(Sender: TObject);
procedure keresmnevClick(Sender: TObject);
procedure keresmnevKeyPress(Sender: TObject; var Key: Char);
procedure bt2_beteszClick(Sender: TObject);
procedure bt2_kiveszClick(Sender: TObject);
procedure bt2_osszkiClick(Sender: TObject);
procedure bt1_nemfigyelosszClick(Sender: TObject);
procedure bt2_figyelClick(Sender: TObject);
procedure jelzeskezel2Timer(Sender: TObject);
procedure tallozClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure toltmostClick(Sender: TObject);
procedure mentmostClick(Sender: TObject);
procedure mutimostClick(Sender: TObject);
procedure nyelvvaltChange(Sender: TObject);
procedure bt1_figyelosszClick(Sender: TObject);
procedure Label10Click(Sender: TObject);
procedure Label11Click(Sender: TObject);
procedure bt2_valtozatClick(Sender: TObject);
procedure idofigyelTimer(Sender: TObject);
procedure WndProc(var Msg: TMessage); override;
procedure N11Click(Sender: TObject);
procedure N21Click(Sender: TObject);
procedure Elrejt1Click(Sender: TObject);
procedure MImegypp1Click(Sender: TObject);
procedure jeltartamChange(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
TrayIcon: TNotifyIconData;
{ Private declarations }
public
{ Public declarations }
end;
type ido=record
h,m,s,ms:word;
end;
const
_nx=250; //négyzet hossza
_ny=80; //négyzet magassága
_space=10; //négyzetek közötti hely
_maxado=91;//az adók maximuma
_wait='Kérlek várj...';
_download='Letöltés...';
_void='';
_valt='Változás';
_tart='Tartalmazás';
_end='--- vége ---';
_ido='Mindjárt műsor';
cmido = 'DateTime">';
cmhely = 'vChannel">';
cmnev = 'et=_blank>';
cveg = '<';
cbuff = 10;
var
Form1: TForm1;
p: array[1..91] of TPanel;
pc: integer; //Panelek száma
lkep:array[1..100] of TImage;
lnev,lmost,lkovi,lmosti,lkovii: array[1..100] of TLabel;
lnev_,lmost_,lkovi_,lmosti_,lkovii_: array[1..100] of string;
//ado neve, mostani műsor, következő műsor, ideje
valtozas,jelzett:array [1..100] of boolean;
x,y,xm:integer; //Panel táblázat változók
mostmlink,kovimlink,oldal:string;
jelzeshely,jelzesossz,jelzeshely2,jelzeshely22:integer; //jelzeshez
jelez1,jelez2,toltepp:boolean;
tartalmaz:array[0..100,0..100] of byte;
f:text;
f1,f2,f3:text;
kephat:Tpicture;
mikor:integer;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.WndProc(var Msg: TMessage);
var position : TPoint;
begin
case Msg.Msg of WM_USER + 1 : //az üzenet azonosítója
case Msg.LParam of
WM_RBUTTONDOWN : //kattintás az egér jobb gombjával
begin
GetCursorPos(position); //a kurzor pozíciója a kattintáskor
PopupMenu1.Popup(position.x,position.y); //a menü kinyitása
end;
WM_LBUTTONDBLCLK : //bal dupla-kattintßs
begin
//Show;
//Windows.ShowWindow(handle,SW_SHOWNORMAL);
//Windows.SetForegroundWindow(handle);
end;
WM_LBUTTONDOWN : //kattintßs az egér bal gombjával;
begin
form1.Visible:=true;
end;
end;
end;
inherited;
end;
function fajlhely(fajl:string):string;
var j:integer;
ki2:boolean;
begin
j:=length(fajl)-1;
ki2:=false;
repeat
if fajl[j]='\' then ki2:=true else dec(j);
until ki2 or (j=0);
fajlhely:=copy(fajl,1,j);
end;
function musorlink(mbe,tbe,bbe,honnan:integer):string;
var i,meddig:integer;
s:string;
m,t,b:string;
begin
m:=inttostr(mbe); //1: ha az aktuális műsor jelenik meg, 2: a soronkövetkező
t:=inttostr(tbe); //1: Megjelenik a műsor kategóriája is
b:=inttostr(bbe); //1: Megjelenik az időpont, a cím és a kategória közé sortörés kerül
s:='http://tv.animare.hu/ContentProvider.aspx?s=tvw&id=w1-h1-m'+m+'-c';
s:=s+form1.bt1_figyelta.items[0];
if (honnan+9)<=(form1.bt1_figyelta.Count-1) then meddig:=honnan+9 else meddig:=form1.bt1_figyelta.Count-1;
for i:=honnan to meddig do
begin
if form1.bt1_figyelta.items[i]<>'' then s:=s+','+form1.bt1_figyelta.items[i];
end;
s:=s+'-t'+t+'-b'+b+'-ytv.animare.hu/tvbox.css';
Result:=s;
end;
procedure tablazat(n:integer);
begin
if x<xm then inc(x) else
begin
x:=1;
inc(y);
end;
p[n].Left:=(x-1)*_nx+(x-1)*_space;
p[n].Top:=(y-1)*_ny+y*_space;
end;
procedure keszit(n:integer);
begin
p[n]:=Tpanel.Create(form1);
p[n].Parent:=form1.tsb1;
p[n].Width:=_nx;
p[n].Height:=_ny;
p[n].BevelOuter:=bvNone;
p[n].BorderWidth:=10;
lkep[n]:=TImage.Create(form1);
lkep[n].parent:=p[n];
lkep[n].Width:=_nx;
lkep[n].Height:=_ny;
lkep[n].Picture:=form1.Image1.Picture;
lkep[n].Transparent:=true;
lkep[n].Left:=0;
lkep[n].top:=0;
lnev[n]:=TLabel.Create(form1);
lnev[n].parent:=p[n];
lnev[n].Caption:=form1.bt1_figyeltm.items[n-1];
lnev[n].top:=5;
lnev[n].Left:=0;
lnev[n].Width:=_nx;
lnev[n].Alignment:=taCenter;
lmost[n]:=TLabel.Create(form1);
lmost[n].parent:=p[n];
lmost[n].Caption:='';
lmost[n].top:=40;
lmost[n].Left:=45;
// lmost[n].Font.Color:=clGreen;
lmost[n].Font.Style:=[fsbold];
lmosti[n]:=TLabel.Create(form1);
lmosti[n].parent:=p[n];
lmosti[n].Caption:='';
lmosti[n].top:=40;
lmosti[n].Left:=10;
// lmosti[n].Font.Color:=clGreen;
lmosti[n].Font.Style:=[fsbold];
lkovi[n]:=TLabel.Create(form1);
lkovi[n].parent:=p[n];
lkovi[n].Caption:='';
lkovi[n].top:=55;
lkovi[n].Left:=45;
lkovii[n]:=TLabel.Create(form1);
lkovii[n].parent:=p[n];
lkovii[n].Caption:='...';
lkovii[n].top:=55;
lkovii[n].Left:=10;
end;
procedure meretez;
var temp,i:integer;
begin
form1.lapok.Height:=form1.ClientHeight-34;
form1.tsb1.Height:=form1.lapok.Height-47;
form1.blapok.Height:=form1.lapok.Height-33;
// form1.btsb1.Height:=form1.lapok.Height-30;
form1.lapok.Width:=form1.ClientWidth-20;
form1.tsb1.width:=form1.lapok.width-8;
form1.blapok.width:=form1.lapok.width-8;
// form1.btsb1.width:=form1.lapok.width-18;
temp:=form1.tsb1.Width div (_nx+_space);
if temp<>xm then
begin
xm:=temp;
x:=0;
y:=1;
for i:=1 to pc do tablazat(i);
end;
end;
procedure szuro(melyik:string);
var i,j,k,hol:integer;
hossz:longint;
s,ido,hely,nev:string;
buffer:string[cbuff];
begin
s:=oldal;
hossz:=length(s);
i:=0;
ido:='';nev:='';hely:='';
repeat
inc(i);
buffer:=copy(s,i,cbuff);
if buffer=cmido then
begin
i:=i+cbuff;
j:=0;
repeat
inc(j);
buffer:=copy(s,i+j,cbuff);
until copy(buffer,1,1)=cveg;
ido:=copy(s,i,j);
i:=i+j;
end;
if buffer=cmhely then
begin
i:=i+cbuff;
j:=0;
repeat
inc(j);
buffer:=copy(s,i+j,cbuff);
until copy(buffer,1,1)=cveg;
hely:=copy(s,i,j);
i:=i+j;
end;
if buffer=cmnev then
begin
i:=i+cbuff;
j:=0;
repeat
inc(j);
buffer:=copy(s,i+j,cbuff);
until copy(buffer,1,1)=cveg;
nev:=copy(s,i,j);
i:=i+j;
end;
if nev<>'' then
begin
k:=-1;hol:=0;
// if ki then begin
repeat
inc(k);
if hely=form1.bt1_figyeltm.items[k] then hol:=k+1;
until (hol<>0) or (k=(form1.bt1_figyeltm.Count-1));
if melyik='most' then
begin
lmost[hol].Caption:=nev;
lmosti[hol].Caption:=ido;
end else // melyik='kovi'
begin
lkovi[hol].Caption:=nev;
lkovii[hol].Caption:=ido;
end;
// end;
nev:='';ido:='';hely:='';
end;
until i=hossz-10;
end;
procedure szabad(n:integer);
begin
// lnev[n].Free;
// p[n].Free;
end;
procedure aktszabad;
var i:integer;
begin
if pc>0 then
begin
for i:=1 to pc do p[i].Free;;
pc:=0;x:=0;y:=1;xm:=0;meretez;
end;
end;
procedure akttolt;
var i,j,cucc:integer;
fajl:text;
s:string;
begin
if form1.bt1_figyelta.Count>0 then
if not toltepp then
begin
toltepp:=true;
aktszabad;
form1.status.SimpleText:=_wait;
form1.tsb1.Visible:=false;
for i:=1 to form1.bt1_figyelta.Count do
begin
keszit(i);
tablazat(i);
end;
form1.tsb1.Visible:=true;
pc:=form1.bt1_figyelta.Count;
form1.Refresh;
for i:=1 to (form1.bt1_figyelta.Count div 10)+1 do
begin
cucc:=(i-1)*10;
form1.status.SimpleText:=_download+inttostr( ((i-1)*1000) div form1.bt1_figyelta.Count )+'%';
if not form1.fajlfigyel.checked then
begin
oldal:=form1.IDHTTP1.Get(musorlink(1,1,1,cucc));
form1.idhttp1.Disconnect;
oldal:=UTF8toANSI(oldal);
szuro('most');
end else
begin
assign(fajl,fajlhely(application.exename)+'teszt\alap1most.aspx');
reset(fajl);
for j:=1 to 4 do
begin
lnev[j].Caption:=form1.bt1_figyeltm.items[j-1];
readln(fajl,s);
lmosti[j].Caption:=UTF8toANSI(s);
readln(fajl,s);
readln(fajl,s);
lmost[j].Caption:=UTF8toANSI(s);
end;
close(fajl);
end;
form1.Refresh;
if not form1.fajlfigyel.checked then
begin
oldal:=form1.IDHTTP1.Get(musorlink(2,1,1,cucc));
form1.idhttp1.Disconnect;
oldal:=UTF8toANSI(oldal);
szuro('kovi');
end else
begin
assign(fajl,fajlhely(application.exename)+'teszt\alap2most.aspx');
reset(fajl);
for j:=1 to 4 do
begin
lnev[j].Caption:=form1.bt1_figyeltm.items[j-1];
readln(fajl,s);
lkovii[j].Caption:=UTF8toANSI(s);
readln(fajl,s);
readln(fajl,s);
lkovi[j].Caption:=UTF8toANSI(s);
end;
close(fajl);
end;
form1.Refresh;
end;
toltepp:=false;
form1.status.SimpleText:=_void;
end;
end;
procedure eltesz;
var i:integer;
begin
for i:=1 to form1.bt1_figyelta.Count do
begin
lnev_[i]:=lnev[i].caption;
lmost_[i]:=lmost[i].caption;
lkovi_[i]:=lkovi[i].caption;
lmosti_[i]:=lmosti[i].caption;
lkovii_[i]:=lkovii[i].caption;
end;
end;
function hasonlit(hogyan:string):boolean;
var i:integer;
van:boolean;
begin
jelzesossz:=0;
hasonlit:=false;
if hogyan=_valt then
begin
for i:=1 to form1.bt1_figyelta.Count do
begin
van:=false;
// valtozas[i]:=false;
if lnev_[i]<>lnev[i].caption then van:=true;
if lmost_[i]<>lmost[i].caption then van:=true;
if lkovi_[i]<>lkovi[i].caption then van:=true;
if lmosti_[i]<>lmosti[i].caption then van:=true;
if lkovii_[i]<>lkovii[i].caption then van:=true;
if van then begin
valtozas[i]:=true;
hasonlit:=true;
inc(jelzesossz);
end;
end;
end;
end;
function tartproc:boolean;
var i,j,hol,mennyi:integer;
van:boolean;
begin
mennyi:=0;
for i:=0 to 100 do for j:=0 to 100 do tartalmaz[i,j]:=0;
tartalmaz[0,0]:=form1.bt2_figyeltm.Count;
for i:=0 to tartalmaz[0,0]-1 do
begin
hol:=1;
for j:=0 to form1.bt1_figyeltm.Count do
begin
if valtozas[j] then jelzett[j]:=false;
van:=false;
if Pos(lowercase(form1.bt2_figyeltm.Items[i]),
lowercase(lmost[j].Caption))<>0 then van:=true;
if Pos(lowercase(form1.bt2_figyeltm.Items[i]),
lowercase(lkovi[j].Caption))<>0 then van:=true;
if van and (not jelzett[j]) then
begin
tartalmaz[i+1,hol]:=j;
jelzett[j]:=true;
inc(hol);
inc(mennyi);
if Pos(lowercase(form1.bt2_figyeltm.Items[i]),
lowercase(lkovi[j].Caption))<>0 then begin
form1.figyelsz.Items.Add(inttostr(j));
form1.figyelsz2.items.Add(inttostr(strtoint(copy(lkovii[j].Caption,1,2))*60+strtoint(copy(lkovii[j].Caption,pos(':',lkovii[j].Caption)+1,2))));
end;
end;
end;
end;
if mennyi>0 then tartproc:=true else tartproc:=false;
end;
procedure jelez(hol:integer;hogyan:string);
var s1,s2,s3:string;
begin
if form1.hangcb.Checked then form1.mediaplayer1.Play;
form1.megy.checked:=true;
if hogyan=_valt then
begin
form2.holjar.Visible:=false;
form2.holjar.Caption:=inttostr(jelzeshely)+'/'+inttostr(jelzesossz);
form2.lnev.caption:='Új műsor ('+lnev[hol].caption+')';
form2.lmost.caption:=lmost[hol].caption;
form2.lkovi.caption:=lkovi[hol].caption;
form2.lmosti.caption:=lmosti[hol].caption;
form2.lkovii.caption:=lkovii[hol].caption;
form2.Timer1.Enabled:=true;
valtozas[hol]:=false;
end;
if hogyan=_tart then
begin
if Pos(lowercase(form1.bt2_figyeltm.Items[jelzeshely2-1]),
lowercase(lkovi[tartalmaz[jelzeshely2,jelzeshely22]].caption))<>0
then begin
s1:='A figyelt műsor nemsokára kezdődik!';
s2:=lkovii[tartalmaz[jelzeshely2,jelzeshely22]].caption;
s3:=lkovi[tartalmaz[jelzeshely2,jelzeshely22]].caption;
if lowercase(form1.bt2_figyeltm.Items[jelzeshely2-1])<>
lowercase(lkovi[tartalmaz[jelzeshely2,jelzeshely22]].caption) then
begin
form2.szabaly.Caption:='Keresendő műsornév változtatása erre: "'+
lkovi[tartalmaz[jelzeshely2,jelzeshely22]].caption+'"';
form2.szabaly.visible:=true;
end;
end;
if Pos(lowercase(form1.bt2_figyeltm.Items[jelzeshely2-1]),
lowercase(lmost[tartalmaz[jelzeshely2,jelzeshely22]].caption))<>0
then begin
s1:='A figyelt műsor elkezdődött!';
s2:=lmosti[tartalmaz[jelzeshely2,jelzeshely22]].caption;
s3:=lmost[tartalmaz[jelzeshely2,jelzeshely22]].caption;
if lowercase(form1.bt2_figyeltm.Items[jelzeshely2-1])<>
lowercase(lmost[tartalmaz[jelzeshely2,jelzeshely22]].caption) then
begin
form2.szabaly.Caption:='Keresendő műsornév változtatása erre: "'+
lmost[tartalmaz[jelzeshely2,jelzeshely22]].caption+'"';
form2.szabaly.visible:=true;
end;
end;
form2.holjar.Visible:=false;
form2.lnev.caption:=lnev[tartalmaz[jelzeshely2,jelzeshely22]].caption;
form2.lmost.caption:='';
form2.lkovi.caption:=s3;
form2.lmosti.caption:=s1;
form2.lkovii.caption:=s2;
form2.Timer1.Enabled:=true;
end;
if hogyan=_ido then
begin
form2.SpeedButton2.Visible:=false;
form2.holjar.Visible:=false;
form2.lnev.caption:=lnev[strtoint(form1.figyelsz.items[hol])].caption;
form2.lmost.caption:='';
form2.lkovi.caption:=lkovi[strtoint(form1.figyelsz.items[hol])].caption;
form2.lmosti.caption:='A figyelt műsor '+inttostr(mikor)+' perc múlva kezdődik!';
form2.lkovii.caption:=lkovii[strtoint(form1.figyelsz.items[hol])].caption;
form2.Timer1.Enabled:=true;
form1.figyelsz.Items.Delete(hol);
form1.figyelsz2.Items.Delete(hol);
end;
end;
procedure ment;
var i:integer;
begin
Assignfile(f,form1.fajlutvonal.Text);
rewrite(f);
writeln(f,'.,-^ Műsorújság beállítások ^-,.');
writeln(f);
writeln(f,'Beállítások automatikus betöltése:');
if form1.autotolt.Checked then writeln(f,1) else writeln(f,0);
writeln(f,'Figyelt csatornák:');
for i:=0 to form1.bt1_figyelta.count-1 do
writeln(f,form1.bt1_figyelta.items[i]);
writeln(f,_end);
writeln(f,'Csatornák figyelése:');
if form1.aktfigyelcb.Checked then writeln(f,1) else writeln(f,0);
writeln(f,'Figyelt műsorok:');
for i:=0 to form1.bt2_figyeltm.count-1 do
writeln(f,form1.bt2_figyeltm.items[i]);
writeln(f,_end);
writeln(f,'Műsorok figyelése:');
if form1.bt2_figyel.Checked then writeln(f,1) else writeln(f,0);
writeln(f,'Lekérdezések gyakorisága:');
writeln(f,form1.aktido.value);
writeln(f,'Beállítások automatikus mentése:');
if form1.automent.Checked then writeln(f,1) else writeln(f,0);
writeln(f,'Hang lejátszása a jelzőablak felnyílásakor:');
if form1.hangcb.Checked then writeln(f,1) else writeln(f,0);
writeln(f,'Csatornák nyelve:');
writeln(f,form1.nyelvvalt.itemindex);
writeln(f,'Figyelmeztetés a figyelt műsor előtt x perccel:');
writeln(f,form1.elotteido.value);
writeln(f,'Figyelmeztetés a figyelt műsor előtt:');
if form1.idoalert.Checked then writeln(f,1) else writeln(f,0);
writeln(f,'Jelzés hossza:');
writeln(f,form1.jeltartam.value);
writeln(f);
writeln(f,uppercase(_end));
closefile(f);
end;
procedure ures;
var s:string;
begin
readln(f,s);
end;
procedure tolt(start:boolean);
var i:integer;
s:string;
begin
if FileExists(form1.fajlutvonal.Text) then
begin
Assignfile(f,form1.fajlutvonal.Text);
reset(f);
for i:=1 to 3 do ures;
readln(f,s);
if not(start and (strtoint(s)<>1)) then
begin
if strtoint(s)=1 then form1.autotolt.Checked:=true
else form1.autotolt.Checked:=false;
ures;
readln(f,s);
while s<>_end do
begin
form1.bt1_figyelta.Items.Add(s);
i:=0;
while form1.bt1_alapa.Items[i]<>s do inc(i);
form1.bt1_figyeltm.Items.Add(form1.bt1_alapm.items[i]);
readln(f,s);
end;
ures;
readln(f,s);
if strtoint(s)=1 then form1.aktfigyelcb.Checked:=true
else form1.aktfigyelcb.Checked:=false;
ures;
readln(f,s);
while s<>_end do
begin
form1.bt2_figyeltm.Items.Add(s);
readln(f,s);
end;
ures;
readln(f,s);
if strtoint(s)=1 then form1.bt2_figyel.Checked:=true
else form1.bt2_figyel.Checked:=false;
ures;
readln(f,s);
form1.aktido.Value:=strtoint(s);
ures;
readln(f,s);
if strtoint(s)=1 then form1.automent.Checked:=true
else form1.automent.Checked:=false;
ures;
readln(f,s);
if strtoint(s)=1 then form1.hangcb.Checked:=true
else form1.hangcb.Checked:=false;
ures;
readln(f,s);
form1.nyelvvalt.ItemIndex:=strtoint(s);
form1.nyelvvaltChange(form1);
ures;
readln(f,s);
form1.elotteido.value:=strtoint(s);
ures;
readln(f,s);
if strtoint(s)=1 then form1.idoalert.Checked:=true
else form1.idoalert.Checked:=false;
ures;
readln(f,s);
form1.jeltartam.value:=strtoint(s);
ures;
end;
close(f);
end;
end;
procedure TForm1.FormResize(Sender: TObject);
begin
meretez;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
akttolt;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
aktszabad;
end;
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
with TrayIcon do
begin
cbSize := SizeOf(TrayIcon);
Wnd := Handle;
uId := 100;
uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE;
uCallBackMessage := WM_USER + 1;
hIcon := Application.Icon.Handle;
szTip := 'Musorujság';
end;
Shell_NotifyIcon(NIM_ADD, @TrayIcon);
for i:=1 to 100 do jelzett[i]:=false;
pc:=0;x:=0;y:=1;xm:=0;
meretez;
jelez1:=false;
jelez2:=false;
toltepp:=false;
fajlutvonal.text:=fajlhely(application.ExeName)+'sys\config.dat';
tolt(true);
end;
procedure TForm1.bt1_figyelClick(Sender: TObject);
var i:integer;
begin
if bt1_alapm.SelCount>0 then
for i:=0 to bt1_alapm.Count-1 do
if bt1_alapm.Selected[i] then
begin
bt1_figyeltm.Items.Add(bt1_alapm.items[i]);
bt1_figyelta.Items.Add(bt1_alapa.items[i]);
end;
end;
procedure TForm1.bt1_nemfigyelClick(Sender: TObject);
var i:integer;
begin
if bt1_figyeltm.SelCount>0 then
for i:=bt1_figyeltm.Count-1 downto 0 do //a kitörlés miatti sorszámváltozás miatt downto
if bt1_figyeltm.Selected[i] then
begin
bt1_figyeltm.Selected[i]:=false;
bt1_figyeltm.Items.Delete(i);
bt1_figyelta.Items.Delete(i);
end;
end;
procedure TForm1.aktidoChange(Sender: TObject);
begin
akttimer.Interval:=aktido.Value*1000;
end;
procedure TForm1.aktfigyelcbClick(Sender: TObject);
begin
akttimer.Interval:=50;
akttimer.Enabled:=aktfigyelcb.Checked;
if aktfigyelcb.Checked then
if not akttimer.Enabled then akttimer.Enabled:=true;
if not aktfigyelcb.Checked then
if not bt2_figyel.Checked then akttimer.Enabled:=false;
end;
procedure TForm1.akttimerTimer(Sender: TObject);
var cucc:boolean;
begin
akttimer.Interval:=aktido.value*1000;
eltesz;
akttolt;
cucc:=hasonlit(_valt);
if bt2_figyel.Checked then if tartproc then
begin
jelzeskezel2.Enabled:=true;
jelez2:=true;
jelzeshely2:=1;
jelzeshely22:=1;
end;
if aktfigyelcb.checked then if cucc then
begin
jelzeshely:=1;
form1.jelzeskezel.enabled:=true;
akttimer.Enabled:=false;
end;
end;
procedure TForm1.jelzeskezelTimer(Sender: TObject);
begin
if not jelez2 then
begin
jelez1:=true;
if aktfigyelcb.checked then
begin
if jelzeshely>bt1_figyeltm.Count then
begin
jelez1:=false;
akttimer.Enabled:=true;
jelzeskezel.Enabled:=false;
end;
if valtozas[jelzeshely] then
if not megy.checked then
begin
jelez(jelzeshely,_valt);
inc(jelzeshely);
end;
end;
end;
end;
procedure TForm1.jelzeskezel2Timer(Sender: TObject);
var i,j:integer;
begin
if (not jelez1) and (not megy.checked) then
begin
jelez2:=true;
if bt2_figyel.Checked then
begin
if jelzeshely2>bt2_figyeltm.Count+1 then
begin
jelez2:=false;
akttimer.Enabled:=true;
for i:=0 to 100 do for j:=0 to 100 do tartalmaz[i,j]:=0;
jelzeskezel2.Enabled:=false;
end;
if tartalmaz[jelzeshely2,jelzeshely22]=0 then
begin
jelzeshely22:=1;
inc(jelzeshely2);
end;
if (tartalmaz[jelzeshely2,jelzeshely22]<>0) and not megy.Checked then
begin
jelez(0,_tart);
inc(jelzeshely22);
end;
end;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
form2.Timer1.enabled:=true;
end;
procedure TForm1.bt1_keres1Click(Sender: TObject);
begin
if bt1_keres1.Text='Itt kereshetsz...' then bt1_keres1.text:=''
end;
procedure TForm1.bt1_keres1Change(Sender: TObject);
var i,j:integer;
s1,s2:string;
ki:boolean;
begin
i:=0;
ki:=false;
repeat
s1:=lowercase(copy(bt1_alapm.Items[i],1,length(bt1_keres1.text)));
s2:=lowercase(copy(bt1_keres1.Text,1,length(bt1_keres1.text)));
if s1<>'' then if s1=s2 then
begin
for j:=0 to bt1_alapm.Count-1 do bt1_alapm.Selected[j]:=false;
ki:=true;
bt1_alapm.Selected[i]:=true;
end;
inc(i);
until ki or (i=bt1_alapm.Count);
end;
procedure TForm1.bt1_keres1KeyPress(Sender: TObject; var Key: Char);
var i:integer;
begin
case ord(Key) of
13:begin
if bt1_alapm.SelCount>0 then
for i:=0 to bt1_alapm.Count-1 do
if bt1_alapm.Selected[i] then
begin
bt1_figyeltm.Items.Add(bt1_alapm.items[i]);
bt1_figyelta.Items.Add(bt1_alapa.items[i]);
end;
bt1_keres1.Text:='';
end;
end;
end;
procedure TForm1.bt1_keres1Exit(Sender: TObject);
begin
bt1_alapm.SetFocus;
end;
procedure TForm1.keresmnevClick(Sender: TObject);
begin
if keresmnev.text='Műsor neve...' then keresmnev.text:='';
end;
procedure TForm1.keresmnevKeyPress(Sender: TObject; var Key: Char);
begin
case ord(Key) of
13:begin
bt2_figyeltm.Items.Add(keresmnev.Text);
keresmnev.Text:='';
end;
end;
end;
procedure TForm1.bt2_beteszClick(Sender: TObject);
begin
bt2_figyeltm.Items.Add(keresmnev.Text);
end;
procedure TForm1.bt2_kiveszClick(Sender: TObject);
var i:integer;
begin
if bt2_figyeltm.SelCount>0 then
for i:=bt2_figyeltm.Count-1 downto 0 do //a kitörlés miatti sorszámváltozás miatt downto
if bt2_figyeltm.Selected[i] then
begin
bt2_figyeltm.Selected[i]:=false;
bt2_figyeltm.Items.Delete(i);
end;
end;
procedure TForm1.bt2_osszkiClick(Sender: TObject);
var i:integer;
begin
// if bt2_figyeltm.SelCount>0 then
for i:=bt2_figyeltm.Count-1 downto 0 do //a kitörlés miatti sorszámváltozás miatt downto
// if bt2_figyeltm.Selected[i] then
begin
bt2_figyeltm.Selected[i]:=false;
bt2_figyeltm.Items.Delete(i);
end;
end;
procedure TForm1.bt1_nemfigyelosszClick(Sender: TObject);
var i:integer;
begin
// if bt1_figyeltm.SelCount>0 then
for i:=bt1_figyeltm.Count-1 downto 0 do //a kitörlés miatti sorszámváltozás miatt downto
// if bt1_figyeltm.Selected[i] then
begin
bt1_figyeltm.Selected[i]:=false;
bt1_figyeltm.Items.Delete(i);
bt1_figyelta.Items.Delete(i);
end;
end;
procedure TForm1.bt2_figyelClick(Sender: TObject);
begin
akttimer.Interval:=50;
if bt2_figyel.Checked then
if not akttimer.Enabled then akttimer.Enabled:=true;
if not bt2_figyel.Checked then
if not aktfigyelcb.Checked then akttimer.Enabled:=false;
end;
procedure TForm1.tallozClick(Sender: TObject);
begin
//if PromptForFileName(nev2,'','','Futtatható fájl megnyitása...','',False)
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Shell_NotifyIcon(NIM_DELETE, @TrayIcon);
if automent.Checked then ment;
end;
procedure TForm1.toltmostClick(Sender: TObject);
begin
tolt(false);
end;
procedure TForm1.mentmostClick(Sender: TObject);
begin
ment;
end;
procedure TForm1.mutimostClick(Sender: TObject);
begin
tab1.Show;
akttolt;
end;
procedure TForm1.nyelvvaltChange(Sender: TObject);
var i:integer;
s1,s2,s3:string;
begin
if fileexists(fajlhely(application.ExeName)+'sys\nyelvek.dat') and
fileexists(fajlhely(application.ExeName)+'sys\adok.dat') and
fileexists(fajlhely(application.ExeName)+'sys\adok2.dat') then
begin
form1.bt1_alapm.Clear;
form1.bt1_alapa.Clear;
assignfile(f1,fajlhely(application.ExeName)+'sys\nyelvek.dat');
assignfile(f2,fajlhely(application.ExeName)+'sys\adok.dat');
assignfile(f3,fajlhely(application.ExeName)+'sys\adok2.dat');
reset(f1);reset(f2);reset(f3);
for i:=1 to 91 do
begin
readln(f1,s1);readln(f2,s2);readln(f3,s3);
if nyelvvalt.text=nyelvvalt.Items[1] then
if strtoint(s1)=1 then
begin
form1.bt1_alapm.Items.Add(s2);
form1.bt1_alapa.Items.Add(s3);
end;
if nyelvvalt.Text<>nyelvvalt.Items[1] then
begin
form1.bt1_alapm.Items.Add(s2);
form1.bt1_alapa.Items.Add(s3);
end;
end;
closefile(f1);closefile(f2);closefile(f3);
end else
begin
nyelvvalt.ItemIndex:=0;
end;
end;
procedure TForm1.bt1_figyelosszClick(Sender: TObject);
var i:integer;
begin
for i:=0 to bt1_alapm.Count-1 do
begin
bt1_figyeltm.Items.Add(bt1_alapm.Items[i]);
bt1_figyelta.Items.Add(bt1_alapa.Items[i]);
end;
end;
procedure TForm1.Label10Click(Sender: TObject);
begin
tab3.Show;
btab1.Show;
end;
procedure TForm1.Label11Click(Sender: TObject);
begin
tab1.Show;
end;
procedure TForm1.bt2_valtozatClick(Sender: TObject);
begin
if Pos(lowercase(form1.bt2_figyeltm.Items[jelzeshely2-1]),
lowercase(lkovi[tartalmaz[jelzeshely2,jelzeshely22-1]].caption))<>0
then form1.bt2_figyeltm.Items[jelzeshely2-1]:=lkovi[tartalmaz[jelzeshely2,jelzeshely22-1]].caption;
if Pos(lowercase(form1.bt2_figyeltm.Items[jelzeshely2-1]),
lowercase(lmost[tartalmaz[jelzeshely2,jelzeshely22-1]].caption))<>0
then form1.bt2_figyeltm.Items[jelzeshely2-1]:=lmost[tartalmaz[jelzeshely2,jelzeshely22-1]].caption;
end;
procedure TForm1.idofigyelTimer(Sender: TObject);
var t1:ido;
p1:word;
i:integer;
begin
decodetime(gettime(),t1.h,t1.m,t1.s,t1.ms);
p1:=t1.h*60+t1.m;
if (figyelsz.Count>0) and (idoalert.checked) then
for i:=0 to figyelsz.Count-1 do
if p1>=(strtoint(figyelsz2.Items[i])-elotteido.Value) then
if not megy.Checked then
begin
mikor:=strtoint(figyelsz2.Items[i])-p1;
jelez(i,_ido);
end;
end;
procedure TForm1.N11Click(Sender: TObject);
begin
// Application.Restore;
// Form1.Show;
form1.Visible:=true;
Windows.ShowWindow(handle,SW_SHOWNORMAL);
Windows.SetForegroundWindow(handle);
//Show;
end;
procedure TForm1.N21Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.Elrejt1Click(Sender: TObject);
begin
form1.visible:=false;
end;
procedure TForm1.MImegypp1Click(Sender: TObject);
var i:integer;
begin
for i:=1 to form1.bt1_figyelta.Count do valtozas[i]:=true;
jelzeshely:=1;
form1.jelzeskezel.enabled:=true;
akttimer.Enabled:=false;
end;
procedure TForm1.jeltartamChange(Sender: TObject);
begin
form2.Timer2.Interval:=jeltartam.Value*1000;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if form1.bt1_figyeltm.Count>0 then akttolt;
end;
end.
Untitled Delphi (1-Aug @ 10:22)
Syntax Highlighted Code
- procedure test;
- begin
- showmessage('abc');
- end;
Plain Code
procedure test;
begin
showmessage('abc');
end;Untitled Delphi (2-Jul @ 11:22)
Syntax Highlighted Code
- for i = 1 to 100
- print i
Plain Code
for i = 1 to 100
print i
Untitled Delphi (8-Jun @ 15:08)
Syntax Highlighted Code
- program Bla;
- begin
- end;
Plain Code
program Bla;
begin
end;