Créateur de Grillage

label quit,grille,posit,colorobject,new,impr
label lignepoint,OKlignepointille,colorobject2
label OKligne,ligne,InfoGR,open,enreg,rectangle
label red,green,blue,2dpen,AnnuleC,2dcomplet
label Tred,Tgreen,Tblue,EnregAuto,AnnuleObject
label annuleforme,colorobject3,2dremplis,numberline
label OKrectangle,rond,OKrond,pen_width,haut,OK

dim is_grid,a$,i,j,k,a,b,c,d$,m,n,o,p
dim red,green,blue,red2,green2,blue2
dim o$,r$,l$,lp$,NomFichier$
red2=255:green2=255:blue2=255
a$=chr$(10)+chr$(13)
m=1:n=1:o=1:p=1

o$="Rond"
r$="Rectangle"
l$="Ligne"
lp$="Ligne Pointillé"


height 0,550:width 0,930
caption 0,"Créateur de Grillage...                                                                                                                                        -  Copyright 2010"

container_option 7
left 7,5
top 7,3
width 7,110
height 7,197
caption 7," Fichier "

button 1
left 1,10
top 1,20
width 1,100
caption 1,"Nouveau"
on_click 1,new

button 2
left 2,10
top 2,50
width 2,100
caption 2,"Ouvrir..."
on_click 2,open

button 3
left 3,10
top 3,80
width 3,100
caption 3,"Enregistrer"
on_click 3,enreg

button 4
left 4,10
top 4,110
width 4,100
caption 4,"Enregistrer sous..."
on_click 4,enreg

button 5
left 5,10
top 5,140
width 5,100
caption 5,"Imprimer"
on_click 5,impr

button 6
left 6,10
top 6,170
width 6,100
caption 6,"Quitter"
on_click 6,quit

' Objets ------------------------------------------


container_option 12
left 12,5
top 12,213
width 12,110
height 12,138
caption 12," Objets "

button 8
left 8,10
width 8,100
top 8,230
caption 8,"Rond..."
on_click 8,rond

button 9
left 9,10
width 9,100
top 9,260
caption 9,"Rectangle..."
on_click 9,rectangle

button 10
left 10,10
width 10,100
top 10,290
caption 10,"Ligne Pointillé..."
on_click 10,lignepoint

button 11
left 11,10
width 11,100
top 11,320
caption 11,"Ligne..."
on_click 11,ligne

' Aperçu ----------------------------------------

alpha 13
left 13,20
top 13,444
caption 13,"Aperçu :"

picture 14
left 14,10
width 14,250
height 14,30
top 14,464
color 14,0,0,0

picture 15
left 15,11
width 15,248
height 15,28
top 15,465

' Options -------------------------------------

container_option 16
left 16,5
width 16,120
height 16,70
top 16,366
caption 16," Options "

button 17
left 17,10
top 17,383
width 17,110
height 17,21
caption 17,"Modifier les couleurs..."
on_click 17,colorobject2

button 18
left 18,10
top 18,409
width 18,110
height 18,21
caption 18,"Épaisseur de ligne..."
on_click 18,pen_width

' Grillage ------------------------------------

picture 19
left 19,150
top 19,20
width 19,500
height 19,420
on_click 19,posit

2d_target_is 19
2d_pen_color 200,200,200
gosub grille

' Bouton de droite ---------------------------

container_option 20
width 20,120
left 20,660
top 20,3
height 20,78
caption 20," Options du Grillage"

button 21
left 21,665
top 21,20
width 21,110
caption 21,"Grillage..."
on_click 21,InfoGR

button 22
left 22,665
top 22,50
width 22,110
caption 22,"Nombre de ligne..."
on_click 22,numberline

' lignes ------------------------------------

list 23
top 23,110
left 23,660
width 23,120
height 23,350

alpha 24
left 24,670
top 24,92
caption 24,"Ligne(s) inséré :"

alpha 25
top 25,465
left 25,655
caption 25,"Nombre de ligne(s) inséré :"+a$+"              "+str$(count(23))

' position de la souris -----------------------

alpha 26
left 26,300
top 26,470
font_size 26,10
caption 26,"Cliquer pour savoir la position de la souris (en pixels) ..."

