Jump to content
xisto Community

zachtk8702

Members
  • Content Count

    85
  • Joined

  • Last visited

1 Follower

About zachtk8702

  • Rank
    Member [Level 2]

Contact Methods

  • Website URL
    http://
  1. Hey looks great. If someoen is just learning PHP i asusme theyre not familiar with MYSQL alreayd so maybe add something about putting tables in a database........ Maybe a php script would be easiest for them. Just an Idea.
  2. Moderator Note: The following message may offend some people Before I get going I am going to say that I am not racist. I have friends that are Korean, Black, Canadian and Hispanic. Yes my school has quite a few minorities. But you know what. I myself am getting tired of seeing on the news that the unemployment . The Unemployment rate dropped from Deceber to January........ Yet in 2004 we added 2.2 MILLION jobs. Now I believe that immigrants have something to do with this number. I know that within the last several years I have noticed an increase in mexicans here in the US, Or at least in my area. Im in northern arkansas, and Ive seen that the closer you move toward the border the worse it gets. Now, how many of them just have visas to come here and work? Well, I believe that they should have the right to come here and work to provide a better life for themselves, but when you have 5% of americans which may not seem like a lot but IT IS MANY MANY AMERICAN CITIZENS. Are currently unemployed and many living in poverty and not being able to pay their bills, something is wrong. We shoudl restrict and cut the percentage of people that we allow into our country. We should tighten border control so that the illlegal problem isnt as bad. I have heard many people blame the economy problem on the 9/11 attacks of 2001, or the War in iraq......... Well, 9/11 may have slowed the economy but after 4 years things should come back....And the war, should help the employment rate increase. So, Does anyone agree with me that our neighbors in the south may have some effect on our economy today?
  3. Oh hell no, you done did it now....... I love playing my video games.. There is a new technology thats a few years old called XBOX LIVE. Wehere I can play online with my friends, join clans, blow people up and even join a voice chat room.... I play online with my friends every night and you know what I feel every second is worth it. I have met people in my area that I play with, met people at school I didnt know, that I ran into online. And you know what I enjoy best.......... Boobs, the guy game which is immature and against morals (not mine!) but I get to play this trivia game, learn some things and get to see boobs at the end of the round. So you go read your novels and run a marathon, Imma sit here get fat and eat and all day.
  4. I believe thats the most redicuas thing in the world........Of course we landed on the moon. How would we beable to keep that under wraps until the last few years? Also, If we didnt why would nasa have launched all the follow up missions? Shoot guys into space repeditively and spend billions to cover up a story.......... I doubt it.
  5. Did you guys see the woman judge get mad at simon last night. It was awesome..... I think those guys were better than some of the other guys that got to go past, but they werent that great.... LoL that big guy with his little teddy bear, he got kicked off, I thought he had a decent voice.
  6. Hey guys if any of you play XBOX LIVE i would love to play wit you on halo2. I ususally am on everyafternoon............ You can send me an invite to XxZachtk8702xX. Im not that great, but I can hold my own, im a level 12......
  7. Cpanel has tons of images to load, That whole panel is nothing but a ton of images, that possibly is what is causing this?
  8. Lol, I think opaque is a mature person, so he considers what you immature people may not consider to be spam....... Just an idea? But back to the topic, Of course Xisto is a great thing. I was paying up to eighty dollars a year for hosting until I found Xisto. Also Xisto offers some better stuff than a majority of paid hosting packages. Free MYSQL with UNLIMITED databases, Thats awesome, plus unlimited emails and such.
  9. Im a christian, not hardcore at all, I hardly even go to church, but I believe the beliefs......... Also im not sure what lent is I assume that is a jewish or catholic tradition. I know yesterday was the new year of the rooster in china Thats about it....... Not trying to make fun.
  10. I lost my twelve thousand so Now i ONLy have 10.........................
  11. This example will "minimize" your program to the system tray when you click on a button, and restore it when you click the system tray icon. For this example you'll need: 1 Form - Form1 1 button - Command1 Add a Module to your project, and ad this code: ' Create an Icon in System Tray NeedsPublic Type NOTIFYICONDATAcbSize As Longhwnd As LonguId As LonguFlags As LonguCallBackMessage As LonghIcon As LongszTip As String * 64End TypePublic Const NIM_ADD = &H0Public Const NIM_MODIFY = &H1Public Const NIM_DELETE = &H2Public Const WM_MOUSEMOVE = &H200Public Const NIF_MESSAGE = &H1Public Const NIF_ICON = &H2Public Const NIF_TIP = &H4Public Const WM_LBUTTONDBLCLK = &H203 'Double-clickPublic Const WM_LBUTTONDOWN = &H201 'Button downPublic Const WM_LBUTTONUP = &H202 'Button upPublic Const WM_RBUTTONDBLCLK = &H206 'Double-clickPublic Const WM_RBUTTONDOWN = &H204 'Button downPublic Const WM_RBUTTONUP = &H205 'Button upPublic Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As BooleanNow at Form1 add this: Code:Dim nid As NOTIFYICONDATA ' trayicon variable'----------------------'--- command1 click ---'----------------------Private Sub Command1_Click()minimize_to_trayEnd Sub'------------------------'--- create tray icon ---'------------------------Sub minimize_to_tray()Me.Hidenid.cbSize = Len(nid)nid.hwnd = Me.hwndnid.uId = vbNullnid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGEnid.uCallBackMessage = WM_MOUSEMOVEnid.hIcon = Me.Icon ' the icon will be your Form1 project iconnid.szTip = "blablabla text u want to show when mouse over tray iicon" & vbNullCharShell_NotifyIcon NIM_ADD, nidEnd Sub'---------------------------------------------------'-- Tray icon actions when mouse click on it, etc --'---------------------------------------------------Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)Dim msg As LongDim sFilter As Stringmsg = x / Screen.TwipsPerPixelXSelect Case msgCase WM_LBUTTONDOWNMe.Show ' show formShell_NotifyIcon NIM_DELETE, nid ' del tray iconCase WM_LBUTTONUPCase WM_LBUTTONDBLCLKCase WM_RBUTTONDOWNCase WM_RBUTTONUPMe.ShowShell_NotifyIcon NIM_DELETE, nidCase WM_RBUTTONDBLCLKEnd SelectEnd Sub'------------------------------'--- form Actions On unload ---'------------------------------Private Sub Form_Unload(Cancel As Integer)Shell_NotifyIcon NIM_DELETE, nid ' del tray iconend Sub Instead of restore it when you click the tray icon, you can make it show a popup with some actions: maximize/close//about//etc!
  12. LoL, Well what exactly does that leave me to help you with?? Want me to just make the app for ya and have i FedExed? lol jk
  13. looking for a clan on halo2 .......send me invite XxZachtk8702xXIm about a level 13 in team slayer..........Ive been slacking was a 15
  14. I didnt, I posted a couple different ones I did back in the summer..... I even found one or two on delphi I thought I had deleted
  15. I've spent a while trying to create parsing function with Delphi. This language is very useful.This tutorial explains how to parse multiple instances of an item in one string. Here is the function (which I am actually very proud of):Code:function TForm1.MultiParse(MainString, BeginString, EndString: string): TStrings;var PosBeginString, PosEndString, i, LastPos: integer; tmpCopy: string; tmpStrings: TStrings;begin tmpStrings := TStringList.Create; LastPos := 0; for i := 1 to LastDelimiter(EndString, MainString) do begin PosBeginString := PosEx(BeginString, MainString, LastPos) + Length(BeginString); PosEndString := PosEx(EndString, MainString, LastPos); tmpCopy := Copy(MainString, PosBeginString, PosEndString - PosBeginString); if Length(Trim(tmpCopy)) <> 0 then tmpStrings.Add(tmpCopy); LastPos := LastPos + PosEndString; end; Result := tmpStrings;end;Notice how the function returns the parsed data using the data type of TStrings, which is essentially an easier to work with version of a string array.The code would be used as follows:Code:Memo1.Lines.AddStrings(MultiParse('The person named Joe is friendly. The person named Bob is friendly.', 'named ', ' is'));The strings 'Bob' and 'Joe' will both be contained in the returnd TStrings data type, and will be added to Memo1, whose primary "lines" property is also of the same data type.Notes:1) Because of its usage of the PosEx function, to use this function "StrUtils" must be included in the uses section of your unit.2) The code doesn't necessarily need to be contained in a function. You can adapt it to place in a procedure.Enjoy.
×
×
  • Create New...

Important Information

Terms of Use | Privacy Policy | Guidelines | We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.