;
; ------------------------------------------------------------
;
; PureBasic - Pics-Up imageConverter
;
; (c) ToToSe
;
; ------------------------------------------------------------
;


UseJPEGImageDecoder()
UseTGAImageDecoder()
UsePNGImageDecoder()
UseTIFFImageDecoder()


;
UseJPEGImageEncoder()
UsePNGImageEncoder()


If OpenWindow(0, 0, 0, 300, 130, "Pics-Up | by {ToToSe}", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

ImageGadget(0, 0, 28, WindowWidth(0), WindowHeight(0), 0, #PB_Image_Border)

CreateToolBar(0, WindowID(0))
ToolBarStandardButton(0, #PB_ToolBarIcon_Open)
ToolBarStandardButton(1, #PB_ToolBarIcon_Save)
DisableToolBarButton(0, 1, 1)

Repeat
EventID = WaitWindowEvent()

If EventID = #PB_Event_Menu

Select EventMenu()

Case 0 ; ouvrire

Filename$ = OpenFileRequester("pics-Up", "", "tout les formats *.bmp;*.jpg;*.png;*.tif;*.tga", 0)
If Filename$

If LoadImage(0, Filename$)
SetGadgetState(0, ImageID(0))
DisableToolBarButton(0, 1, 0)
ResizeWindow(0, #PB_Ignore, #PB_Ignore, ImageWidth(0)+4, ImageHeight(0)+34)
EndIf

EndIf

Case 1 ; enregistrer

Filename$ = SaveFileRequester("pics-Up", Left(Filename$, Len(Filename$)-Len(GetExtensionPart(Filename$))-1), "BMP Format|*.bmp|JPEG Format|*.jpg|PNG Format|*.png", 0)
If Filename$

Select SelectedFilePattern()

Case 0 ; BMP
ImageFormat = #PB_ImagePlugin_BMP
Extension$ = "bmp"

Case 1 ; JPEG
ImageFormat = #PB_ImagePlugin_JPEG
Extension$ = "jpg"

Case 2 ; PNG
ImageFormat = #PB_ImagePlugin_PNG
Extension$ = "png"

EndSelect

If LCase(GetExtensionPart(Filename$)) <> Extension$
Filename$ + "." + Extension$
EndIf

If SaveImage(0, Filename$, ImageFormat)
MessageRequester("Information", "Merci qui ? :p", 0)
EndIf

EndIf

EndSelect

EndIf

Until EventID = #PB_Event_CloseWindow

EndIf

End