create Toolbar images

[RJP Computing]

This is a stupid question, but I just can't find a good way. How do you create the single *.bmp file with the toolbar images side by side?

I need custom toolbar icons not included in the standard toolbar images.

thanks for the help

[Flype]

hello,

if you speak about toolbar provided by the PureTools_I library,
personally i use Paint If i need 5 images in 32x32, i set in the menu -> images -> attributes -> 160 x 32 and then i just play with copy/paste or i draw all pics.

[RJP Computing]

yes that is what I mean. Thanks. I was just hoping there was some cool program that could combine 5 16x16 BMP into that image. No big deal. That sounds doable.

[Flype]

it's easy do make a little program to stick multiple images in one...
hmmm, let me think a little...
Well, this piece of code does the work

Code: Select all

dir.s = "C:\DEV\PureBasic\Examples\Sources - Advanced\Waponez II\Data\"

CreateImage( 0, 6 * 50, 36 )
ImageOutput()

For i=1 To 6
  LoadImage( i, dir+"Ennemy_3_" + Str( i )+ ".bmp" )
  UseImage( 0 )
  StartDrawing( ImageOutput() )
    DrawImage( UseImage( i ), (i-1) * 50, 0 )
  StopDrawing()
Next

;OpenWindow(0,200,200,300,200,0,"")
;StartDrawing( WindowOutput() )
;  DrawImage( UseImage( 0 ), 0, 0 )
;StopDrawing()
;Delay( 5000 )

file.s = SaveFileRequester( "Save Images...", "WaponezSprites.bmp", "Bitmap|*.bmp", 0 )
If file <> ""
  SaveImage( 0, file, #PB_ImagePlugin_BMP )
  MessageRequester( "Report", "Sprites Saved !", 0 )
EndIf

[RJP Computing]

it's easy do make a little program to stick multiple images in one...
hmmm, let me think a little...
Well, this piece of code does the work

Code: Select all

dir.s = "C:\DEV\PureBasic\Examples\Sources - Advanced\Waponez II\Data"

CreateImage( 0, 6 * 50, 36 )
ImageOutput()

For i=1 To 6
  LoadImage( i, dir+"Ennemy_3_" + Str( i )+ ".bmp" )
  UseImage( 0 )
  StartDrawing( ImageOutput() )
    DrawImage( UseImage( i ), (i-1) * 50, 0 )
  StopDrawing()
Next

;OpenWindow(0,200,200,300,200,0,"")
;StartDrawing( WindowOutput() )
;  DrawImage( UseImage( 0 ), 0, 0 )
;StopDrawing()
;Delay( 5000 )

file.s = SaveFileRequester( "Save Images...", "WaponezSprites.bmp", "Bitmap|*.bmp", 0 )
If file <> ""
  SaveImage( 0, file, #PB_ImagePlugin_BMP )
  MessageRequester( "Report", "Sprites Saved !", 0 )
EndIf

THAT IS AWSOME. 8O Duh I should of thought of making my own.

Thanks