' Textes --------------------------------------

container_option 69
top 69,3
width 69,110
left 69,800
height 69,413
caption 69," Texte "

container_option 70
width 70,120
left 70,790
height 70,80
top 70,420
caption 70," Options "

option 71
left 71,5
top 71,20
parent 71,70
width 71,105
caption 71,"Au départ x10 y10"

option 72
left 72,5
top 72,50
parent 72,70
width 72,105
caption 72,"Choisir"
mark_on 72

button 73
left 73,805
top 73,20
width 73,100
caption 73,"Insérer du texte..."

button 74
left 74,805
top 74,55
width 74,100
caption 74,"Police..."

button 75
left 75,805
top 75,85
width 75,100
caption 75,"Taille..."

button 76
left 76,805
top 76,115
width 76,100
caption 76,"Couleur..."

button 77
left 77,805
top 77,145
width 77,100
caption 77,"Gras"
font_bold 77

button 78
left 78,805
top 78,175
width 78,100
caption 78,"Italique"
font_italic 78

button 79
left 79,805
top 79,205
width 79,100
caption 79,"Souligné"
font_underline 79

button 80
left 80,805
top 80,235
width 80,100
caption 80,"Rayé"
font_strike 80

button 81
left 81,805
top 81,265
width 81,100
caption 81,"Aperçu..."

button 82
left 82,805
top 82,295
width 82,100
caption 82,"Insérer un Nombre"

button 83
left 83,805
top 83,325
width 83,100
caption 83,"Table des Nombres"

button 84
left 84,805
top 84,355
width 84,100
caption 84,"Aperçu"

button 85
left 85,805
top 85,385
width 85,100
caption 85,"Nombre au Case"

' invisible ---------------------------------------------------------------------

form 27
hide 27
left 27,100
top 27,100
height 27,224
caption 27,"Ajouter un objet..."
command_target_is 27

alpha 28
left 28,5
top 28,5

alpha 29
left 29,150
top 29,5
caption 29,"Couleur d'objet :"+a$+a$+"0,0,0"

button 30
left 30,220
top 30,25
height 30,21
caption 30,"Personalisé..."
on_click 30,colorobject

alpha 31
left 31,10
top 31,50
caption 31,"Remplissage d'objet :"

alpha 32
left 32,13
top 32,70
caption 32,"255,255,255"

button 33
left 33,75
top 33,68
height 33,21
caption 33,"Personalisé..."

combo 50
left 50,155
top 50,68
width 50,100
text 50,"Verticale"
item_add 50,"Verticale":item_add 50,"Horizontale"

alpha 34
left 34,15
top 34,100
caption 34,"Colone :"+a$+a$+"Ligne :"

spin 35
left 35,100
top 35,98
width 35,70
max 35,25:min 35,0
position 35,1

spin 36
left 36,100
top 36,127
width 36,70
max 36,21:min 36,0
position 36,1

button 37
left 37,10
width 37,110
top 37,160
caption 37,"Épaisseur de ligne..."
on_click 37,pen_width

button 38
width 38,70
left 38,235
top 38,160
caption 38,"OK"

button 39
width 39,70
left 39,160
top 39,160
caption 39,"Annuler"
on_click 39,AnnuleObject

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

form 40
hide 40
left 40,100
top 40,50
height 40,164
width 40,330
command_target_is 40

track_bar 41
top 41,5
width 41,150
left 41,10
max 41,255:min 41,0
on_change 41,Tred

spin 42
top 42,10
width 42,70
left 42,170
min 42,0:max 42,255
on_click 42,red

alpha 43
left 43,250
top 43,12
caption 43,"Rouge"+a$+a$+"Vert"+a$+a$+a$+"Bleu"

track_bar 44
top 44,35
width 44,150
left 44,10
max 44,255:min 44,0
on_change 44,Tgreen

track_bar 45
top 45,65
width 45,150
left 45,10
max 45,255:min 45,0
on_change 45,Tblue

spin 46
top 46,40
width 46,70
left 46,170
min 46,0:max 46,255
on_click 46,green

spin 47
top 47,70
width 47,70
left 47,170
min 47,0:max 47,255
on_click 47,blue

