XProfan

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

proc RescueLostUpDown

    parámetros Largo spinEdit
    ' Retrieve handle of updown control
    var Largo 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 Largo upDownIsVisible = Crear("SpinEdit", %hWnd, "0;0;10", 25, 25, 100, 20)
var Largo upDownIsHidden = Crear("SpinEdit", %hWnd, "0;0;10", 25, 50, 100, 20)
var Largo hidesUpDownControlsAfterIt = Crear("GroupBox", %hWnd, "a", 0, 0, 200, 200)
...

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

proc ?_Init

    /* <...> */
    Ventana x, y - dx, dy
    /* <...> */
    ?_form.intervalEdit& = Crear("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

    parámetros Largo width, height
    declarar Largo currentX, currentY, currentHeight
    /* <...> */
    var Largo tracker = BeginDeferWindowPos(controlCount)
    casenot tracker: volver 0
    /* <...> */
    ' Das Editar campo nimmt hier el gesamte a
    ' Disposición stehende Breite una.
    tracker = DeferWindowPos(tracker, ?_form.intervalEdit&, 0, \
    currentX, currentY, groupInnerWidth, editHeight, flags)
    /* <...> */
    var Int resultado = EndDeferWindowPos(tracker)
    ' Hier se el Editar campo así verkürzt, dass el UpDown-Control genug Platz ha.
    SendMessage(?_intervalUpDown, ~WM_USER + $69, ?_form.intervalEdit&, 0)' UDM_SETBUDDY
    volver resultado

ENDPROC