label scan,name,edition,nouveau,enregistre,detruit
label enregistrefichier$,dem_texte,clktemp,clique
label clk35,clk32,clk30,clk27,clk26,clk15,infodeb2
label clk12,clk10,clk9,clk8,clk17,clk176,info_impr
label couleur,couleurs,fond,couleurs2,organise
label aide,apropos,okins,daprops,site,aide2,caropt$
label fermer,fermer2,demarer,fermersesion,hidenouveau
label non,oui,acepte,nonacepte,acepte2,infodeb,convert
label proverbes,insere,OKfermer,clk27deb,couleur2
label format1,format2,format3,format4,rien,enregistrefichier2$
label ascenseur,ouvrir,SLFN,normal,clk183temp,apresquit
label ouisuppr,nonsuppr,taille,clk183,impr,info,casse

dim is_bold,is_italic,is_under
dim is_souris,is_bar,is_bar2
dim NomFichier$,i,j,car$
dim Rouge,Vert,Bleu,texte
dim longueur,txt,is_info_impr
dim is_fermer,is_normal,g$
dim r,vide,a$,is_emplace,NomPath$,Nom$
dim is_check,is_activedeac,b$
dim is_barre,taille_car,argument1$

dim is_ESCDLP,is_sous
b$=chr$(10)+chr$(13)
NomFichier$="Document1.mwd"
Nom$=NomFichier$

is_bold=0
is_italic=0
is_under=0
is_souris=0
is_bar=0
is_bar2=0
is_fermer=0
is_check=0
is_barre=0
is_activedeac=0
is_normal=0
is_emplace=0
is_info_impr=0

is_ESCDLP=0
is_sous=0

error_french
' on_error_goto apresquit

rem son multibase de Windows --------

sound 88
file_load 88,"C:\WINDOWS\Media\Windows XP Exclamation.wav"

rem atente -----------------------------------------------------

left 0,300
top 0,200
width 0,320
height 0,250
border_hide 0
color 0,0,80,225

picture 76
width 76,160
height 76,125
color 76,255,0,0

picture 77
left 77,160
width 77,160
height 77,125
color 77,100,255,0

picture 78
top 78,125
width 78,160
height 78,125
color 78,0,0,255

picture 79
top 79,125
left 79,160
width 79,160
height 79,125
color 79,255,255,0

alpha 70
left 70,60
top 70,30
caption 70,"Mini-Word"
font_size 70,30
font_bold 70
color 70,255,0,0

alpha 72
left 72,100
top 72,80
caption 72,"V 1.4.6"
font_size 72,30
font_bold 72
color 72,0,255,0

alpha 73
left 73,55
top 73,140
caption 73,"Copyright 2009-2010"
font_size 73,15
font_bold 73
color 73,0,0,255

alpha 74
left 74,55
top 74,170
caption 74,"Auteur : Nicolas Maltais"
font_size 74,15
font_bold 74
color 74,255,255,0

wait 1000
delete 76
delete 77
delete 78
delete 79

left 0,160
top 0,100
width 0,700
height 0,521
caption 0,"Mini-Word  V1.4.6  -  Document1.mwd"
border_normal 0
color 0,232,233,218

rem modifier les coordonnées de l'accueil « Mini-Word » -----------

left 70,165
left 72,195
left 73,150
left 74,150

rem principale ---------------------------------------------------

form 66
left 66,300
top 66,200
width 66,200
height 66,110
color 66,0,0,0
border_hide 66
command_target_is 66

alpha 202
left 202,15
top 202,10
caption 202,"Attente du Démarrage..."+b$+b$+"Soyez Patient.  Merci !"
font_color 202,255,255,255
color 202,0,0,0

progress_bar 203
left 203,5
top 203,75
height 203,30
width 203,190
command_target_is 0

rem -------------------------------------------------

edit 45
left 45,102
top 45,445
width 45,590
text 45,Nom$
color 45,232,233,218

memo 1
top 1,21
width 1,691
height 1,423
bar_both 1
font_size 1,12
font_name 1,"Times New Roman"
if param_number>0
  NomFichier$=param_value$(1)
  if (file_exists(NomFichier$)=1)
    file_load 1,NomFichier$
  end_if
