Éditeur de texte : Mini Word

label scan,name
label clk35,clk32,clk30,clk29,clk27,clk26,clk15,clk12,clk10,clk9,clk8
label couleur,couleurs

dim is_bold,is_italic,is_under
dim is_souris,is_bar,is_bar2
dim NomFichier$,i
dim Rouge,Vert,Bleu

is_bold=0
is_italic=0
is_under=0
is_souris=0
is_bar=0
is_bar2=0

left 0,200
top 0,100
width 0,550
height 0,500
caption 0,"Mini Word"

memo 1
top 1,21
width 1,542
height 1,424
bar_both 1
font_name 1,"Arial"

combo 7
font_names_load 7
text 7,"Arial"
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

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

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

combo 18
width 18,50
left 18,207
text 18,"8"
item_add 18,"6"
item_add 18,"8"
item_add 18,"9"
item_add 18,"10"
item_add 18,"11"
item_add 18,"12"
item_add 18,"14"
item_add 18,"16"
item_add 18,"18"
item_add 18,"20"
item_add 18,"22"
item_add 18,"24"
item_add 18,"26"
item_add 18,"28"
item_add 18,"30"

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

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

button 27
left 27,284
height 27,21
width 27,30
caption 27,"souris"
hint 27,"Déactiver le curseur"
on_click 27,clk27


main_menu 2
sub_menu 3:parent 3,2:caption 3,"Fichier"
sub_menu 6:parent 6,3:caption 6,"Nouveau"
sub_menu 19:parent 19,3:caption 19,"Ouvrir..."
sub_menu 11:parent 11,3:caption 11,"Enregistrer..."
sub_menu 16:parent 16,2:caption 16,"Affichage"
sub_menu 29:parent 29,16:caption 29,"Ne pas afficher la barre d'outils"
sub_menu 30:parent 30,16:caption 30,"Ne pas afficher la barre de format"
sub_menu 4:parent 4,3:caption 4,"Fermer      Alt+F4"
sub_menu 5:parent 5,2:caption 5,"Insertion"
sub_menu 32:parent 32,5:caption 32,"Caractères spéciaux"
sub_menu 12:parent 12,5:caption 12,"Date et heure..."
on_click 4,scan
on_click 6,scan
on_click 11,scan
on_click 12,clk12
on_click 19,scan
on_click 18,scan
on_click 29,clk29
on_click 30,clk30
on_click 32,clk32

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

memo 14
top 14,10
left 14,10
width 14,150
height 14,100
item_add 14,""+date$
item_add 14,""+time$

button 15
left 15,20
top 15,170
caption 15,"OK"
on_click 15,clk15

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

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
rem ********************************

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

memo 34
left 34,10
top 34,10
width 34,120
height 34,150
bar_vertical 34
item_add 34,"a b c d e f g h i k l"
item_add 34,"m n o p q r s t u v w"
item_add 34,"x y z 1 2 3 4 5 6 7 8"
item_add 34,"9 0 A B C D E F G H"
item_add 34,"I J K L M N O P Q R"
item_add 34,"S T U V W X Y Z # |"
item_add 34,"! » / @ [ ] ( ) *"
item_add 34,"+ , - . & ' % $ # < ="
item_add 34," > ? ^ _ ` { } ~ ¡ ¢ "
item_add 34,"£ ¦ § ¥ ¨ ª £ ¤ ¥ ° ¯"
item_add 34,"± ² ³ ´ µ · ¸ ¹ º ¼ ¾"
item_add 34,"¿ À Á Â Ã Ä Å Æ Ç È É"
item_add 34,"Ê Ë Ì Í Î Ï Ð Ñ Ò Ó Ô"
item_add 34,"Õ Ö × Ø Ù Ú Û Ü Ý ß "
item_add 34,"à á â ã ä å æ ç è é "
item_add 34,"ê ë ì í î ï ð ñ ò ó"
item_add 34,"ô õ ö ÷ ø ù ú û ü ý"
item_add 34,"þ ÿ Œ œ Š š Ÿ Ž ž ƒ"
item_add 34,"ˆ ˜ ' ' ‚ † ‡ o … ‰"
item_add 34,"‹ › € "

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

command_target_is 0

