Effet visuel: Faire disparaître un objet

' demo réduction de fenetre ou objet.pas

label montrer, reduireparlebas, reduireparlehaut, reduireparladroite, reduireparlagauche, reduireverslecentre

dim h%, w%, t%, l%, i%, j%, m%

width 0,800

button 1 : top 1,0 : left 1,0 : width 1,150 : caption 1,"Montrer un objet" : on_click 1,montrer
button 2 : hide 2 : top 2,10 : left 2,left(1)+width(1) : width 2,150 : caption 2,"Réduire par le bas" : on_click 2,reduireparlebas
button 3 : hide 3 : top 3,10 : left 3,left(2)+width(2) : width 3,150 : caption 3,"Réduire par le haut" : on_click 3,reduireparlehaut
button 4 : hide 4 : top 4,top(2)+height(2) : left 4,left(2) : width 4,150 : caption 4,"Réduire par la droite" : on_click 4,reduireparladroite
button 5 : hide 5 : top 5,top(4) : left 5,left(4)+width(4) : width 5,150 : caption 5,"Réduire par la gauche" : on_click 5,reduireparlagauche
button 6 : hide 6 : top 6,top(5)-10 : left 6,left(5)+width(5) : width 6,150 : caption 6,"Réduire vers le centre" : on_click 6,reduireverslecentre

memo  11 : hide 11 : top 11,80 : left 11,20 : width 11,400 : height 11,300
end

montrer:
  show 11
  show 2
  show 3
  show 4
  show 5
  show 6
  return

reduireparlebas:
'  to_foreground 11
  h% = height(11)
  for i%=h%-1 to 0 step -1
    height 11,i%
    display
  next i%
  hide 11
  height 11,h%

  hide 2
  hide 3
  hide 4
  hide 5
  hide 6
  return
  
reduireparlehaut:
'  to_foreground 11
  h% = height(11)
  t% = top(11)
  for i%=h%-1 to 0 step -1
    height 11,i%
    top 11,top(11) + 1
    display
  next i%
  hide 11
  height 11,h%
  top 11,t%

  hide 2
  hide 3
  hide 4
  hide 5
  hide 6
  return

reduireparladroite:
'  to_foreground 11
  w% = width(11)
  for i%=w%-1 to 0 step -1
    width 11,i%
    display
  next i%
  hide 11
  width 11,w%

  hide 2
  hide 3
  hide 4
  hide 5
  hide 6
  return
  
reduireparlagauche:    
'  to_foreground 11
  w% = width(11)
  l% = left(11)
  for i%=w%-1 to 0 step -1
    width 11,i%
    left 11,left(11) + 1
    display
  next i%
  hide 11
  width 11,w%
  left 11,l%

  hide 2
  hide 3
  hide 4
  hide 5
  hide 6
  return
  
reduireverslecentre:
' to_foreground 11
  w% = width(11)
  h% = height(11)
  l% = left(11)
  t% = top(11)
  m% = max(w%,l%)
  while width(11)>height(11)
    width 11,width(11) - 1
  end_while
  while height(11)>height(11)
    height 11,height(11) - 1
  end_while
  for i%=m%-1 to 0 step -1
    width 11,width(11) - 1
    height 11,height(11) - 1
    if even(i%)=1
      top 11,top(11)+1
      left 11,left(11)+1
    end_if
  next i%
  hide 11
  top 11,t%
  left 11,l%
  width 11,w%
  height 11,h%

  hide 2
  hide 3
  hide 4
  hide 5
  hide 6
  return