Resize listbox to dialog with PbForms

[Mike Doty]

How would you resize a listbox to match a dialog using PbForms?
This is a very simple program to view a log file.

[Michael Mattias]

I don't know if PBForms offers some intrinsic feature to do this, but....

Process WM_SIZE notification in your callback function.

Use SetWindowPos or MoveWindow to resize and relocate the control.. or with DDT syntax, CONTROL SET LOC and/or CONTROL SET SIZE.

The PBNote application supplied with the compiler might be a real good example to look at for this. That's SDK-style, but it shows what to do on WM_SIZE.

[Mike Doty]

Thanks, that is what I needed.

[Mike Doty]

This works.

'Should dialog be locked to avoid flicker? Would inbound messages be lost if it was locked?
'Saw this posting by Borje and Lance.

'CALL CtrlRedraw(hWnd, %FALSE) 'Redraw off
'Do something
'CALL CtrlRedraw(hWnd, %TRUE) 'Redraw on, plus refresh
FUNCTION CtrlRedraw( BYVAL hWnd AS LONG, BYVAL rDraw AS LONG) AS LONG
CALL SendMessage(hWnd, %WM_SETREDRAW, rDraw, 0)
IF rDraw THEN
InvalidateRect hWnd, BYVAL %NULL, 0
UpdateWindow hWnd
END IF
END FUNCTION

CASE %WM_SIZE
          'Size listbox to client area at 0,0 or other position using DDT
          IF CBWPARAM <> %SIZE_MINIMIZED THEN   'CBWPARMAM = wParam
            LOCAL ClientX, ClientY, ControlX, ControlY AS LONG
            DIALOG GET CLIENT CBHNDL                TO  ClientX, ClientY                'size of client area
            CONTROL SET LOC CBHNDL, %IDC_LISTBOX1,  0,0                                 'optional
            CONTROL GET LOC CBHNDL,  %IDC_LISTBOX1  TO ControlX, ControlY               'get location of control
            CONTROL SET SIZE CBHNDL, %IDC_LISTBOX1, ClientX-ControlX, ClientY-ControlY  'resize to fit client area
          END IF
          EXIT FUNCTION