Re: create icon pack windows
Posted: Tue Apr 02, 2024 8:23 pm
PureBasic Forums - English
http://www.purebasic.com
https://www.purebasic.fr/english/
create icon pack windows
Page 2 of 2
Re: create icon pack windows
Posted: Tue Apr 02, 2024 10:13 pm
Yeah! rebuid icon cache does the trick
Re: create icon pack windows
Posted: Tue Apr 02, 2024 10:15 pm
Pizza with pineapple (aka "hawaiian pizza") is extremely popular here in Australia for decades, so it's always weird for me to see when people make fun of it. It's like someone making fun of someone winning the lottery; it doesn't make any sense.
I'd love to eat pineapple pizza eternally! 
Re: create icon pack windows
Posted: Tue Apr 02, 2024 10:18 pm
I've updated it with code from ChrisR, so you can specify the sizes in the parameters
Code: Select all
CreateIconFile(file$,1,"16x24x32x48x64x96x128x256")
Re: create icon pack windows
Posted: Tue Apr 02, 2024 10:31 pm
I do unholy things to pizza. my not so secret marinara, cook down onions garlic aubergine in butter and olive oil add in olives capers... prep your bases use humus a bit of tomato paste or pesto. Add sea food, to the pot clams mussels calamari, mix though for a minute and let sit while you grate pamisan and mozzerla. then you can bang out as many pizza as you need in shot order and no ones the wiser that the nom nom nom comes from the Aubergine obviously you have to dice and salt it to get rid of the bitterness but it adds a good body to the topping.BarryG wrote: Tue Apr 02, 2024 10:15 pmPizza with pineapple (aka "hawaiian pizza") is extremely popular here in Australia for decades, so it's always weird for me to see when people make fun of it. It's like someone making fun of someone winning the lottery; it doesn't make any sense.
oh and I updated the code
I've updated it with code from ChrisR, so you can specify the sizes in the parameters
Code: Select all
CreateIconFile(file$,1,"16x24x32x48x64x96x128x256")
Re: create icon pack windows
Posted: Wed Apr 03, 2024 8:26 am
Thanks for the update.Re: create icon pack windows
Posted: Wed Apr 03, 2024 2:55 pm
It's easier to read separated by commas
Code: Select all
CreateIconFile(file$,1,"16,24,32,48,64,96,128,256")Re: create icon pack windows
Posted: Wed Apr 03, 2024 5:45 pm
Yeah, probably easier to read, Elon Musk doesn't agree, he prefers Xs 
And I don't agree either, the easiest way to read it is not to use the optional parameter
And use the default value with the sizes recommended by Microsoft 16, 24, 32, 48 and 256
Not a big deal to change it anyway
And I don't agree either, the easiest way to read it is not to use the optional parameter
Code: Select all
CreateIconFile(file$,1)Not a big deal to change it anyway
Re: create icon pack windows
Posted: Fri Apr 05, 2024 1:06 pm
Why are you telling me this?BarryG wrote: Tue Apr 02, 2024 10:15 pmPizza with pineapple (aka "hawaiian pizza") is extremely popular here in Australia for decades, so it's always weird for me to see when people make fun of it. It's like someone making fun of someone winning the lottery; it doesn't make any sense.
I had nothing against Australian People until now
Re: create icon pack windows
Posted: Sat Apr 06, 2024 2:09 am
Here's a famous comedy skit from an Australian TV show where he mentions Hawaiian pizza -> https://www.youtube.com/watch?v=LJtNHs4BfYg
It's not a skit about pizzas, but it's well worth spending the 4 minutes to watch this; it's gold! Especially the bit about folding up.
It's not a skit about pizzas, but it's well worth spending the 4 minutes to watch this; it's gold! Especially the bit about folding up.
Re: create icon pack windows
Posted: Sat Jan 18, 2025 4:12 pm
I tried adding this and was having trouble.
1. When using the "2D Drawing" library and adding the #PB_Image_Transparent constant, I get a broken file. Another program, when trying to open it, asks “would you like to fix the transparency?”. Without the #PB_Image_Transparent flag it works fine, but there is no transparency.
2. When using the VectorDrawing library, I add an image to the surface using DrawVectorImage(), but I cannot use the CustomFilterCallback() function to make the pixels transparent.
3. If I make a transparent image CreateImage + #PB_Image_Transparent, then copying using DrawVectorImage() does not give a positive result.
1. When using the "2D Drawing" library and adding the #PB_Image_Transparent constant, I get a broken file. Another program, when trying to open it, asks “would you like to fix the transparency?”. Without the #PB_Image_Transparent flag it works fine, but there is no transparency.
2. When using the VectorDrawing library, I add an image to the surface using DrawVectorImage(), but I cannot use the CustomFilterCallback() function to make the pixels transparent.
3. If I make a transparent image CreateImage + #PB_Image_Transparent, then copying using DrawVectorImage() does not give a positive result.
Code: Select all
#img = 0
#img2 = 1
If CreateImage(#img2,16,16,32,#PB_Image_Transparent)
If StartDrawing(ImageOutput(#img2))
Box(4, 4, 8, 8, $00FF00)
StopDrawing()
EndIf
EndIf
If CreateImage(#img,16,16,32,#PB_Image_Transparent)
If StartVectorDrawing(ImageVectorOutput(#img))
DrawVectorImage(ImageID(#img2), 255, 16, 16)
StopVectorDrawing()
EndIf
EndIf
file$ = "C:\folder\icon.ico"
CreateIconFile(file$, #img, "16")