document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Public inicialResize As Integer = 0
  4. Public inicioArrange As Integer = 0
  5. Public orden As New OrdenarProporcionalmente
  6.  
  7. Public Sub FORM_Arrange()
  8.  
  9.   orden.FormaAdaptacion = 1
  10.   If inicioArrange = 0 Then
  11.     orden.crearPosiciones(Me)
  12.     inicioArrange = 1
  13.   Endif
  14.  
  15. End
  16.  
  17. Public Sub Form_Resize()
  18.  
  19.   If inicialResize = 0 Then
  20.     inicialResize = 1
  21.   Else
  22.     orden.restaurarPosiciones(Me)    
  23.   Endif
  24.  
  25. End
');