end
scan:
if clicked(4)=1 then terminate
if clicked(6)=1 then clear 1
if clicked(11)=1
  save_dialog 17
  NomFichier$=file_name$(17)
  delete 17
  file_save 1,NomFichier$
end_if
if clicked(19)=1
  open_dialog 20
  NomFichier$=file_name$(20)
  delete 20
  if (file_exists(NomFichier$)=1)
  file_load 1,NomFichier$
  end_if
end_if
if clicked(18)=1
  font_size 1, text$(18)
end_if
return



rem ********************************

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

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

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

clk12:
show 13
set_focus 15
return

clk15:
clipboard_copy 14
clipboard_paste 1
return

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

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
  is_souris=1
else
  cursor_default 1
  active 1
  active 28
  active 10
  active 9
  active 8
  active 5
  active 12
  active 18
  active 7
  is_souris=0
end_if
return

clk29:
if (is_bar=0)
  hide 8
  hide 9
  hide 10
  hide 28
  hide 31
  inactive 30
  left 18,144
  left 27,194
  caption 29,"Afficher la barre d'outils"
  is_bar=1
else
  show 8
  show 9
  show 10
  show 28
  show 31
  active 30
  left 18,207
  left 27,278
  caption 29,"Ne pas afficher la barre d'outils"
  is_bar=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
  top 1,0
  inactive 29
  caption 30,"Afficher la barre de format"
  caption 29,"Afficher la barre d'outils"
  is_bar2=1
else
  show 7
  show 8
  show 9
  show 10
  show 18
  show 28
  show 27
  show 31
  top 1,21
  active 29
  caption 29,"Ne pas afficher la barre d'outils"
  caption 30,"Ne pas afficher la barre de format"
  is_bar2=0
end_if
return
clk32:
show 33
set_focus 34
return

clk35:
clipboard_copy 34
clipboard_paste 1
return
:

name:
font_name 1,text$(7)
return

couleur:
show 21
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

rem 31 32 33 34 35

rem  file_open_write 1,NomFichier$
rem  for i=1 to 10
rem    file_writeln 1,"Test "+str$(i)
rem  next i
rem  file_close 1

label scan,name
label clk35,clk32,clk30,clk27,clk26,clk15,clk12,clk10,clk9,clk8,clk17
label couleur,couleurs

dim is_bold,is_italic,is_under
dim is_souris,is_bar,is_bar2
dim NomFichier$,i,j,car$
dim Rouge,Vert,Bleu

is_bold=0
is_italic=0
is_under=0
is_souris=0
is_bar=0
is_bar2=0

left 0,200
top 0,100
width 0,550
height 0,500
caption 0,"Mini Word"

memo 1
top 1,21
width 1,542
height 1,424
bar_both 1
font_name 1,"Arial"

combo 7
font_names_load 7
text 7,"Arial"
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

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

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

combo 18
width 18,50
left 18,207
text 18,"8"
item_add 18,"6"
item_add 18,"8"
item_add 18,"9"
item_add 18,"10"
item_add 18,"11"
item_add 18,"12"
item_add 18,"14"
item_add 18,"16"
item_add 18,"18"
item_add 18,"20"
item_add 18,"22"
item_add 18,"24"
item_add 18,"26"
item_add 18,"28"
item_add 18,"30"

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

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

button 27
left 27,284
height 27,21
width 27,30
caption 27,"souris"
hint 27,"Déactiver le curseur"
on_click 27,clk27


main_menu 2
sub_menu 3:parent 3,2:caption 3,"Fichier"
sub_menu 6:parent 6,3:caption 6,"Nouveau"
sub_menu 19:parent 19,3:caption 19,"Ouvrir..."
sub_menu 11:parent 11,3:caption 11,"Enregistrer..."
sub_menu 16:parent 16,2:caption 16,"Affichage"
sub_menu 30:parent 30,16:caption 30,"Ne pas afficher la barre de format"
sub_menu 4:parent 4,3:caption 4,"Fermer      Alt+F4"
sub_menu 5:parent 5,2:caption 5,"Insertion"
sub_menu 32:parent 32,5:caption 32,"Caractères spéciaux"
sub_menu 17:parent 17,2:caption 17,"A Propos"
sub_menu 12:parent 12,5:caption 12,"Date et heure..."
on_click 4,scan
on_click 6,scan
on_click 11,scan
on_click 12,clk12
on_click 19,scan
on_click 18,scan
on_click 30,clk30
on_click 32,clk32
on_click 17,clk17

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

