Jump to content

Doggie

Patron
  • Posts

    2,565
  • Joined

  • Last visited

  • Donations

    0.00 USD 
  • Country

    Australia

Everything posted by Doggie

  1. lol that to filer.. and watch them beans..
  2. i don't think the specs needed would be too high.. probably 600mhz i'm guessing
  3. piracy is wrong as long as u'd neva get caught with it.. not that i am doing that type of things
  4. its a nice site.. only thing is i just need dsl now lol w00t
  5. lol yeh just noticed that.. maybe we are
  6. nuffin really.. apart from high alitude and polution..
  7. LOL.. mexico?
  8. yay!... i getting the pack within 1 to 2weeks
  9. used it once and p***ed me off with the spyware.. Recycle bin here it comes
  10. As programmers know, you cannot change the Treeview Background Color manually in the options but i've found a good way of doing it in Runtime First of all create a new project and add a treeview control. To do this you need to goto the menu Project > Components and look for Microsoft Windows Common Controls, select it and adds more controls to your toolbox. Once thats done we can add some code For the general declarations, put the following Option Explicit 'Needed to make sure declared strings etc work Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long 'Used to set the following tweak Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long 'Get treeview handle Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long 'Set handle Private Const GWL_STYLE = -16& 'The current style of treeview Private Const TVM_SETBKCOLOR = 4381& 'Set Bground Color Private Const TVM_GETBKCOLOR = 4383& "Get Bground Color Private Const TVS_HASLINES = 2& 'Misc stuff needed Dim frmlastForm As Form 'The form using Now the Form on Load Event Private Sub Form_Load() Dim nodX As Node 'Creates nodX as the default Node Set nodX = TreeView1.Nodes.Add(, , "R", "Default Plugins") 'Cut all this out of a prog i doing currently :P Set nodX = TreeView1.Nodes.Add("R", tvwChild, "DP1", "Bios") Set nodX = TreeView1.Nodes.Add("R", tvwChild, "DP2", "Video") Set nodX = TreeView1.Nodes.Add("R", tvwChild, "DP3", "Sound") Set nodX = TreeView1.Nodes.Add("R", tvwChild, "DP4", "CD/DVD") Set nodX = TreeView1.Nodes.Add("R", tvwChild, "DP5", "Controllers") nodX.EnsureVisible ' Make sure it visible TreeView1.Style = tvwTreelinesText ' Style 4. TreeView1.BorderStyle = vbFixedSingle ChangeTreeviewColor 'This will be eventually the event to change the color :) End Sub Now we have to make a lil event called ChangeTreeViewColor Private Sub ChangeTreeviewColor() Dim lngStyle As Long 'Explained further on Call SendMessage(TreeView1.hWnd, TVM_SETBKCOLOR, 0, ByVal RGB(216, 228, 248)) 'Sends a message setting the color defined in the RGB(x,x,x) color value lngStyle = GetWindowLong(TreeView1.hWnd, GWL_STYLE) 'lngStyle will have the init handle of treeview control Call SetWindowLong(TreeView1.hWnd, GWL_STYLE, lngStyle - TVS_HASLINES) 'Sets handle Call SetWindowLong(TreeView1.hWnd, GWL_STYLE, lngStyle) 'Sets handle End Sub To make sure it works, call the ChangeTreeviewColor event during the FormLoad event which has already been done Questions, Abuse etc welcome
  11. hehe.. good luck Filer
  12. lol if yet to see it guys
  13. nice find there pia
  14. indeed msnwar, its the easy way of ridding the crap u just wrote
  15. it is possible to buy a pc magazine and the ones i buy usually come with free versions of delphi for personal use
  16. it looks very nice now.. good work msfn dudes
  17. ermm.. like edit > replace > put the word in u want to get rid of and click replace i thinks
  18. hehe.. indeed.. and its a great story
  19. look like a good idea
  20. lol.. nice one aaron
  21. disturbing and sad
  22. Before you post, make sure u label the topic of what language you are looking for eg: [VB] How to setup a caption [C+] Tutorials? You get my drift ? Rules of asking for code: 1. Nothing to do with trojans or viruses etc. 2. Don't post multiple posts of the same kind because i've yet to answer. 3. Don't PM me for code as i won't answer, theres a forum you can post it in 4. Don't post off-topic subjects as it will be moved or deleted. 5. Don't ask for Visual Basic it self as it is illegal to redistrubute and please purchase a copy. Cheers Doggie
  23. cause ppl like customized images etc
  24. yeh.. this site rules
×
×
  • Create New...