XProfan

 $H Windows.ph
cls
var Long upDownIsVisible = Create("SpinEdit", %hWnd, "0;0;10", 25, 25, 100, 20)
var Long hidesUpDownControlsAfterIt = Create("GroupBox", %hWnd, "a", 0, 0, 200, 200)
var Long upDownIsHidden = Create("SpinEdit", %hWnd, "0;0;10", 25, 50, 100, 20)
Create("Text", %hWnd, "Press any key to repair the second spin edit", 230, 5, 100, 100)
waitinput
RescueLostUpDown(upDownIsHidden)
waitinput
end

proc RescueLostUpDown

    parameters Long spinEdit
    ' Retrieve handle of updown control
    var Long theLostOne = GetHandle(%hWnd, ItemID(spinEdit) + 1)
    ' move groupbox behind updown control
    ~SetWindowPos(hidesUpDownControlsAfterIt, theLostOne, 0, 0, 0, 0, ~SWP_NOMOVE | ~SWP_NOSIZE)
    ' this line shouldn't even be necessary.
    SendMessage(theLostOne, $469, spinEdit, 0)' UDM_SETBUDDY

endproc

...
var Long upDownIsVisible = Create("SpinEdit", %hWnd, "0;0;10", 25, 25, 100, 20)
var Long upDownIsHidden = Create("SpinEdit", %hWnd, "0;0;10", 25, 50, 100, 20)
var Long hidesUpDownControlsAfterIt = Create("GroupBox", %hWnd, "a", 0, 0, 200, 200)
...

' Ausschnitt: mainwindow.inc
/* <...> */

proc ?_Init

    /* <...> */
    Window x, y - dx, dy
    /* <...> */
    ?_form.intervalEdit& = Create("SpinEdit", %hWnd, intervalEditCaption, 0, 0, 0, 0)
    ?_intervalUpDown = GetHandle(%hWnd, ItemID(?_form.intervalEdit&) + 1)
    /* <...> */
    ' Workaround for updown control being overlaid by groupbox!
    SetWindowPos(mainwindow.advancedGroup, mainwindow.intervalUpDown, 0, 0, 0, 0, ~SWP_NOSIZE | ~SWP_NOMOVE)
    /* <...> */
    Subclass %hWnd, 1

endproc

/* <...> */

proc ?_AdjustContents

    parameters Long width, height
    declare Long currentX, currentY, currentHeight
    /* <...> */
    var Long tracker = BeginDeferWindowPos(controlCount)
    casenot tracker: return 0
    /* <...> */
    ' Das Editfeld nimmt hier die gesamte zur
    ' Verfügung stehende Breite ein.
    tracker = DeferWindowPos(tracker, ?_form.intervalEdit&, 0, \
    currentX, currentY, groupInnerWidth, editHeight, flags)
    /* <...> */
    var Int result = EndDeferWindowPos(tracker)
    ' Hier wird das Editfeld so verkürzt, dass das UpDown-Control genug Platz hat.
    SendMessage(?_intervalUpDown, ~WM_USER + $69, ?_form.intervalEdit&, 0)' UDM_SETBUDDY
    return result

endproc