button 48
width 48,70
left 48,247
top 48,100
caption 48,"OK"

button 49
width 49,70
left 49,172
top 49,100
caption 49,"Annuler"
on_click 49,AnnuleC

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

form 52
hide 52
left 52,50
top 52,50
width 52,200
height 52,110
caption 52,"Info Grillage"
command_target_is 52

alpha 51
left 51,5
top 51,5
caption 51,"27 colone  - - - - - - - - - -"+a$+"23 ligne    - - - - - - - - - -"+a$+a$+"X = 500 pixels"+a$+"Y = 420 pixels"

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

form 55
hide 55
left 55,100
top 55,50
height 55,270
caption 55,"Insérer une Forme..."
command_target_is 55

alpha 56
left 56,5
top 56,5
caption 56,"Nom de la forme :"+a$+"  "+a$+a$+"Nombre de pixel(s) du haut :"+a$+a$+"Nombre de pixel(s) de la gauche :"+a$+a$+"Largeur :"+a$+a$+"Hauteur :"+a$+a$+"Remplissage :                                        Couleur du tracé :"

spin 57
left 57,170
top 57,40
width 57,70
min 57,0:max 57,500

spin 58
left 58,170
top 58,66
width 58,70
min 58,0:max 58,420

spin 59
left 59,70
top 59,91
width 59,70
min 59,0:max 59,500

spin 60
left 60,70
top 60,117
width 60,70
min 60,0:max 60,420

alpha 61
left 61,20
top 61,164
caption 61,"255,255,255"

alpha 62
left 62,210
top 62,164
caption 62,"0,0,0"

button 63
left 63,10
top 63,180
height 63,21
caption 63,"Personalisé..."
on_click 63,colorobject3

button 64
left 64,200
top 64,180
height 64,21
caption 64,"Personalisé..."
on_click 64,colorobject

button 65
left 65,5
width 65,100
top 65,204
caption 65,"Épaisseur de ligne..."
on_click 65,pen_width

button 66
left 66,162
width 66,70
top 66,204
caption 66,"Annuler"
on_click 66,annuleforme

button 67
left 67,237
width 67,70
top 67,204
caption 67,"OK"

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

form 68
hide 68
left 68,10
top 68,10
width 68,150
height 68,100
caption 68,"Ligne..."
command_target_is 68

alpha 86
top 86,5
left 86,15

spin 87
width 87,80
left 87,30
top 87,23
position 87,1
max 87,20:min 87,1

button 88
left 88,30
height 88,15
top 88,49
width 88,80
caption 88,"OK"
on_click 88,haut

2d_pen_color 0,0,0
end

grille:
2d_pen_color 200,200,200
2d_line 0,0,500,0 : 2d_line 0,20,500,20 : 2d_line 0,40,500,40 : 2d_line 0,60,500,60
2d_line 0,80,500,80 : 2d_line 0,100,500,100 : 2d_line 0,120,500,120 : 2d_line 0,140,500,140
2d_line 0,160,500,160 : 2d_line 0,180,500,180 : 2d_line 0,200,500,200 : 2d_line 0,220,500,220
2d_line 0,240,500,240 : 2d_line 0,260,500,260 : 2d_line 0,280,500,280 : 2d_line 0,300,500,300
2d_line 0,320,500,320 : 2d_line 0,340,500,340 : 2d_line 0,360,500,360 : 2d_line 0,380,500,380
2d_line 0,400,500,400 : 2d_line 0,419,500,419
2d_line 0,0,0,500 : 2d_line 20,0,20,500 : 2d_line 40,0,40,500 : 2d_line 60,0,60,500
2d_line 80,0,80,500 : 2d_line 100,0,100,500 : 2d_line 120,0,120,500 : 2d_line 140,0,140,500
2d_line 160,0,160,500 : 2d_line 180,0,180,500 : 2d_line 200,0,200,500 : 2d_line 220,0,220,500
2d_line 240,0,240,500 : 2d_line 260,0,260,500 : 2d_line 280,0,280,500 : 2d_line 300,0,300,500
2d_line 320,0,320,500 : 2d_line 340,0,340,500 : 2d_line 360,0,360,500 : 2d_line 380,0,380,500
2d_line 400,0,400,500 : 2d_line 420,0,420,500 : 2d_line 440,0,440,500 : 2d_line 460,0,460,500
2d_line 480,0,480,500 : 2d_line 499,0,499,500
2d_pen_color 0,0,0
return