memo 14
top 14,10
left 14,10
width 14,150
height 14,100
item_add 14,""+date$
item_add 14,""+time$

button 15
left 15,20
top 15,170
caption 15,"OK"
on_click 15,clk15

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

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
rem ********************************

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

memo 34
left 34,10
top 34,10
width 34,220
height 34,150
bar_vertical 34
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

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

command_target_is 0

end
scan:
if clicked(4)=1 then terminate
if clicked(6)=1 then clear 1
if clicked(11)=1
  save_dialog 17
  NomFichier$=file_name$(17)
  delete 17
  file_save 1,NomFichier$
end_if
if clicked(19)=1
  open_dialog 20
  NomFichier$=file_name$(20)
  delete 20
  if (file_exists(NomFichier$)=1)
  file_load 1,NomFichier$
  end_if
end_if
if clicked(18)=1
  font_size 1, text$(18)
end_if
return



rem ********************************

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

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

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

clk12:
show 13
set_focus 15
return

clk15:
clipboard_copy 14
clipboard_paste 1
return

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

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
  is_souris=1
else
  cursor_default 1
  active 1
  active 28
  active 10
  active 9
  active 8
  active 5
  active 12
  active 18
  active 7
  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
  top 1,0
  caption 30,"Afficher la barre de format"
  is_bar2=1
else
  show 7
  show 8
  show 9
  show 10
  show 18
  show 28
  show 27
  show 31
  top 1,21
  caption 30,"Ne pas afficher la barre de format"
  is_bar2=0
end_if
return
clk32:
show 33
set_focus 34
return

clk35:
clipboard_copy 34
clipboard_paste 1
return
:

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

couleur:
show 21
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

clk17:
message "Mini Word - Version 0.1.2 - Copyright 2009 : Site Internet :      http://panoramic.1fr1.net/vos-sources-vos-utilitaires-a-partager-f2/editeur-de-texte-mini-word-t314.htm "
execute "http://panoramic.1fr1.net/vos-sources-vos-utilitaires-a-partager-f2/editeur-de-texte-mini-word-t314.htm"
return

Wordpad.exe /p Fichier.rtf

dim a% ,b$
label ecrit
 width 0,900:height 0,800
picture 1:top 1,20:left 1,10:width 1,800:height 1,500
edit 2:top 2,630:width 2,500
on_change 2,ecrit
 set_focus 2
end

ecrit:
b$=text$(2)
print_target_is 1

for a%=1 to len(b$)
 print_locate a%*20,20+a%*2
font_size 1,a% +5
print mid$(b$,a%,1);
next a%
return

rem Simulation-RichTextBox

dim a$ , b$ , j% : rem Variables provisoires
dim b% : rem Bold or not Bold (that the question)
dim c% : rem Couleur choisie
dim i% : rem Italic or not Italic
dim nl1 , nl2 : rem Nombre de Lettres et sa copie décalée d'un cycle
dim r% : rem Rayé or not Rayé
dim s% : rem Souligné or not Souligné
dim t% : rem Taille des caractères
dim y% : rem Ordonnée de la frappe
b%=0 : c%=0 : i%=0 : r%=0 : s%=0 : t%=8 : y%=10
label new , open , save , quit , tail , coul , carac , bold , ital
label raye , soul , imag , graf , ecrit , impr , ret

width 0,1020 : height 0,800

main_menu 1

sub_menu 2
parent 2,1
caption 2,"Fichier"

sub_menu 3
parent 3,2
caption 3,"Nouveau"
on_click 3,new

sub_menu 4
parent 4,2
caption 4,"Ouvrir"
on_click 4,open

sub_menu 5
parent 5,2
caption 5,"Enregistrer"
on_click 5,save

sub_menu 6
parent 6,2
caption 6,"Imprimer"
on_click 6,impr

sub_menu 7
parent 7,1
caption 7,"Affichage"

combo 8
left 8,50 : top 8,5 :width 8,45
for j%=1 to 30
 item_add 8,j%
next j%
text 8,"8"
hint 8,"Pour changer la taille du texte"
on_click 8,tail

