MAIN_MENU

dim caption_bandau$,pdf$,font_titre$
label cre_form,position_form,abandon_form

label fin
' =====================================  FORM 0  ===============================
hide 0
' ===================================== FORM 100 ===============================
nf%=100:wnf%=500:hnf%=400:pdf$="CC"
df0=4:' Epaisseur du dépacement extérieur du Form nf%
rf=205:gf=255:bf=255:' Couleur_Form
rp=0:gp=0:bp=255:' Couleur_cadre_Bandau
hb=34:' Hauteur du bandau
rb=0:gb=200:bb=200:' couleur_remplissage_Bandau
epe=2:' épaisseur du trait d'encadrement Bandau et Form
caption_bandau$="FORM 100":font_titre$="fixedsys":rt=0:gt=0:bt=255: ' Titre_bandeau (police et couleur)
gosub cre_form

main_menu 106
sub_menu 107:parent 107,106:caption 107,"Quitter"
' ===================================== avant END ==============================
END
' ==============================================================================
cre_form:
if hb<34 then message " La variable hb doit être > 33":terminate
if df0<4 then message " La variable df0 doit être > 33":terminate
form nf%:width nf%,wnf%:height nf%,hnf%:command_target_is nf%
gosub position_form:color nf%,225,225,225: ' Couleur du dépacement
border_hide nf%

nf%=nf%+1:form nf%:width nf%,width(nf%-1)-(df0*2):height nf%,height(nf%-1)-(df0*2)
top nf%,top(nf%-1)+df0:left nf%,left(nf%-1)+df0
color nf%,rf,gf,bf:border_hide nf%:command_target_is nf%
' bandau
np%=nf%+1:picture np%:width np%,width(nf%):height np%,hb:top np%,0:left np%,0
2d_target_is np%
2d_pen_width epe:2d_pen_color rp,gp,bp
2d_fill_color rb,gb,bb
2d_rectangle epe,epe,width(np%)-int(epe/2),height(np%)-int(epe/2)
' bouton
np%=np%+1:picture np%:width np%,26:height np%,26:top np%,epe*2:left np%,width(np%-1)-(26+epe)
color np%,rp,gp,bp
file_load np%,"croixrouge2.bmp":on_click np%,abandon_form
' titre
np%=np%+1:alpha np%::top np%,int(height(np%-1)/2)-(epe*2):left np%,((epe*2)*2):caption np%,caption_bandau$
color np%,rb,gb,bb:font_name np%,font_titre$:font_color np%,rt,gt,bt
return
' ==============================================================================
abandon_form:
hide nf%:hide nf%-1
show 0
return

position_form:
if pdf$="HG" then left nf%,0:top nf%,0
if pdf$="HC" then left nf%,int(xe/2)-int(width(nf%)/2):top nf%,0
if pdf$="HD" then left nf%,xe-width(nf%):top nf%,0
if pdf$="BG" then left nf%,0:top nf%,ye-height(nf%)
if pdf$="BC" then left nf%,int(xe/2)-int(width(nf%)/2):top nf%,ye-height(nf%)
if pdf$="BD" then left nf%,xe-width(nf%):top nf%,ye-height(nf%)
if pdf$="CG" then left nf%,0:top nf%,int(ye/2)-int(height(nf%)/2)
if pdf$="CC" then left nf%,int(xe/2)-int(width(nf%)/2):top nf%,int(ye/2)-int(height(nf%)/2)
if pdf$="CD" then left nf%,xe-width(nf%):top nf%,int(ye/2)-int(height(nf%)/2)
if pdf$="DM" then left nf%,lnf%:top nf%,tnf%
if pdf$="" then message "La variable pdf$ doit être renseigné":terminate
return

fin:
terminate