principalOrdenacion

' 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