\' Gambas class file
Public inicialResize As Integer = 0
Public inicioArrange As Integer = 0
Public orden As New OrdenarProporcionalmente
Public Sub FORM_Arrange()
orden.FormaAdaptacion = 1
If inicioArrange = 0 Then
orden.crearPosiciones(Me)
inicioArrange = 1
Endif
End
Public Sub Form_Resize()
If inicialResize = 0 Then
inicialResize = 1
Else
orden.restaurarPosiciones(Me)
Endif
End