Bizarre d'éditeur de textes

label clk27,clk26,clk25,clk24,clk23,clk22,clk20,clk18,clk14,clk12,clk4,clk5,clk7,clk6,name
label scan
label couleurs,couleur
dim NomFichier$
dim is_under,is_italic,is_bold
dim is_bar,is_badou,is_badou2
dim is_casp,is_souris
dim is_options
dim is_fond,i

dim Rouge,Vert,Bleu

is_under=0
is_italic=0
is_bold=0
is_bar=0
is_casp=0
is_souris=0
is_options=0
is_badou=0
is_badou2=0
is_fond=0
picture 35
height 35,98
width 35,242
color 35,0,0,0
progress_bar 33
top 33,35
left 33,45
hint 33,"Trafic"

alpha 34
left 34,43
top 34,20
caption 34,"Veiller Patienter Pour L'ouverture"
color 34,0,0,0
font_color 34,255,255,255

left 0,300
top 0,200
width 0,250
height 0,132
caption 0,"Ma palette d'écriture"

for i=1 to 100
 position 33,i
 wait 1
next i
delete 35
delete 34
delete 33


border_hide 0

left 0,300
top 0,200
width 0,217
height 0,132
caption 0,"Ma palette d'écriture"


combo 1
font_names_load 1
text 1,"Arial"
on_click 1,name

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

memo 3
top 3,21
width 3,195
bar_both 3

button 4
left 4,195
height 4,21
width 4,21
caption 4,"G"
font_bold 4
hint 4,"Gras"
on_click 4,clk4

button 5
left 5,195
top 5,21
height 5,21
width 5,21
caption 5,"I"
font_italic 5
font_bold 5
hint 5,"Italique"
on_click 5,clk5

button 6
left 6,195
top 6,42
height 6,21
width 6,21
caption 6,"S"
font_bold 6
font_underline 6
hint 6,"Souligné"
on_click 6,clk6

combo 7
top 7,110
width 7,124
text 7,"Date et heure :"
item_add 7,""+date$
item_add 7,""+time$
item_add 7,"PM "+time$
item_add 7,"AM "+time$
item_add 7,"18 septembre 2009"
on_click 7,clk7

button 22
left 22,124
top 22,110
height 22,21
width 22,21
caption 22,"OP"
font_bold 22
hint 22,"Options"
on_click 22,clk22

button 8
left 8,149
top 8,110
width 8,20
height 8,21
caption 8,"E"
font_bold 8
hint 8,"Enregistrer..."
on_click 8,scan

picture 32
left 32,145
top 32,110
width 32,4
height 32,21

button 10
left 10,170
top 10,110
width 10,24
height 10,21
caption 10,"O"
font_bold 10
hint 10,"Ouvrir..."
on_click 10,scan

button 12
left 12,195
top 12,63
width 12,21
height 12,21
caption 12,"A"
font_bold 12
font_underline 12
on_click 12,clk12

picture 13
left 13,195
top 13,84
width 13,21
height 13,4
on_click 13,clk12
color 13,0,0,0

button 14
left 14,195
top 14,88
width 14,21
height 14,21
caption 14,"S"
font_bold 14
hint 14,"Souris"
on_click 14,clk14

button 18
left 18,195
top 18,109
width 18,21
height 18,22
caption 18,"c-s"
font_bold 18
hint 18,"Caractères spéciaux"
on_click 18,clk18

picture 28
hide 28
left 28,5
top 28,135
width 28,150
height 28,25
 
end

scan:
if clicked(8)=1
  save_dialog 9
  NomFichier$=file_name$(9)
  delete 9
  file_save 3,NomFichier$
rem  message "Le fichier existe. Le remplacer"
end_if
if clicked(10)=1
  open_dialog 11
  NomFichier$=file_name$(11)
  delete 11
  file_load 3,NomFichier$
rem  message "La source a changer. L'enregistrer"
end_if
if clicked(2)=1
  font_size 3, text$(2)
end_if
return

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

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

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

clk7:
if clicked(7)=1
  item_insert 7,5,"Seclectionner L'objet choisi et Copier le"
  wait 2000
  item_delete 7,5
end_if
return

clk12:
if (is_bar=0)
  height 0,300
  inactive 22
  inactive 18
 
  track_bar 15
  left 15,2
  top 15,137
  width 15,210
  min 15,0:max 15,255
  on_change 15,couleurs
 
  track_bar 16
  left 16,2
  top 16,167
  width 16,210
  min 16,0:max 16,255
  on_change 16,couleurs
 
  track_bar 17
  left 17,2
  top 17,197
  width 17,210
  min 17,0:max 17,255
  on_change 17,couleurs
 
  picture 21
  left 21,5
  top 21,170
  width 21,205
  color 21,0,0,0
  is_bar=1