posit:
caption 26,"Position de la souris  :  X = "+str$(mouse_x_position(19))+"    Y = "+str$(mouse_y_position(19))+"  Pixel(s)"
return

' Objets -------------------------------------

lignepoint:
j=10:k=20
' Aperçu ---------
2d_target_is 15:cls
2d_pen_color 0,0,0
for i=1 to 12
  2d_line j,15,k,15
  j=j+20:k=k+20
next i
2d_pen_color red,green,blue

show 27
inactive 31:inactive 32:inactive 33
caption 28,"Sorte d'objet :"+a$+lp$
on_click 38,OKlignepointille
return

ligne:
' Aperçu ---------
2d_pen_color 0,0,0
2d_target_is 15:cls
2d_line 10,15,235,15
2d_pen_color red,green,blue

show 27
inactive 31:inactive 32:inactive 33
caption 28,"Sorte d'objet :"+a$+l$
on_click 38,OKligne
return

rectangle:
active 60
2d_pen_color 0,0,0
2d_target_is 15:cls
2d_fill_color 0,0,0
2d_rectangle 50,5,200,25

show 55
caption 56,"Nom de la forme :"+a$+"  "+r$+a$+a$+"Nombre de pixel(s) du haut :"+a$+a$+"Nombre de pixel(s) de la gauche :"+a$+a$+"Largeur :"+a$+a$+"Hauteur :"+a$+a$+"Remplissage :                                        Couleur du tracé :"
on_click 67,OKrectangle
return

rond:
inactive 60
2d_pen_color 0,0,0
2d_target_is 15:cls
2d_fill_color 0,0,0
2d_circle 100,15,10

show 55
caption 56,"Nom de la forme :"+a$+"  "+o$+a$+a$+"Nombre de pixel(s) du haut :"+a$+a$+"Nombre de pixel(s) de la gauche :"+a$+a$+"Largeur :"+a$+a$+"Hauteur :"+a$+a$+"Remplissage :                                        Couleur du tracé :"
on_click 67,OKrond
return

colorobject:
show 40
caption 40,"Modifier la couleur du tracé..."
on_click 48,2dpen
return

colorobject2:
show 40
caption 40,"Modifier les deux couleur..."
on_click 48,2dcomplet
return

colorobject3:
show 40
caption 40,"Modifier le remplissage d'objet..."
on_click 48,2dremplis
return

' Le OK pour l'objet ----------------------------

OKlignepointille:
2d_target_is 19:hide 27
2d_pen_color red,green,blue
a=val(text$(35))*20
b=val(text$(36))*20
k=b+20:j=b+10
if text$(50)="Verticale"
  for i=1 to 23
    2d_line a,b,a,j
    b=b+20:j=j+20
  next i
end_if
if text$(50)="Horizontale"
  for i=1 to 23
    2d_line b,a,j,a
    b=b+20:j=j+20
  next i
end_if
item_add 23,"Ligne Pointillé "+str$(m):m=m+1
caption 25,"Nombre de ligne(s) inséré :"+a$+"              "+str$(count(23))
caption 26,"Une ligne a été inséré dans le grillage !"
wait 1500
caption 26,"Cliquer pour savoir la position de la souris (en pixels) ..."
return

OKligne:
2d_target_is 19:hide 27
2d_pen_color red,green,blue
a=val(text$(35))*20
b=val(text$(36))*20
k=b+20:j=b+10
if text$(50)="Verticale" then 2d_line a,b,a,500
if text$(50)="Horizontale" then 2d_line b,a,500,a

item_add 23,"Ligne "+str$(n):n=n+1
caption 25,"Nombre de ligne(s) inséré :"+a$+"              "+str$(count(23))
caption 26,"Une ligne a été inséré dans le grillage !"
wait 1500
caption 26,"Cliquer pour savoir la position de la souris (en pixels) ..."
return

