Problem with resizecallback procedure

Jurgen · Post by **Jurgen** » Sun Oct 26, 2003 9:39 pm

I have a main window with a resize callback procedure.
Resizing works fine.
When I open a second window, close it again, the resize callback doesn't work anymore.
What could be wrong ?

Code: Select all

Procedure ResizeCallback(Window, Message, wParam, lParam) 
  result = #PB_ProcessPureBasicEvents 
   
  If Message = #WM_SIZE 
    Select Window 
      Case WindowID(#MainWindow) 
        ResizeGadget(#Splitter, -1, -1, WindowWidth()-10, WindowHeight()-80) 
        UpdateStatusBar(#StatusBar_0)
        SendMessage_(hToolbar, #TB_AUTOSIZE, 0, 0) 
    EndSelect 
  EndIf 
  ProcedureReturn result 
EndProcedure

Post by **freak** » Sun Oct 26, 2003 9:46 pm

WindowWidth() and WindowHeight() always use the current window, which
is changed when you open the second one.

A simple 'UseWindow(#MainWindow)' before the resizing should do the job.

Timo

Jurgen · Post by **Jurgen** » Sun Oct 26, 2003 9:53 pm

Thanks man.

Inner · Post by **Inner** » Mon Oct 27, 2003 12:21 am

You don't actually need a callback procedure for this;

Code: Select all

Repeat
   eid=WaitWindowEvent()
   Select eid
       case #WM_SIZE
          ResizeGadget(#Splitter, -1, -1, WindowWidth()-10, WindowHeight()-80) 
          UpdateStatusBar(#StatusBar_0) 
          SendMessage_(hToolbar, #TB_AUTOSIZE, 0, 0) 
    EndSelect
Until Quit=#TRUE

Should work just as well.

Jurgen · Post by **Jurgen** » Mon Oct 27, 2003 12:32 am

Thanks for the tip Inner, didn't know that.