Fenêtre Artificiel

' reproduction de fenetre artificiel : 2,1,X,_
label agrand,quit,petit,double
label max,croix,help,help8,help7
dim grand,petit,is_max,double2
dim is_X,is_aide,et$,et2$

et$="Actif":et2$="OFF"

left 0,100:top 0,100
width 0,420
height 0,240
border_hide 0

picture 1
full_space 1
stretch_on 1
color 1,0,0,255

picture 2
top 2,25:left 2,2
width 2,416
height 2,213
color 2,233,232,218

alpha 6
top 6,6
left 6,5
font_bold 6
color 6,0,0,255:font_color 6,255,255,255
caption 6,"Reproduction de Fenêtre"

button 3
top 3,2
left 3,397
height 3,21
width 3,21
caption 3,"X"
font_bold 3
on_click 3,quit

button 4
top 4,2
left 4,374
height 4,21
width 4,21
font_size 4,10
font_name 4,"Webdings"
caption 4,"1"
font_bold 4
on_click 4,agrand

button 5
top 5,2
left 5,351
height 5,21
width 5,21
caption 5,"_"
font_bold 5
on_click 5,petit

button 7
left 7,12
top 7,65
caption 7,"Max : Actif"
on_click 7,max

button 8
left 8,12
top 8,35
caption 8,"Juste croix : OFF"
on_click 8,croix
width 7,100:width 8,100

button 9
top 9,2
left 9,328
height 9,21
width 9,21
caption 9,"?"
font_bold 9
on_click 9,help

memo 10:hide 10
left 10,12
top 10,95
width 10,200

button 11
top 11,2
left 11,305
width 11,21
height 11,21
caption 11,"r"
font_bold 11
font_name 11,"wingdings 3"
on_click 11,double

end

agrand:
if (grand=0)
  caption 4,"2"
  grand=1
else
  caption 4,"1"
  grand=0
end_if
return

petit:
if (petit=0)
  height 0,25
  left 0,0:top 0,screen_y-55
  petit=1
else
  left 0,100:top 0,100
  height 0,240
  petit=0
end_if
return

max:
if (is_max=0)
  inactive 4
  caption 7,"Max : Inactif"
  et2$="Inactif"
  is_max=1
else
  active 4
  caption 7,"Max : Actif"
  et2$="Actif"
  is_max=0
end_if
return

croix:
if (is_X=0)
  hide 4:hide 5:left 9,374
  caption 8,"Juste croix : ON"
  et2$="ON"
  is_X=1
else
  show 4:show 5:left 9,328
  caption 8,"Juste croix : OFF"
  et2$="OFF"
  is_X=0
end_if
return

help:
if (is_aide=0)
  item_add 10,"Aide Actif":show 10
  on_click 7,help7:on_click 8,help8
  is_aide=1
else
  hide 10
  on_click 7,max:on_click 8,croix
  is_aide=0
end_if
return

help8:
clear 10
item_add 10,"Ce bouton est pour faire disparaitre les bouton agrandir et repetisser."
item_add 10,"État du bouton : "+et2$
return

help7:
clear 10
item_add 10,"Ce bouton est pour inactiver le bouton agrandir."
item_add 10,"État du bouton : "+et$
return

double:
if (double2=0)
  height 0,25
  caption 11,"s"
  double2=1
else
  height 0,240
  caption 11,"r"
  double2=0
end_if
return

quit:
terminate