combo 9
left 9,220 : top 9,5
font_names_load 9
text 9,"Choisissez une police"
hint 9,"Pour modifier la police de caractère"
on_click 9,carac

sub_menu 10
parent 10,7
caption 10,"Couleur"
on_click 10,coul

sub_menu 11
parent 11,2
caption 11,"Quitter"
on_click 11,quit

sub_menu 12
parent 12,7
caption 12,"Gras"
on_click 12,bold

sub_menu 13
parent 13,7
caption 13,"Italique"
on_click 13,ital

sub_menu 14
parent 14,7
caption 14,"Rayé"
on_click 14,raye

sub_menu 15
parent 15,7
caption 15,"Souligné"
on_click 15,soul

sub_menu 21
parent 21,1
caption 21,"Insérer"

sub_menu 22
parent 22,21
caption 22,"Image"
on_click 22,imag

sub_menu 23
parent 23,21
caption 23,"Graphique"
on_click 23,graf

picture 30
left 30,5 : top 30,30 : width 30,495 : height 30,650
stretch_on 30
hint 30,"Votre texte va apparaître ici"

edit 31
left 31,505 : top 31,30 : width 31,495
set_focus 31
hint 31,"Ecrivez ici le texte qui va apparaître à gauche"
on_change 31,ecrit
on_key_up 31,ret

alpha 32
left 32,10 : top 32,5 : width 32,20 : height 32,20
color 32,0,0,0
hint 32,"Cliquez ici pour modifier la couleur"
on_click 32,coul

alpha 34
left 34,110 : top 34,5
font_size 34,12
caption 34,"G"
hint 34,"Cliquez ici pour modifier la largeur des caractères"
on_click 34,bold

alpha 35
left 35,140 : top 35,5
font_size 35,12
caption 35,"I"
hint 35,"Cliquez ici pour modifier l'inclination des caractères"
on_click 35,ital

alpha 36
left 36,165 : top 36,5
font_size 36,12
caption 36,"R"
hint 36,"Cliquez ici pour modifier le rayage des caractères"
on_click 36,raye

alpha 37
left 37,190 : top 37,5
font_size 37,12
caption 37,"S"
hint 37,"Cliquez ici pour modifier le soulignement des caractères"
on_click 37,soul

end

ecrit:
b$=text$(31)
nl1=len(b$)
print_target_is 30
if nl1=nl2-1
 print_locate 1,y%
 font_color 30,255,255,255
 print string$(62,chr$(174))
 select c%
  case 0 : font_color 30,0,0,0 : color 32,0,0,0
  case 1 : font_color 30,255,0,255 : color 32,255,0,255
  case 2 : font_color 30,0,0,255 : color 32,0,0,255
  case 3 : font_color 30,0,255,255 : color 32,0,255,255
  case 4 : font_color 30,0,255,0 : color 32,0,255,0
  case 5 : font_color 30,255,255,0 : color 32,255,255,0
  case 6 : font_color 30,255,190,0 : color 32,255,190,0
  case 7 : font_color 30,255,0,0 : color 32,255,0,0
 end_select
else
 for j%=1 to len(b$)
  print_locate j%*t%,y%
  print mid$(b$,j%,1)
 next j%
end_if
nl2=nl1
return

ret:
if key_up_code=13 then y%=y%+t%+8 : text 31,""
return

new:
print_target_is 31
2d_target_is 0
delete 30
picture 30
left 30,5 : top 30,30 : width 30,495 : height 30,650
stretch_on 30
hint 30,"Votre texte va apparaître ici"
y%=10
return

open:
open_dialog 50
filter 50,"Images BMP|*.bmp"
a$=file_name$(50)
if a$<>"_" then file_load 30,a$
delete 50
return

save:
save_dialog 50
filter 50,"Images BMP|*.bmp"
a$=file_name$(50)
if right$(a$,4)<>".bmp" and right$(a$,4)<>".BMP" then a$=a$+".bmp"
file_save 30,a$
delete 50
return

tail:
t%=item_index$(8)
font_size 30,t%
set_focus 31
return