end_if
if (file_exists(NomFichier$)=1)
  j=len(NomFichier$)
  NomPath$=""
  Nom$=""
  for i=j to 1 step -1
    if (mid$(NomFichier$,i,1)="\")
      NomPath$=mid$(NomFichier$,1,i)
    if (i<j) then Nom$=mid$(NomFichier$,i+1,j-i)
      caption 0,"Mini-Word V1.4.6  -  "+Nom$
      text 45,Nom$
  exit_for
    end_if
  next i
  if (file_exists(NomFichier$)=1)
    file_load 1,NomFichier$
    on_click 107,enregistrefichier$
    on_click 109,enregistrefichier2$
    dir_change NomFichier$
  end_if
end_if
set_focus 1
position 203,5:to_foreground 66

rem déf. de barre format----------------------------------

progress_bar 69
top 69,445
width 69,102
height 69,21
cursor_noparking 69

rem déf. de menu principale ------------------------------

combo 7
font_names_add 7
text 7,"Times New Roman"
on_click 7,name

button 8
left 8,144
height 8,21
width 8,21
caption 8,"G"
font_bold 8
hint 8,"Gras"
on_click 8,clk8
position 69,5
cursor_point 8

button 9
left 9,165
height 9,21
width 9,21
caption 9,"I"
font_italic 9
font_bold 9
hint 9,"Italique"
on_click 9,clk9
cursor_point 9

button 10
left 10,186
height 10,21
width 10,21
caption 10,"S"
font_bold 10
font_underline 10
hint 10,"Souligné"
on_click 10,clk10
position 69,10
cursor_point 10

combo 18
width 18,50
left 18,207
text 18,"12"
for i=6 to 30 step 2
  item_add 18,i
next i

button 28
left 28,257
height 28,21
width 28,21
caption 28,"A"
font_underline 28
font_bold 28
hint 28,"Couleur de police"
on_click 28,couleur
cursor_point 28

picture 31
left 31,278
width 31,5
height 31,21
color 31,0,0,0
on_click 31,couleur
position 69,20

picture 27
left 27,284
width 27,24
height 27,21
file_load 27,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton souris.bmp"
hint 27,"Désactiver le curseur"
on_click 27,clk27deb
cursor_point 27

combo 17
left 17,308
width 17,77
text 17,"60.4%"
item_add 17,"10%"
item_add 17,"15%"
item_add 17,"20%"
item_add 17,"30%"
item_add 17,"40%"
item_add 17,"50%"
item_add 17,"60%"
item_add 17,"60.4%"
hint 17,"Zoom"
on_change 17,clk17

picture 107
left 107,385
height 107,21
width 107,21
font_bold 107
file_load 107,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton enregistre.bmp"
hint 107,"Saugarder Source"
on_click 107,enregistrefichier$
cursor_point 107
position 69,25

picture 120
left 120,407
height 120,21
width 120,23
font_bold 120
file_load 120,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton ouvrir.bmp"
hint 120,"Ouvrir Source"
on_click 120,ouvrir
cursor_point 120

picture 122
left 122,431
height 122,21
width 122,23
font_bold 122
file_load 122,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton nouveau.bmp"
hint 122,"Nouveau"
on_click 122,acepte2
cursor_point 122

picture 123
left 123,459
height 123,21
width 123,22
file_load 123,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton Couper.bmp"
hint 123,"Couper    (Ctrl+X)"
on_click 123,edition
cursor_point 123
position 69,30

picture 124
left 124,481
height 124,21
width 124,22
file_load 124,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton copier.bmp"
hint 124,"Copier    (Ctrl+C)"
on_click 124,edition
cursor_point 124

picture 125
left 125,503
height 125,21
width 125,23
file_load 125,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton coller.bmp"
hint 125,"Coller    (Ctrl+V)"
on_click 125,edition
cursor_point 125

picture 126
left 126,554
height 126,21
width 126,23
file_load 126,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton fermer.bmp"
hint 126,"Fermer Dossier"
on_click 126,fermer2
cursor_point 126
position 69,35

picture 127
left 127,454
width 127,5
height 127,21
color 127,232,233,218

picture 128
left 128,526
width 128,5
height 128,21
color 128,232,233,218

picture 129
left 129,531
height 129,21
width 129,23
file_load 129,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton aide.bmp"
hint 129,"Aide  ? \  Mini Word version 0.1.3"
on_click 129,aide2
cursor_point 129
position 69,40

picture 137
left 137,577
width 137,115
height 137,21
color 137,232,233,218

picture 199
left 199,577
height 199,21
width 199,23
file_load 199,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton imprimer.bmp"
hint 199,"Imprimer"
on_click 199,infodeb
cursor_point 199
position 69,45

combo 200
width 200,92
left 200,600
text 200,"Noir"
item_add 200,"Rouge"
item_add 200,"Bleu"
item_add 200,"Jaune"
item_add 200,"Vert"
item_add 200,"Orange"
item_add 200,"Violet"
item_add 200,"Blanc"
item_add 200,"Noir"
on_click 200,couleur2

position 203,10
rem barre de menus -------------------------------------------------------------------------------------------

main_menu 2
sub_menu 3:parent 3,2:caption 3,"Fichier"
sub_menu 36:parent 36,2:caption 36,"Edition"
sub_menu 16:parent 16,2:caption 16,"Affichage"
sub_menu 5:parent 5,2:caption 5,"Insertion"
sub_menu 117:parent 117,2:caption 117,"Format"
sub_menu 61:parent 61,2:caption 61,"Outils"
sub_menu 189:parent 189,2:caption 189,"Fenêtre"
sub_menu 46:parent 46,2:caption 46,"?"

' Fichier ----------------------------------------------------------------------
sub_menu 6:parent 6,3:caption 6,"Nouveau                                "
sub_menu 19:parent 19,3:caption 19,"Ouvrir..."
sub_menu 109:parent 109,3:caption 109,"Enregistrer"
sub_menu 11:parent 11,3:caption 11,"Enregistrer sous..."
sub_menu 60:parent 60,3:caption 60,"Fermer"
sub_menu 191:parent 191,3:caption 191,"Imprimer..."
sub_menu 130:parent 130,3:caption 130,"Supprimer le fichier":inactive 130
sub_menu 4:parent 4,3:caption 4,"Quitter      Alt+F4"

' Edition ----------------------------------------------------------------------
sub_menu 37:parent 37,36:caption 37,"Couper      Ctrl+X"
sub_menu 38:parent 38,36:caption 38,"Copier        Ctrl+C"
sub_menu 39:parent 39,36:caption 39,"Coller        Ctrl+V"
sub_menu 95:parent 95,36:caption 95,"Effacer tout"

' Affichage ----------------------------------------------------------------------
sub_menu 101:parent 101,16:caption 101,"Ascenseur"
sub_menu 30:parent 30,16:caption 30,"Barre d'outils *"
sub_menu 183:parent 183,16:caption 183,"Barre emplacement *                "

sub_menu 102:parent 102,101:caption 102,"Ascenseur vertical"
sub_menu 103:parent 103,101:caption 103,"Ascenseur horizontal"
sub_menu 104:parent 104,101:caption 104,"Ascenseur horizontal et vertical*"
sub_menu 106:parent 106,101:caption 106,"Aucun ascenseur"

position 69,50:position 203,15 : ' ---------------------------------------------------------------
' Insertion ----------------------------------------------------------------------
sub_menu 32:parent 32,5:caption 32,"Caractères spéciaux..."
sub_menu 12:parent 12,5:caption 12,"Date et heure..."
sub_menu 89:parent 89,5:caption 89,"Insertion automatique"

sub_menu 90:parent 90,89:caption 90,"Proverbes..."

' Format -------------------------------------------------------------------------
sub_menu 118:parent 118,117:caption 118,"Caractères (Normal)"
sub_menu 138:parent 138,117:caption 138,"Taille    (Normal)"
sub_menu 169:parent 169,117:caption 169,"Couleur des caractères..."
sub_menu 170:parent 170,117:caption 170,"Couleur du fond..."
sub_menu 177:parent 177,117:caption 177,"Désactiver le curseur"
sub_menu 110:parent 110,117:caption 110,"Modifier la casse..."

sub_menu 113:parent 113,118:caption 113,"Gras"
sub_menu 114:parent 114,118:caption 114,"Italique"
sub_menu 115:parent 115,118:caption 115,"Souligné"
sub_menu 116:parent 116,118:caption 116,"Barré"
sub_menu 181:parent 181,118:caption 181,"Normal"

sub_menu 154:parent 154,138:caption 154,"1"
sub_menu 155:parent 155,138:caption 155,"2"
sub_menu 156:parent 156,138:caption 156,"3"
sub_menu 157:parent 157,138:caption 157,"4"
sub_menu 158:parent 158,138:caption 158,"5"
sub_menu 139:parent 139,138:caption 139,"6"
sub_menu 140:parent 140,138:caption 140,"8"
sub_menu 141:parent 141,138:caption 141,"9"
sub_menu 142:parent 142,138:caption 142,"10"
sub_menu 143:parent 143,138:caption 143,"11"
sub_menu 144:parent 144,138:caption 144,"12"
sub_menu 159:parent 159,138:caption 159,"13"
sub_menu 145:parent 145,138:caption 145,"14"
sub_menu 160:parent 160,138:caption 160,"15"
sub_menu 146:parent 146,138:caption 146,"16"
sub_menu 161:parent 161,138:caption 161,"17"
sub_menu 147:parent 147,138:caption 147,"18"
sub_menu 167:parent 167,138:caption 167,"19"
sub_menu 148:parent 148,138:caption 148,"20"
sub_menu 163:parent 163,138:caption 163,"21"
sub_menu 149:parent 149,138:caption 149,"22"
sub_menu 164:parent 164,138:caption 164,"23"
sub_menu 150:parent 150,138:caption 150,"24"
sub_menu 165:parent 165,138:caption 165,"25"
sub_menu 151:parent 151,138:caption 151,"26"
sub_menu 166:parent 166,138:caption 166,"27"
sub_menu 152:parent 152,138:caption 152,"28"
sub_menu 168:parent 168,138:caption 168,"29"
sub_menu 153:parent 153,138:caption 153,"30"
sub_menu 162:parent 162,138:caption 162,"Normal (12)"

' Outils ------------------------------------------------------------------
sub_menu 182:parent 182,61:caption 182,"Démarrer"
sub_menu 82:parent 82,182:caption 82,"Autres"
sub_menu 62:parent 62,182:caption 62,"Microsoft Word"
sub_menu 67:parent 67,62:caption 67,"Démarer Microsoft Word 2000..."
sub_menu 63:parent 63,182:caption 63,"Démarrer WordPad..."
sub_menu 64:parent 64,182:caption 64,"Démarrer Bloc-Notes..."
sub_menu 65:parent 65,182:caption 65,"Démarrer la table des caractères..."
sub_menu 68:parent 68,182:caption 68,"Démarrer la calculatrice..."

sub_menu 83:parent 83,82:caption 83,"Démarrer Clavier Visuel..."
sub_menu 84:parent 84,82:caption 84,"Démarrer Paint..."
sub_menu 85:parent 85,82:caption 85,"Démarrer la Loupe..."
sub_menu 87:parent 87,82:caption 87,"Démarrer Explorer..."
sub_menu 86:parent 86,82:caption 86,"Gestionnaire d'utilitaires..."
sub_menu 178:parent 178,61:caption 178,"Créé un fichier texte"

position 69,55:position 203,20 : ' ---------------------------------------------------------------

' Aide --------------------------------------------------------------------
sub_menu 190:parent 190,189:caption 190,"Réorganiser tout"
sub_menu 47:parent 47,46:caption 47,"Aide...          "
sub_menu 48:parent 48,46:caption 48,"A Propos..."


position 69,60:position 203,25 : ' ---------------------------------------------------------------

' ON_CLICK N,L --------------------
on_click 4,fermersesion
on_click 6,acepte
on_click 11,scan
on_click 109,enregistrefichier2$
on_click 12,clk12
on_click 19,scan
on_click 18,scan
on_click 30,clk30
on_click 32,clk32
on_click 37,edition
on_click 38,edition
on_click 39,edition
on_click 95,edition
on_click 47,aide
on_click 48,apropos
on_click 60,fermer
on_click 90,proverbes
on_click 130,SLFN
on_click 169,couleur
on_click 170,fond
on_click 177,clk27
on_click 183,clk183
on_click 190,organise
on_click 191,info
on_click 110,casse

if (file_exists(NomFichier$)=1)
  on_click 109,enregistrefichier2$
  on_click 107,enregistrefichier$
else
  on_click 109,scan
  on_click 107,enregistre
end_if

picture 111
top 111,21
height 111,424
width 111,691
color 111,232,233,218

rem menus démarer -------------
on_click 67,demarer
on_click 68,demarer
on_click 63,demarer
on_click 64,demarer
on_click 65,demarer
on_click 82,demarer
on_click 83,demarer
on_click 84,demarer
on_click 85,demarer
on_click 86,demarer
on_click 87,demarer
on_click 178,dem_texte

rem menus ascenseurs ------------
on_click 102,ascenseur
on_click 103,ascenseur
on_click 104,ascenseur
on_click 106,ascenseur

rem police ---------------------
on_click 113,format1
on_click 114,format2
on_click 115,format3
on_click 116,format4
on_click 181,normal
rem taille --------------------
on_click 139,taille
on_click 140,taille
on_click 141,taille
on_click 142,taille
on_click 143,taille
on_click 144,taille
on_click 145,taille
on_click 146,taille
on_click 147,taille
on_click 148,taille
on_click 149,taille
on_click 150,taille
on_click 151,taille
on_click 152,taille
on_click 153,taille
on_click 154,taille
on_click 155,taille
on_click 156,taille
on_click 157,taille
on_click 158,taille
on_click 159,taille
on_click 160,taille
on_click 161,taille
on_click 167,taille
on_click 163,taille
on_click 164,taille
on_click 165,taille
on_click 166,taille
on_click 162,taille
position 69,65



rem ----------------------------------------------------------------------------------------------------------------------------
rem ----------------------------------------------------------------------------------------------
rem déf de tous les form et leur objet -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
rem ----------------------------------------------------------------------------------------------
rem ----------------------------------------------------------------------------------------------------------------------------

form 13
hide 13
command_target_is 13
left 13,300
top 13,200
caption 13,"Date et heure"

list 14
top 14,10
left 14,10
width 14,150
height 14,100
item_add 14,""+date$
item_add 14,""+time$
on_click 14,clique

memo 212
left 212,180
height 212,21
width 212,100

button 15
left 15,20
top 15,170
caption 15,"Inserer"
on_click 15,clk15
position 69,70

position 203,30
rem déf de form 40 (nouveau)- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

form 40
hide 40
left 40,250
top 40,150
width 40,230
height 40,100
caption 40,"Info : Nouveau"
border_hide 40
color 40,0,0,0
command_target_is 40

check 112
left 112,16
top 112,71
height 112,16
width 112,200
caption 112,"Ne jamais afficher cette fenêtre"
font_color 112,255,255,255
color 112,0,0,255
on_click 112,hidenouveau

Alpha 41
hide 41
left 41,20
top 41,10
caption 41,"Voulez-vous enregistré les modification ?"
font_color 41,255,255,255

picture 42
hide 42
left 42,50
top 42,30
file_load 42,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\Oui.bmp"
on_click 42,oui

picture 43
hide 43
left 43,150
top 43,30
file_load 43,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\Non.bmp"
on_click 43,non

picture 44
hide 44
top 44,70
width 44,230
file_load 44,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bandeau pg.bmp"

command_target_is 0
position 69,75:position 203,35
rem - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

form 50
hide 50
left 50,230
top 50,150
width 50,350
height 50,290
caption 50," Aide  ? \  Mini Word version 1.4.6"
command_target_is 50

list 51
hide 51
top 51,5
width 51,341
height 51,200
cursor_help 51
item_add 51,"------------------------------------------AIDE ?------------------------ ---------------------------------------"
item_add 51,""
item_add 51,"La première petite liste du bar est celle des polices."
item_add 51,"Les boutons à côté sont ceux pour les caractères de la page et"
item_add 51,"des caractères spéciaux."
item_add 51,"L'autre petite liste à côté et celle de la grosseur des caractères"
item_add 51,"de la page."
item_add 51,"Le bouton à côté est celui de la couleur des caractères de la"
item_add 51,"page. Ce qui est à côté est pour voir la couleur des caractères"
item_add 51,"qu'ont a choisi. Le bouton avec une souris est pour"
item_add 51,"désactiver le curseur et les autre commandes."
item_add 51,"La liste à cotée est celle de la grosseur de page."
item_add 51,"ouvre. Espace qui est écrit « Emplacement  : » sert à voir quand"
item_add 51,"ont un fichier ils écrit l'emplacement même si c'est une image."
item_add 51,""
item_add 51,"-------------------------------------------MENUS--------------------------------------------------------------"
item_add 51,""
item_add 51,"Dans le menu « Fichier » ils a : « Enregistrer sous... » pour en-"
item_add 51,"registrer sous, il a « Ouvrir... » pour ouvrir un fichier, il a"
item_add 51,"« Nouveau » pour effacer tout le contenu de la page, il a"
item_add 51,"« Quitter » pour quitter le programme et il a « Enregistrer » pour"
item_add 51,"enregistrer sans ouvrir la boîte dialogue et il y a « Imprimer »"
item_add 51,"pour imprimer le contenu de la page. Il a un menu qui s'appelle"
item_add 51,"« Edition » dans édition il a « Couper » , « Copier » , « Coller »"
item_add 51,"avec leur touches de raccourcis. Dans édition, il y a aussi"
item_add 51,"« Effacer tout » pour tout effacer. Il a un autre menu qui"
item_add 51,"s'appelle « Affichage » dans affichage il a l'option"
item_add 51,"« Barre d'outils » et"
item_add 51,"« Barre emplacement » pour cacher la barre emplacement. Il y a le"
item_add 51,"menu des insertions. Dans « Insertion » il"
item_add 51,"a « Caractères spéciaux... » pour insérer des caractère spéciaux. Il"
item_add 51,"a aussi « Date et heure... » pour insérer la date et l'heure. Il a"
item_add 51,"Insertion automatique pour insérer des mots. L'avant dernier"
item_add 51,"menus est celui des options. Dans « outils » il y a"
item_add 51,"des options pour démarrer des outils de Windows comme WordPad,"
item_add 51,"bloc-notes, calculatrice et etc. Le dernier menu est « Aide »"
item_add 51,"dans aide il a « Aide ? » pour avoir de l'aide sur Mini-Word version"
item_add 51,"0.1.3. Dans le même menu il a « A Propos »."
item_add 51,""
item_add 51,"---------------------------------------COMMENTAIRE-------------------------------------------------------------"
item_add 51,""
item_add 51,"  S.V.P NE PAS MODIFIER LA VERSION 1.4.6 DE MINI WORD !"
item_add 51,"                                    MERCI À VOUS !!!"
item_add 51,""
item_add 51,"---------------------------------------------------------------------------------------------------------------"
item_add 51,""




button 52
hide 52
left 52,10
top 52,210
width 52,321
height 52,40
caption 52,"OK"
font_size 52,14
font_bold 52
on_click 52,okins
cursor_point 52

position 69,80:position 203,40
rem -----------------------------------------------------------------------------------------------------------------------------------

form 53
hide 53
left 53,250
top 53,200
width 53,400
height 53,200
caption 53,"A Propos  \ Mini Word version 1.4.6"
command_target_is 53

alpha 56
hide 56
left 56,10
top 56,50
width 56,350
caption 56,"Mini Word version 1.4.6  \  Auteur : Nicolas Maltais"

alpha 58
hide 58
left 58,20
top 58,15
width 58,350
caption 58,"Mini Word version 1.4.6 Copyright octobre 2009"

picture 57
hide 57
left 57,270
top 57,5
file_load 57,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\chose bîn mini.jpg"

button 54
hide 54
left 54,20
top 54,120
width 54,150
caption 54,"&Aller sur le site du programme"
on_click 54,site
cursor_point 54

button 55
hide 55
left 55,190
top 55,120
width 55,170
caption 55,"OK"
font_size 55,15
font_bold 55
on_click 55,daprops
cursor_point 55

picture 179
hide 179
left 179,30
top 179,70
height 179,40
file_load 179,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\panor.bmp"

alpha 180
hide 180
left 180,80
top 180,80
caption 180,"Programmer en Panoramic"
font_size 180,10
font_bold 180

position 69,85 :position 203,45
rem ------------------------------------------------------------------------------------------------------------------------------------

form 92
hide 92
left 92,100
top 92,80
width 92,430
height 92,350
caption 92,"Insertion automatique : Proverbes"
command_target_is 92

button 93
hide 93
left 93,50
top 93,270
caption 93,"Inserer"
on_click 93,insere
cursor_point 93

button 94
hide 94
left 94,150
top 94,270
caption 94,"&Fermer"
on_click 94,OKfermer
cursor_point 94

memo 91
hide 91
left 91,10
top 91,10
width 91,400
height 91,250
item_add 91,"a beau mentir qui vient de loin"
item_add 91,"à bon chat, bon rat"
item_add 91,"abondance de biens ne nuit pas"
item_add 91,"à chacun son métier, les vaches seront bien gardées"
item_add 91,"à chaque jour suffit sa peine"
item_add 91,"à cheval donné, on ne regarde point les dents"
item_add 91,"à coeur vaillant, rien d'impossible"
item_add 91,"à la guerre comme à la guerre"
item_add 91,"à maison laide arbre mort"
item_add 91,"amitié mène à lâcheté"
item_add 91,"à malin, malin et demi"
item_add 91,"à vieille mule, frein doré"
item_add 91,"après la fête, on gratte sa tête"
item_add 91,"après la pluie, le beau temps"
item_add 91,"après l'effort, le réconfort"
item_add 91,"au royaume des aveugles, les borgnes sont rois"
item_add 91,"au tard venu, les os"
item_add 91,"aussitôt dit, aussitôt fait"
item_add 91,"avec des si on mettrait Paris en bouteille"
item_add 91,"beaucoup de bruit pour rien"
item_add 91,"caresse de chien donne des puces"
item_add 91,"c'est au pied du mur qu'on voit le maçon"
item_add 91,"c'est en forgeant qu'on devient forgeron"
item_add 91,"ce n'est pas à un vieux singe qu'on apprend à faire des grimaces"
item_add 91,"cela ne sert à rien de devenir un jour l'homme le plus riche du cimetière"
item_add 91,"c'est en forgeant que l'on devient forgeron"
item_add 91,"chacun son métier, les vaches seront bien gardées"
item_add 91,"chacun est l'artisan de sa fortune"
item_add 91,"chacun voit midi à sa porte"
item_add 91,"chassez le naturel, il revient au galop"
item_add 91,"chassez le naturel par la porte, il revient par la fenêtre"
item_add 91,"chat échaudé craint l'eau froide"
item_add 91,"chose promise, chose due"
item_add 91,"de l'eau sur la mariée, de l'or dans le panier"
item_add 91,"en avril, ne te découvre pas d'un fil, en mai, fais ce qu'il te plaît"
item_add 91,"fais ce que je dis, pas ce que je fais"
item_add 91,"faute avouée à moitié pardonnée"
item_add 91,"faute avouée est à demi pardonnée"
item_add 91,"faute de grives, on mange des merles"
item_add 91,"il faut manger pour vivre, et non vivre pour manger"
item_add 91,"il faut souffrir ou faire souffrir"
item_add 91,"il faut viser haut pour ne pas tomber trop bas"
item_add 91,"il n'est pas plus sourd que celui qui ne veut pas entendre"
item_add 91,"il n'est point de sot métier"

position 203,50

item_add 91,"il ne faut pas se moquer de la peine du voisin, car la vôtre arrive le lendemain matin"
item_add 91,"il n'y a pas de fonctionnaires travailleurs, il n'y a que des fonctionnaires insomniaques"
item_add 91,"il n'y a pas de fumée sans feu"
item_add 91,"il n'y a que le premier pas qui coûte"
item_add 91,"il n'y a qu'un seul péché, c'est l'ignorance"
item_add 91,"il vaut mieux arriver en retard qu'arriver en corbillard"
item_add 91,"il y a assez à faire de regarder ce qui cuit dans sa marmite sans aller regarder ce qui cuit dans celle du voisin"
item_add 91,"jamais deux sans trois"
item_add 91,"jeu de main, jeu de vilain"
item_add 91,"l'appétit vient en mangeant"
item_add 91,"l'argent est un bon serviteur et un mauvais maître"
item_add 91,"l'avare et le cochon ne sont bons qu'après leur mort"
item_add 91,"l'espoir fait vivre                                  "
item_add 91,"l'habit ne fait pas le moine                        "
item_add 91,"la caque sent toujours le hareng                    "
item_add 91,"la chance sourit à ceux qui ne l'attendent pas      "
item_add 91,"la fortune sourit aux audacieux                      "
item_add 91,"la nuit, tous les chats sont gris                    "
item_add 91,"la parole est d'argent et le silence est d'or        "
item_add 91,"la parole est d'argent, mais le silence est d'or    "
item_add 91,"la peur donne des ailes                              "
item_add 91,"la véritable amitié se voit dans le malheur          "
item_add 91,"l'appétit vient en mangeant                          "
item_add 91,"l'argent n'a pas d'odeur                            "
item_add 91,"l'avenir appartient à ceux qui se lèvent tôt        "
item_add 91,"le chat parti, les souris dansent                    "
item_add 91,"le chemin de l'enfer est pavé de bonnes intentions  "
item_add 91,"le chien aboie, la caravane passe                    "
item_add 91,"le malheur des uns fait le bonheur des autres        "
item_add 91,"le temps, c'est de l'argent                          "
item_add 91,"les chiens aboient, la caravane passe                "
item_add 91,"les absents ont toujours tort                        "
item_add 91,"les affaires sont les affaires                      "
item_add 91,"les avares sont comme les porcs : ils ne rendent service qu'après leur mort"
item_add 91,"les bons comptes font les bons amis                                        "
item_add 91,"les bons maîtres font les bons valets                                      "
item_add 91,"les cordonniers sont toujours les plus mal chaussés                        "
item_add 91,"les murs ont des oreilles                                                  "
item_add 91,"les plaisanteries les plus courtes sont les meilleures                    "
item_add 91,"les rats quittent le navire                                                "
item_add 91,"l'habit ne fait pas le moine                                              "
item_add 91,"l'exactitude est la politesse des rois                                    "
item_add 91,"l'occasion fait le larron                                                  "
item_add 91,"l'oisiveté est la mère de tous les vices                                  "
item_add 91,"loin des yeux, loin du coeur                                                "
item_add 91,"lorsque Dieu veut nous punir, Il exauce nos prières                        "
item_add 91,"lorsque qu'un vieux fait l'amour, la mort court alentour                  "
item_add 91,"mieux vaut arriver en retard qu'en corbillard                              "
item_add 91,"mieux vaut être seul que mal accompagné                                    "
item_add 91,"mieux vaut prévenir que guérir                                            "
item_add 91,"mieux vaut tard que jamais                                                "
item_add 91,"mieux vaut tondre l'agneau que le pourceau                                "
item_add 91,"ne remets pas à demain ce que tu peux faire aujourd'hui                    "
item_add 91,"il ne faut pas remettre à demain ce qu'on peut faire aujourd'hui          "
item_add 91,"il ne faut pas remettre au lendemain ce qu'on peut faire le jour même      "
item_add 91,"nécessité fait loi                                                        "
item_add 91,"on n'attrape pas des mouches avec du vinaigre                              "
item_add 91,"on ne fait pas d'omelette sans casser des oeufs                            "
item_add 91,"on ne lance pas de pierre quand on vie dans une maison de verre            "
item_add 91,"on ne peut être à la fois au four et au moulin                            "
item_add 91,"on ne prête qu'aux riches                                                  "
item_add 91,"on ne tond pas un oeuf                                                      "
item_add 91,"on voit la paille dans l'oeil de son voisin et non la poutre dans le notre  "
item_add 91,"pas de nouvelle, bonnes nouvelles                                          "
item_add 91,"Paris ne s'est pas fait en un jour                                        "
item_add 91,"petit à petit, l'oiseau fait son nid                                      "
item_add 91,"pierre qui roule n'amasse pas mousse                                      "
item_add 91,"pour faire bon ménage, il faut que l'homme soit sourd et la femme aveugle  "
item_add 91,"le chat parti, les souris dansent                                          "
item_add 91,"quand le chat n'est pas là, les souris dansent                            "
item_add 91,"quand le diable devint vieux, il se fit ermite                            "
item_add 91,"quand le vin est tiré, il faut le boire                                    "
item_add 91,"quand les cheveux commencent à blanchir, laisse la femme et prends le vin  "
item_add 91,"quand vient la gloire, s'en va la mémoire                                  "
item_add 91,"qui a bu, boira                                                            "
item_add 91,"qui aime bien, châtie bien                                                "
item_add 91,"qui dort, dîne                                                            "
item_add 91,"qui fait le malin, tombe dans le ravin                                    "
item_add 91,"qui m'aime, me suive                                                      "
item_add 91,"qui ne dit, mot consent                                                    "
item_add 91,"qui ne risque rien, n'a rien                                              "
item_add 91,"qui ne tente rien, n'a rien                                                "
item_add 91,"qui paie ses dettes, s'enrichit                                            "
item_add 91,"qui peut le plus, peut le moins                                            "
item_add 91,"qui se ressemble, s'assemble                                              "
item_add 91,"qui sème le vent, récolte la tempête                                      "
item_add 91,"qui s'y frotte, s'y pique                                                  "
item_add 91,"qui veut la paix, prépare la guerre                                        "
item_add 91,"qui veut noyer son chien, l'accuse de la rage                              "
item_add 91,"qui veut tuer son chien, l'accuse de la rage                              "
item_add 91,"qui veut voyager loin, ménage sa monture                                  "
item_add 91,"qui vole un oeuf, vole un boeuf                                              "
item_add 91,"qui trop embrasse, mal étreint                                            "
item_add 91,"qui vivra, verra                                                          "
item_add 91,"renvoyer à l'abc                                                          "
item_add 91,"rien de nouveau sous le soleil                                            "
item_add 91,"rien ne sert de courir, il faut partir à point                            "
item_add 91,"rira bien, qui rira le dernier                                            "
item_add 91,"seuls ceux qui ne font jamais rien ne se trompent jamais                  "
item_add 91,"seuls les imbéciles ne changent jamais d'avis                              "
item_add 91,"si Dieu n'existait pas, il faudrait l'inventer                            "
item_add 91,"si de beaucoup travailler on devenait riche, les ânes auraient le bât doré "
item_add 91,"sitôt dit, sitôt fait                                                      "
item_add 91,"tant qu'il y a de la vie, il y a de l'espoir                              "
item_add 91,"tant va la cruche à l'eau, qu'à la fin elle se brise                      "
item_add 91,"tant va la cruche à l'eau, qu'à la fin elle se casse                      "
item_add 91,"tel père, tel fils                                                        "
item_add 91,"tel qu'on fait son lit, on se couche                                      "
item_add 91,"tous les chemins mènent à Rome                                            "
item_add 91,"tout nouveau, tout beau                                                    "
item_add 91,"tout beau, tout neuf                                                      "
item_add 91,"tout est bien qui finit bien                                              "
item_add 91,"un bon ouvrier n'est jamais trop chèrement payé                            "
item_add 91,"un homme averti en vaut deux                                              "
item_add 91,"un mauvais ouvrier a toujours de mauvais outils                            "
item_add 91,"un tiens vaut mieux que deux tu l'auras                                    "
item_add 91,"une hirondelle ne fait pas le printemps                                    "
item_add 91,"vouloir, c'est pouvoir"
bar_both 91

position 69,90:position 203,55
rem ------------------------------------------------------------------------------------------------------------------------------------

form 131
hide 131
left 131,10
top 131,10
width 131,330
height 131,149
caption 131,"Supprimer : "+Nom$
command_target_is 131

alpha 132
hide 132
left 132,10
top 132,10
width 132,300
caption 132,"Voulez-vous vraiment supprimer le fichier"

edit 133
hide 133
left 133,15
width 133,300
top 133,30
text 133,""+Nom$

progress_bar 134
hide 134
left 134,15
top 134,60
width 134,300
height 134,21

button 135
hide 135
left 135,20
top 135,85
caption 135,"Oui"
on_click 135,ouisuppr
cursor_point 135

button 136
hide 136
left 136,100
top 136,85
caption 136,"Non"
on_click 136,nonsuppr
cursor_point 136

position 69,95:position 203,60
rem ------------------------------------------------------------------------------------------------------------------------------------

form 21
hide 21
command_target_is 21
left 21,50
top 21,50
caption 21,"Couleur de la police"

track_bar 22
left 22,10
top 22,10
width 22,250
min 22,0:max 22,255
hint 22,"Rouge"
on_change 22,couleurs

track_bar 23
left 23,10
top 23,40
width 23,250
min 23,0:max 23,255
hint 23,"Vert"
on_change 23,couleurs
position 203,65

track_bar 24
left 24,10
top 24,70
width 24,250
min 24,0:max 24,255
hint 24,"Bleu"
on_change 24,couleurs

picture 25
left 25,20
top 25,100
height 25,60
width 25,200
color 25,0,0,0

button 26
left 26,200
top 26,170
caption 26,"OK"
on_click 26,clk26

position 69,96:position 203,70
rem ----------------------------------------------------------------------------------
form 171
hide 171
rem hide 171
command_target_is 171
left 171,50
top 171,50
caption 171,"Couleur du fond"

track_bar 172
hide 172
left 172,10
top 172,10
width 172,250
min 172,0:max 172,255
hint 172,"Rouge"
position 172,300
on_change 172,couleurs2
position 203,75

track_bar 173
hide 173
left 173,10
top 173,40
width 173,250
min 173,0:max 173,255
hint 173,"Vert"
position 173,300
on_change 173,couleurs2

track_bar 174
hide 174
left 174,10
top 174,70
width 174,250
min 174,0:max 174,255
hint 174,"Bleu"
position 174,300
on_change 174,couleurs2

picture 175
hide 175
left 175,20
top 175,100
height 175,60
width 175,200

button 176
hide 176
left 176,200
top 176,170
caption 176,"OK"
on_click 176,clk176
position 69,97:position 203,80
rem ----------------------------------------------------------------------------------

form 33
hide 33
command_target_is 33
left 33,50
top 33,50
width 33,450
caption 33,"Caractères spéciaux"

list 34
left 34,10
top 34,10
width 34,220
height 34,150
for i=3 to 17
  car$=""
  for j=1 to 15
    car$=car$+" "+chr$((i-1)*15+j)
  next j
  item_add 34,car$
next i
on_click 34,caropt$
position 203,85

memo 210
left 210,250
top 210,50
width 210,170
height 210,21

BUTTON 35
left 35,200
top 35,170
caption 35,"Insérer"
on_click 35,clk35

button 211
left 211,270
top 211,20
caption 211,"&Plus"
font_bold 211
on_click 211,demarer

position 69,98:position 203,90
rem imprimer ----------------------------------------------------------------

form 193
hide 193
left 193,320
height 193,150
caption 193,"Information \ Imprimante"
border_small 193
command_target_is 193

alpha 194
hide 194
left 194,10
top 194,10
width 194,300
caption 194,"Ce logicel n'est pas capable d'imprimer : La couleur, les"

alpha 195
hide 195
left 195,10
top 195,30
width 195,300
caption 195,"caractères gras italique souligné etc, et les sortes de police. Si"

alpha 196
hide 196
left 196,10
top 196,50
width 196,300
caption 196,"vous voulez imprimer ces choses changer-les dans WordPad."

check 197
hide 197
left 197,30
top 197,70
width 197,200
caption 197,"Ne jamais afficher cette fenêtre"
on_click 197,info_impr

button 198
hide 198
left 198,50
top 198,90
width 198,212
height 198,21
caption 198,"OK"
on_click 198,impr

' -------------------------------------------------------------

position 203,95

form 204
hide 204
width 204,210
height 204,115
caption 204,"Modifier la casse"
command_target_is 204

option 205
left 205,5
top 205,5
width 205,180
caption 205,"Convertir le fichier en majuscules"

option 206
left 206,5
top 206,25
width 206,180
caption 206,"Convertir le fichier en minuscules"

button 207
left 207,120
top 207,50
caption 207,"OK"
on_click 207,convert

position 69,100:position 203,100:wait 1000:hide 66

if (file_exists(NomFichier$)=1)
  active 130
end_if

rem fin description -----------------------------------------------------

end

scan:
if clicked(11)=1 or clicked(109)=1
  save_dialog 75
  filter 75,"Tous les fichiers|*.*|Fichiers Mini-Word  (MWD et MWK)|*.mwd;*.mwk|Fichiers TXT et Fichiers INI|*.txt;*.ini|Fichier WordPad|*.wri|Fichier d'image normal - BMP et JPG|*.bmp;*.jpg|Fichier Basic|*.bas"
  NomFichier$=file_name$(75)
  delete 75
  j=len(NomFichier$)
  NomPath$=""
  Nom$=""
  for i=j to 1 step -1
    if (mid$(NomFichier$,i,1)="\")
      NomPath$=mid$(NomFichier$,1,i)
      if (i<j) then Nom$=mid$(NomFichier$,i+1,j-i)
      text 45,Nom$:caption 0,"Mini-Word V1.4.6  -  "+Nom$
      exit_for
    end_if
  next i
  file_save 1,NomFichier$
  on_click 6,detruit
  on_click 122,detruit
  on_click 107,enregistrefichier$
  on_click 109,enregistrefichier2$
end_if
if clicked(19)=1
  open_dialog 20
  filter 20,"Tous les fichiers|*.*|Fichiers Mini-Word  (MWD et MWK)|*.mwd;*.mwk|Fichiers Texte et Fichiers INI|*.txt;*.ini|Fichier WordPad|*.wri|Fichier d'image normal - BMP et JPG|*.bmp;*.jpg|Fichier Basic|*.bas"
  NomFichier$=file_name$(20)
  delete 20
  for i=1 to 10
    position 69,10*i
    wait 10
  next i
  j=len(NomFichier$)
  NomPath$=""
  Nom$=""
for i=j to 1 step -1
  if (mid$(NomFichier$,i,1)="\")
    NomPath$=mid$(NomFichier$,1,i)
    if (i<j) then Nom$=mid$(NomFichier$,i+1,j-i)
    text 45,Nom$:caption 0,"Mini-Word V1.4.6  -  "+Nom$
    exit_for
  end_if
next i
  if (file_exists(NomFichier$)=1)
  file_load 1,NomFichier$
  active 130:dir_change NomFichier$
  end_if
end_if
if clicked(18)=1
  texte=text$(18)
  font_size 1,text$(18)
  hint 18,"Taille : "+str$(texte)
  caption 138,"Taille    ("+str$(texte)+")"
  if texte=12 then hint 18,"Taille : 12 (Par Défaut)"
end_if
return



rem -----------------------------------------------------------------------------------------------------------------

clk8:
if (is_bold=0)
  font_bold 1
  set_focus 1
  is_bold=1
else
  font_bold_off 1
  set_focus 1
  is_bold=0
end_if
return

clk9:
if (is_italic=0)
  font_italic 1
  set_focus 1
  is_italic=1
else
  font_italic_off 1
  set_focus 1
  is_italic=0
end_if
return

clk10:
if (is_under=0)
  font_underline 1
  set_focus 1
  is_under=1
else
  font_underline_off 1
  set_focus 1
  is_under=0
end_if
return

clk12:
show 13
show 14
show 15
return

clique:
item_insert 212,1,""+item_index$(14)
return

clk15:
clipboard_copy 212
clipboard_paste 1
set_focus 1
return

activedeactive:
if (is_activedeac=0)
  inactive 181
  file_load 183,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton active2.bmp"
  is_activedeac=1
else
  active 181
  is_activedeac=0
  file_load 183,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton active.bmp"
end_if
return

clk26:
if clicked(26)=1 then hide 21
set_focus 1
return

clk176:
hide 172
hide 173
hide 174
hide 175
hide 176
hide 171
return

clk183:
if (is_emplace=0)
  hide 69
  hide 45
  height 1,445
  on_click 30,clktemp
  caption 183,"Barre d'emplacement"
  is_emplace=1
else
  show 45
  show 69
  on_click 30,clk30
  caption 183,"Barre d'emplacement *"
  is_emplace=0
end_if
return

clk183temp:
if (is_emplace=0)
  hide 69
  hide 45
  height 1,466
  on_click 30,clktemp
  caption 183,"Barre d'emplacement"
  is_emplace=1
else
  show 45
  show 69
  on_click 30,clk30
  height 1,445
  caption 183,"Barre d'emplacement"
  is_emplace=0
end_if
return

clk27deb:
file_load 27,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton souris2.bmp"
wait 250
file_load 27,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton souris3.bmp"
clk27:
if (is_souris=0)
  cursor_arrow 1
  inactive 1:inactive 28
  inactive 10:inactive 9
  inactive 8:inactive 5
  inactive 12:inactive 18
  inactive 7:inactive 3
  inactive 36:inactive 16
  inactive 31:inactive 35
  inactive 45:inactive 46
  inactive 61:inactive 17
  inactive 117:inactive 107
  inactive 120:inactive 122
  inactive 123:inactive 124
  inactive 125:inactive 126
  inactive 129:inactive 189
  is_souris=1
else
  cursor_default 1
  file_load 27,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton souris.bmp"
  active 1:active 28
  active 10:active 9
  active 8:active 5
  active 12:active 18
  active 7:active 3
  active 36:active 16
  active 31:active 35
  active 45:active 46
  active 61:active 17
  active 117:active 107
  active 120:active 122
  active 123:active 124
  active 125:active 126
  active 129:set_focus 1
  active 189
  is_souris=0
end_if
return

clk30:
if (is_bar2=0)
  hide 8:hide 18
  hide 9:hide 10
  hide 28:hide 7
  hide 27:hide 31
  hide 17:hide 107
  hide 120:hide 122
  hide 123:hide 124
  hide 125:hide 126
  hide 127:hide 128
  hide 129:hide 139
  hide 199:top 1,0:hide 200
  height 1,445
  color 137,100,100,100
  on_click 183,clk183temp
  caption 30,"Barre d'outils"
  is_bar2=1
else
  show 7:show 8
  show 9:show 10
  show 18:show 28
  show 27:show 31
  show 17:show 107
  show 120:show 122
  show 123:show 124
  show 125:show 126
  show 127:show 128
  show 129:show 139
  show 199:show 200
  color 137,232,233,218
  height 1,424
  top 1,21
  on_click 183,clk183
  caption 30,"Barre d'outils *"
  is_bar2=0
end_if
return

clktemp:
if (is_bar2=0)
  hide 8:hide 18
  hide 9:hide 10
  hide 28:hide 7
  hide 27:hide 31
  hide 17:hide 107
  hide 120:hide 122
  hide 123:hide 124
  hide 125:hide 126
  hide 127:hide 128
  hide 129:hide 200
  top 1,0
  hide 139:hide 199
  color 137,100,100,100
  height 1,466
  caption 30,"Barre d'outils"
  is_bar2=1
else
  show 7:show 8
  show 9:show 10
  show 18:show 28
  show 27:show 31
  show 17:show 107
  show 120:show 122
  show 123:show 124
  show 125:show 126
  show 127:show 128
  show 129:show 139:show 200
  show 199
  color 137,232,233,218
  height 1,445
  top 1,21
  caption 30,"Barre d'outils *"
  is_bar2=0
end_if
return

clk32:
show 33
set_focus 34
return

clk35:
clipboard_copy 210
clipboard_paste 1
return

caropt$:
item_insert 210,1,""+item_index$(34)
return

name:
font_name 1,text$(7)
font_name 34,text$(7)
font_name 14,text$(7)
return

couleur:
show 21
return

fond:
show 171
show 172
show 173
show 174
show 175
show 176
return

couleurs:
font_color 1,position(22),position(23),position(24)
color 25,position(22),position(23),position(24)
color 31,position(22),position(23),position(24)
Rouge=position(22)
Vert=position(23)
Bleu=position(24)
return

couleurs2:
color 1,position(172),position(173),position(174)
color 175,position(172),position(173),position(174)
Rouge=position(172)
Vert=position(173)
Bleu=position(174)
return

clk17:
if clicked(17)=1
  longueur = len(text$(17))-1
  txt=7*val(left$(text$(17),longueur))
  height 1,txt
end_if
return

edition:
if clicked(37)=1 then clipboard_cut 1
if clicked(38)=1 then clipboard_copy 1
if clicked(39)=1 then clipboard_paste 1
rem les bouton --------------------------
if clicked(123)=1
  clipboard_cut 1
  file_load 123,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton Couper2.bmp"
  wait 100
  file_load 123,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton Couper.bmp"
end_if
if clicked(124)=1
  clipboard_copy 1
  file_load 124,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton copier2.bmp"
  wait 100
  file_load 124,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton copier.bmp"
end_if
if clicked(125)=1
  clipboard_paste 1
  file_load 125,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton coller2.bmp"
  wait 100
  file_load 125,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton coller.bmp"
end_if
rem suivant ---------------------------------
if clicked(95)=1 then message "Tout le contenu vas être effacer":clear 1
return

acepte:
vide=1
for i=1 to count(1)
  if (len(item_read$(1,i))>0) then vide=0
next i
if (vide=1)
  gosub nonacepte
else
  gosub nouveau
end_if
return

acepte2:
file_load 122,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton nouveau2.bmp"
wait 100
file_load 122,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton nouveau.bmp"
vide=1
for i=1 to count(1)
  if (len(item_read$(1,i))>0) then vide=0
next i
if (vide=1)
  gosub nonacepte
else
  gosub nouveau
end_if
return

nouveau:
show 40
wait 50
command_target_is 40
play 88
show 41
show 42
show 43
show 44
command_target_is 0
return

hidenouveau:
if (is_check=0)
  on_click 6,nonacepte
  is_check=1
else
  on_click 6,nouveau
  is_check=0
end_if
return

non:
hide 44
hide 43
hide 42
hide 41
hide 40
caption 0,"Mini-Word 1.4.6  -  Document1.mwd"
clear 1
on_click 109,scan
on_click 107,enregistre
return

nonacepte:
caption 0,"Mini-Word 1.4.6  -  Document1.mwd"
clear 1
on_click 109,scan
on_click 107,enregistre
return

oui:
hide 44
hide 43
hide 42
hide 41
hide 40

rem -------- enregisteré puis effacer --------
save_dialog 49
NomFichier$=file_name$(49)
delete 49
file_save 1,NomFichier$
caption 0,"Mini-Word 1.4.6  -  Document1.mwd"
clear 1
on_click 109,scan
on_click 107,enregistre
return

aide2:
file_load 129,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton aide2.bmp"
wait 100
file_load 129,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton aide.bmp"
aide:
show 50
show 51
show 52
return

apropos:
show 53
show 54
show 55
show 56
show 57
show 58
show 179
show 180
return

okins:
hide 51
hide 52
hide 50
return

daprops:
hide 54
hide 55
hide 56
hide 57
hide 58
hide 53
return

site:
hide 54
hide 55
hide 56
hide 57
hide 58
hide 53
execute "http://panoramic.free-boards.net/vos-sources-vos-utilitaires-a-partager-f2/editeur-de-texte-mini-word-t314.htm"
return

fermer2:
file_load 126,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton fermer2.bmp"
wait 100
file_load 126,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton fermer.bmp"
rem la vrai ----------------------------------
fermer:
if (is_fermer=0)
  hide 1
  hint 126,"Ouvrir Dossier"
  hide 111
  left 70,0
  caption 70,"                        Mini-Word"
  width 70,691
  left 72,0
  caption 72,"                            V1.4.6"
  width 72,691
  left 73,0
  caption 73,"                                      Copyright 2009-2010"
  width 73,691
  left 74,0
  caption 74,"                                      Auteur : Nicolas Maltais"
  width 74,691
  show 7:show 8
  show 9:show 10
  show 18:show 28
  show 27:show 31
  show 17:show 107
  show 120:show 122
  show 123:show 124
  show 125:show 126
  show 127:show 128
  show 129:color 0,100,100,100
  caption 60,"Ouvrir"
  is_fermer=1
else
  show 1
  top 1,21
  show 7:show 8
  show 9:show 10
  show 18:show 28
  show 27:show 31
  show 17:show 107
  show 120:show 122
  show 123:show 124
  show 125:show 126
  show 127:show 128
  show 129:height 1,423
  file_load 126,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton fermer2.bmp"
  wait 100
  file_load 126,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton fermer.bmp"
  hint 126,"Fermer Dossier"
  color 0,232,233,218
  caption 60,"Fermer"
  show 111
  is_fermer=0
end_if
return

demarer:
if clicked(68)=1 then execute "calc.exe"
if clicked(67)=1 then execute "WinWord.exe"
if clicked(63)=1 then execute "write.exe"
if clicked(64)=1 then execute "notepad.exe"
if clicked(65)=1 then execute "charmap.exe"
if clicked(211)=1 then execute "Charmap.exe"
rem autre -------
if clicked(86)=1 then execute "utilman.exe /start"
if clicked(87)=1 then execute "http://www.google.ca/"
if clicked(85)=1 then execute "magnify.exe"
if clicked(84)=1 then execute "mspaint.exe"
if clicked(83)=1 then execute "osk.exe"
return

ascenseur:
if clicked(102)=1
  caption 102,"Ascenseur vertical*"
  caption 103,"Ascenseur horizontal"
  caption 104,"Ascenseur horizontal et vertical"
  caption 105,"Aucun ascenseur"
  bar_vertical 1
end_if

if clicked(103)=1
  caption 102,"Ascenseur vertical"
  caption 103,"Ascenseur horizontal*"
  caption 104,"Ascenseur horizontal et vertical"
  caption 105,"Aucun ascenseur"
  bar_horizontal 1
end_if

if clicked(104)=1
  caption 102,"Ascenseur vertical"
  caption 103,"Ascenseur horizontal"
  caption 104,"Ascenseur horizontal et vertical*"
  caption 105,"Aucun ascenseur"
  bar_both 1
end_if

if clicked(106)=1
  caption 102,"Ascenseur vertical"
  caption 103,"Ascenseur horizontal"
  caption 104,"Ascenseur horizontal et vertical"
  caption 106,"Aucun ascenseur*"
  bar_none 1
end_if
return

taille:
taille_car=0
if clicked(154)=1 then taille_car=1
if clicked(155)=1 then taille_car=2
if clicked(156)=1 then taille_car=3
if clicked(157)=1 then taille_car=4
if clicked(158)=1 then taille_car=5
if clicked(139)=1 then taille_car=6
if clicked(140)=1 then taille_car=8
if clicked(141)=1 then taille_car=9
if clicked(142)=1 then taille_car=10
if clicked(143)=1 then taille_car=11
if clicked(144)=1 then taille_car=12
if clicked(159)=1 then taille_car=13
if clicked(145)=1 then taille_car=14
if clicked(160)=1 then taille_car=15
if clicked(146)=1 then taille_car=16
if clicked(161)=1 then taille_car=17
if clicked(147)=1 then taille_car=18
if clicked(167)=1 then taille_car=19
if clicked(148)=1 then taille_car=20
if clicked(163)=1 then taille_car=21
if clicked(149)=1 then taille_car=22
if clicked(163)=1 then taille_car=23
if clicked(150)=1 then taille_car=24
if clicked(164)=1 then taille_car=25
if clicked(151)=1 then taille_car=26
if clicked(165)=1 then taille_car=27
if clicked(152)=1 then taille_car=28
if clicked(168)=1 then taille_car=29
if clicked(153)=1 then taille_car=30
if clicked(162)=1 then font_size 1,12:caption 138,"Taille    (Normal)":text 18,"12":return
if  (taille_car>0)
  font_size 1,taille_car
  text 18,taille_car
  hint 18,"Taille : "+str$(taille_car)
  caption 138,"Taille    ("+str$(taille_car)+")"
if taille_car=12 then hint 18,"Taille : 12 (Par Défaut)"
end_if

return

format1:
if (is_bold=0)
  font_bold 1
  caption 113,"Gras*"
  caption 118,"Caractères (Gras)"
  caption 181,"Normal"
  is_bold=1
else
  font_bold_off 1
  caption 113,"Gras"
  caption 118,"Caractères (Normal)"
  is_bold=0
end_if
return

format2:
if (is_italic=0)
  font_italic 1
  caption 114,"Italique*"
  caption 118,"Caractères (Italique)"
  caption 181,"Normal"
  is_italic=1
else
  font_italic_off 1
  caption 114,"Italique"
  caption 118,"Caractères (Normal)"
  is_italic=0
end_if
return

format3:
if (is_under=0)
  font_underline 1
  caption 115,"Souligné*"
  caption 118,"Caractères (Souligné)"
  caption 181,"Normal"
  is_under=1
else
  font_underline_off 1
  caption 115,"Souligné"
  caption 118,"Caractères (Normal)"
  is_under=0
end_if
return

format4:
if (is_barre=0)
  font_strike 1
  caption 116,"Barré*"
  caption 118,"Caractères (Barré)"
  caption 181,"Normal"
  is_barre=1
else
  font_strike_off 1
  caption 116,"Barré"
  caption 118,"Caractères (Normal)"
  is_barre=0
end_if
return

enregistre:
file_load 107,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton enregistre2.bmp"
wait 100
file_load 107,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton enregistre.bmp"
save_dialog 108
filter 108,"Tous les fichiers|*.*|Fichiers Mini-Word  (MWD et MWK)|*.mwd;*.mwk|Fichiers TXT et Fichiers INI|*.txt;*.ini|Fichier WordPad|*.wri|Fichier d'image normal - BMP et JPG|*.bmp;*.jpg|Fichier Basic|*.bas"
NomFichier$=file_name$(108)
delete 108
j=len(NomFichier$)
NomPath$=""
Nom$=""
for i=j to 1 step -1
  if (mid$(NomFichier$,i,1)="\")
    NomPath$=mid$(NomFichier$,1,i)
    if (i<j) then Nom$=mid$(NomFichier$,i+1,j-i)
    text 45,Nom$:caption 0,"Mini-Word V1.4.6  -  "+Nom$
    exit_for
  end_if
next i
file_save 1,NomFichier$
on_click 6,detruit
on_click 122,detruit
on_click 107,enregistrefichier$
on_click 109,enregistrefichier2$
return

enregistrefichier$:
file_load 107,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton enregistre2.bmp"
wait 100
file_load 107,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton enregistre.bmp"
enregistrefichier2$:
file_save 1,NomFichier$
set_focus 1
on_click 6,detruit
return

ouvrir:
file_load 120,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton ouvrir2.bmp"
wait 100
file_load 120,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton ouvrir.bmp"
if clicked(19)=1
  open_dialog 121
  filter 121,"Tous les fichiers|*.*|Fichiers Mini-Word  (MWD et MWK)|*.mwd;*.mwk|Fichiers Texte et Fichiers INI|*.txt;*.ini|Fichier WordPad|*.wri|Fichier d'image normal - BMP et JPG|*.bmp;*.jpg|Fichier Basic|*.bas"
  NomFichier$=file_name$(121)
  delete 121
  for i=1 to 10
    position 69,10*i
    wait 10
  next i
  j=len(NomFichier$)
  NomPath$=""
  Nom$=""
for i=j to 1 step -1
  if (mid$(NomFichier$,i,1)="\")
    NomPath$=mid$(NomFichier$,1,i)
    if (i<j) then Nom$=mid$(NomFichier$,i+1,j-i)
    text 45,Nom$:caption 0,"Mini-Word V1.4.6  -  "+Nom$
    exit_for
  end_if
next i
  if (file_exists(NomFichier$)=1)
  file_load 1,NomFichier$
  on_click 107,enregistrefichier$
  on_click 109,enregistrefichier2$
  active 130:dir_change NomFichier$
  end_if
end_if
return

detruit:
clear 1
caption 0,"Mini-Word 1.4.6  -  Document1.mwd"
on_click 109,scan
on_click 107,enregistre
return

SLFN:
show 131
caption 131,"Supprimer  -  "+Nom$
command_target_is 131
show 132
show 133
text 133,""+Nom$
show 134
show 135
show 136
return

ouisuppr:
for i=1 to 10
  position 134,10*i
  wait 10
next i
hide 131
message "Supprimation du fichier "+NomFichier$
file_delete ""+NomFichier$
return

nonsuppr:
hide 132
hide 133
hide 134
hide 135
hide 136
hide 131
return

normal:
if (is_normal=0)
  font_bold_off 1
  font_italic_off 1
  font_underline_off 1
  font_strike_off 1
  caption 113,"Gras"
  caption 114,"Italique"
  caption 115,"Souligné"
  caption 116,"Barré"
  caption 181,"Normal*"
  caption 118,"Caractères (Normal)"
  is_normal=1
else
  caption 181,"Normal"
  is_normal=0
end_if
return

rem fenêtre ------------------------------------

organise:
message "Préparation pour réorganiser tout…"
left 0,160
top 0,100
width 0,700
height 0,521
caption 0,"Mini-Word  V1.4.6"
border_normal 0
color 0,232,233,218
return

rem insertion automatique ----------------------------------------------------------------------------------------------------------------

proverbes:
show 92
command_target_is 92
show 91
show 93
show 94

command_target_is 0
return

insere:
clipboard_copy 91
clipboard_paste 1
return

OKfermer:
hide 92
hide 91
hide 93
hide 94
return

rem Impresion --------------------------------------------------------------------------------------------------------------------------------------

infodeb:
file_load 199,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton imprimer2.bmp"
wait 100
file_load 199,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton imprimer.bmp"
info:
show 193
show 194
show 195
show 196
show 197
show 198
return

infodeb2:
file_load 199,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton imprimer2.bmp"
wait 100
file_load 199,"C:\Documents and Settings\Enfants\Bureau\Nicolas\mes images et photos\bmp\bouton imprimer.bmp"
impr:
hide 193
hide 194
hide 195
hide 196
hide 197
hide 198
a$="C:\Temp\"
dir_change a$
file_save 1,"C:\Temp\Z46E7P9.txt"
execute "wordpad.exe /p C:\Temp\Z46E7P9.txt"
wait 3000
file_delete "Z46E7P9.txt"
return

info_impr:
if (is_info_impr=0)
  on_click 191,impr
  on_click 199,impr
  is_info_impr=1
else
  on_click 191,info
  on_click 199,infodeb
  is_info_impr=0
end_if
return

couleur2:
if text$(200)="Rouge" then font_color 1,255,0,0
if text$(200)="Bleu" then font_color 1,0,0,255
if text$(200)="Jaune" then font_color 1,255,255,0
if text$(200)="Vert" then font_color 1,0,255,0
if text$(200)="Orange" then font_color 1,200,100,0
if text$(200)="Violet" then font_color 1,173,19,240
if text$(200)="Blanc" then font_color 1,255,255,255
if text$(200)="Gris" then font_color 1,100,100,100
if text$(200)="Noir" then font_color 1,0,0,0
return

casse:
show 204
return

convert:
if checked(205)=1
  for i=1 to count(1)
    g$=item_read$(1,i)
    item_delete 1,i
    item_insert 1,i,upper$(g$)
  next i
end_if
if checked(206)=1
  for i=1 to count(1)
    g$=item_read$(1,i)
    item_delete 1,i
    item_insert 1,i,lower$(g$)
  next i
end_if
return

rem fin sesion --------------------------------------------------------------------------------------------------------------------------------------

dem_texte:
execute "notepad"
return

rien:
return

' =====================================FERMER=================================

apresquit:
beep:message "Une erreur s'est produite lors de l'éxécution"+b$+"d'une commande. Le logiciel doit quitter."
terminate
return

' 208, 209, 210

fermersesion:
terminate