PureBasic Forums - English

I don't know what's happening here, I have been using Eval() since downloading a version October 2005, but after copying and pasting this one I get "C.5ADA82B70B59E0000e-0017" returned whatever I enter. Even something simple like “debug eval("25*5")”.

The previous version works perfectly and has ...

If nothing else I have fixed the log on problem with Firefox, I went to the Tools\options and deleted the PB cookies and now it lets me log on and hopefully has now saved the cookie correctly.

The problem is not how to load a mouse pointer for one of my programs, that's easy, it is to get the global preferences to load.

It always loads my normal animated pointer, but the text select and link select do not load unless I go to personalise/mouse pointers and click OK. I don't need to select ...

Does anyone know how to use PB to load the chosen mouse pointers that are supposed to load automatically on start-up.

I have created my own animated normal select pointer and that loads every time no problem, but I also have an animated link select pointer and a text select and they never load ...

Thanks for the explanation, I understand what is going on now, although as far as I know it has worked in the past. However since I normally replace the file with a longer version, hence overwriting the original, it would not be obvious if it had not finished in the trashcan unless I wanted to ...

How about -

Procedure RecycleFile(file$)
SHFileOp.SHFILEOPSTRUCT
SHFileOp\pFrom=@file$
SHFileOp\wFunc=#FO_DELETE
SHFileOp\fFlags=#FOF_ALLOWUNDO | #FOF_NOCONFIRMATION ; without #FOF_NOCONFIRMATION you get a messagerequester asking to confirm sending to recycle bin
SHFileOperation_(SHFileOp ...

I think the easiest way to deal with money is to input as a string, convert the input to the pounds or dollars times 100 + pence/cents. Work with that and then convert the output back by integer dividing for the pounds/dollars and the remainder for pence/cents. That way it is all integers and no ...

Here's shorter one by netmaestro:
http://www.purebasic.fr/english/viewtopic.php?p=211814#211814

Thanks for that, it is rather shorter but it leaves me with the problem of animating it and by the time I have sorted out how to get it working for an animation it probably will be nearly as long!

The ...

I think I have found the answer to my own question.

;
UsePNGImageDecoder()
Global Dim File$(13)
Global Dim bitmap.l(13)
;
Procedure Error(message.s, fatal.b)
ErrorBuffer$ = Space(256)
FormatMessage_(#FORMAT_MESSAGE_FROM_SYSTEM, 0, GetLastError_(), 0, ErrorBuffer$, Len(ErrorBuffer$), 0 ...

I have a piece of code that I have cobbled together from bits on the forum that shows images with a transparent background that I have used as backround pictures (fancy icons really) to run odds and ends. It may not be great programming and I don't fully understand it but it works!


;
; Saved as ...

I must be dense, I never thought of GrabImage! However I just tried it and it works fine with my Vista 32 bit with an image of 3648×2736.

If the service pack is coming out in the first quarter of next year, that will do for me. My all singing, dancing picture viewer now does just about everything, mostly specific to my rather strange requirements. :lol:

It is however a bit of a prize muck-up that some idiot decided to use a word ...

Thanks to all who have had a go at this problem, it would appear that it is Vista/PB incompatibility on this point and therefore I don't need to carry on straining my brain over it. :lol:

As I said I have found a solution that works for what I am doing at the moment, so I will wait for the update ...

I've been experimenting and have found a way that works.

If CreateImage(1, 3648, 2736) And CreateImage(2, 3648, 2736)
StartDrawing(ImageOutput(1))
For k = 1 To 1000
Box(Random(3500), Random(2600), 100, 100, RGB(Random(255), Random(255), Random(255)))
Next
StopDrawing()
SaveImage(1, "C:\Temp ...

Don't know if it makes a difference but I am running Vista Home Premium 32 bit. Grapics card Sapphire X1960 Pro with 512 Mb.
Code below is the easy way of showing what happens.

If CreateImage(1, 3648, 2736) ; change to 1824 * 1368 and it works
StartDrawing(ImageOutput(1))
For k = 1 To 1000
Box ...