coul:
c%=c%+1
if c%>7 then c%=0
select c%
 case 0 : font_color 30,0,0,0 : color 32,0,0,0
 case 1 : font_color 30,255,0,255 : color 32,255,0,255
 case 2 : font_color 30,0,0,255 : color 32,0,0,255
 case 3 : font_color 30,0,255,255 : color 32,0,255,255
 case 4 : font_color 30,0,255,0 : color 32,0,255,0
 case 5 : font_color 30,255,255,0 : color 32,255,255,0
 case 6 : font_color 30,255,190,0 : color 32,255,190,0
 case 7 : font_color 30,255,0,0 : color 32,255,0,0
end_select
return

carac:
font_name 30,item_index$(9)
set_focus 31
return

bold:
b%=b%+1
if b%>1 then b%=0
select b%
 case 0 : font_bold_off 30 : font_bold_off 34
 case 1 : font_bold 30 : font_bold 34
end_select
return

ital:
i%=i%+1
if i%>1 then i%=0
select i%
 case 0 : font_italic_off 30 : font_italic_off 35
 case 1 : font_italic 30 : font_italic 35
end_select
return

raye:
r%=r%+1
if r%>1 then r%=0
select r%
 case 0 : font_strike_off 30 : font_strike_off 36
 case 1 : font_strike 30 : font_strike 36
end_select
return

soul:
s%=s%+1
if s%>1 then s%=0
select s%
 case 0 : font_underline_off 30 : font_underline_off 37
 case 1 : font_underline 30 : font_underline 37
end_select
return

imag:
open_dialog 50
filter 50,"Images BMP|*.bmp"
a$=file_name$(50)
if a$<>"_" then file_load 30,a$
delete 50
return

graf:
print_target_is 30
print_locate 20,15
font_size 30,14
print "Tragique effondrement de l'économie mondiale"
print_locate 20,45
font_size 30,8
print "(Ceci est fait pour montrer la possibilité d'intégrer des graphiques"
print_locate 20,70
print "dans une picture et d'enregistrer le tout en tant qu'image)"
2d_target_is 30
2d_pen_color 255,0,0
2d_line 20,200,90,90
2d_line 90,90,150,250
2d_line 150,250,220,160
2d_line 220,160,400,600
return

impr:
a$="C:\WINDOWS\system32\"
dir_change a$
file_save 30,"Provi.bmp"
execute "mspaint.exe /p Provi.bmp"
wait 1000
file_delete "Provi.bmp"
return

quit:
terminate

label impr:dim a$

button 1
width 1,591
caption 1,"Imprimer"
on_click 1,impr

memo 2
top 2,25
width 2,591
height 2,420

end

impr:
a$="C:\Temp\"
dir_change a$
file_save 2,"C:\Temp\Provi.txt"
execute "wordpad.exe /p C:\Temp\Provi.txt"
wait 5000
file_delete "Provi.txt"
return

label scan,name,edition,nouveau
label clk35,clk32,clk30,clk27,clk26,clk15
label clk12,clk10,clk9,clk8,clk17
label couleur,couleurs
label aide,apropos,okins,daprops,site
label fermer,demarer,fermersesion,Proprietes
label non,oui
label proverbes,insere,OKfermer

dim is_bold,is_italic,is_under
dim is_souris,is_bar,is_bar2
dim NomFichier$,i,j,car$
dim Rouge,Vert,Bleu
dim longueur,txt
dim is_fermer
dim r

is_bold=0
is_italic=0
is_under=0
is_souris=0
is_bar=0
is_bar2=0
is_fermer=0

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,"V0.1.3"
font_size 72,30
font_bold 72
color 72,0,255,0

alpha 73
left 73,55
top 73,140
caption 73,"Copyright octobre 2009"
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,200
top 0,100
width 0,550
height 0,521
caption 0,"Mini Word"
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 ---------------------------------------------------

memo 1
top 1,21
width 1,542
height 1,423
bar_both 1
font_name 1,"Arial"

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

edit 45
left 45,102
top 45,445
width 45,440
text 45,"Emplacement  :"
color 45,232,233,218

progress_bar 69
top 69,445
width 69,102
height 69,21
position 69,100

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

combo 7
font_names_add 7
text 7,"Arial"
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

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

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

combo 18
width 18,50
left 18,207
text 18,"8"
item_add 18,"6"
item_add 18,"8"
item_add 18,"9"
item_add 18,"10"
item_add 18,"11"
item_add 18,"12"
item_add 18,"14"
item_add 18,"16"
item_add 18,"18"
item_add 18,"20"
item_add 18,"22"
item_add 18,"24"
item_add 18,"26"
item_add 18,"28"
item_add 18,"30"

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

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

