Advertisement
jsbsan

principalOrdenacion

Nov 27th, 2013
640
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
GAMBAS 0.45 KB | None | 0 0
  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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement