PureBasic Forums - English

http://www.purebasic.com
https://www.purebasic.fr/english/

"No Return value" and use of "PB_Any"

https://www.purebasic.fr/english/viewtopic.php?t=82298

Page 1 of 1

"No Return value" and use of "PB_Any"

Posted: Thu Aug 24, 2023 7:12 pm
by Little_man
How to do this without "Return value" and using "#PB_Any" ?

Select Event
     Case ???
     FreeGadget(???)

Code: Select all

EnableExplicit

;Opsommingen.
Enumeration Window
  #Window_0
EndEnumeration

Enumeration Gadgets
  #ScrlArea_1
EndEnumeration

;Afbeeldingen laden.
UsePNGImageDecoder()    ;Enables the PNG (Portable Network Graphic) image support
UseJPEGImageDecoder()   ;Enables the JPEG (Joint Picture Expert Group) image support

Global.i I01, I02, I03
Global.i Event

Global.s Source_Directory = "C:\Merging Images XXXX\Images\"

I01                       = LoadImage(#PB_Any, Source_Directory + "T_01.png")
Global.d Rows             = 2     ;Colomna.
Global.d Columns          = 3     ;Rows.
Global.d S                = 10   ;Seperator.
;Global.d Dim File(3)
Global.d W                = ImageWidth(I01)
Global.d H                = ImageHeight(I01)
Global.d Scale            = H / 110

ResizeImage(I01, ImageWidth(I01) / Scale, ImageHeight(I01) / Scale)
I02 = LoadImage(#PB_Any, Source_Directory + "T_02.png"): ResizeImage(I02, ImageWidth(I02) / Scale, ImageHeight(I02) / Scale)
I03 = LoadImage(#PB_Any, Source_Directory + "T_03.png"): ResizeImage(I03, ImageWidth(I03) / Scale, ImageHeight(I03) / Scale)

Procedure Open_Window_0()
  OpenWindow(#Window_0, 0, 0, 1000, 400, "Merging Photos", #PB_Window_SystemMenu | #PB_Window_MaximizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered)
  ScrollAreaGadget(#ScrlArea_1, 20, 20, 960, 145, (11 * S) + (10 * W / Scale), (3 * S) + (2 * H / Scale), 249, #PB_ScrollArea_Flat)
    ;File(1) = ImageGadget(#PB_Any,   10,  10, 165, 110, ImageID(I01))
    ImageGadget(#PB_Any,   10,  10, 165, 110, ImageID(I01))
    ;File(2) = ImageGadget(#PB_Any,  185,  10, 165, 110, ImageID(I02))
    ImageGadget(#PB_Any,  185,  10, 165, 110, ImageID(I02))
    ;File(3) = ImageGadget(#PB_Any,   10, 132, 165, 110, ImageID(I03))
    ImageGadget(#PB_Any,   10, 132, 165, 110, ImageID(I03))
  CloseGadgetList()
EndProcedure

Open_Window_0()

Repeat
  Event = WaitWindowEvent()

  Select Event
      Case #PB_Event_CloseWindow
      Break

      ;-> Event Gadget
    Case #PB_Event_Gadget

      Select EventGadget()
        Case ???          ;Case Gadget Name, Was File(1).

        Case ???          ;Case Gadget Name, was File(2).
          FreeGadget(???)
          
        Case ???          ;Case Gadget Name, was File(3).
      EndSelect

  EndSelect
ForEver
Little_man

Re: "No Return value" and use of "PB_Any"

Posted: Thu Aug 24, 2023 8:26 pm
by Erlend
Hello Little_man

Code: Select all

EnableExplicit

;Opsommingen.
Enumeration Window
  #Window_0
EndEnumeration

Enumeration Gadgets
  #ScrlArea_1
EndEnumeration

;Afbeeldingen laden.
UsePNGImageDecoder()    ;Enables the PNG (Portable Network Graphic) image support
UseJPEGImageDecoder()   ;Enables the JPEG (Joint Picture Expert Group) image support

Global.i I01, I02, I03
Global.i HI01, HI02, HI03
Global.i Event

Global.s Source_Directory = "C:\Merging Images XXXX\Images\"

I01                       = LoadImage(#PB_Any, Source_Directory + "T_01.png")
Global.d Rows             = 2     ;Colomna.
Global.d Columns          = 3     ;Rows.
Global.d S                = 10   ;Seperator.
;Global.d Dim File(3)
Global.d W                ;= ImageWidth(I01)
Global.d H                ;= ImageHeight(I01)
Global.d Scale            ;= H / 110

ResizeImage(I01, ImageWidth(I01) / Scale, ImageHeight(I01) / Scale)
I02 = LoadImage(#PB_Any, Source_Directory + "T_02.png"): ResizeImage(I02, ImageWidth(I02) / Scale, ImageHeight(I02) / Scale)
I03 = LoadImage(#PB_Any, Source_Directory + "T_03.png"): ResizeImage(I03, ImageWidth(I03) / Scale, ImageHeight(I03) / Scale)


W=ImageWidth(I01)
H=ImageHeight(I01)
Scale= H/110

Procedure Open_Window_0()
  OpenWindow(#Window_0, 0, 0, 1000, 400, "Merging Photos", #PB_Window_SystemMenu | #PB_Window_MaximizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered)
  ScrollAreaGadget(#ScrlArea_1, 20, 20, 960, 145, (11 * S) + (10 * W / Scale), (3 * S) + (2 * H / Scale), 249, #PB_ScrollArea_Flat)
    ;File(1) = ImageGadget(#PB_Any,   10,  10, 165, 110, ImageID(I01))
    HI01=ImageGadget(#PB_Any,   10,  10, 165, 110, ImageID(I01))
    ;File(2) = ImageGadget(#PB_Any,  185,  10, 165, 110, ImageID(I02))
    HI02=ImageGadget(#PB_Any,  185,  10, 165, 110, ImageID(I02))
    ;File(3) = ImageGadget(#PB_Any,   10, 132, 165, 110, ImageID(I03))
    HI03=ImageGadget(#PB_Any,   10, 132, 165, 110, ImageID(I03))
  CloseGadgetList()
EndProcedure

Open_Window_0()

Repeat
  Event = WaitWindowEvent()

  Select Event
      Case #PB_Event_CloseWindow
      Break

      ;-> Event Gadget
    Case #PB_Event_Gadget

      Select EventGadget()
        Case HI01         ;Case Gadget Name, Was File(1).

        Case HI02         ;Case Gadget Name, was File(2).
          FreeGadget(HI01)
          
        Case HI03         ;Case Gadget Name, was File(3).
      EndSelect

  EndSelect
ForEver
Short answer is you dont. Above I modified your code to show how it should be done, probably not working as I do not have PB on current device. And also why not just use fixed number for what you are doing??

BR
Erlend 'Preacher' Rovik

Re: "No Return value" and use of "PB_Any"

Posted: Thu Aug 24, 2023 8:38 pm
by jacdelad
Creating a Gadget/Window/Image/other stuff when using #PB_Any returns the handle to the object. Store that handle in an .i-variable to use it later.

Re: "No Return value" and use of "PB_Any"

Posted: Fri Aug 25, 2023 6:08 am
by Little_man
"THANKS" Erlend for your info !!...

The solution you suggested was after the ";" character in the specified code
All times are UTC+01:00
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited