Thanks mate
Code: Select all
DisableDebugger
UseJPEG2000ImageDecoder()
UseJPEG2000ImageEncoder()
UseJPEGImageDecoder()
UseJPEGImageEncoder()
UsePNGImageDecoder()
UsePNGImageEncoder()
UseTGAImageDecoder()
UseTIFFImageDecoder()
UseGIFImageDecoder()
Global Dim bits.a(0),Width,Height,Pitch,Count
Procedure Effect_ON(img)
StartDrawing(ImageOutput(img))
*Buffer = DrawingBuffer()
Pitch = DrawingBufferPitch()
count = Pitch*height
ReDim bits.a(count)
CopyMemory(*Buffer,@bits(),count)
StopDrawing()
EndProcedure
Procedure Effect_OFF(img)
StartDrawing(ImageOutput(img))
*Buffer = DrawingBuffer()
CopyMemory(@bits(),*Buffer,count)
StopDrawing()
EndProcedure
Procedure Lim_Max (now, up, max)
max-1
While (now > max - up)
up-1
Wend
ProcedureReturn up
EndProcedure
Procedure LimitValues (x)
If x < 0
x = 0
EndIf
If x > 255
x = 255
EndIf
ProcedureReturn x
EndProcedure
Procedure Coal(img,BW)
width = ImageWidth(img)
height = ImageHeight(img)
If ImageDepth(img) = 32
Trim = 4
Else
Trim = 3
EndIf
Effect_ON(img)
For h = 0 To Height-1
For w = 0 To Width-1
For k = 0 To 2
i = h * Pitch + Trim * w
j = h * Pitch + Trim * (w + Lim_Max (w, BW, Width))
color_1 = Int((Bits(i+k) - Bits(j+k)) * (Bits(i+k) - Bits(j+k)))
j = (h + Lim_Max (h, BW, Height)) * Pitch + Trim * w
color_2 = Int((Bits(i+k) - Bits(j+k)) * (Bits(i+k) - Bits(j+k)))
Bits(i+k) = 255 -LimitValues (Int(Sqr ((color_1 + color_2))) << 4)
Next
Next
Next
Effect_OFF(img)
EndProcedure
Procedure gadtip3()
SetGadgetText(12,Str(GetGadgetState(3)))
EndProcedure
Procedure gadtip6()
SetGadgetText(12,Str(GetGadgetState(6)/1000))
EndProcedure
Procedure sizeCB()
ResizeGadget(10,#PB_Ignore,#PB_Ignore,WindowWidth(0)-20,WindowHeight(0)-60)
ResizeGadget(12,WindowWidth(0)/2-40,WindowHeight(0)-85,80,20)
ResizeGadget(20,#PB_Ignore,#PB_Ignore,WindowWidth(0)-20,WindowHeight(0)-60)
ResizeGadget(0,#PB_Ignore,#PB_Ignore,WindowWidth(0)-20,WindowHeight(0)-60)
ResizeGadget(30,#PB_Ignore,WindowHeight(0)-40,#PB_Ignore,#PB_Ignore)
If IsGadget(6)
ResizeGadget(3,275,WindowHeight(0)-38 ,250,24)
ResizeGadget(6,535,WindowHeight(0)-38,250,24)
Else
ResizeGadget(3,GadgetX(20)+265,WindowHeight(0)-38,WindowWidth(0)-278,24)
EndIf
EndProcedure
initpath$ = GetHomeDirectory()
initspath$ = GetTemporaryDirectory()
Pattern$ = "All supported formats|*.*;*.bmp; *.gif; *.jpg; *.jpeg; *.png;*.tif;*.tiff;*.tga|TGA image (*.tga)|*.tga|"+
"TIF image (*.tif)|*.tif|TIFF image (*.tiff)|*.tiff|PNG image (*.png)|*.png|BMP image (*.bmp)|*.bmp|"+
"JPEG image (*.jpg;*.jpeg)|*.jpg;*.jpeg|GIF image (*.gif)|*.gif|"
LoadFont(0,"tahoma",10)
OpenWindow(0,0,0,800,600,"Fantasy Image",#PB_Window_SystemMenu |#PB_Window_ScreenCentered | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget)
WindowBounds(0,600,400,#PB_Default,#PB_Default)
CanvasGadget(10,10,10,780,540,#PB_Canvas_Container)
TextGadget(12,WindowWidth(0)/2-40,WindowHeight(0)-85,80,20 ,"",#PB_Text_Center)
SetGadgetColor(12,#PB_Gadget_BackColor,0)
SetGadgetColor(12,#PB_Gadget_FrontColor,$FFFFFF)
SetGadgetFont(12,FontID(0))
ContainerGadget(20,0,0,780,540,#PB_Container_Flat)
ButtonImageGadget(0,-1,-1,780,540,0)
CloseGadgetList()
DisableGadget(20,1)
CloseGadgetList()
ScrollBarGadget (3,GadgetX(20)+265,WindowHeight(0)-38,WindowWidth(0)-278,24,1,10,1)
SetGadgetState(3,3)
ContainerGadget(30,10,560,255,30)
ButtonGadget(1,0,0,60,30,"Open")
ButtonGadget(2,65,0,60,30,"Save")
TextGadget(4,130,6,60,20," W: 0")
SetGadgetFont(4,FontID(0))
TextGadget(5,195,6,60,20," H: 0")
SetGadgetFont(5,FontID(0))
CloseGadgetList()
scale.f = 1
BindGadgetEvent(3,@gadTIP3())
BindEvent(#PB_Event_SizeWindow,@sizeCB())
AddKeyboardShortcut(0,#PB_Shortcut_Control | #PB_Shortcut_Add,10)
AddKeyboardShortcut(0,#PB_Shortcut_Control | #PB_Shortcut_Subtract,20)
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Quit = 1
Case #PB_Event_Menu
Select EventMenu()
Case 10
If IsImage(0)
CopyImage(0,1)
If Run = 0 And scale < 10
scale.f = scale.f + 0.01
EndIf
Run = 1
SetGadgetAttribute(10, #PB_Canvas_Cursor ,#PB_Cursor_Busy)
ResizeImage(1,ImageWidth(0)*scale,ImageHeight(0)*scale)
SetGadgetText(4," W :"+Str(ImageWidth(1)))
SetGadgetText(5," H :"+Str(ImageHeight(1)))
Coal(1,GetGadgetState(3))
SetGadgetAttribute(0,#PB_Button_Image,ImageID(1))
SetGadgetAttribute(10, #PB_Canvas_Cursor ,#PB_Cursor_Default)
While WindowEvent() : Wend
Run = 0
EndIf
Case 20
If IsImage(0)
CopyImage(0,1)
If Run = 0 And scale > 0.1
scale.f = scale.f - 0.01
EndIf
Run = 1
SetGadgetAttribute(10, #PB_Canvas_Cursor ,#PB_Cursor_Busy)
ResizeImage(1,ImageWidth(0)*scale,ImageHeight(0)*scale)
SetGadgetText(4," W :"+Str(ImageWidth(1)))
SetGadgetText(5," H :"+Str(ImageHeight(1)))
Coal(1,GetGadgetState(3))
SetGadgetAttribute(0,#PB_Button_Image,ImageID(1))
SetGadgetAttribute(10, #PB_Canvas_Cursor ,#PB_Cursor_Default)
While WindowEvent() : Wend
Run = 0
EndIf
EndSelect
Case #PB_Event_Gadget
Select EventGadget()
Case 1
scale.f = 1
FreeImage(#PB_All)
SetGadgetAttribute(0,#PB_Button_Image,0)
File$ = OpenFileRequester("Choose image file to load", initpath$+"*.*", Pattern$, 0)
If File$ And FileSize(File$)
LoadImage(0,File$)
If IsImage(0)
initpath$ = GetPathPart(File$)
CopyImage(0,1)
Coal(1,GetGadgetState(3))
SetGadgetText(4," W :"+Str(ImageWidth(1)))
SetGadgetText(5," H :"+Str(ImageHeight(1)))
SetGadgetAttribute(0,#PB_Button_Image,ImageID(1))
Else
MessageRequester("Error","Format not supported", #PB_MessageRequester_Ok | #PB_MessageRequester_Error)
EndIf
EndIf
Case 2
If IsImage(1)
sfile$ = SaveFileRequester("Please choose file to save",initspath$+""," All supported formats|*.bmp; *.jpg; *.png | BMP image (*.bmp)| *.bmp| JPEG image (*.jpg;*.jpeg)|*.jpg| PNG image (*.png)| *.png",0)
If sfile$
initspath$ = GetPathPart(sfile$)
If GetExtensionPart(sfile$) = ""
If SelectedFilePattern() = 1 Or selectpattern = 1
sfile$ + ".bmp"
ElseIf SelectedFilePattern() = 2 Or selectpattern = 2
sfile$ + ".jpg"
ElseIf SelectedFilePattern() = 0 Or SelectedFilePattern() = 3 Or selectpattern = 3
sfile$ + ".png"
EndIf
EndIf
If GetExtensionPart(sfile$) = "bmp"
SaveImage(1, sfile$ ,#PB_ImagePlugin_BMP)
ElseIf GetExtensionPart(sfile$) = "jpg"
SaveImage(1, sfile$ ,#PB_ImagePlugin_JPEG)
ElseIf GetExtensionPart(sfile$) = "png"
SaveImage(1, sfile$ ,#PB_ImagePlugin_PNG)
EndIf
MessageRequester("Info","File saved successfully", #PB_MessageRequester_Ok | #PB_MessageRequester_Info)
Else
MessageRequester("Error","Process failed !", #PB_MessageRequester_Ok | #PB_MessageRequester_Error)
EndIf
Else
MessageRequester("Error","No Image to Save !", #PB_MessageRequester_Ok | #PB_MessageRequester_Error)
EndIf
Case 3 , 6
If IsImage(0)
CopyImage(0,1)
ResizeImage(1,ImageWidth(0)*scale,ImageHeight(0)*scale)
SetGadgetText(4," W :"+Str(ImageWidth(1)))
SetGadgetText(5," H :"+Str(ImageHeight(1)))
Coal(1,GetGadgetState(3))
SetGadgetAttribute(0,#PB_Button_Image,ImageID(1))
EndIf
Case 10
Select EventType()
Case #PB_EventType_MouseWheel
If IsImage(0)
CopyImage(0,1)
delta = GetGadgetAttribute(10,#PB_Canvas_WheelDelta )
If delta = 1 And Run = 0
If scale < 10
scale.f = scale.f + 0.5
EndIf
ElseIf delta = -1 And Run = 0
If scale > 0.5
scale.f = scale.f - 0.5
EndIf
EndIf
Run = 1
SetGadgetAttribute(10, #PB_Canvas_Cursor ,#PB_Cursor_Busy)
ResizeImage(1,ImageWidth(0)*scale,ImageHeight(0)*scale)
SetGadgetText(4," W :"+Str(ImageWidth(1)))
SetGadgetText(5," H :"+Str(ImageHeight(1)))
Coal(1,GetGadgetState(3))
SetGadgetAttribute(10, #PB_Canvas_Cursor ,#PB_Cursor_Default)
SetGadgetAttribute(0,#PB_Button_Image,ImageID(1))
While WindowEvent() : Wend
Run = 0
EndIf
EndSelect
EndSelect
EndSelect
Until Quit = 1