button 27
left 27,284
height 27,21
width 27,30
caption 27,"souris"
hint 27,"Déactiver le curseur"
on_click 27,clk27

combo 17
left 17,314
width 17,100
text 17,"60%"
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,"70%"
item_add 17,"80%"
item_add 17,"90%"
item_add 17,"100%"
on_change 17,clk17


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 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"
sub_menu 6:parent 6,3:caption 6,"Nouveau"
sub_menu 19:parent 19,3:caption 19,"Ouvrir..."
sub_menu 11:parent 11,3:caption 11,"Enregistrer..."
sub_menu 96:parent 96,3:caption 96,"Propriétés..."
sub_menu 16:parent 16,2:caption 16,"Affichage"
sub_menu 30:parent 30,16:caption 30,"Ne pas afficher la barre de format"
sub_menu 60:parent 60,3:caption 60,"Fermer"
sub_menu 4:parent 4,3:caption 4,"Quitter      Alt+F4"
sub_menu 5:parent 5,2:caption 5,"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..."
sub_menu 61:parent 61,2:caption 61,"Option"
sub_menu 62:parent 62,61:caption 62,"Microsoft Word"
sub_menu 66:parent 66,62:caption 66,"Démarer Microsoft Word 2007..."
sub_menu 67:parent 67,62:caption 67,"Démarer Microsoft Word 2000..."
sub_menu 63:parent 63,61:caption 63,"Démarrer WordPad..."
sub_menu 64:parent 64,61:caption 64,"Démarrer Bloc-Notes..."
sub_menu 65:parent 65,61:caption 65,"Démarrer la table des caractères..."
sub_menu 68:parent 68,61:caption 68,"Démarrer la calculatrice..."
sub_menu 81:parent 81,61:caption 81,"---------------------------------------------"
sub_menu 82:parent 82,61:caption 82,"Autres"
rem autres outil Windows-----------------
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..."
rem suivant -----------------------------
sub_menu 46:parent 46,2:caption 46,"Aide"
sub_menu 47:parent 47,46:caption 47,"Aide ?..."
sub_menu 48:parent 48,46:caption 48,"A Propos..."
on_click 4,fermersesion
on_click 6,nouveau
on_click 11,scan
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 96,Proprietes
on_click 90,proverbes

rem menus démarer -------------
on_click 67,demarer
on_click 66,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

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

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

memo 14
top 14,10
left 14,10
width 14,150
height 14,100
item_add 14,""+date$
item_add 14,""+time$

button 15
left 15,20
top 15,170
caption 15,"OK"
on_click 15,clk15

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

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
rem - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

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

list 51
hide 51
top 51,5
width 51,341
height 51,200
item_add 51,"------------------------------------------AIDE ?---------------------------------------------------------------"
item_add 51,""
item_add 51,"La première petite liste du barre 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écieaux."
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. Se qui est à côté est pour voir la couleur des caractèsre"
item_add 51,"qu'ont a choisi. Le bouton qui est écrit « Souris » est pour"
item_add 51,"déactiver le curseur et les autre commandes."
item_add 51,"La liste à coté 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... » pour enregistrer,"
item_add 51,"il a « Ouvrir... » pour ouvrir un fichier, il a « Nouveau » pour effacer"
item_add 51,"tout le contenu de la page et il a « Quitter » pour qui le"
item_add 51,"programme."
item_add 51,"Il a un menu qui s'appelle « Edition » dans edition il a « Couper » ,"
item_add 51,"« Copier » et « Coller » avec leur touches de racourcis."
item_add 51,"Il a un autre menu qui s'appelle « Affichage » dans affichage il a"
item_add 51,"l'option « Ne pas afficher la barre d'outils » ."
item_add 51,"Il y a le menu des insertions. Dans « Insertion » il"
item_add 51,"a « Caractères spéciaux... » pour inserer des caractère spéciaux. Il a"
item_add 51,"aussi «  Date et heure... » pour inserer la date et l'heure."
item_add 51,"L'avant dernier menus est celui des options. Dans « option » il y a "
item_add 51,"des options pour démarrer des outil de Windows comme WordPad,"
item_add 51,"bloc-notes, calculatrice et etc..."
item_add 51,"Le dernier menu est « Aide » dans aide il a « Aide ? » pour avoir de"
item_add 51,"l'aide sur Miniword version 0.1.3. Dans le même menu il a"
item_add 51,"« A Propos » pour voir le site internet du programme."
item_add 51,""
item_add 51,"---------------------------------------COMMENTAIRE-------------------------------------------------------------"
item_add 51,""
item_add 51,"    S.V.P NE PAS MODIFIER LA VERSION 0.1.3 DE MINI WORD"
item_add 51,"                                    MERCI À VOUS !!!"
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

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

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

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