OKrectangle:
2d_target_is 19:hide 27
2d_pen_color red,green,blue
2d_fill_color red2,green2,blue2
2d_rectangle val(text$(58)),val(text$(57)),val(text$(58))+val(text$(59)),val(text$(57))+val(text$(60))

item_add 23,"Rectangle (Carré) "+str$(o):o=o+1
caption 25,"Nombre de ligne(s) inséré :"+a$+"              "+str$(count(23))
caption 26,"Une ligne a été inséré dans le grillage !"
hide 55:wait 1500
caption 26,"Cliquer pour savoir la position de la souris (en pixels) ..."
return

OKrond:
2d_target_is 19:hide 27
2d_pen_color red,green,blue
2d_fill_color red2,green2,blue2
2d_circle val(text$(58))+val(text$(59))/2,val(text$(57))+val(text$(59))/2,val(text$(59))/2

item_add 23,"Rond "+str$(p):p=p+1
caption 25,"Nombre de ligne(s) inséré :"+a$+"              "+str$(count(23))
caption 26,"Une ligne a été inséré dans le grillage !"
hide 55:wait 1500
caption 26,"Cliquer pour savoir la position de la souris (en pixels) ..."
return

' Couleurs ---------------------

red:
position 41,text$(42)
return

green:
position 44,text$(46)
return

blue:
position 45,text$(47)
return

2dpen:
2d_pen_color position(42),position(46),position(47)
caption 29,"Couleur d'objet :"+a$+a$+text$(42)+","+text$(46)+","+text$(47)
caption 62,text$(42)+","+text$(46)+","+text$(47)
red=position(42):green=position(46):blue=position(47)
hide 40
return

2dcomplet:
2d_pen_color position(42),position(46),position(47)
2d_fill_color position(42),position(46),position(47)
caption 29,"Couleur d'objet :"+a$+a$+text$(42)+","+text$(46)+","+text$(47)
caption 32,text$(42)+","+text$(46)+","+text$(47)
caption 61,text$(42)+","+text$(46)+","+text$(47)
red=position(42):green=position(46):blue=position(47)
red2=position(42):green2=position(46):blue2=position(47)
hide 40
return

2dremplis:
2d_fill_color position(42),position(46),position(47)
caption 61,text$(42)+","+text$(46)+","+text$(47)
caption 32,text$(42)+","+text$(46)+","+text$(47)
red2=position(42):green2=position(46):blue2=position(47)
hide 40
return

AnnuleC:
hide 40
return

Tred:
position 42,position(41)
return

Tgreen:
position 46,position(44)
return

Tblue:
position 47,position(45)
return

' Suivants ------------------------

new:
2d_target_is 19
2d_clear
is_grid=0
2d_pen_color 200,200,200
gosub grille
return

InfoGR:
show 52
return

AnnuleObject:
hide 27
return

annuleforme:
hide 55
return

pen_width:
show 68:font_size 86,8
show 87:on_click 88,haut
caption 86,"Épaisseur de ligne :"
return

haut:
hide 68
2d_target_is 19
2d_pen_width position(87)
return

numberline:
show 68
font_size 86,10
caption 86,"Nombre de ligne(s) :"+a$+"    "+str$(count(23))
hide 87
on_click 88,OK
return

OK:
hide 68
return

' Dialog (ouvrir, enregistrer...) ---------------

open:
open_dialog 53
filter 53,"BMP Fichier de Grillage 2D BMP|*.bmp|JPG/JPEG Fichier de Grillage 2D JPG|*.JPG;*.JPEG"
NomFichier$=file_name$(53)
delete 53
file_load 19,NomFichier$
return

enreg:
save_dialog 54
filter 54,"BMP Fichier de Grillage 2D BMP|*.bmp|JPG/JPEG Fichier de Grillage 2D JPG|*.JPG;*.JPEG"
NomFichier$=file_name$(54)
delete 54
file_save 19,NomFichier$
on_click 3,EnregAuto
return

EnregAuto:
file_save 19,NomFichier$
return

impr:
d$="C:\Temp\"
dir_change d$
file_save 19,"C:\Temp\GrillageImpr.txt"
execute_wait "mspaint.exe /p C:\Temp\GrillageImpr.txt"
wait 1000
file_delete "GrillageImpr.txt"
return

' Fin de l'application ---------------
quit:
terminate