else
  active 22
  active 18
  height 0,132
  delete 15
  delete 16
  delete 17
  delete 21
  is_bar=0
end_if
return

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

clk14:
if (is_souris=0)
  inactive 1
  inactive 2
  inactive 3
  inactive 4
  inactive 5
  inactive 6
  inactive 7
  inactive 8
  inactive 12
  inactive 10
  inactive 13
  inactive 18
  is_souris=1
else
  active 1
  active 2
  active 3
  active 4
  active 5
  active 6
  active 7
  active 8
  active 12
  active 10
  active 13
  active 18
  is_souris=0
end_if
return

clk20:
clipboard_copy 19
clipboard_paste 3
return

clk22:
if (is_options=0)
  height 0,170
  inactive 12
  inactive 14
  inactive 18
 
  button 23
  left 23,4
  top 23,135
  width 23,50
  caption 23,"Barre D"
  font_italic 23
  font_bold 23
  hint 23,"Barre d'outils"
  on_click 23,clk23
 
  button 24
  left 24,59
  top 24,135
  width 24,50
  caption 24,"Barre F"
  font_bold 24
  hint 24,"Barre de format"
  on_click 24,clk24
 
  button 25
  left 25,114
  top 25,135
  width 25,50
  caption 25,"Nouveau"
  hint 25,"Nouveau"
  on_click 25,clk25
 
  button 26
  left 26,191
  width 26,20
  top 26,135
  caption 26,"Q"
  hint 26,"Quiter"
  font_bold 26
  font_underline 26
  on_click 26,clk26
 
  button 27
  left 27,168
  width 27,20
  top 27,135
  caption 27,"F"
  hint 27,"Fond"
  font_bold 27
  font_underline 27
  font_italic 27
  on_click 27,clk27
  is_options=1
else
  active 12
  active 14
  active 18
  height 0,132
  delete 23
  delete 24
  delete 25
  delete 26
  delete 27
  is_options=0
end_if
return

clk25:
clear 3
return

clk26:
if clicked(26)=1 then terminate
return

clk24:
if (is_badou2=0)
  inactive 23
  top 3,0
  height 3,110
  width 3,216
  left 22,0
  left 8,25
  left 32,21
  left 10,45
  hide 1
  hide 2
  hide 4
  hide 5
  hide 6
  hide 7
  hide 12
  hide 13
  hide 18
  hide 14
  is_badou2=1
else
  active 23
  top 3,21
  height 3,89
  width 3,195
  left 22,124
  left 8,149
  left 10,170
  left 32,145
  show 1
  show 2
  show 4
  show 5
  show 6
  show 7
  show 12
  show 13
  show 18
  show 14
  is_badou2=0
end_if
return

clk23:
if (is_badou=0)
  inactive 24
  width 3,216
  width 2,71
  hide 4
  hide 5
  hide 6
  hide 12
  hide 13
  hide 18
  hide 14
  is_badou=1
else
  width 3,195
  width 2,50
  active 24
  show 4
  show 5
  show 6
  show 12
  show 13
  show 18
  show 14
  is_badou=0
end_if
return

clk27:
if (is_fond=0)
  height 0,300
  left 27,191
  hide 23
  hide 24
  hide 25
  hide 26
  show 28
  inactive 22
 
  track_bar 29
  left 29,5
  top 29,165
  min 29,0:max 29,255
  width 29,200
  position 29,255
  on_change 29,couleur
 
  track_bar 30
  left 30,5
  top 30,195
  min 30,0:max 30,255
  width 30,200
  position 30,255
  on_change 30,couleur
 
  track_bar 31
  left 31,5
  top 31,225
  width 31,200
  min 31,0:max 31,255
  position 31,255
  on_change 31,couleur
  is_fond=1
else
  height 0,170
  left 27,168
  show 23
  show 24
  show 25
  show 26
  hide 28
  delete 29
  delete 30
  delete 31
  active 22
  is_fond=0
end_if
return

couleur:
color 3,position(29),position(30),position(31)
color 28,position(29),position(30),position(31)
color 32,position(29),position(30),position(31)
Rouge=position(29)
Vert=position(30)
Bleu=position(31)
return

couleurs:
color 21,position(15),position(16),position(17)
font_color 3,position(15),position(16),position(17)
color 13,position(15),position(16),position(17)
Rouge=position(15)
Vert=position(16)
Bleu=position(17)
return

name:
font_name 3,text$(1)
return