alpha 58
hide 58
left 58,20
top 58,15
width 58,350
caption 58,"Mini Word version 0.1.3 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

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

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

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

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"
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

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

form 97
hide 97
left 97,200
top 97,150
width 97,300
height 97,200
caption 97,"Propriétés fichier"
command_target_is 97

alpha 98
hide 98
left 98,10
top 98,11
caption 98,"Emplacement :"

edit 99
hide 99
left 99,90
top 99,10
width 99,190
text 99,"_"+NomFichier$

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

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
rem ********************************

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

memo 34
left 34,10
top 34,10
width 34,220
height 34,150
bar_vertical 34
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

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

command_target_is 0

end

scan:
if clicked(11)=1
  save_dialog 75
  NomFichier$=file_name$(75)
  delete 75
  file_save 1,NomFichier$
end_if
if clicked(19)=1
  open_dialog 20
  filter 20,"Tous les fichiers|*.*"
  NomFichier$=file_name$(20)
  delete 20
  for r=1 to 100
    position 69,r
    wait 1
  next r
  text 45,"Emplacement  :  "+NomFichier$
  if (file_exists(NomFichier$)=1)
  file_load 1,NomFichier$
  end_if
end_if
if clicked(18)=1
  font_size 1, text$(18)
end_if
return



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

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

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

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

clk12:
show 13
set_focus 15
return

clk15:
clipboard_copy 14
clipboard_paste 1
return

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

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
  is_souris=1
else
  cursor_default 1
  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
  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
  top 1,0
  height 1,445
  caption 30,"Afficher la 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
  height 1,424
  top 1,21
  caption 30,"Ne pas afficher la barre d'outils"
  is_bar2=0
end_if
return

clk32:
show 33
set_focus 34
return

clk35:
clipboard_copy 34
clipboard_paste 1
return

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

couleur:
show 21
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)
color 66,position(22),position(23),position(24)
Rouge=position(22)
Vert=position(23)
Bleu=position(24)
return

clk17:
if clicked(17)=1
  width 0,567
  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
if clicked(95)=1 then message "Tout le contenu vas être effacer":clear 1
return

nouveau:
show 40
command_target_is 40

play 88
show 41
show 42
show 43
show 44

command_target_is 0
return

non:
hide 44
hide 43
hide 42
hide 41
hide 40
clear 1
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$
clear 1
return

aide:
show 50
show 51
show 52
return

apropos:
show 53
show 54
show 55
show 56
show 57
show 58
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.1fr1.net/vos-sources-vos-utilitaires-a-partager-f2/editeur-de-texte-mini-word-t314.htm"
return

fermer:
if (is_fermer=0)
  hide 1
  picture 80
  left 80,414
  height 80,21
  width 80,128
  color 80,232,233,218
 
  left 70,0
  caption 70,"                Mini Word"
  width 70,542
    left 72,0
    caption 72,"                    V0.1.3"
    width 72,542
      left 73,0
      caption 73,"                        Copyright octobre 2009"
      width 73,542
        left 74,0
        caption 74,"                        Auteur : Nicolas Maltais"
        width 74,542
       
  color 0,100,100,100
  caption 60,"Ouivrir"
  is_fermer=1
else
  show 1
  delete 80
  color 0,232,233,218
  caption 60,"Fermer"
  is_fermer=0
end_if
return

demarer:
if clicked(68)=1 then execute "calc.exe"
if clicked(66)=1 then execute ""
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"
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

Proprietes:
show 97
command_target_is 97

show 98
show 99

command_target_is 0
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 fin sesion --------------------------------------------------------------------------------------------------------------------------------------

fermersesion:
if clicked(4)=1 then terminate