NewsForumsCodeLogsGallerySpecsSearch

BlitzPlusEXT DLL adds new commands

BlitzPlus Forums/BlitzPlus Programming/BlitzPlusEXT DLL adds new commands

JoshK(Posted 2004) [#1]
GadgetHidden(gadget)
Returns True if the gadget is hidden, otherwise False.

GetTreeViewNode(node,index)
Returns the child of the indicated tree view node. Use this to sort through tree views recursively:
For n=1 to CountTreeViewNodes(root)
	node=GetTreeViewNode(root,n)
	Next
I wouldn't charge for it, but I spent two days figuring this stuff out.

Buy the DLL.


Eikon(Posted 2004) [#2]
Excuse me while I lol.


DNielsen(Posted 2004) [#3]
why is that funny? If (when) I create my own library of function, why should I not charge for it?


Eikon(Posted 2004) [#4]
why is that funny?

First, because of the way Halo treats people who offer him help. Second, the DLL only contains two functions, one of which he already shared the source for. If I charged twenty bucks for every little DLL I coded, I wouldn't be rich, I'd be an ass.

He can do what he wants, and I'll continue helping people for free.


VIP3R(Posted 2004) [#5]
$19.95 USD for two functions, oh dear :/

Good luck with those sales halo.


JoshK(Posted 2004) [#6]
If you need it, you really need it, if you don't, you don't. I don't care.


DNielsen(Posted 2004) [#7]
First, because of the way Halo treats people who offer him help


I don't know how Halo treats people, but it sounds like a personal issue also not buying ... ?? None of my business really, I help people I can here for free, and expect the same in return. Nothing more, nothing less.


Kevin_(Posted 2004) [#8]
Halo...

Are you sure your GadgetHidden() function works?
I posted a reply in the BlitzPlus section and re-wrote your code so that it would work. So, I am rightfully entitled to half your sales arn't I?


skidracer(Posted 2004) [#9]
Prof, I'm sure Halo's solution doesn't give an "Invalid Bank Handle" error.


Kevin_(Posted 2004) [#10]
Strange...

Works OK on my PC.

[EDIT] Just ran it again and all was fine. God knows why you get an 'Invalid Bank' error.

Anyone else get the same error?


JoshK(Posted 2004) [#11]
The code I posted earlier used an external lib, and would have crashed if you don't have my memory lib.

It took a couple days to figure out, so i don't care if you call me greedy or selfish, no one else will get this stuff done.


Kevin_(Posted 2004) [#12]
Thats OK. I won't be posting any more code then from now on if others are going to profit from it.


skidracer(Posted 2004) [#13]
Prof, I would hope God uses Debug mode when programming.


Kevin_(Posted 2004) [#14]
Aaahhhhh! Correct! It does produce an error with debug mode on. How strange! I hardly think that God would do this though seeing as....

No, I wont bother turning this into a thread 300 posts long.


JoshK(Posted 2004) [#15]
I don't even know what you are talking about, and there is no way to write a GadgetHidden() function without an external library.


skidracer(Posted 2004) [#16]
The IsWindowVisible API call should work with all gadgets.


rdodson41(Posted 2004) [#17]
He can do what he wants, and I'll continue helping people for free.

I second that. How in your right mind can you charge $20 for two functions? And it seems like one of them you have already shared, so its $20 for one function. Maybe you should rethink that.


JoshK(Posted 2004) [#18]
I can charge $1,000,0000, if I want. Why do you care?


BlitzSupport(Posted 2004) [#19]
; Userlibs -> user32.decls:
; IsWindowVisible% (hWnd)

window = CreateWindow ("Test window", 300, 200, 300, 50, 0, 1 + 32)

oink = CreateButton ("Oink", 0, 0, 300, 25, window)
hide = CreateButton ("Hide Oink button", 0, 25, 300, 25, window)

Repeat

	e = WaitEvent ()

	Select e
	
		Case $803
		
			End
			
		Case $401
		
			If EventSource () = hide

				t = 1 - t
				If t
					HideGadget oink
				Else
					ShowGadget oink
				EndIf

				If GadgetHidden (oink)
					SetGadgetText window, "Hidden"
				Else
					SetGadgetText window, "Visible"
				EndIf
				
			EndIf

	End Select

Forever

Function GadgetHidden (gadget)
	Return Not IsWindowVisible (QueryObject (gadget, 1))
End Function



JoshK(Posted 2004) [#20]
Heh...here is how to add checkboxes:

Const TVS_CHECKBOXES =$0100
htree=QueryObject(tree,1)
style=GetWindowLong(htree,GWL_STYLE)
SetWindowLong htree,GWL_STYLE,style+TVS_CHECKBOXES


GfK(Posted 2004) [#21]
ROFLMAO @ this thread.


DNielsen(Posted 2004) [#22]
@GFX
what does ROFLMAO mean?


GfK(Posted 2004) [#23]
There's nobody here called GFX, Hansie.

BlitzSupport: Thanks for the code - a cheque for $20 is in the post ;)

(not really)


Caff(Posted 2004) [#24]
LOL

where's the bacon, boy?


Regular K(Posted 2004) [#25]
I think im gonna take those functions halo and james posted and sell it for $20!!!!!!!!

just kidding


GfK(Posted 2004) [#26]
I'm selling Pong for $20.

I wouldn't charge for it, but it took 2 days blah blah blah

(is this funny any more?)


Amon_old(Posted 2004) [#27]
If Halo ever makes a sale of that dll and shows me proof of it I will buy 2 copies for myself.


Azathoth(Posted 2004) [#28]
Has anyone actually paid for it?


DNielsen(Posted 2004) [#29]
@GFK
Sorry for calling you GFX :-D Typo, ya see ...


JoshK(Posted 2004) [#30]
Added some more...let's see, it has...
CountTreeViewNodes()
GetTreeViewNode()
SelectTreeViewNode()
ExpandTreeViewNode()
CheckTreeViewNode()
UncheckTreeViewNode()
TreeViewNodeExpanded()
TreeViewNodeChecked()
TreeViewNodeSelected()
Oh, and just added this:
SortTreeViewNode()
Of course, I guess you would just as soon wish I had never figured this all out.


VIP3R(Posted 2004) [#31]
Good for you :)

I'm sure no-one will have any problem parting with their $20 if they feel they're getting good value for money.


DNielsen(Posted 2004) [#32]
@Halo
How many licenses did you sell, just out of curiosity?