Un essai de construction d'organigramme par Panoramic

Citation :: Seule solution: supprimer le lien en cause et le recréer. Heureusement, cela se fait maintenant sans difficultés.

Tout à fait d'accord avec toi. Mais excuses moi d'insister...
Mais il me semble que la création du lien prends toujours un point supplémentaire à la fin.
Et je pense que le problème et là.

Lorsque je crée un lien d'un point à un autre en ligne droite et sans point intermédiaire (2 points),
je me rends compte qu'il y a toujours un 'bout' de lien qui remonte du second point et longe le segment déjà créé.
Pour moi, il s'agit d'un point en trop qui est tracé tout à la fin.

C'est pas grave en soit mais c'est assez inesthétique. Surtout pour un organigramme ! Wink

Dernière édition par Marc le Dim 18 Mar 2018 - 13:46, édité 1 fois

Pardonne-moi Klaus de répondre à ta place. Et j'espère ne pas dire de bêtise...

@Minibug

Le dernier point, celui qui indique où est le connecteur d'arrivée, ne doit pas être renseigné manuellement avec les lignes de visée. Il est déjà "mémorisé" dans le futur tracé, la ligne se refermera proprement toute seule depuis ton dernier point manuel jusqu'au connecteur d'arrivée.

Hum... je ne sais pas si je suis bien explicite... Embarassed

Huuuum, je viens de comprendre !

Tout est de ma faute donc... affraid

Je viens de tester avec tes infos Marc et tout fonctionne parfaitement.

Désolé Klaus et merci Marc pour tes explications très claires. Wink

De cette façon cela fonctionne parfaitement !

J'étais parti un petit moment, pour poser des carreaux de plâtre. Et au retour, j'ai lu votre petit échange, Marc et Minibug.

Marc a parfaitement expliqué la situation. Je récapitule:
Pour créer un lien, on fait dans l'ordre, les actions suivantes:
1. cliquer le bouton "Lier" pour activer la phase de création de lien. (Bien lire les messages qui s'afficheront à partir de là)
2. sélectionner un connecteur de sortie par un clic gauche sur le connecteur choisi
3. sélectionner l'élément de destination par un clic gauche dans l'élément choisi
4. (étape optionnelle) définir un point intermédiaire pour le passage du lien, à partir du connecteur de sortie, en s'aidant des lignes de visée. Répéter cette phase autant de fois que nécessaire pour tracer un chemin temporaire jusqu'à un point à l'aplomb du connecteur d'entrée de l'élément de destination - et PAS sur ce connecteur !
5a. cliquer le bouton "Tracer" pour valider le lien, ou
5b. cliquer le bouton "Annuler" à droite du bouton "Lier" pour effacer la tentative de création de lien

Dans l'absolu, on n'a même pas besoin de la phase 4 - le programme trace alors un lien direct mais qui risque de traverses des éléments ou ne pas correspondre à un tracé acceptable.

Merci pour ces explications 'détaillées' Klaus.

j'avoue ne pas toujours tout lire, et comme là en plus les messages apparaissent très régulièrement,
je passe rapidement sans faire attention, et bien sûr je loupe certaines explications... Embarassed

Nouvelle version:
Lors de la création d'un lien, le connecteur de sortie sélectionné ainsi que l'élément de destination choisi sont maintenant "sélectionnés" (affichage en jaune). Les boutons "Annuler" ainsi que "Tracer" restorent l'état normal.

La version est dans mon WebDav, dossier DLLs.

Et voici le programme qui va avec:

Code:: ' FlowChartDesigner.bas

labels()
constantes()
variables()
menu()
cadres()
Objets()

on_user_event UserEvent

end

UserEvent:
if bin_and(user_event_wparam,hex("FF000000"))=hex("0B000000") : ' ScrollImage
if DoPoints%>0
pos% = user_event_lparam : ' positon: yyyyxxxx
xxp% = bin_and(pos%,hex("0000FFFF"))
yyp% = pos%/65536
if DoPoints%=1
NatureOutput% = dll_call5("IdentifyOutputOfFlowChartElement",FC%,xxp%,yyp%,adr(FCEstart%),adr(output%))
if NatureOutput%<0
message "Ce n'est pas une sortie valide."+chr$(13)+chr$(10)+"Recommencez ou Annulez..."
return
end_if
res% = dll_call3("SelectOutputConnectorOfFlowChartElement",FC%,FCEstart%,output%)
DoPoints% = 2
message "Cliquez maintenant l'élémént de destination"+chr$(13)+chr$(10)+"ou Annulez..."
return
end_if
if DoPoints%=2
res% = dll_call4("IdentifyFlowChartElement",FC%,adr(xxp%),adr(yyp%),adr(FCEdest%))
if res%<0
message "Ce n'est pas un élément valide."+chr$(13)+chr$(10)+"Recommencez ou Annulez..."
return
end_if
DoPoints% = 3
res% = dll_call2("SelectElementInFlowChart",FC%,FCEdest%)
message "Cliquez maintenant les points d'étape"+chr$(13)+chr$(10)+"puis Tracez ou Annulez..."
res% = dll_call2("ShowRulersInFlowChart",FC%,1)
return
end_if
if DoPoints%=3
' ici, rectangulariser le tracé
if npt%=0
res% = dll_call4("GetOutputConnectorOfFlowChartElement",FCEstart%,output%,adr(xx%),adr(yy%))
else
xx% = xarray%(npt%)
yy% = yarray%(npt%)
end_if
if (npt%=0) and (NatureOutput%<>0)
if abs(xxp%-xx%)<=DeltaRectangle%
xxp% = xx%
else
if abs(yyp%-yy%)<=DeltaRectangle%
yyp% = yy%
else
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yy%
end_if
end_if
end_if
if npt%>0
if abs(xxp%-xx%)<=DeltaRectangle%
xxp% = xx%
else
if abs(yyp%-yy%)<=DeltaRectangle%
yyp% = yy%
else
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yy%
end_if
end_if
end_if

' mémoriser le point
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yyp%
res% = dll_call3("DrawTemporaryMarkIntoFlowChart",FC%,xxp%,yyp%)
res% = dll_call5("DrawTemporaryLineIntoFlowChart",FC%,xx%,yy%,xxp%,yyp%)
' message "Point "+str$(npt%)+": "+str$(xx%)+","+str$(yy%
end_if
if DoPoints%=4
res% = dll_call4("IdentifyFlowChartElement",FC%,adr(xxp%),adr(yyp%),adr(FCE%))
if res%<0
message "Ce n'est pas un élément valide."
return
end_if
message "Elément "+nature$(res%)+" identifié"
DoPoints% = 5
select res%
case 0
show no_AttributsConnector%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Connector_X%),handle(no_Connector_Y%),0,0)
position no_Connector_X%,xxp%
position no_Connector_Y%,yyp%
case 1
res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
show no_AttributsAction%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Action_X%),handle(no_Action_Y%),handle(no_Action_Largeur%),handle(no_Action_Hauteur%))
position no_Action_X%,xxp%
position no_Action_Y%,yyp%
position no_Action_Largeur%,wwp%
position no_Action_Hauteur%,hhp%
text no_action_Couleur%,right$(hex$(ccc%),6)
text no_Action_Titre%,item_read$(no_memo%,1)
item_delete no_memo%,1
clear no_Action_Contenu%
if count(no_memo%)>0
for i%=1 to count(no_memo%)
item_add no_Action_Contenu%,item_read$(no_memo%,i%)
next i%
end_if
case 2
res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
show no_AttributsCondition%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Condition_X%),handle(no_Condition_Y%),handle(no_Action_Largeur%),handle(no_Action_Hauteur%))
position no_Condition_X%,xxp%
position no_Condition_Y%,yyp%
position no_Condition_Largeur%,wwp%
position no_Condition_Hauteur%,hhp%
text no_Condition_Couleur%,right$(hex$(ccc%),6)
text no_Condition_Titre%,item_read$(no_memo%,1)
item_delete no_memo%,1
clear no_Condition_Contenu%
if count(no_memo%)>0
for i%=1 to count(no_memo%)
item_add no_Condition_Contenu%,item_read$(no_memo%,i%)
next i%
end_if
case 3
res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
show no_AttributsSelection%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Selection_X%),handle(no_Selection_Y%),handle(no_Selection_Largeur%),handle(no_Selection_Hauteur%))
position no_Selection_X%,xxp%
position no_Selection_Y%,yyp%
position no_Selection_Largeur%,wwp%
position no_Selection_Hauteur%,hhp%
text no_Selection_Couleur%,right$(hex$(ccc%),6)
text no_Selection_Titre%,item_read$(no_memo%,1)
item_delete no_memo%,1
clear no_Selection_Contenu%
if count(no_memo%)>0
for i%=1 to count(no_memo%)
item_add no_Selection_Contenu%,item_read$(no_memo%,i%)
next i%
end_if
case 4
res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
show no_AttributsStart%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Start_X%),handle(no_Start_Y%),handle(no_Start_Largeur%),handle(no_Start_Hauteur%))
position no_Start_X%,xxp%
position no_Start_Y%,yyp%
position no_Start_Largeur%,wwp%
position no_Start_Hauteur%,hhp%
text no_Start_Couleur%,right$(hex$(ccc%),6)
case 5
res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
show no_AttributsEnd%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_End_X%),handle(no_End_Y%),handle(no_End_Largeur%),handle(no_End_Hauteur%))
position no_End_X%,xxp%
position no_End_Y%,yyp%
position no_End_Largeur%,wwp%
position no_End_Hauteur%,hhp%
text no_End_Couleur%,right$(hex$(ccc%),6)
end_select
res% = dll_call2("SelectElementInFlowChart",FC%,FCE%)
end_if
if DoPoints%=6
res% = dll_call4("IdentifyFlowChartLink",FC%,xxp%,yyp%,adr(FCL%))
if res%<0
message "Ce n'est pas un lien valide."
DoPoints% = 0
res% = dll_call2("DrawFlowChart",FC%,1)
return
end_if
message "Lien "+str$(res%)+" identifié"

res% = dll_call2("SelectLinkInFlowChart",FC%,FCL%)
DoPoints% = 0
res% = dll_call2("DrawFlowChart",FC%,5)
end_if
end_if
end_if

return

sortir:
terminate

AddConnector:
AddConnector()
return

AddAction:
AddAction()
return

AddCondition:
AddCondition()
return

AddSelector:
AddSelector()
return

AddStart:
AddStart()
return

AddEnd:
AddEnd()
return

selectionner:
selectionner()
return

valider_connector:
valider_connector()
return

valider_action:
valider_action()
return

valider_Condition:
valider_Condition()
return

annulerselection:
annulerselection()
return

supprimerliens:
supprimerliens()
return

valider_Selection:
valider_Selection()
return

valider_start:
valider_start()
return

valider_end:
valider_end()
return

nouveauprojet:
nouveauprojet()
return

ouvrirprojet:
ouvrirprojet()
return

enregistrerprojet:
enregistrerprojet()
return

enregistrersousprojet:
enregistrersousprojet()
return

lier:
lier()
return

annulerlier:
annulerlier()
return

tracer:
tracer()
return

exporter:
exporter()
return

selectionLien:
selectionLien()
return

annulerSelLien:
annulerSelLien()
return

supprimerLien:
supprimerLien()
return

sub labels()
label AddConnector, AddAction, AddCondition, AddSelector, AddStart, AddEnd
label valider_connector, valider_action, valider_Condition, valider_Selection
label valider_Start, valider_End
label selectionner, annulerselection, supprimerliens, UserEvent, sortir
label selectionLien, annulerSelLien, supprimerLien
label nouveauprojet, ouvrirprojet, enregistrerprojet, enregistrersousprojet
label lier, annulerlier, tracer, exporter
end_sub

sub constantes()
dim KGF$ : KGF$ = "KGF.dll"
dim M1% : M1% = 0-1
dim DeltaRectangle% : DeltaRectangle% = 10
dim LignesDeVisee% : ' nombre de lignes de visée (0, 1 ou 2)
LignesDeVisee% = 2
dim nature$(6)
nature$(0) = "Connector"
nature$(1) = "Action"
nature$(2) = "Condition"
nature$(3) = "Selector"
nature$(4) = "Start"
nature$(5) = "End"
end_sub

sub variables()
dim res%, DoPoints%, pos%, xxp%, yyp%, titre$, wwp%, hhp%, i%, ccc%, output%
dim xx%, yy%, NatureOutput%, NatureInput%
dim npt%, xarray%(100),yarray%(100)
dim no%, no1%, no2%, no_cElements%, no_AnnSel%, no_SuppLiens%, no_memo%, no_open%, no_save%
dim no_AttributsConnector%, no_AttributsAction%, no_AttributsCondition%
dim no_AttributsSelection%, no_AttributsStart%, no_AttributsEnd%
dim no_Connector_X%, no_Connector_Y%, no_AnnLink%, no_Tracer%
dim no_Action_X%, no_Action_Y%, no_Action_Titre%, no_action_Couleur%
dim no_Action_Largeur%, no_Action_Hauteur%, no_Action_Contenu%, no_export%
dim no_Condition_X%, no_Condition_Y%, no_Condition_Titre%, no_condition_Couleur%
dim no_Condition_Largeur%, no_Condition_Hauteur%, no_Condition_Contenu%
dim no_Selection_X%, no_Selection_Y%, no_Selection_Titre%, no_selection_Couleur%
dim no_Selection_Largeur%, no_Selection_Hauteur%, no_Selection_Contenu%
dim no_Start_X%, no_Start_Y%, no_Start_Largeur%, no_Start_Hauteur%, no_start_Couleur%
dim no_End_X%, no_End_Y%, no_End_Largeur%, no_End_Hauteur%, no_end_Couleur%
dim no_AnnSelLink%, no_DelLink%
dim FC%, FCE%, FCEstart%, FCEdest%, FCL%
dim projet$
end_sub

sub menu()
no% = no% + 1 : main_menu no% : no1% = no%
no% = no% + 1 : sub_menu no% : parent no%,no1% : no2% = no% : caption no%,"Fichier"
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Nouveau" : on_click no%,nouveauprojet
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Ouvrir..." : on_click no%,ouvrirprojet
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Enregistrer" : on_click no%,enregistrerprojet
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Enregistrer sous..." : on_click no%,enregistrersousprojet
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Exporter..." : on_click no%,exporter
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"-"
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Sortir" : on_click no%,sortir
end_sub

sub cadres()
dll_on KGF$
no% = no% + 1 : container no% : no_cElements% = no% : width no%,200 : caption no%,"Eléments"
FC% = dll_call6("CreateFlowChart",handle(0),0,0,0,0,LignesDeVisee%)
full_space 0
res% = dll_call5("LocateFlowChart",FC%,width(no_cElements%),0,width_client(0)-width(no_cElements%),height_client(0))
height no_cElements%,350
res% = dll_call2("ShowRulersInFlowChart",FC%,0)

no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Connecteur"
top no%,15 : left no%,10 : on_click no%,AddConnector
no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Action"
top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddAction
no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Condition"
top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddCondition
no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Selecteur"
top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddSelector
no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Début"
top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddStart
no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Fin"
top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddEnd

no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Sélectionner"
top no%,top(no%-1)+height(no%-1)+10 : left no%,10 : on_click no%,selectionner
no% = no% + 1 : button no% : parent no%,no_cElements% : no_AnnSel% = no% : caption no%,"Annuler" : inactive no%
top no%,top(no%-1) : left no%,left(no%-1)+width(no%-1) : on_click no%,annulerselection
no% = no% + 1 : button no% : parent no%,no_cElements% : no_SuppLiens% = no% : caption no%,"Supprimer lien" : inactive no%
top no%,top(no%-1)+height(no%-1) : left no%,left(no%-1) : on_click no%,supprimerliens

no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Lier"
top no%,top(no%-1)+height(no%-1)+10 : left no%,10 : on_click no%,lier
no% = no% + 1 : button no% : parent no%,no_cElements% : no_AnnLink% = no% : caption no%,"Annuler" : inactive no%
top no%,top(no%-1) : left no%,left(no%-1)+width(no%-1) : on_click no%,annulerlier
no% = no% + 1 : button no% : parent no%,no_cElements% : no_Tracer% = no% : caption no%,"Tracer" : inactive no%
top no%,top(no%-1)+height(no%-1) : left no%,10 : width no%,width(no%-2)+width(no%-1) : on_click no%,tracer

no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Sel. Lien"
top no%,top(no%-1)+height(no%-1)+10 : left no%,10 : on_click no%,selectionLien
no% = no% + 1 : button no% : parent no%,no_cElements% : no_AnnSelLink% = no% : caption no%,"Annuler" : inactive no%
top no%,top(no%-1) : left no%,left(no%-1)+width(no%-1) : on_click no%,annulerSelLien
no% = no% + 1 : button no% : parent no%,no_cElements% : no_DelLink% = no% : caption no%,"Supprimer lien" : inactive no%
top no%,top(no%-1)+height(no%-1) : left no%,10 : width no%,width(no%-2)+width(no%-1) : on_click no%,supprimerLien

' attributs Connector
no% = no% + 1 : container no% : no_AttributsConnector% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Connector" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsConnector% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_Connector_X% = no% : parent no%,no_AttributsConnector% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsConnector% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_Connector_Y% = no% : parent no%,no_AttributsConnector% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : button no% : parent no%,no_AttributsConnector% : top no%,height(no_AttributsConnector%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_connector

' attributs Action
no% = no% + 1 : container no% : no_AttributsAction% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Action" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_Action_X% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_Action_Y% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_Action_Largeur% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Hauteur:"
no% = no% + 1 : spin no% : no_Action_Hauteur% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_Action_Couleur% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Titre:"
no% = no% + 1 : edit no% : no_Action_Titre% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
width no%,110
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Contenu:"
no% = no% + 1 : memo no% : no_Action_Contenu% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+15 : left no%,10
width no%,180 : bar_both no%
no% = no% + 1 : button no% : parent no%,no_AttributsAction% : top no%,height(no_AttributsAction%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_action

' attributs Condition
no% = no% + 1 : container no% : no_AttributsCondition% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Condition" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_Condition_X% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_Condition_Y% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_Condition_Largeur% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Hauteur:"
no% = no% + 1 : spin no% : no_Condition_Hauteur% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_Condition_Couleur% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Titre:"
no% = no% + 1 : edit no% : no_Condition_Titre% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
width no%,110
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Contenu:"
no% = no% + 1 : memo no% : no_Condition_Contenu% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+15 : left no%,10
width no%,180 : bar_both no%
no% = no% + 1 : button no% : parent no%,no_AttributsCondition% : top no%,height(no_AttributsCondition%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_Condition

' attributs Selection
no% = no% + 1 : container no% : no_AttributsSelection% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Selection" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_Selection_X% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_Selection_Y% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_Selection_Largeur% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Hauteur:"
no% = no% + 1 : spin no% : no_Selection_Hauteur% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_Selection_Couleur% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Titre:"
no% = no% + 1 : edit no% : no_Selection_Titre% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
width no%,110
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Contenu:"
no% = no% + 1 : memo no% : no_Selection_Contenu% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+15 : left no%,10
width no%,180 : bar_both no%
no% = no% + 1 : button no% : parent no%,no_AttributsSelection% : top no%,height(no_AttributsSelection%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_Selection

' attributs Start
no% = no% + 1 : container no% : no_AttributsStart% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Start" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_Start_X% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_Start_Y% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_Start_Largeur% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Hauteur:"
no% = no% + 1 : spin no% : no_Start_Hauteur% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_Start_Couleur% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : button no% : parent no%,no_AttributsStart% : top no%,height(no_AttributsStart%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_Start

' attributs End
no% = no% + 1 : container no% : no_AttributsEnd% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs End" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_End_X% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_End_Y% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_End_Largeur% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Hauteur:"
no% = no% + 1 : spin no% : no_End_Hauteur% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_End_Couleur% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : button no% : parent no%,no_AttributsEnd% : top no%,height(no_AttributsEnd%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_End

end_sub

sub Objets()
no% = no% + 1 : memo no% : no_memo% = no% : hide no% : bar_both no%
no% = no% + 1 : open_dialog no% : no_open% = no% : filter no%,"Projet FlowChart (*.FCproj)|*.FCproj"
no% = no% + 1 : save_dialog no% : no_save% = no% : filter no%,"Projet FlowChart (*.FCproj)|*.FCproj"
no% = no% + 1 : save_dialog no% : no_export% = no% : filter no%,"Images (BMP,JPG,GIF,PNG)|*.BMP;*.JPG;*.GIF;*.PNG"
end_sub

sub AddConnector()
FCE% = dll_call4("AddElementToFlowChart",FC%,0,0,0)
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,20,20)
res% = dll_call2("DrawFlowChart",FC%,1)
position no_Connector_X%,0
position no_Connector_Y%,0
annulerselection()
' show no_AttributsConnector%
end_sub

sub AddAction()
dim_local titre$
titre$ = "Action"
FCE% = dll_call4("AddElementToFlowChart",FC%,1,hex("FFFF00"),adr(titre$))
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,300,200)
res% = dll_call2("DrawFlowChart",FC%,1)
position no_Action_X%,0
position no_Action_Y%,0
position no_Action_Largeur%,300
position no_Action_Hauteur%,200
text no_action_Couleur%,"FFFF00"
text no_Action_Titre%,titre$
clear no_Action_Contenu%
annulerselection()
' show no_AttributsAction%
end_sub

sub AddCondition()
dim_local titre$
titre$ = "Condition ?"
FCE% = dll_call4("AddElementToFlowChart",FC%,2,hex("0000FF"),adr(titre$))
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,300,100)
clear no_memo%
item_add no_memo%,"."
item_add no_memo%,"Oui"
item_add no_memo%,"Non"
res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,0,handle(no_memo%))
res% = dll_call2("DrawFlowChart",FC%,1)
position no_Condition_X%,0
position no_Condition_Y%,0
position no_Condition_Largeur%,300
position no_Condition_Hauteur%,100
text no_Condition_Couleur%,"0000FF"
text no_Condition_Titre%,titre$
clear no_Condition_Contenu%
item_add no_Condition_Contenu%,"Oui"
item_add no_Condition_Contenu%,"."
item_add no_Condition_Contenu%,"Non"
annulerselection()
' show no_AttributsCondition%
end_sub

sub AddSelector()
dim_local titre$
titre$ = "Sélection"
FCE% = dll_call4("AddElementToFlowChart",FC%,3,hex("0000FF"),adr(titre$))
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,300,100)
clear no_memo%
item_add no_memo%,"1"
item_add no_memo%,"2"
item_add no_memo%,"3"
res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,0,handle(no_memo%))
res% = dll_call2("DrawFlowChart",FC%,1)
position no_Selection_X%,0
position no_Selection_Y%,0
position no_Selection_Largeur%,300
position no_Selection_Hauteur%,100
text no_Selection_Couleur%,"0000FF"
text no_Selection_Titre%,titre$
clear no_Selection_Contenu%
item_add no_Selection_Contenu%,"1"
item_add no_Selection_Contenu%,"2"
item_add no_Selection_Contenu%,"3"
annulerselection()
' show no_AttributsSelection%
end_sub

sub AddStart()
dim_local titre$
titre$ = "Début"
FCE% = dll_call4("AddElementToFlowChart",FC%,4,hex("F0F0F0"),adr(titre$))
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,100,100)
res% = dll_call2("DrawFlowChart",FC%,1)
position no_Start_X%,0
position no_Start_Y%,0
position no_Start_Largeur%,100
position no_Start_Hauteur%,100
text no_Start_Couleur%,"F0F0F0"
annulerselection()
' show no_AttributsStart%
end_sub

sub AddEnd()
dim_local titre$
titre$ = "Arrêt"
FCE% = dll_call4("AddElementToFlowChart",FC%,5,hex("F0F0F0"),adr(titre$))
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,100,100)
res% = dll_call2("DrawFlowChart",FC%,1)
position no_End_X%,0
position no_End_Y%,0
position no_End_Largeur%,100
position no_End_Hauteur%,100
text no_End_Couleur%,"F0F0F0"
annulerselection()
' show no_AttributsEnd%
end_sub

sub selectionner()
message "Sélectionner un élément en cliquant dessus..."
DoPoints% = 4
active no_AnnSel%
active no_SuppLiens%
hide no_AttributsConnector%
hide no_AttributsAction%
hide no_AttributsCondition%
hide no_AttributsSelection%
hide no_AttributsStart%
hide no_AttributsEnd%
end_sub

sub annulerselection()
DoPoints% = 0
inactive no_AnnSel%
inactive no_SuppLiens%
hide no_AttributsConnector%
hide no_AttributsAction%
hide no_AttributsCondition%
hide no_AttributsSelection%
hide no_AttributsStart%
hide no_AttributsEnd%
res% = dll_call2("SelectElementInFlowChart",FC%,0)
end_sub

sub supprimerliens()
res% = dll_call2("RemoveAllLinksFromFlowChartElement",FC%,FCE%)
end_sub

sub valider_connector()
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Connector_X%),position(no_Connector_Y%),M1%,M1%)
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsConnector%
end_sub

sub valider_action()
dim_local titre$
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Action_X%),position(no_Action_Y%),position(no_Action_Largeur%),position(no_Action_Hauteur%))
titre$ = trim$(text$(no_Action_Titre%))
res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,adr(titre$),handle(no_Action_Contenu%))
res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_Action_couleur%)))
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsAction%
end_sub

sub valider_Condition()
dim_local titre$
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Condition_X%),position(no_Condition_Y%),position(no_Condition_Largeur%),position(no_Condition_Hauteur%))
titre$ = trim$(text$(no_Condition_Titre%))
res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,adr(titre$),handle(no_Condition_Contenu%))
res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_Condition_couleur%)))
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsCondition%
end_sub

sub valider_Selection()
dim_local titre$
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Selection_X%),position(no_Selection_Y%),position(no_Selection_Largeur%),position(no_Selection_Hauteur%))
titre$ = trim$(text$(no_Selection_Titre%))
res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,adr(titre$),handle(no_Selection_Contenu%))
res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_Selection_couleur%)))
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsSelection%
end_sub

sub valider_Start()
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Start_X%),position(no_Start_Y%),position(no_Start_Largeur%),position(no_Start_Hauteur%))
res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_Start_couleur%)))
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsStart%
end_sub

sub valider_End()
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_End_X%),position(no_End_Y%),position(no_End_Largeur%),position(no_End_Hauteur%))
res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_End_couleur%)))
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsEnd%
end_sub

sub nouveauprojet()
FC% = dll_call1("DeleteFlowChart",FC%)
FC% = dll_call6("CreateFlowChart",handle(0),0,0,0,0,LignesDeVisee%)
full_space 0
res% = dll_call5("LocateFlowChart",FC%,width(no_cElements%),0,width_client(0)-width(no_cElements%),height_client(0))
' height no_cElements%,300
projet$ = ""
end_sub

sub ouvrirprojet()
dim_local prj$
prj$ = file_name$(no_save%)
if prj$="_" then exit_sub
if lower$(file_extract_extension$(prj$))<>".fcproj"
message "Extension erronnée (*.FCproj)"
exit_sub
end_if
if file_exists(prj$)=0
message("Ce fichier n'existe pas."
exit_sub
end_if

nouveauprojet()
res% = dll_call2("LoadFlowChartProject",FC%,adr(prj$))
if res%<0
message "Erreur en chargement"
else
message "Le projet a été chargé:"+chr$(13)+chr$(10)+prj$
projet$ = prj$
end_if
end_sub

sub enregistrerprojet()
dim_local prj$
if projet$=""
enregistrersousprojet()
exit_sub
end_if
prj$ = projet$
if file_exists(prj$)=1 then file_delete prj$
res% = dll_call2("SaveFlowChartProject",FC%,adr(prj$))
if res%<0
message "Erreur en sauvegarde"
else
message "Le ficher a été créé:"+chr$(13)+chr$(10)+prj$
projet$ = prj$
end_if
end_sub

sub enregistrersousprojet()
dim_local prj$
prj$ = file_name$(no_save%)
if prj$="_" then exit_sub
if lower$(file_extract_extension$(prj$))<>".fcproj"
message "Extension erronnée (*.FCproj)"
exit_sub
end_if
if file_exists(prj$)=1
if message_confirmation_yes_no("Ce fichier existe déjà. Remplacer ?")<>1 then exit_sub
file_delete prj$
end_if
res% = dll_call2("SaveFlowChartProject",FC%,adr(prj$))
if res%<0
message "Erreur en sauvegarde"
else
message "Le ficher a été créé:"+chr$(13)+chr$(10)+prj$
projet$ = prj$
end_if
end_sub

sub lier()
DoPoints% = 1
npt% = 0
Message "Cliquer sur une sortie..."
active no_AnnLink%
active no_Tracer%
end_sub

sub annulerlier()
res% = dll_call2("ShowRulersInFlowChart",FC%,0)
DoPoints% = 0
npt% = 0
xarray%(0) = 0
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call3("SelectOutputConnectorOfFlowChartElement",FC%,FCEstart%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
inactive no_AnnLink%
inactive no_Tracer%
end_sub

sub tracer()
dim_local do1%
' rectangulariser le dernier segment
NatureInput% = dll_call3("GetInputConnectorOfFlowChartElement",FCEdest%,adr(xx%),adr(yy%))
if NatureInput%<>0
if npt%=0
res% = dll_call4("GetOutputConnectorOfFlowChartElement",FCEstart%,output%,adr(xxp%),adr(yyp%))
else
xxp% = xArray%(npt%)
yyp% = yArray%(npt%)
end_if

do1% = 0
if abs(xxp%-xx%)<=DeltaRectangle%
xxp% = xx%
do1% = 1
else
if abs(yyp%-yy%)<=DeltaRectangle%
yyp% = yy%
do1% = 1
end_if
end_if
if do1%=1
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yyp%
end_if
if yyp%>(yy%-DeltaRectangle%)
yyp% = yy% - DeltaRectangle%
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yyp%
end_if
if xxp%<>xx%
xxp% = xx%
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yyp%
end_if
end_if

res% = dll_call6("ConnectElementsOfFlowChart",FC%,FCEstart%,output%,FCEdest%,adr(xArray%),adr(yArray%))
if res%=0 then message "Erreur en créant la connexion"
res% = dll_call2("ShowRulersInFlowChart",FC%,0)
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call3("SelectOutputConnectorOfFlowChartElement",FC%,FCEstart%,0)
' res% = dll_call2("DrawFlowChart",FC%,1)
DoPoints% = 0
npt% = 0
xarray%(0) = 0
inactive no_AnnLink%
inactive no_Tracer%
end_sub

sub exporter()
dim_local f$
f$ = file_name$(no_export%)
if f$="_" then exit_sub
if instr(".bmp.jpg.gif.png",lower$(file_extract_extension$(f$)))=0
message "Erreur d'extension"
exit_sub
end_if
if file_exists(f$)=1
if message_confirmation_yes_no("Cette image existe déjà? Remplacer ?")<>1 then exit_sub
end_if
res% = dll_call1("CopyFlowChartToClipboard",FC%)
res% = dll_call1("SaveAnyImageFile",adr(f$))
message "L'image est enregistrée dans:"+chr$(13)+chr$(10)+f$
end_sub

sub selectionLien()
DoPoints% = 6
npt% = 0
Message "Cliquer sur un lien..."
res% = dll_call2("DrawFlowChart",FC%,5)
active no_AnnSelLink%
active no_DelLink%
end_sub

sub annulerSelLien()
DoPoints% = 0
npt% = 0
xarray%(0) = 0
res% = dll_call2("SelectLinkInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
inactive no_AnnSelLink%
inactive no_DelLink%
end_sub

sub supprimerLien()
res% = dll_call1("DeleteLinkFromFlowChart",FCL%)
end_sub

Et le résultat:
Un essai de construction d'organigramme par Panoramic - Page 4 Aa152

Nouvelle version:
Les petits messages de guidage lors des 3 fonctions:
- sélection d'un objet
- traçage d'un lien
- sélection d'un lien
ont été remplacés par des textes apparaissant dans une petite fenêtre en haut à droite de la zone de visualisation. Lorsque ces messages n'ont plus lieu d'être, ils disparaissent automatiquement.

Voici le programme:

Code:: ' FlowChartDesigner.bas

labels()
constantes()
variables()
menu()
cadres()
Objets()

on_user_event UserEvent

end

UserEvent:
if bin_and(user_event_wparam,hex("FF000000"))=hex("0B000000") : ' ScrollImage
if DoPoints%>0
pos% = user_event_lparam : ' positon: yyyyxxxx
xxp% = bin_and(pos%,hex("0000FFFF"))
yyp% = pos%/65536
if DoPoints%=1
NatureOutput% = dll_call5("IdentifyOutputOfFlowChartElement",FC%,xxp%,yyp%,adr(FCEstart%),adr(output%))
if NatureOutput%<0
message "Ce n'est pas une sortie valide."+chr$(13)+chr$(10)+"Recommencez ou Annulez..."
return
end_if
res% = dll_call3("SelectOutputConnectorOfFlowChartElement",FC%,FCEstart%,output%)
DoPoints% = 2
show no_info%
clear no_infotext%
text no_infotext%,"Cliquez maintenant l'élémént de destination"+chr$(13)+chr$(10)+"ou Annulez..."
return
end_if
if DoPoints%=2
res% = dll_call4("IdentifyFlowChartElement",FC%,adr(xxp%),adr(yyp%),adr(FCEdest%))
if res%<0
message "Ce n'est pas un élément valide."+chr$(13)+chr$(10)+"Recommencez ou Annulez..."
return
end_if
DoPoints% = 3
res% = dll_call2("SelectElementInFlowChart",FC%,FCEdest%)
show no_info%
clear no_infotext%
text no_infotext%,"Cliquez maintenant les points d'étape"+chr$(13)+chr$(10)+"puis Tracez ou Annulez..."
res% = dll_call2("ShowRulersInFlowChart",FC%,1)
return
end_if
if DoPoints%=3
' ici, rectangulariser le tracé
if npt%=0
res% = dll_call4("GetOutputConnectorOfFlowChartElement",FCEstart%,output%,adr(xx%),adr(yy%))
else
xx% = xarray%(npt%)
yy% = yarray%(npt%)
end_if
if (npt%=0) and (NatureOutput%<>0)
if abs(xxp%-xx%)<=DeltaRectangle%
xxp% = xx%
else
if abs(yyp%-yy%)<=DeltaRectangle%
yyp% = yy%
else
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yy%
end_if
end_if
end_if
if npt%>0
if abs(xxp%-xx%)<=DeltaRectangle%
xxp% = xx%
else
if abs(yyp%-yy%)<=DeltaRectangle%
yyp% = yy%
else
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yy%
end_if
end_if
end_if

' mémoriser le point
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yyp%
res% = dll_call3("DrawTemporaryMarkIntoFlowChart",FC%,xxp%,yyp%)
res% = dll_call5("DrawTemporaryLineIntoFlowChart",FC%,xx%,yy%,xxp%,yyp%)
' message "Point "+str$(npt%)+": "+str$(xx%)+","+str$(yy%
end_if
if DoPoints%=4
res% = dll_call4("IdentifyFlowChartElement",FC%,adr(xxp%),adr(yyp%),adr(FCE%))
if res%<0
message "Ce n'est pas un élément valide."
return
end_if
message "Elément "+nature$(res%)+" identifié"
hide no_info%
DoPoints% = 5
select res%
case 0
show no_AttributsConnector%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Connector_X%),handle(no_Connector_Y%),0,0)
position no_Connector_X%,xxp%
position no_Connector_Y%,yyp%
case 1
res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
show no_AttributsAction%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Action_X%),handle(no_Action_Y%),handle(no_Action_Largeur%),handle(no_Action_Hauteur%))
position no_Action_X%,xxp%
position no_Action_Y%,yyp%
position no_Action_Largeur%,wwp%
position no_Action_Hauteur%,hhp%
text no_action_Couleur%,right$(hex$(ccc%),6)
text no_Action_Titre%,item_read$(no_memo%,1)
item_delete no_memo%,1
clear no_Action_Contenu%
if count(no_memo%)>0
for i%=1 to count(no_memo%)
item_add no_Action_Contenu%,item_read$(no_memo%,i%)
next i%
end_if
case 2
res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
show no_AttributsCondition%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Condition_X%),handle(no_Condition_Y%),handle(no_Action_Largeur%),handle(no_Action_Hauteur%))
position no_Condition_X%,xxp%
position no_Condition_Y%,yyp%
position no_Condition_Largeur%,wwp%
position no_Condition_Hauteur%,hhp%
text no_Condition_Couleur%,right$(hex$(ccc%),6)
text no_Condition_Titre%,item_read$(no_memo%,1)
item_delete no_memo%,1
clear no_Condition_Contenu%
if count(no_memo%)>0
for i%=1 to count(no_memo%)
item_add no_Condition_Contenu%,item_read$(no_memo%,i%)
next i%
end_if
case 3
res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
show no_AttributsSelection%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Selection_X%),handle(no_Selection_Y%),handle(no_Selection_Largeur%),handle(no_Selection_Hauteur%))
position no_Selection_X%,xxp%
position no_Selection_Y%,yyp%
position no_Selection_Largeur%,wwp%
position no_Selection_Hauteur%,hhp%
text no_Selection_Couleur%,right$(hex$(ccc%),6)
text no_Selection_Titre%,item_read$(no_memo%,1)
item_delete no_memo%,1
clear no_Selection_Contenu%
if count(no_memo%)>0
for i%=1 to count(no_memo%)
item_add no_Selection_Contenu%,item_read$(no_memo%,i%)
next i%
end_if
case 4
res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
show no_AttributsStart%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Start_X%),handle(no_Start_Y%),handle(no_Start_Largeur%),handle(no_Start_Hauteur%))
position no_Start_X%,xxp%
position no_Start_Y%,yyp%
position no_Start_Largeur%,wwp%
position no_Start_Hauteur%,hhp%
text no_Start_Couleur%,right$(hex$(ccc%),6)
case 5
res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
show no_AttributsEnd%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_End_X%),handle(no_End_Y%),handle(no_End_Largeur%),handle(no_End_Hauteur%))
position no_End_X%,xxp%
position no_End_Y%,yyp%
position no_End_Largeur%,wwp%
position no_End_Hauteur%,hhp%
text no_End_Couleur%,right$(hex$(ccc%),6)
end_select
res% = dll_call2("SelectElementInFlowChart",FC%,FCE%)
end_if
if DoPoints%=6
res% = dll_call4("IdentifyFlowChartLink",FC%,xxp%,yyp%,adr(FCL%))
if res%<0
message "Ce n'est pas un lien valide."
DoPoints% = 0
res% = dll_call2("DrawFlowChart",FC%,1)
return
end_if
message "Lien "+str$(res%)+" identifié"

res% = dll_call2("SelectLinkInFlowChart",FC%,FCL%)
DoPoints% = 0
res% = dll_call2("DrawFlowChart",FC%,5)
end_if
end_if
end_if

return

sortir:
terminate

AddConnector:
AddConnector()
return

AddAction:
AddAction()
return

AddCondition:
AddCondition()
return

AddSelector:
AddSelector()
return

AddStart:
AddStart()
return

AddEnd:
AddEnd()
return

selectionner:
selectionner()
return

valider_connector:
valider_connector()
return

valider_action:
valider_action()
return

valider_Condition:
valider_Condition()
return

annulerselection:
annulerselection()
return

supprimerliens:
supprimerliens()
return

valider_Selection:
valider_Selection()
return

valider_start:
valider_start()
return

valider_end:
valider_end()
return

nouveauprojet:
nouveauprojet()
return

ouvrirprojet:
ouvrirprojet()
return

enregistrerprojet:
enregistrerprojet()
return

enregistrersousprojet:
enregistrersousprojet()
return

lier:
lier()
return

annulerlier:
annulerlier()
return

tracer:
tracer()
return

exporter:
exporter()
return

selectionLien:
selectionLien()
return

annulerSelLien:
annulerSelLien()
return

supprimerLien:
supprimerLien()
return

sub labels()
label AddConnector, AddAction, AddCondition, AddSelector, AddStart, AddEnd
label valider_connector, valider_action, valider_Condition, valider_Selection
label valider_Start, valider_End
label selectionner, annulerselection, supprimerliens, UserEvent, sortir
label selectionLien, annulerSelLien, supprimerLien
label nouveauprojet, ouvrirprojet, enregistrerprojet, enregistrersousprojet
label lier, annulerlier, tracer, exporter
end_sub

sub constantes()
dim KGF$ : KGF$ = "KGF.dll"
dim M1% : M1% = 0-1
dim DeltaRectangle% : DeltaRectangle% = 10
dim LignesDeVisee% : ' nombre de lignes de visée (0, 1 ou 2)
LignesDeVisee% = 2
dim nature$(6)
nature$(0) = "Connector"
nature$(1) = "Action"
nature$(2) = "Condition"
nature$(3) = "Selector"
nature$(4) = "Start"
nature$(5) = "End"
end_sub

sub variables()
dim res%, DoPoints%, pos%, xxp%, yyp%, titre$, wwp%, hhp%, i%, ccc%, output%
dim xx%, yy%, NatureOutput%, NatureInput%
dim npt%, xarray%(100),yarray%(100)
dim no%, no1%, no2%, no_cElements%, no_AnnSel%, no_SuppLiens%, no_memo%, no_open%, no_save%
dim no_AttributsConnector%, no_AttributsAction%, no_AttributsCondition%
dim no_AttributsSelection%, no_AttributsStart%, no_AttributsEnd%
dim no_Connector_X%, no_Connector_Y%, no_AnnLink%, no_Tracer% , no_Info%, no_infotext%
dim no_Action_X%, no_Action_Y%, no_Action_Titre%, no_action_Couleur%
dim no_Action_Largeur%, no_Action_Hauteur%, no_Action_Contenu%, no_export%
dim no_Condition_X%, no_Condition_Y%, no_Condition_Titre%, no_condition_Couleur%
dim no_Condition_Largeur%, no_Condition_Hauteur%, no_Condition_Contenu%
dim no_Selection_X%, no_Selection_Y%, no_Selection_Titre%, no_selection_Couleur%
dim no_Selection_Largeur%, no_Selection_Hauteur%, no_Selection_Contenu%
dim no_Start_X%, no_Start_Y%, no_Start_Largeur%, no_Start_Hauteur%, no_start_Couleur%
dim no_End_X%, no_End_Y%, no_End_Largeur%, no_End_Hauteur%, no_end_Couleur%
dim no_AnnSelLink%, no_DelLink%
dim FC%, FCE%, FCEstart%, FCEdest%, FCL%
dim projet$
end_sub

sub menu()
no% = no% + 1 : main_menu no% : no1% = no%
no% = no% + 1 : sub_menu no% : parent no%,no1% : no2% = no% : caption no%,"Fichier"
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Nouveau" : on_click no%,nouveauprojet
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Ouvrir..." : on_click no%,ouvrirprojet
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Enregistrer" : on_click no%,enregistrerprojet
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Enregistrer sous..." : on_click no%,enregistrersousprojet
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Exporter..." : on_click no%,exporter
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"-"
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Sortir" : on_click no%,sortir
end_sub

sub cadres()
dim_local hnd%
dll_on KGF$
no% = no% + 1 : form no% : hide no% : no_info% = no% : width no%,400 : height no%,200
no% = no% + 1 : memo no% : no_infotext% = no% : parent no%,no_info% : full_space no% : bar_both no% : font_size no%,12

no% = no% + 1 : container no% : no_cElements% = no% : width no%,200 : caption no%,"Eléments"
FC% = dll_call6("CreateFlowChart",handle(0),0,0,0,0,LignesDeVisee%)
full_space 0
res% = dll_call5("LocateFlowChart",FC%,width(no_cElements%),0,width_client(0)-width(no_cElements%),height_client(0))
height no_cElements%,350
res% = dll_call2("ShowRulersInFlowChart",FC%,0)
top no_info%,0 : left no_info%,width_client(0)-width(no_info%)-width(no_cElements%)

hnd% = dll_call1("GetHandleOfFlowChart",FC%)
res% = dll_call3("SetFormParent",handle(no_info%),hnd%,0)

no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Connecteur"
top no%,15 : left no%,10 : on_click no%,AddConnector
no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Action"
top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddAction
no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Condition"
top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddCondition
no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Selecteur"
top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddSelector
no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Début"
top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddStart
no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Fin"
top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddEnd

no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Sélectionner"
top no%,top(no%-1)+height(no%-1)+10 : left no%,10 : on_click no%,selectionner
no% = no% + 1 : button no% : parent no%,no_cElements% : no_AnnSel% = no% : caption no%,"Annuler" : inactive no%
top no%,top(no%-1) : left no%,left(no%-1)+width(no%-1) : on_click no%,annulerselection
no% = no% + 1 : button no% : parent no%,no_cElements% : no_SuppLiens% = no% : caption no%,"Supprimer lien" : inactive no%
top no%,top(no%-1)+height(no%-1) : left no%,left(no%-1) : on_click no%,supprimerliens

no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Lier"
top no%,top(no%-1)+height(no%-1)+10 : left no%,10 : on_click no%,lier
no% = no% + 1 : button no% : parent no%,no_cElements% : no_AnnLink% = no% : caption no%,"Annuler" : inactive no%
top no%,top(no%-1) : left no%,left(no%-1)+width(no%-1) : on_click no%,annulerlier
no% = no% + 1 : button no% : parent no%,no_cElements% : no_Tracer% = no% : caption no%,"Tracer" : inactive no%
top no%,top(no%-1)+height(no%-1) : left no%,10 : width no%,width(no%-2)+width(no%-1) : on_click no%,tracer

no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Sel. Lien"
top no%,top(no%-1)+height(no%-1)+10 : left no%,10 : on_click no%,selectionLien
no% = no% + 1 : button no% : parent no%,no_cElements% : no_AnnSelLink% = no% : caption no%,"Annuler" : inactive no%
top no%,top(no%-1) : left no%,left(no%-1)+width(no%-1) : on_click no%,annulerSelLien
no% = no% + 1 : button no% : parent no%,no_cElements% : no_DelLink% = no% : caption no%,"Supprimer lien" : inactive no%
top no%,top(no%-1)+height(no%-1) : left no%,10 : width no%,width(no%-2)+width(no%-1) : on_click no%,supprimerLien

' attributs Connector
no% = no% + 1 : container no% : no_AttributsConnector% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Connector" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsConnector% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_Connector_X% = no% : parent no%,no_AttributsConnector% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsConnector% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_Connector_Y% = no% : parent no%,no_AttributsConnector% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : button no% : parent no%,no_AttributsConnector% : top no%,height(no_AttributsConnector%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_connector

' attributs Action
no% = no% + 1 : container no% : no_AttributsAction% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Action" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_Action_X% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_Action_Y% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_Action_Largeur% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Hauteur:"
no% = no% + 1 : spin no% : no_Action_Hauteur% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_Action_Couleur% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Titre:"
no% = no% + 1 : edit no% : no_Action_Titre% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
width no%,110
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Contenu:"
no% = no% + 1 : memo no% : no_Action_Contenu% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+15 : left no%,10
width no%,180 : bar_both no%
no% = no% + 1 : button no% : parent no%,no_AttributsAction% : top no%,height(no_AttributsAction%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_action

' attributs Condition
no% = no% + 1 : container no% : no_AttributsCondition% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Condition" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_Condition_X% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_Condition_Y% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_Condition_Largeur% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Hauteur:"
no% = no% + 1 : spin no% : no_Condition_Hauteur% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_Condition_Couleur% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Titre:"
no% = no% + 1 : edit no% : no_Condition_Titre% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
width no%,110
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Contenu:"
no% = no% + 1 : memo no% : no_Condition_Contenu% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+15 : left no%,10
width no%,180 : bar_both no%
no% = no% + 1 : button no% : parent no%,no_AttributsCondition% : top no%,height(no_AttributsCondition%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_Condition

' attributs Selection
no% = no% + 1 : container no% : no_AttributsSelection% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Selection" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_Selection_X% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_Selection_Y% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_Selection_Largeur% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Hauteur:"
no% = no% + 1 : spin no% : no_Selection_Hauteur% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_Selection_Couleur% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Titre:"
no% = no% + 1 : edit no% : no_Selection_Titre% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
width no%,110
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Contenu:"
no% = no% + 1 : memo no% : no_Selection_Contenu% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+15 : left no%,10
width no%,180 : bar_both no%
no% = no% + 1 : button no% : parent no%,no_AttributsSelection% : top no%,height(no_AttributsSelection%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_Selection

' attributs Start
no% = no% + 1 : container no% : no_AttributsStart% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Start" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_Start_X% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_Start_Y% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_Start_Largeur% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Hauteur:"
no% = no% + 1 : spin no% : no_Start_Hauteur% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_Start_Couleur% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : button no% : parent no%,no_AttributsStart% : top no%,height(no_AttributsStart%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_Start

' attributs End
no% = no% + 1 : container no% : no_AttributsEnd% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs End" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_End_X% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_End_Y% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_End_Largeur% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Hauteur:"
no% = no% + 1 : spin no% : no_End_Hauteur% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_End_Couleur% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : button no% : parent no%,no_AttributsEnd% : top no%,height(no_AttributsEnd%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_End

end_sub

sub Objets()
no% = no% + 1 : memo no% : no_memo% = no% : hide no% : bar_both no%
no% = no% + 1 : open_dialog no% : no_open% = no% : filter no%,"Projet FlowChart (*.FCproj)|*.FCproj"
no% = no% + 1 : save_dialog no% : no_save% = no% : filter no%,"Projet FlowChart (*.FCproj)|*.FCproj"
no% = no% + 1 : save_dialog no% : no_export% = no% : filter no%,"Images (BMP,JPG,GIF,PNG)|*.BMP;*.JPG;*.GIF;*.PNG"
end_sub

sub AddConnector()
FCE% = dll_call4("AddElementToFlowChart",FC%,0,0,0)
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,20,20)
res% = dll_call2("DrawFlowChart",FC%,1)
position no_Connector_X%,0
position no_Connector_Y%,0
annulerselection()
' show no_AttributsConnector%
end_sub

sub AddAction()
dim_local titre$
titre$ = "Action"
FCE% = dll_call4("AddElementToFlowChart",FC%,1,hex("FFFF00"),adr(titre$))
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,300,200)
res% = dll_call2("DrawFlowChart",FC%,1)
position no_Action_X%,0
position no_Action_Y%,0
position no_Action_Largeur%,300
position no_Action_Hauteur%,200
text no_action_Couleur%,"FFFF00"
text no_Action_Titre%,titre$
clear no_Action_Contenu%
annulerselection()
' show no_AttributsAction%
end_sub

sub AddCondition()
dim_local titre$
titre$ = "Condition ?"
FCE% = dll_call4("AddElementToFlowChart",FC%,2,hex("0000FF"),adr(titre$))
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,300,100)
clear no_memo%
item_add no_memo%,"."
item_add no_memo%,"Oui"
item_add no_memo%,"Non"
res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,0,handle(no_memo%))
res% = dll_call2("DrawFlowChart",FC%,1)
position no_Condition_X%,0
position no_Condition_Y%,0
position no_Condition_Largeur%,300
position no_Condition_Hauteur%,100
text no_Condition_Couleur%,"0000FF"
text no_Condition_Titre%,titre$
clear no_Condition_Contenu%
item_add no_Condition_Contenu%,"Oui"
item_add no_Condition_Contenu%,"."
item_add no_Condition_Contenu%,"Non"
annulerselection()
' show no_AttributsCondition%
end_sub

sub AddSelector()
dim_local titre$
titre$ = "Sélection"
FCE% = dll_call4("AddElementToFlowChart",FC%,3,hex("0000FF"),adr(titre$))
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,300,100)
clear no_memo%
item_add no_memo%,"1"
item_add no_memo%,"2"
item_add no_memo%,"3"
res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,0,handle(no_memo%))
res% = dll_call2("DrawFlowChart",FC%,1)
position no_Selection_X%,0
position no_Selection_Y%,0
position no_Selection_Largeur%,300
position no_Selection_Hauteur%,100
text no_Selection_Couleur%,"0000FF"
text no_Selection_Titre%,titre$
clear no_Selection_Contenu%
item_add no_Selection_Contenu%,"1"
item_add no_Selection_Contenu%,"2"
item_add no_Selection_Contenu%,"3"
annulerselection()
' show no_AttributsSelection%
end_sub

sub AddStart()
dim_local titre$
titre$ = "Début"
FCE% = dll_call4("AddElementToFlowChart",FC%,4,hex("F0F0F0"),adr(titre$))
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,100,100)
res% = dll_call2("DrawFlowChart",FC%,1)
position no_Start_X%,0
position no_Start_Y%,0
position no_Start_Largeur%,100
position no_Start_Hauteur%,100
text no_Start_Couleur%,"F0F0F0"
annulerselection()
' show no_AttributsStart%
end_sub

sub AddEnd()
dim_local titre$
titre$ = "Arrêt"
FCE% = dll_call4("AddElementToFlowChart",FC%,5,hex("F0F0F0"),adr(titre$))
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,100,100)
res% = dll_call2("DrawFlowChart",FC%,1)
position no_End_X%,0
position no_End_Y%,0
position no_End_Largeur%,100
position no_End_Hauteur%,100
text no_End_Couleur%,"F0F0F0"
annulerselection()
' show no_AttributsEnd%
end_sub

sub selectionner()
show no_info%
clear no_infotext%
text no_infotext%,"Sélectionner un élément en cliquant dessus..."
DoPoints% = 4
active no_AnnSel%
active no_SuppLiens%
hide no_AttributsConnector%
hide no_AttributsAction%
hide no_AttributsCondition%
hide no_AttributsSelection%
hide no_AttributsStart%
hide no_AttributsEnd%
end_sub

sub annulerselection()
DoPoints% = 0
inactive no_AnnSel%
inactive no_SuppLiens%
hide no_AttributsConnector%
hide no_AttributsAction%
hide no_AttributsCondition%
hide no_AttributsSelection%
hide no_AttributsStart%
hide no_AttributsEnd%
res% = dll_call2("SelectElementInFlowChart",FC%,0)
hide no_info%
end_sub

sub supprimerliens()
res% = dll_call2("RemoveAllLinksFromFlowChartElement",FC%,FCE%)
end_sub

sub valider_connector()
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Connector_X%),position(no_Connector_Y%),M1%,M1%)
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsConnector%
end_sub

sub valider_action()
dim_local titre$
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Action_X%),position(no_Action_Y%),position(no_Action_Largeur%),position(no_Action_Hauteur%))
titre$ = trim$(text$(no_Action_Titre%))
res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,adr(titre$),handle(no_Action_Contenu%))
res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_Action_couleur%)))
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsAction%
end_sub

sub valider_Condition()
dim_local titre$
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Condition_X%),position(no_Condition_Y%),position(no_Condition_Largeur%),position(no_Condition_Hauteur%))
titre$ = trim$(text$(no_Condition_Titre%))
res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,adr(titre$),handle(no_Condition_Contenu%))
res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_Condition_couleur%)))
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsCondition%
end_sub

sub valider_Selection()
dim_local titre$
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Selection_X%),position(no_Selection_Y%),position(no_Selection_Largeur%),position(no_Selection_Hauteur%))
titre$ = trim$(text$(no_Selection_Titre%))
res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,adr(titre$),handle(no_Selection_Contenu%))
res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_Selection_couleur%)))
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsSelection%
end_sub

sub valider_Start()
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Start_X%),position(no_Start_Y%),position(no_Start_Largeur%),position(no_Start_Hauteur%))
res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_Start_couleur%)))
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsStart%
end_sub

sub valider_End()
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_End_X%),position(no_End_Y%),position(no_End_Largeur%),position(no_End_Hauteur%))
res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_End_couleur%)))
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsEnd%
end_sub

sub nouveauprojet()
FC% = dll_call1("DeleteFlowChart",FC%)
FC% = dll_call6("CreateFlowChart",handle(0),0,0,0,0,LignesDeVisee%)
full_space 0
res% = dll_call5("LocateFlowChart",FC%,width(no_cElements%),0,width_client(0)-width(no_cElements%),height_client(0))
' height no_cElements%,300
projet$ = ""
end_sub

sub ouvrirprojet()
dim_local prj$
prj$ = file_name$(no_save%)
if prj$="_" then exit_sub
if lower$(file_extract_extension$(prj$))<>".fcproj"
message "Extension erronnée (*.FCproj)"
exit_sub
end_if
if file_exists(prj$)=0
message("Ce fichier n'existe pas."
exit_sub
end_if

nouveauprojet()
res% = dll_call2("LoadFlowChartProject",FC%,adr(prj$))
if res%<0
message "Erreur en chargement"
else
message "Le projet a été chargé:"+chr$(13)+chr$(10)+prj$
projet$ = prj$
end_if
end_sub

sub enregistrerprojet()
dim_local prj$
if projet$=""
enregistrersousprojet()
exit_sub
end_if
prj$ = projet$
if file_exists(prj$)=1 then file_delete prj$
res% = dll_call2("SaveFlowChartProject",FC%,adr(prj$))
if res%<0
message "Erreur en sauvegarde"
else
message "Le ficher a été créé:"+chr$(13)+chr$(10)+prj$
projet$ = prj$
end_if
end_sub

sub enregistrersousprojet()
dim_local prj$
prj$ = file_name$(no_save%)
if prj$="_" then exit_sub
if lower$(file_extract_extension$(prj$))<>".fcproj"
message "Extension erronnée (*.FCproj)"
exit_sub
end_if
if file_exists(prj$)=1
if message_confirmation_yes_no("Ce fichier existe déjà. Remplacer ?")<>1 then exit_sub
file_delete prj$
end_if
res% = dll_call2("SaveFlowChartProject",FC%,adr(prj$))
if res%<0
message "Erreur en sauvegarde"
else
message "Le ficher a été créé:"+chr$(13)+chr$(10)+prj$
projet$ = prj$
end_if
end_sub

sub lier()
DoPoints% = 1
npt% = 0
show no_info%
clear no_infotext%
text no_infotext%,"Cliquer sur une sortie..."
active no_AnnLink%
active no_Tracer%
end_sub

sub annulerlier()
res% = dll_call2("ShowRulersInFlowChart",FC%,0)
DoPoints% = 0
npt% = 0
xarray%(0) = 0
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call3("SelectOutputConnectorOfFlowChartElement",FC%,FCEstart%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
inactive no_AnnLink%
inactive no_Tracer%
hide no_info%
end_sub

sub tracer()
dim_local do1%
' rectangulariser le dernier segment
NatureInput% = dll_call3("GetInputConnectorOfFlowChartElement",FCEdest%,adr(xx%),adr(yy%))
if NatureInput%<>0
if npt%=0
res% = dll_call4("GetOutputConnectorOfFlowChartElement",FCEstart%,output%,adr(xxp%),adr(yyp%))
else
xxp% = xArray%(npt%)
yyp% = yArray%(npt%)
end_if

do1% = 0
if abs(xxp%-xx%)<=DeltaRectangle%
xxp% = xx%
do1% = 1
else
if abs(yyp%-yy%)<=DeltaRectangle%
yyp% = yy%
do1% = 1
end_if
end_if
if do1%=1
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yyp%
end_if
if yyp%>(yy%-DeltaRectangle%)
yyp% = yy% - DeltaRectangle%
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yyp%
end_if
if xxp%<>xx%
xxp% = xx%
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yyp%
end_if
end_if

res% = dll_call6("ConnectElementsOfFlowChart",FC%,FCEstart%,output%,FCEdest%,adr(xArray%),adr(yArray%))
if res%=0 then message "Erreur en créant la connexion"
res% = dll_call2("ShowRulersInFlowChart",FC%,0)
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call3("SelectOutputConnectorOfFlowChartElement",FC%,FCEstart%,0)
' res% = dll_call2("DrawFlowChart",FC%,1)
DoPoints% = 0
npt% = 0
xarray%(0) = 0
inactive no_AnnLink%
inactive no_Tracer%
hide no_info%
end_sub

sub exporter()
dim_local f$
f$ = file_name$(no_export%)
if f$="_" then exit_sub
if instr(".bmp.jpg.gif.png",lower$(file_extract_extension$(f$)))=0
message "Erreur d'extension"
exit_sub
end_if
if file_exists(f$)=1
if message_confirmation_yes_no("Cette image existe déjà? Remplacer ?")<>1 then exit_sub
end_if
res% = dll_call1("CopyFlowChartToClipboard",FC%)
res% = dll_call1("SaveAnyImageFile",adr(f$))
message "L'image est enregistrée dans:"+chr$(13)+chr$(10)+f$
end_sub

sub selectionLien()
DoPoints% = 6
npt% = 0
show no_info%
clear no_infotext%
text no_infotext%,"Cliquer sur un lien..."
res% = dll_call2("DrawFlowChart",FC%,5)
active no_AnnSelLink%
active no_DelLink%
end_sub

sub annulerSelLien()
DoPoints% = 0
npt% = 0
xarray%(0) = 0
res% = dll_call2("SelectLinkInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
inactive no_AnnSelLink%
inactive no_DelLink%
hide no_info%
hide no_info%
end_sub

sub supprimerLien()
res% = dll_call1("DeleteLinkFromFlowChart",FCL%)
hide no_info%
end_sub

Alors là ça devient drôlement intéressant...
Sans les messages, l'ensemble devient beaucoup plus sympa à utiliser. Wink

Cela dit, il reste encore les messages de confirmation de la sélection des éléments.
Mais bon j'imagine que tu va intégrer tout ça dans la prochaine version.

Pourquoi pas - je vais intégrer cela dans la prochaine version. D'ici là, mets simplement la ligne 99 en commentaire...

Dernière édition par Minibug le Dim 18 Mar 2018 - 18:59, édité 2 fois

Ok Klaus, comme ça plus de message. Wink

Au fait, il y a aussi les messages concernant la suppressions des liens...

D'autre part, et c'est un détail, est ce qu'il ne serait pas mieux de mettre le bouton DEBUT tout en haut ?
Comme on commence toujours par là, ça semble logique non ?

Dernière édition par Klaus le Dim 18 Mar 2018 - 19:00, édité 1 fois

D'accord avec toi sur les deux points !

~~Le message pour l'identification d'un lien: mets en commentaire la ligne 188 !~~

En fait, voici la version qui inclut toutes ces modifications:

Code:: ' FlowChartDesigner.bas

labels()
constantes()
variables()
menu()
cadres()
Objets()

on_user_event UserEvent

end

UserEvent:
if bin_and(user_event_wparam,hex("FF000000"))=hex("0B000000") : ' ScrollImage
if DoPoints%>0
pos% = user_event_lparam : ' positon: yyyyxxxx
xxp% = bin_and(pos%,hex("0000FFFF"))
yyp% = pos%/65536
if DoPoints%=1
NatureOutput% = dll_call5("IdentifyOutputOfFlowChartElement",FC%,xxp%,yyp%,adr(FCEstart%),adr(output%))
if NatureOutput%<0
message "Ce n'est pas une sortie valide."+chr$(13)+chr$(10)+"Recommencez ou Annulez..."
return
end_if
res% = dll_call3("SelectOutputConnectorOfFlowChartElement",FC%,FCEstart%,output%)
DoPoints% = 2
show no_info%
clear no_infotext%
text no_infotext%,"Cliquez maintenant l'élémént de destination"+chr$(13)+chr$(10)+"ou Annulez..."
return
end_if
if DoPoints%=2
res% = dll_call4("IdentifyFlowChartElement",FC%,adr(xxp%),adr(yyp%),adr(FCEdest%))
if res%<0
message "Ce n'est pas un élément valide."+chr$(13)+chr$(10)+"Recommencez ou Annulez..."
return
end_if
DoPoints% = 3
res% = dll_call2("SelectElementInFlowChart",FC%,FCEdest%)
show no_info%
clear no_infotext%
text no_infotext%,"Cliquez maintenant les points d'étape"+chr$(13)+chr$(10)+"puis Tracez ou Annulez..."
res% = dll_call2("ShowRulersInFlowChart",FC%,1)
return
end_if
if DoPoints%=3
' ici, rectangulariser le tracé
if npt%=0
res% = dll_call4("GetOutputConnectorOfFlowChartElement",FCEstart%,output%,adr(xx%),adr(yy%))
else
xx% = xarray%(npt%)
yy% = yarray%(npt%)
end_if
if (npt%=0) and (NatureOutput%<>0)
if abs(xxp%-xx%)<=DeltaRectangle%
xxp% = xx%
else
if abs(yyp%-yy%)<=DeltaRectangle%
yyp% = yy%
else
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yy%
end_if
end_if
end_if
if npt%>0
if abs(xxp%-xx%)<=DeltaRectangle%
xxp% = xx%
else
if abs(yyp%-yy%)<=DeltaRectangle%
yyp% = yy%
else
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yy%
end_if
end_if
end_if

' mémoriser le point
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yyp%
res% = dll_call3("DrawTemporaryMarkIntoFlowChart",FC%,xxp%,yyp%)
res% = dll_call5("DrawTemporaryLineIntoFlowChart",FC%,xx%,yy%,xxp%,yyp%)
' message "Point "+str$(npt%)+": "+str$(xx%)+","+str$(yy%
end_if
if DoPoints%=4
res% = dll_call4("IdentifyFlowChartElement",FC%,adr(xxp%),adr(yyp%),adr(FCE%))
if res%<0
message "Ce n'est pas un élément valide."
return
end_if
' message "Elément "+nature$(res%)+" identifié"
hide no_info%
DoPoints% = 5
select res%
case 0
show no_AttributsConnector%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Connector_X%),handle(no_Connector_Y%),0,0)
position no_Connector_X%,xxp%
position no_Connector_Y%,yyp%
case 1
res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
show no_AttributsAction%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Action_X%),handle(no_Action_Y%),handle(no_Action_Largeur%),handle(no_Action_Hauteur%))
position no_Action_X%,xxp%
position no_Action_Y%,yyp%
position no_Action_Largeur%,wwp%
position no_Action_Hauteur%,hhp%
text no_action_Couleur%,right$(hex$(ccc%),6)
text no_Action_Titre%,item_read$(no_memo%,1)
item_delete no_memo%,1
clear no_Action_Contenu%
if count(no_memo%)>0
for i%=1 to count(no_memo%)
item_add no_Action_Contenu%,item_read$(no_memo%,i%)
next i%
end_if
case 2
res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
show no_AttributsCondition%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Condition_X%),handle(no_Condition_Y%),handle(no_Action_Largeur%),handle(no_Action_Hauteur%))
position no_Condition_X%,xxp%
position no_Condition_Y%,yyp%
position no_Condition_Largeur%,wwp%
position no_Condition_Hauteur%,hhp%
text no_Condition_Couleur%,right$(hex$(ccc%),6)
text no_Condition_Titre%,item_read$(no_memo%,1)
item_delete no_memo%,1
clear no_Condition_Contenu%
if count(no_memo%)>0
for i%=1 to count(no_memo%)
item_add no_Condition_Contenu%,item_read$(no_memo%,i%)
next i%
end_if
case 3
res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
show no_AttributsSelection%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Selection_X%),handle(no_Selection_Y%),handle(no_Selection_Largeur%),handle(no_Selection_Hauteur%))
position no_Selection_X%,xxp%
position no_Selection_Y%,yyp%
position no_Selection_Largeur%,wwp%
position no_Selection_Hauteur%,hhp%
text no_Selection_Couleur%,right$(hex$(ccc%),6)
text no_Selection_Titre%,item_read$(no_memo%,1)
item_delete no_memo%,1
clear no_Selection_Contenu%
if count(no_memo%)>0
for i%=1 to count(no_memo%)
item_add no_Selection_Contenu%,item_read$(no_memo%,i%)
next i%
end_if
case 4
res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
show no_AttributsStart%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Start_X%),handle(no_Start_Y%),handle(no_Start_Largeur%),handle(no_Start_Hauteur%))
position no_Start_X%,xxp%
position no_Start_Y%,yyp%
position no_Start_Largeur%,wwp%
position no_Start_Hauteur%,hhp%
text no_Start_Couleur%,right$(hex$(ccc%),6)
case 5
res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
show no_AttributsEnd%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_End_X%),handle(no_End_Y%),handle(no_End_Largeur%),handle(no_End_Hauteur%))
position no_End_X%,xxp%
position no_End_Y%,yyp%
position no_End_Largeur%,wwp%
position no_End_Hauteur%,hhp%
text no_End_Couleur%,right$(hex$(ccc%),6)
end_select
res% = dll_call2("SelectElementInFlowChart",FC%,FCE%)
end_if
if DoPoints%=6
res% = dll_call4("IdentifyFlowChartLink",FC%,xxp%,yyp%,adr(FCL%))
if res%<0
message "Ce n'est pas un lien valide."
DoPoints% = 0
res% = dll_call2("DrawFlowChart",FC%,1)
return
end_if
' message "Lien "+str$(res%)+" identifié"

res% = dll_call2("SelectLinkInFlowChart",FC%,FCL%)
DoPoints% = 0
res% = dll_call2("DrawFlowChart",FC%,5)
end_if
end_if
end_if

return

sortir:
terminate

AddConnector:
AddConnector()
return

AddAction:
AddAction()
return

AddCondition:
AddCondition()
return

AddSelector:
AddSelector()
return

AddStart:
AddStart()
return

AddEnd:
AddEnd()
return

selectionner:
selectionner()
return

valider_connector:
valider_connector()
return

valider_action:
valider_action()
return

valider_Condition:
valider_Condition()
return

annulerselection:
annulerselection()
return

supprimerliens:
supprimerliens()
return

valider_Selection:
valider_Selection()
return

valider_start:
valider_start()
return

valider_end:
valider_end()
return

nouveauprojet:
nouveauprojet()
return

ouvrirprojet:
ouvrirprojet()
return

enregistrerprojet:
enregistrerprojet()
return

enregistrersousprojet:
enregistrersousprojet()
return

lier:
lier()
return

annulerlier:
annulerlier()
return

tracer:
tracer()
return

exporter:
exporter()
return

selectionLien:
selectionLien()
return

annulerSelLien:
annulerSelLien()
return

supprimerLien:
supprimerLien()
return

sub labels()
label AddConnector, AddAction, AddCondition, AddSelector, AddStart, AddEnd
label valider_connector, valider_action, valider_Condition, valider_Selection
label valider_Start, valider_End
label selectionner, annulerselection, supprimerliens, UserEvent, sortir
label selectionLien, annulerSelLien, supprimerLien
label nouveauprojet, ouvrirprojet, enregistrerprojet, enregistrersousprojet
label lier, annulerlier, tracer, exporter
end_sub

sub constantes()
dim KGF$ : KGF$ = "KGF.dll"
dim M1% : M1% = 0-1
dim DeltaRectangle% : DeltaRectangle% = 10
dim LignesDeVisee% : ' nombre de lignes de visée (0, 1 ou 2)
LignesDeVisee% = 2
dim nature$(6)
nature$(0) = "Connector"
nature$(1) = "Action"
nature$(2) = "Condition"
nature$(3) = "Selector"
nature$(4) = "Start"
nature$(5) = "End"
end_sub

sub variables()
dim res%, DoPoints%, pos%, xxp%, yyp%, titre$, wwp%, hhp%, i%, ccc%, output%
dim xx%, yy%, NatureOutput%, NatureInput%
dim npt%, xarray%(100),yarray%(100)
dim no%, no1%, no2%, no_cElements%, no_AnnSel%, no_SuppLiens%, no_memo%, no_open%, no_save%
dim no_AttributsConnector%, no_AttributsAction%, no_AttributsCondition%
dim no_AttributsSelection%, no_AttributsStart%, no_AttributsEnd%
dim no_Connector_X%, no_Connector_Y%, no_AnnLink%, no_Tracer% , no_Info%, no_infotext%
dim no_Action_X%, no_Action_Y%, no_Action_Titre%, no_action_Couleur%
dim no_Action_Largeur%, no_Action_Hauteur%, no_Action_Contenu%, no_export%
dim no_Condition_X%, no_Condition_Y%, no_Condition_Titre%, no_condition_Couleur%
dim no_Condition_Largeur%, no_Condition_Hauteur%, no_Condition_Contenu%
dim no_Selection_X%, no_Selection_Y%, no_Selection_Titre%, no_selection_Couleur%
dim no_Selection_Largeur%, no_Selection_Hauteur%, no_Selection_Contenu%
dim no_Start_X%, no_Start_Y%, no_Start_Largeur%, no_Start_Hauteur%, no_start_Couleur%
dim no_End_X%, no_End_Y%, no_End_Largeur%, no_End_Hauteur%, no_end_Couleur%
dim no_AnnSelLink%, no_DelLink%
dim FC%, FCE%, FCEstart%, FCEdest%, FCL%
dim projet$
end_sub

sub menu()
no% = no% + 1 : main_menu no% : no1% = no%
no% = no% + 1 : sub_menu no% : parent no%,no1% : no2% = no% : caption no%,"Fichier"
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Nouveau" : on_click no%,nouveauprojet
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Ouvrir..." : on_click no%,ouvrirprojet
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Enregistrer" : on_click no%,enregistrerprojet
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Enregistrer sous..." : on_click no%,enregistrersousprojet
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Exporter..." : on_click no%,exporter
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"-"
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Sortir" : on_click no%,sortir
end_sub

sub cadres()
dim_local hnd%
dll_on KGF$
no% = no% + 1 : form no% : hide no% : no_info% = no% : width no%,400 : height no%,200
no% = no% + 1 : memo no% : no_infotext% = no% : parent no%,no_info% : full_space no% : bar_both no% : font_size no%,12

no% = no% + 1 : container no% : no_cElements% = no% : width no%,200 : caption no%,"Eléments"
FC% = dll_call6("CreateFlowChart",handle(0),0,0,0,0,LignesDeVisee%)
full_space 0
res% = dll_call5("LocateFlowChart",FC%,width(no_cElements%),0,width_client(0)-width(no_cElements%),height_client(0))
height no_cElements%,350
res% = dll_call2("ShowRulersInFlowChart",FC%,0)
top no_info%,0 : left no_info%,width_client(0)-width(no_info%)-width(no_cElements%)

hnd% = dll_call1("GetHandleOfFlowChart",FC%)
res% = dll_call3("SetFormParent",handle(no_info%),hnd%,0)

no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Début"
top no%,15 : left no%,10 : on_click no%,AddStart
no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Connecteur"
top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddConnector
no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Action"
top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddAction
no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Condition"
top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddCondition
no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Selecteur"
top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddSelector
no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Fin"
top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddEnd

no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Sélectionner"
top no%,top(no%-1)+height(no%-1)+10 : left no%,10 : on_click no%,selectionner
no% = no% + 1 : button no% : parent no%,no_cElements% : no_AnnSel% = no% : caption no%,"Annuler" : inactive no%
top no%,top(no%-1) : left no%,left(no%-1)+width(no%-1) : on_click no%,annulerselection
no% = no% + 1 : button no% : parent no%,no_cElements% : no_SuppLiens% = no% : caption no%,"Supprimer lien" : inactive no%
top no%,top(no%-1)+height(no%-1) : left no%,left(no%-1) : on_click no%,supprimerliens

no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Lier"
top no%,top(no%-1)+height(no%-1)+10 : left no%,10 : on_click no%,lier
no% = no% + 1 : button no% : parent no%,no_cElements% : no_AnnLink% = no% : caption no%,"Annuler" : inactive no%
top no%,top(no%-1) : left no%,left(no%-1)+width(no%-1) : on_click no%,annulerlier
no% = no% + 1 : button no% : parent no%,no_cElements% : no_Tracer% = no% : caption no%,"Tracer" : inactive no%
top no%,top(no%-1)+height(no%-1) : left no%,10 : width no%,width(no%-2)+width(no%-1) : on_click no%,tracer

no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Sel. Lien"
top no%,top(no%-1)+height(no%-1)+10 : left no%,10 : on_click no%,selectionLien
no% = no% + 1 : button no% : parent no%,no_cElements% : no_AnnSelLink% = no% : caption no%,"Annuler" : inactive no%
top no%,top(no%-1) : left no%,left(no%-1)+width(no%-1) : on_click no%,annulerSelLien
no% = no% + 1 : button no% : parent no%,no_cElements% : no_DelLink% = no% : caption no%,"Supprimer lien" : inactive no%
top no%,top(no%-1)+height(no%-1) : left no%,10 : width no%,width(no%-2)+width(no%-1) : on_click no%,supprimerLien

' attributs Connector
no% = no% + 1 : container no% : no_AttributsConnector% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Connector" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsConnector% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_Connector_X% = no% : parent no%,no_AttributsConnector% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsConnector% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_Connector_Y% = no% : parent no%,no_AttributsConnector% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : button no% : parent no%,no_AttributsConnector% : top no%,height(no_AttributsConnector%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_connector

' attributs Action
no% = no% + 1 : container no% : no_AttributsAction% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Action" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_Action_X% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_Action_Y% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_Action_Largeur% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Hauteur:"
no% = no% + 1 : spin no% : no_Action_Hauteur% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_Action_Couleur% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Titre:"
no% = no% + 1 : edit no% : no_Action_Titre% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
width no%,110
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Contenu:"
no% = no% + 1 : memo no% : no_Action_Contenu% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+15 : left no%,10
width no%,180 : bar_both no%
no% = no% + 1 : button no% : parent no%,no_AttributsAction% : top no%,height(no_AttributsAction%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_action

' attributs Condition
no% = no% + 1 : container no% : no_AttributsCondition% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Condition" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_Condition_X% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_Condition_Y% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_Condition_Largeur% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Hauteur:"
no% = no% + 1 : spin no% : no_Condition_Hauteur% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_Condition_Couleur% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Titre:"
no% = no% + 1 : edit no% : no_Condition_Titre% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
width no%,110
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Contenu:"
no% = no% + 1 : memo no% : no_Condition_Contenu% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+15 : left no%,10
width no%,180 : bar_both no%
no% = no% + 1 : button no% : parent no%,no_AttributsCondition% : top no%,height(no_AttributsCondition%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_Condition

' attributs Selection
no% = no% + 1 : container no% : no_AttributsSelection% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Selection" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_Selection_X% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_Selection_Y% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_Selection_Largeur% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Hauteur:"
no% = no% + 1 : spin no% : no_Selection_Hauteur% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_Selection_Couleur% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Titre:"
no% = no% + 1 : edit no% : no_Selection_Titre% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
width no%,110
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Contenu:"
no% = no% + 1 : memo no% : no_Selection_Contenu% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+15 : left no%,10
width no%,180 : bar_both no%
no% = no% + 1 : button no% : parent no%,no_AttributsSelection% : top no%,height(no_AttributsSelection%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_Selection

' attributs Start
no% = no% + 1 : container no% : no_AttributsStart% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Start" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_Start_X% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_Start_Y% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_Start_Largeur% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Hauteur:"
no% = no% + 1 : spin no% : no_Start_Hauteur% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_Start_Couleur% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : button no% : parent no%,no_AttributsStart% : top no%,height(no_AttributsStart%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_Start

' attributs End
no% = no% + 1 : container no% : no_AttributsEnd% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs End" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_End_X% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_End_Y% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_End_Largeur% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Hauteur:"
no% = no% + 1 : spin no% : no_End_Hauteur% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_End_Couleur% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : button no% : parent no%,no_AttributsEnd% : top no%,height(no_AttributsEnd%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_End

end_sub

sub Objets()
no% = no% + 1 : memo no% : no_memo% = no% : hide no% : bar_both no%
no% = no% + 1 : open_dialog no% : no_open% = no% : filter no%,"Projet FlowChart (*.FCproj)|*.FCproj"
no% = no% + 1 : save_dialog no% : no_save% = no% : filter no%,"Projet FlowChart (*.FCproj)|*.FCproj"
no% = no% + 1 : save_dialog no% : no_export% = no% : filter no%,"Images (BMP,JPG,GIF,PNG)|*.BMP;*.JPG;*.GIF;*.PNG"
end_sub

sub AddConnector()
FCE% = dll_call4("AddElementToFlowChart",FC%,0,0,0)
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,20,20)
res% = dll_call2("DrawFlowChart",FC%,1)
position no_Connector_X%,0
position no_Connector_Y%,0
annulerselection()
' show no_AttributsConnector%
end_sub

sub AddAction()
dim_local titre$
titre$ = "Action"
FCE% = dll_call4("AddElementToFlowChart",FC%,1,hex("FFFF00"),adr(titre$))
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,300,200)
res% = dll_call2("DrawFlowChart",FC%,1)
position no_Action_X%,0
position no_Action_Y%,0
position no_Action_Largeur%,300
position no_Action_Hauteur%,200
text no_action_Couleur%,"FFFF00"
text no_Action_Titre%,titre$
clear no_Action_Contenu%
annulerselection()
' show no_AttributsAction%
end_sub

sub AddCondition()
dim_local titre$
titre$ = "Condition ?"
FCE% = dll_call4("AddElementToFlowChart",FC%,2,hex("0000FF"),adr(titre$))
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,300,100)
clear no_memo%
item_add no_memo%,"."
item_add no_memo%,"Oui"
item_add no_memo%,"Non"
res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,0,handle(no_memo%))
res% = dll_call2("DrawFlowChart",FC%,1)
position no_Condition_X%,0
position no_Condition_Y%,0
position no_Condition_Largeur%,300
position no_Condition_Hauteur%,100
text no_Condition_Couleur%,"0000FF"
text no_Condition_Titre%,titre$
clear no_Condition_Contenu%
item_add no_Condition_Contenu%,"Oui"
item_add no_Condition_Contenu%,"."
item_add no_Condition_Contenu%,"Non"
annulerselection()
' show no_AttributsCondition%
end_sub

sub AddSelector()
dim_local titre$
titre$ = "Sélection"
FCE% = dll_call4("AddElementToFlowChart",FC%,3,hex("0000FF"),adr(titre$))
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,300,100)
clear no_memo%
item_add no_memo%,"1"
item_add no_memo%,"2"
item_add no_memo%,"3"
res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,0,handle(no_memo%))
res% = dll_call2("DrawFlowChart",FC%,1)
position no_Selection_X%,0
position no_Selection_Y%,0
position no_Selection_Largeur%,300
position no_Selection_Hauteur%,100
text no_Selection_Couleur%,"0000FF"
text no_Selection_Titre%,titre$
clear no_Selection_Contenu%
item_add no_Selection_Contenu%,"1"
item_add no_Selection_Contenu%,"2"
item_add no_Selection_Contenu%,"3"
annulerselection()
' show no_AttributsSelection%
end_sub

sub AddStart()
dim_local titre$
titre$ = "Début"
FCE% = dll_call4("AddElementToFlowChart",FC%,4,hex("F0F0F0"),adr(titre$))
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,100,100)
res% = dll_call2("DrawFlowChart",FC%,1)
position no_Start_X%,0
position no_Start_Y%,0
position no_Start_Largeur%,100
position no_Start_Hauteur%,100
text no_Start_Couleur%,"F0F0F0"
annulerselection()
' show no_AttributsStart%
end_sub

sub AddEnd()
dim_local titre$
titre$ = "Arrêt"
FCE% = dll_call4("AddElementToFlowChart",FC%,5,hex("F0F0F0"),adr(titre$))
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,100,100)
res% = dll_call2("DrawFlowChart",FC%,1)
position no_End_X%,0
position no_End_Y%,0
position no_End_Largeur%,100
position no_End_Hauteur%,100
text no_End_Couleur%,"F0F0F0"
annulerselection()
' show no_AttributsEnd%
end_sub

sub selectionner()
show no_info%
clear no_infotext%
text no_infotext%,"Sélectionner un élément en cliquant dessus..."
DoPoints% = 4
active no_AnnSel%
active no_SuppLiens%
hide no_AttributsConnector%
hide no_AttributsAction%
hide no_AttributsCondition%
hide no_AttributsSelection%
hide no_AttributsStart%
hide no_AttributsEnd%
end_sub

sub annulerselection()
DoPoints% = 0
inactive no_AnnSel%
inactive no_SuppLiens%
hide no_AttributsConnector%
hide no_AttributsAction%
hide no_AttributsCondition%
hide no_AttributsSelection%
hide no_AttributsStart%
hide no_AttributsEnd%
res% = dll_call2("SelectElementInFlowChart",FC%,0)
hide no_info%
end_sub

sub supprimerliens()
res% = dll_call2("RemoveAllLinksFromFlowChartElement",FC%,FCE%)
end_sub

sub valider_connector()
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Connector_X%),position(no_Connector_Y%),M1%,M1%)
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsConnector%
end_sub

sub valider_action()
dim_local titre$
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Action_X%),position(no_Action_Y%),position(no_Action_Largeur%),position(no_Action_Hauteur%))
titre$ = trim$(text$(no_Action_Titre%))
res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,adr(titre$),handle(no_Action_Contenu%))
res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_Action_couleur%)))
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsAction%
end_sub

sub valider_Condition()
dim_local titre$
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Condition_X%),position(no_Condition_Y%),position(no_Condition_Largeur%),position(no_Condition_Hauteur%))
titre$ = trim$(text$(no_Condition_Titre%))
res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,adr(titre$),handle(no_Condition_Contenu%))
res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_Condition_couleur%)))
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsCondition%
end_sub

sub valider_Selection()
dim_local titre$
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Selection_X%),position(no_Selection_Y%),position(no_Selection_Largeur%),position(no_Selection_Hauteur%))
titre$ = trim$(text$(no_Selection_Titre%))
res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,adr(titre$),handle(no_Selection_Contenu%))
res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_Selection_couleur%)))
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsSelection%
end_sub

sub valider_Start()
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Start_X%),position(no_Start_Y%),position(no_Start_Largeur%),position(no_Start_Hauteur%))
res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_Start_couleur%)))
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsStart%
end_sub

sub valider_End()
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_End_X%),position(no_End_Y%),position(no_End_Largeur%),position(no_End_Hauteur%))
res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_End_couleur%)))
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsEnd%
end_sub

sub nouveauprojet()
FC% = dll_call1("DeleteFlowChart",FC%)
FC% = dll_call6("CreateFlowChart",handle(0),0,0,0,0,LignesDeVisee%)
full_space 0
res% = dll_call5("LocateFlowChart",FC%,width(no_cElements%),0,width_client(0)-width(no_cElements%),height_client(0))
' height no_cElements%,300
projet$ = ""
end_sub

sub ouvrirprojet()
dim_local prj$
prj$ = file_name$(no_save%)
if prj$="_" then exit_sub
if lower$(file_extract_extension$(prj$))<>".fcproj"
message "Extension erronnée (*.FCproj)"
exit_sub
end_if
if file_exists(prj$)=0
message("Ce fichier n'existe pas."
exit_sub
end_if

nouveauprojet()
res% = dll_call2("LoadFlowChartProject",FC%,adr(prj$))
if res%<0
message "Erreur en chargement"
else
message "Le projet a été chargé:"+chr$(13)+chr$(10)+prj$
projet$ = prj$
end_if
end_sub

sub enregistrerprojet()
dim_local prj$
if projet$=""
enregistrersousprojet()
exit_sub
end_if
prj$ = projet$
if file_exists(prj$)=1 then file_delete prj$
res% = dll_call2("SaveFlowChartProject",FC%,adr(prj$))
if res%<0
message "Erreur en sauvegarde"
else
message "Le ficher a été créé:"+chr$(13)+chr$(10)+prj$
projet$ = prj$
end_if
end_sub

sub enregistrersousprojet()
dim_local prj$
prj$ = file_name$(no_save%)
if prj$="_" then exit_sub
if lower$(file_extract_extension$(prj$))<>".fcproj"
message "Extension erronnée (*.FCproj)"
exit_sub
end_if
if file_exists(prj$)=1
if message_confirmation_yes_no("Ce fichier existe déjà. Remplacer ?")<>1 then exit_sub
file_delete prj$
end_if
res% = dll_call2("SaveFlowChartProject",FC%,adr(prj$))
if res%<0
message "Erreur en sauvegarde"
else
message "Le ficher a été créé:"+chr$(13)+chr$(10)+prj$
projet$ = prj$
end_if
end_sub

sub lier()
DoPoints% = 1
npt% = 0
show no_info%
clear no_infotext%
text no_infotext%,"Cliquer sur une sortie..."
active no_AnnLink%
active no_Tracer%
end_sub

sub annulerlier()
res% = dll_call2("ShowRulersInFlowChart",FC%,0)
DoPoints% = 0
npt% = 0
xarray%(0) = 0
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call3("SelectOutputConnectorOfFlowChartElement",FC%,FCEstart%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
inactive no_AnnLink%
inactive no_Tracer%
hide no_info%
end_sub

sub tracer()
dim_local do1%
' rectangulariser le dernier segment
NatureInput% = dll_call3("GetInputConnectorOfFlowChartElement",FCEdest%,adr(xx%),adr(yy%))
if NatureInput%<>0
if npt%=0
res% = dll_call4("GetOutputConnectorOfFlowChartElement",FCEstart%,output%,adr(xxp%),adr(yyp%))
else
xxp% = xArray%(npt%)
yyp% = yArray%(npt%)
end_if

do1% = 0
if abs(xxp%-xx%)<=DeltaRectangle%
xxp% = xx%
do1% = 1
else
if abs(yyp%-yy%)<=DeltaRectangle%
yyp% = yy%
do1% = 1
end_if
end_if
if do1%=1
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yyp%
end_if
if yyp%>(yy%-DeltaRectangle%)
yyp% = yy% - DeltaRectangle%
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yyp%
end_if
if xxp%<>xx%
xxp% = xx%
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yyp%
end_if
end_if

res% = dll_call6("ConnectElementsOfFlowChart",FC%,FCEstart%,output%,FCEdest%,adr(xArray%),adr(yArray%))
if res%=0 then message "Erreur en créant la connexion"
res% = dll_call2("ShowRulersInFlowChart",FC%,0)
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call3("SelectOutputConnectorOfFlowChartElement",FC%,FCEstart%,0)
' res% = dll_call2("DrawFlowChart",FC%,1)
DoPoints% = 0
npt% = 0
xarray%(0) = 0
inactive no_AnnLink%
inactive no_Tracer%
hide no_info%
end_sub

sub exporter()
dim_local f$
f$ = file_name$(no_export%)
if f$="_" then exit_sub
if instr(".bmp.jpg.gif.png",lower$(file_extract_extension$(f$)))=0
message "Erreur d'extension"
exit_sub
end_if
if file_exists(f$)=1
if message_confirmation_yes_no("Cette image existe déjà? Remplacer ?")<>1 then exit_sub
end_if
res% = dll_call1("CopyFlowChartToClipboard",FC%)
res% = dll_call1("SaveAnyImageFile",adr(f$))
message "L'image est enregistrée dans:"+chr$(13)+chr$(10)+f$
end_sub

sub selectionLien()
DoPoints% = 6
npt% = 0
show no_info%
clear no_infotext%
text no_infotext%,"Cliquer sur un lien..."
res% = dll_call2("DrawFlowChart",FC%,5)
active no_AnnSelLink%
active no_DelLink%
end_sub

sub annulerSelLien()
DoPoints% = 0
npt% = 0
xarray%(0) = 0
res% = dll_call2("SelectLinkInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
inactive no_AnnSelLink%
inactive no_DelLink%
hide no_info%
hide no_info%
end_sub

sub supprimerLien()
res% = dll_call1("DeleteLinkFromFlowChart",FCL%)
hide no_info%
end_sub

Oui j'ai vu ! Wink

Pour la sélection des objets, est ce obligatoire d'avoir un bouton SELECTIONNER
Il serait tellement plus intuitif de cliquer directement sur l'objet...
mais tu as peut être des contraintes techniques ?

Je ne sais pas - je vais voir ça.

Volà... le bouton "Sélectionner" est toujours fonctionnel, mais un clic dans un élément le sélectionne d'office, et un clic ailleurs est ignore:

Code:: ' FlowChartDesigner.bas

labels()
constantes()
variables()
menu()
cadres()
Objets()

on_user_event UserEvent

end

UserEvent:
if bin_and(user_event_wparam,hex("FF000000"))=hex("0B000000") : ' ScrollImage
pos% = user_event_lparam : ' positon: yyyyxxxx
xxp% = bin_and(pos%,hex("0000FFFF"))
yyp% = pos%/65536

if DoPoints%=0
res% = dll_call4("IdentifyFlowChartElement",FC%,adr(xxp%),adr(yyp%),adr(FCE%))
if res%<0 then return
DoPoints% = 4
active no_AnnSel%
active no_SuppLiens%
hide no_AttributsConnector%
hide no_AttributsAction%
hide no_AttributsCondition%
hide no_AttributsSelection%
hide no_AttributsStart%
hide no_AttributsEnd%
end_if

if DoPoints%>0
if DoPoints%=1
NatureOutput% = dll_call5("IdentifyOutputOfFlowChartElement",FC%,xxp%,yyp%,adr(FCEstart%),adr(output%))
if NatureOutput%<0
message "Ce n'est pas une sortie valide."+chr$(13)+chr$(10)+"Recommencez ou Annulez..."
return
end_if
res% = dll_call3("SelectOutputConnectorOfFlowChartElement",FC%,FCEstart%,output%)
DoPoints% = 2
show no_info%
clear no_infotext%
text no_infotext%,"Cliquez maintenant l'élémént de destination"+chr$(13)+chr$(10)+"ou Annulez..."
return
end_if
if DoPoints%=2
res% = dll_call4("IdentifyFlowChartElement",FC%,adr(xxp%),adr(yyp%),adr(FCEdest%))
if res%<0
message "Ce n'est pas un élément valide."+chr$(13)+chr$(10)+"Recommencez ou Annulez..."
return
end_if
DoPoints% = 3
res% = dll_call2("SelectElementInFlowChart",FC%,FCEdest%)
show no_info%
clear no_infotext%
text no_infotext%,"Cliquez maintenant les points d'étape"+chr$(13)+chr$(10)+"puis Tracez ou Annulez..."
res% = dll_call2("ShowRulersInFlowChart",FC%,1)
return
end_if
if DoPoints%=3
' ici, rectangulariser le tracé
if npt%=0
res% = dll_call4("GetOutputConnectorOfFlowChartElement",FCEstart%,output%,adr(xx%),adr(yy%))
else
xx% = xarray%(npt%)
yy% = yarray%(npt%)
end_if
if (npt%=0) and (NatureOutput%<>0)
if abs(xxp%-xx%)<=DeltaRectangle%
xxp% = xx%
else
if abs(yyp%-yy%)<=DeltaRectangle%
yyp% = yy%
else
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yy%
end_if
end_if
end_if
if npt%>0
if abs(xxp%-xx%)<=DeltaRectangle%
xxp% = xx%
else
if abs(yyp%-yy%)<=DeltaRectangle%
yyp% = yy%
else
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yy%
end_if
end_if
end_if

' mémoriser le point
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yyp%
res% = dll_call3("DrawTemporaryMarkIntoFlowChart",FC%,xxp%,yyp%)
res% = dll_call5("DrawTemporaryLineIntoFlowChart",FC%,xx%,yy%,xxp%,yyp%)
' message "Point "+str$(npt%)+": "+str$(xx%)+","+str$(yy%
end_if
if DoPoints%=4
res% = dll_call4("IdentifyFlowChartElement",FC%,adr(xxp%),adr(yyp%),adr(FCE%))
if res%<0
message "Ce n'est pas un élément valide."
return
end_if
' message "Elément "+nature$(res%)+" identifié"
hide no_info%
DoPoints% = 5
select res%
case 0
show no_AttributsConnector%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Connector_X%),handle(no_Connector_Y%),0,0)
position no_Connector_X%,xxp%
position no_Connector_Y%,yyp%
case 1
res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
show no_AttributsAction%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Action_X%),handle(no_Action_Y%),handle(no_Action_Largeur%),handle(no_Action_Hauteur%))
position no_Action_X%,xxp%
position no_Action_Y%,yyp%
position no_Action_Largeur%,wwp%
position no_Action_Hauteur%,hhp%
text no_action_Couleur%,right$(hex$(ccc%),6)
text no_Action_Titre%,item_read$(no_memo%,1)
item_delete no_memo%,1
clear no_Action_Contenu%
if count(no_memo%)>0
for i%=1 to count(no_memo%)
item_add no_Action_Contenu%,item_read$(no_memo%,i%)
next i%
end_if
case 2
res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
show no_AttributsCondition%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Condition_X%),handle(no_Condition_Y%),handle(no_Action_Largeur%),handle(no_Action_Hauteur%))
position no_Condition_X%,xxp%
position no_Condition_Y%,yyp%
position no_Condition_Largeur%,wwp%
position no_Condition_Hauteur%,hhp%
text no_Condition_Couleur%,right$(hex$(ccc%),6)
text no_Condition_Titre%,item_read$(no_memo%,1)
item_delete no_memo%,1
clear no_Condition_Contenu%
if count(no_memo%)>0
for i%=1 to count(no_memo%)
item_add no_Condition_Contenu%,item_read$(no_memo%,i%)
next i%
end_if
case 3
res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
show no_AttributsSelection%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Selection_X%),handle(no_Selection_Y%),handle(no_Selection_Largeur%),handle(no_Selection_Hauteur%))
position no_Selection_X%,xxp%
position no_Selection_Y%,yyp%
position no_Selection_Largeur%,wwp%
position no_Selection_Hauteur%,hhp%
text no_Selection_Couleur%,right$(hex$(ccc%),6)
text no_Selection_Titre%,item_read$(no_memo%,1)
item_delete no_memo%,1
clear no_Selection_Contenu%
if count(no_memo%)>0
for i%=1 to count(no_memo%)
item_add no_Selection_Contenu%,item_read$(no_memo%,i%)
next i%
end_if
case 4
res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
show no_AttributsStart%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Start_X%),handle(no_Start_Y%),handle(no_Start_Largeur%),handle(no_Start_Hauteur%))
position no_Start_X%,xxp%
position no_Start_Y%,yyp%
position no_Start_Largeur%,wwp%
position no_Start_Hauteur%,hhp%
text no_Start_Couleur%,right$(hex$(ccc%),6)
case 5
res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
show no_AttributsEnd%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_End_X%),handle(no_End_Y%),handle(no_End_Largeur%),handle(no_End_Hauteur%))
position no_End_X%,xxp%
position no_End_Y%,yyp%
position no_End_Largeur%,wwp%
position no_End_Hauteur%,hhp%
text no_End_Couleur%,right$(hex$(ccc%),6)
end_select
res% = dll_call2("SelectElementInFlowChart",FC%,FCE%)
end_if
if DoPoints%=6
res% = dll_call4("IdentifyFlowChartLink",FC%,xxp%,yyp%,adr(FCL%))
if res%<0
message "Ce n'est pas un lien valide."
DoPoints% = 0
res% = dll_call2("DrawFlowChart",FC%,1)
return
end_if
' message "Lien "+str$(res%)+" identifié"

res% = dll_call2("SelectLinkInFlowChart",FC%,FCL%)
DoPoints% = 0
res% = dll_call2("DrawFlowChart",FC%,5)
end_if
end_if
end_if

return

sortir:
terminate

AddConnector:
AddConnector()
return

AddAction:
AddAction()
return

AddCondition:
AddCondition()
return

AddSelector:
AddSelector()
return

AddStart:
AddStart()
return

AddEnd:
AddEnd()
return

selectionner:
selectionner()
return

valider_connector:
valider_connector()
return

valider_action:
valider_action()
return

valider_Condition:
valider_Condition()
return

annulerselection:
annulerselection()
return

supprimerliens:
supprimerliens()
return

valider_Selection:
valider_Selection()
return

valider_start:
valider_start()
return

valider_end:
valider_end()
return

nouveauprojet:
nouveauprojet()
return

ouvrirprojet:
ouvrirprojet()
return

enregistrerprojet:
enregistrerprojet()
return

enregistrersousprojet:
enregistrersousprojet()
return

lier:
lier()
return

annulerlier:
annulerlier()
return

tracer:
tracer()
return

exporter:
exporter()
return

selectionLien:
selectionLien()
return

annulerSelLien:
annulerSelLien()
return

supprimerLien:
supprimerLien()
return

sub labels()
label AddConnector, AddAction, AddCondition, AddSelector, AddStart, AddEnd
label valider_connector, valider_action, valider_Condition, valider_Selection
label valider_Start, valider_End
label selectionner, annulerselection, supprimerliens, UserEvent, sortir
label selectionLien, annulerSelLien, supprimerLien
label nouveauprojet, ouvrirprojet, enregistrerprojet, enregistrersousprojet
label lier, annulerlier, tracer, exporter
end_sub

sub constantes()
dim KGF$ : KGF$ = "KGF.dll"
dim M1% : M1% = 0-1
dim DeltaRectangle% : DeltaRectangle% = 10
dim LignesDeVisee% : ' nombre de lignes de visée (0, 1 ou 2)
LignesDeVisee% = 2
dim nature$(6)
nature$(0) = "Connector"
nature$(1) = "Action"
nature$(2) = "Condition"
nature$(3) = "Selector"
nature$(4) = "Start"
nature$(5) = "End"
end_sub

sub variables()
dim res%, DoPoints%, pos%, xxp%, yyp%, titre$, wwp%, hhp%, i%, ccc%, output%
dim xx%, yy%, NatureOutput%, NatureInput%
dim npt%, xarray%(100),yarray%(100)
dim no%, no1%, no2%, no_cElements%, no_AnnSel%, no_SuppLiens%, no_memo%, no_open%, no_save%
dim no_AttributsConnector%, no_AttributsAction%, no_AttributsCondition%
dim no_AttributsSelection%, no_AttributsStart%, no_AttributsEnd%
dim no_Connector_X%, no_Connector_Y%, no_AnnLink%, no_Tracer% , no_Info%, no_infotext%
dim no_Action_X%, no_Action_Y%, no_Action_Titre%, no_action_Couleur%
dim no_Action_Largeur%, no_Action_Hauteur%, no_Action_Contenu%, no_export%
dim no_Condition_X%, no_Condition_Y%, no_Condition_Titre%, no_condition_Couleur%
dim no_Condition_Largeur%, no_Condition_Hauteur%, no_Condition_Contenu%
dim no_Selection_X%, no_Selection_Y%, no_Selection_Titre%, no_selection_Couleur%
dim no_Selection_Largeur%, no_Selection_Hauteur%, no_Selection_Contenu%
dim no_Start_X%, no_Start_Y%, no_Start_Largeur%, no_Start_Hauteur%, no_start_Couleur%
dim no_End_X%, no_End_Y%, no_End_Largeur%, no_End_Hauteur%, no_end_Couleur%
dim no_AnnSelLink%, no_DelLink%
dim FC%, FCE%, FCEstart%, FCEdest%, FCL%
dim projet$
end_sub

sub menu()
no% = no% + 1 : main_menu no% : no1% = no%
no% = no% + 1 : sub_menu no% : parent no%,no1% : no2% = no% : caption no%,"Fichier"
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Nouveau" : on_click no%,nouveauprojet
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Ouvrir..." : on_click no%,ouvrirprojet
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Enregistrer" : on_click no%,enregistrerprojet
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Enregistrer sous..." : on_click no%,enregistrersousprojet
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Exporter..." : on_click no%,exporter
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"-"
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Sortir" : on_click no%,sortir
end_sub

sub cadres()
dim_local hnd%
dll_on KGF$
no% = no% + 1 : form no% : hide no% : no_info% = no% : width no%,400 : height no%,200
no% = no% + 1 : memo no% : no_infotext% = no% : parent no%,no_info% : full_space no% : bar_both no% : font_size no%,12

no% = no% + 1 : container no% : no_cElements% = no% : width no%,200 : caption no%,"Eléments"
FC% = dll_call6("CreateFlowChart",handle(0),0,0,0,0,LignesDeVisee%)
full_space 0
res% = dll_call5("LocateFlowChart",FC%,width(no_cElements%),0,width_client(0)-width(no_cElements%),height_client(0))
height no_cElements%,350
res% = dll_call2("ShowRulersInFlowChart",FC%,0)
top no_info%,0 : left no_info%,width_client(0)-width(no_info%)-width(no_cElements%)

hnd% = dll_call1("GetHandleOfFlowChart",FC%)
res% = dll_call3("SetFormParent",handle(no_info%),hnd%,0)

no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Début"
top no%,15 : left no%,10 : on_click no%,AddStart
no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Connecteur"
top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddConnector
no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Action"
top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddAction
no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Condition"
top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddCondition
no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Selecteur"
top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddSelector
no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Fin"
top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddEnd

no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Sélectionner"
top no%,top(no%-1)+height(no%-1)+10 : left no%,10 : on_click no%,selectionner
no% = no% + 1 : button no% : parent no%,no_cElements% : no_AnnSel% = no% : caption no%,"Annuler" : inactive no%
top no%,top(no%-1) : left no%,left(no%-1)+width(no%-1) : on_click no%,annulerselection
no% = no% + 1 : button no% : parent no%,no_cElements% : no_SuppLiens% = no% : caption no%,"Supprimer lien" : inactive no%
top no%,top(no%-1)+height(no%-1) : left no%,left(no%-1) : on_click no%,supprimerliens

no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Lier"
top no%,top(no%-1)+height(no%-1)+10 : left no%,10 : on_click no%,lier
no% = no% + 1 : button no% : parent no%,no_cElements% : no_AnnLink% = no% : caption no%,"Annuler" : inactive no%
top no%,top(no%-1) : left no%,left(no%-1)+width(no%-1) : on_click no%,annulerlier
no% = no% + 1 : button no% : parent no%,no_cElements% : no_Tracer% = no% : caption no%,"Tracer" : inactive no%
top no%,top(no%-1)+height(no%-1) : left no%,10 : width no%,width(no%-2)+width(no%-1) : on_click no%,tracer

no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Sel. Lien"
top no%,top(no%-1)+height(no%-1)+10 : left no%,10 : on_click no%,selectionLien
no% = no% + 1 : button no% : parent no%,no_cElements% : no_AnnSelLink% = no% : caption no%,"Annuler" : inactive no%
top no%,top(no%-1) : left no%,left(no%-1)+width(no%-1) : on_click no%,annulerSelLien
no% = no% + 1 : button no% : parent no%,no_cElements% : no_DelLink% = no% : caption no%,"Supprimer lien" : inactive no%
top no%,top(no%-1)+height(no%-1) : left no%,10 : width no%,width(no%-2)+width(no%-1) : on_click no%,supprimerLien

' attributs Connector
no% = no% + 1 : container no% : no_AttributsConnector% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Connector" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsConnector% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_Connector_X% = no% : parent no%,no_AttributsConnector% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsConnector% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_Connector_Y% = no% : parent no%,no_AttributsConnector% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : button no% : parent no%,no_AttributsConnector% : top no%,height(no_AttributsConnector%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_connector

' attributs Action
no% = no% + 1 : container no% : no_AttributsAction% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Action" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_Action_X% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_Action_Y% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_Action_Largeur% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Hauteur:"
no% = no% + 1 : spin no% : no_Action_Hauteur% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_Action_Couleur% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Titre:"
no% = no% + 1 : edit no% : no_Action_Titre% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
width no%,110
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Contenu:"
no% = no% + 1 : memo no% : no_Action_Contenu% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+15 : left no%,10
width no%,180 : bar_both no%
no% = no% + 1 : button no% : parent no%,no_AttributsAction% : top no%,height(no_AttributsAction%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_action

' attributs Condition
no% = no% + 1 : container no% : no_AttributsCondition% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Condition" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_Condition_X% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_Condition_Y% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_Condition_Largeur% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Hauteur:"
no% = no% + 1 : spin no% : no_Condition_Hauteur% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_Condition_Couleur% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Titre:"
no% = no% + 1 : edit no% : no_Condition_Titre% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
width no%,110
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Contenu:"
no% = no% + 1 : memo no% : no_Condition_Contenu% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+15 : left no%,10
width no%,180 : bar_both no%
no% = no% + 1 : button no% : parent no%,no_AttributsCondition% : top no%,height(no_AttributsCondition%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_Condition

' attributs Selection
no% = no% + 1 : container no% : no_AttributsSelection% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Selection" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_Selection_X% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_Selection_Y% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_Selection_Largeur% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Hauteur:"
no% = no% + 1 : spin no% : no_Selection_Hauteur% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_Selection_Couleur% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Titre:"
no% = no% + 1 : edit no% : no_Selection_Titre% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
width no%,110
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Contenu:"
no% = no% + 1 : memo no% : no_Selection_Contenu% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+15 : left no%,10
width no%,180 : bar_both no%
no% = no% + 1 : button no% : parent no%,no_AttributsSelection% : top no%,height(no_AttributsSelection%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_Selection

' attributs Start
no% = no% + 1 : container no% : no_AttributsStart% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Start" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_Start_X% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_Start_Y% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_Start_Largeur% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Hauteur:"
no% = no% + 1 : spin no% : no_Start_Hauteur% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_Start_Couleur% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : button no% : parent no%,no_AttributsStart% : top no%,height(no_AttributsStart%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_Start

' attributs End
no% = no% + 1 : container no% : no_AttributsEnd% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs End" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_End_X% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_End_Y% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_End_Largeur% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Hauteur:"
no% = no% + 1 : spin no% : no_End_Hauteur% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_End_Couleur% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : button no% : parent no%,no_AttributsEnd% : top no%,height(no_AttributsEnd%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_End

end_sub

sub Objets()
no% = no% + 1 : memo no% : no_memo% = no% : hide no% : bar_both no%
no% = no% + 1 : open_dialog no% : no_open% = no% : filter no%,"Projet FlowChart (*.FCproj)|*.FCproj"
no% = no% + 1 : save_dialog no% : no_save% = no% : filter no%,"Projet FlowChart (*.FCproj)|*.FCproj"
no% = no% + 1 : save_dialog no% : no_export% = no% : filter no%,"Images (BMP,JPG,GIF,PNG)|*.BMP;*.JPG;*.GIF;*.PNG"
end_sub

sub AddConnector()
FCE% = dll_call4("AddElementToFlowChart",FC%,0,0,0)
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,20,20)
res% = dll_call2("DrawFlowChart",FC%,1)
position no_Connector_X%,0
position no_Connector_Y%,0
annulerselection()
' show no_AttributsConnector%
end_sub

sub AddAction()
dim_local titre$
titre$ = "Action"
FCE% = dll_call4("AddElementToFlowChart",FC%,1,hex("FFFF00"),adr(titre$))
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,300,200)
res% = dll_call2("DrawFlowChart",FC%,1)
position no_Action_X%,0
position no_Action_Y%,0
position no_Action_Largeur%,300
position no_Action_Hauteur%,200
text no_action_Couleur%,"FFFF00"
text no_Action_Titre%,titre$
clear no_Action_Contenu%
annulerselection()
' show no_AttributsAction%
end_sub

sub AddCondition()
dim_local titre$
titre$ = "Condition ?"
FCE% = dll_call4("AddElementToFlowChart",FC%,2,hex("0000FF"),adr(titre$))
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,300,100)
clear no_memo%
item_add no_memo%,"."
item_add no_memo%,"Oui"
item_add no_memo%,"Non"
res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,0,handle(no_memo%))
res% = dll_call2("DrawFlowChart",FC%,1)
position no_Condition_X%,0
position no_Condition_Y%,0
position no_Condition_Largeur%,300
position no_Condition_Hauteur%,100
text no_Condition_Couleur%,"0000FF"
text no_Condition_Titre%,titre$
clear no_Condition_Contenu%
item_add no_Condition_Contenu%,"Oui"
item_add no_Condition_Contenu%,"."
item_add no_Condition_Contenu%,"Non"
annulerselection()
' show no_AttributsCondition%
end_sub

sub AddSelector()
dim_local titre$
titre$ = "Sélection"
FCE% = dll_call4("AddElementToFlowChart",FC%,3,hex("0000FF"),adr(titre$))
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,300,100)
clear no_memo%
item_add no_memo%,"1"
item_add no_memo%,"2"
item_add no_memo%,"3"
res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,0,handle(no_memo%))
res% = dll_call2("DrawFlowChart",FC%,1)
position no_Selection_X%,0
position no_Selection_Y%,0
position no_Selection_Largeur%,300
position no_Selection_Hauteur%,100
text no_Selection_Couleur%,"0000FF"
text no_Selection_Titre%,titre$
clear no_Selection_Contenu%
item_add no_Selection_Contenu%,"1"
item_add no_Selection_Contenu%,"2"
item_add no_Selection_Contenu%,"3"
annulerselection()
' show no_AttributsSelection%
end_sub

sub AddStart()
dim_local titre$
titre$ = "Début"
FCE% = dll_call4("AddElementToFlowChart",FC%,4,hex("F0F0F0"),adr(titre$))
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,100,100)
res% = dll_call2("DrawFlowChart",FC%,1)
position no_Start_X%,0
position no_Start_Y%,0
position no_Start_Largeur%,100
position no_Start_Hauteur%,100
text no_Start_Couleur%,"F0F0F0"
annulerselection()
' show no_AttributsStart%
end_sub

sub AddEnd()
dim_local titre$
titre$ = "Arrêt"
FCE% = dll_call4("AddElementToFlowChart",FC%,5,hex("F0F0F0"),adr(titre$))
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,100,100)
res% = dll_call2("DrawFlowChart",FC%,1)
position no_End_X%,0
position no_End_Y%,0
position no_End_Largeur%,100
position no_End_Hauteur%,100
text no_End_Couleur%,"F0F0F0"
annulerselection()
' show no_AttributsEnd%
end_sub

sub selectionner()
show no_info%
clear no_infotext%
text no_infotext%,"Sélectionner un élément en cliquant dessus..."
DoPoints% = 4
active no_AnnSel%
active no_SuppLiens%
hide no_AttributsConnector%
hide no_AttributsAction%
hide no_AttributsCondition%
hide no_AttributsSelection%
hide no_AttributsStart%
hide no_AttributsEnd%
end_sub

sub annulerselection()
DoPoints% = 0
inactive no_AnnSel%
inactive no_SuppLiens%
hide no_AttributsConnector%
hide no_AttributsAction%
hide no_AttributsCondition%
hide no_AttributsSelection%
hide no_AttributsStart%
hide no_AttributsEnd%
res% = dll_call2("SelectElementInFlowChart",FC%,0)
hide no_info%
end_sub

sub supprimerliens()
res% = dll_call2("RemoveAllLinksFromFlowChartElement",FC%,FCE%)
end_sub

sub valider_connector()
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Connector_X%),position(no_Connector_Y%),M1%,M1%)
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsConnector%
end_sub

sub valider_action()
dim_local titre$
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Action_X%),position(no_Action_Y%),position(no_Action_Largeur%),position(no_Action_Hauteur%))
titre$ = trim$(text$(no_Action_Titre%))
res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,adr(titre$),handle(no_Action_Contenu%))
res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_Action_couleur%)))
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsAction%
end_sub

sub valider_Condition()
dim_local titre$
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Condition_X%),position(no_Condition_Y%),position(no_Condition_Largeur%),position(no_Condition_Hauteur%))
titre$ = trim$(text$(no_Condition_Titre%))
res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,adr(titre$),handle(no_Condition_Contenu%))
res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_Condition_couleur%)))
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsCondition%
end_sub

sub valider_Selection()
dim_local titre$
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Selection_X%),position(no_Selection_Y%),position(no_Selection_Largeur%),position(no_Selection_Hauteur%))
titre$ = trim$(text$(no_Selection_Titre%))
res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,adr(titre$),handle(no_Selection_Contenu%))
res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_Selection_couleur%)))
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsSelection%
end_sub

sub valider_Start()
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Start_X%),position(no_Start_Y%),position(no_Start_Largeur%),position(no_Start_Hauteur%))
res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_Start_couleur%)))
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsStart%
end_sub

sub valider_End()
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_End_X%),position(no_End_Y%),position(no_End_Largeur%),position(no_End_Hauteur%))
res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_End_couleur%)))
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsEnd%
end_sub

sub nouveauprojet()
FC% = dll_call1("DeleteFlowChart",FC%)
FC% = dll_call6("CreateFlowChart",handle(0),0,0,0,0,LignesDeVisee%)
full_space 0
res% = dll_call5("LocateFlowChart",FC%,width(no_cElements%),0,width_client(0)-width(no_cElements%),height_client(0))
' height no_cElements%,300
projet$ = ""
end_sub

sub ouvrirprojet()
dim_local prj$
prj$ = file_name$(no_save%)
if prj$="_" then exit_sub
if lower$(file_extract_extension$(prj$))<>".fcproj"
message "Extension erronnée (*.FCproj)"
exit_sub
end_if
if file_exists(prj$)=0
message("Ce fichier n'existe pas."
exit_sub
end_if

nouveauprojet()
res% = dll_call2("LoadFlowChartProject",FC%,adr(prj$))
if res%<0
message "Erreur en chargement"
else
message "Le projet a été chargé:"+chr$(13)+chr$(10)+prj$
projet$ = prj$
end_if
end_sub

sub enregistrerprojet()
dim_local prj$
if projet$=""
enregistrersousprojet()
exit_sub
end_if
prj$ = projet$
if file_exists(prj$)=1 then file_delete prj$
res% = dll_call2("SaveFlowChartProject",FC%,adr(prj$))
if res%<0
message "Erreur en sauvegarde"
else
message "Le ficher a été créé:"+chr$(13)+chr$(10)+prj$
projet$ = prj$
end_if
end_sub

sub enregistrersousprojet()
dim_local prj$
prj$ = file_name$(no_save%)
if prj$="_" then exit_sub
if lower$(file_extract_extension$(prj$))<>".fcproj"
message "Extension erronnée (*.FCproj)"
exit_sub
end_if
if file_exists(prj$)=1
if message_confirmation_yes_no("Ce fichier existe déjà. Remplacer ?")<>1 then exit_sub
file_delete prj$
end_if
res% = dll_call2("SaveFlowChartProject",FC%,adr(prj$))
if res%<0
message "Erreur en sauvegarde"
else
message "Le ficher a été créé:"+chr$(13)+chr$(10)+prj$
projet$ = prj$
end_if
end_sub

sub lier()
DoPoints% = 1
npt% = 0
show no_info%
clear no_infotext%
text no_infotext%,"Cliquer sur une sortie..."
active no_AnnLink%
active no_Tracer%
end_sub

sub annulerlier()
res% = dll_call2("ShowRulersInFlowChart",FC%,0)
DoPoints% = 0
npt% = 0
xarray%(0) = 0
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call3("SelectOutputConnectorOfFlowChartElement",FC%,FCEstart%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
inactive no_AnnLink%
inactive no_Tracer%
hide no_info%
end_sub

sub tracer()
dim_local do1%
' rectangulariser le dernier segment
NatureInput% = dll_call3("GetInputConnectorOfFlowChartElement",FCEdest%,adr(xx%),adr(yy%))
if NatureInput%<>0
if npt%=0
res% = dll_call4("GetOutputConnectorOfFlowChartElement",FCEstart%,output%,adr(xxp%),adr(yyp%))
else
xxp% = xArray%(npt%)
yyp% = yArray%(npt%)
end_if

do1% = 0
if abs(xxp%-xx%)<=DeltaRectangle%
xxp% = xx%
do1% = 1
else
if abs(yyp%-yy%)<=DeltaRectangle%
yyp% = yy%
do1% = 1
end_if
end_if
if do1%=1
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yyp%
end_if
if yyp%>(yy%-DeltaRectangle%)
yyp% = yy% - DeltaRectangle%
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yyp%
end_if
if xxp%<>xx%
xxp% = xx%
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yyp%
end_if
end_if

res% = dll_call6("ConnectElementsOfFlowChart",FC%,FCEstart%,output%,FCEdest%,adr(xArray%),adr(yArray%))
if res%=0 then message "Erreur en créant la connexion"
res% = dll_call2("ShowRulersInFlowChart",FC%,0)
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call3("SelectOutputConnectorOfFlowChartElement",FC%,FCEstart%,0)
' res% = dll_call2("DrawFlowChart",FC%,1)
DoPoints% = 0
npt% = 0
xarray%(0) = 0
inactive no_AnnLink%
inactive no_Tracer%
hide no_info%
end_sub

sub exporter()
dim_local f$
f$ = file_name$(no_export%)
if f$="_" then exit_sub
if instr(".bmp.jpg.gif.png",lower$(file_extract_extension$(f$)))=0
message "Erreur d'extension"
exit_sub
end_if
if file_exists(f$)=1
if message_confirmation_yes_no("Cette image existe déjà? Remplacer ?")<>1 then exit_sub
end_if
res% = dll_call1("CopyFlowChartToClipboard",FC%)
res% = dll_call1("SaveAnyImageFile",adr(f$))
message "L'image est enregistrée dans:"+chr$(13)+chr$(10)+f$
end_sub

sub selectionLien()
DoPoints% = 6
npt% = 0
show no_info%
clear no_infotext%
text no_infotext%,"Cliquer sur un lien..."
res% = dll_call2("DrawFlowChart",FC%,5)
active no_AnnSelLink%
active no_DelLink%
end_sub

sub annulerSelLien()
DoPoints% = 0
npt% = 0
xarray%(0) = 0
res% = dll_call2("SelectLinkInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
inactive no_AnnSelLink%
inactive no_DelLink%
hide no_info%
hide no_info%
end_sub

sub supprimerLien()
res% = dll_call1("DeleteLinkFromFlowChart",FCL%)
hide no_info%
end_sub

Testé et approuvé Klaus !

Ça devient de plus en plus intuitif et c'est super.
Bravo pour le travail réalisé.
cheers

Klaus, en testant de nouveau ton programme, Je me demandais s'il était possible :

1/ lorsqu'un objet est déjà sélectionné et que l'on clique de nouveau dessus, de le désélectionner.
2/ lorsqu'un objet est déjà sélectionné et que l'on clique sur un autre objet, de sélectionner cet autre objet à la place.

Toujours selon les possibilités techniques de ton programme, bien sûr ! Wink

Ouin c'est une idée... Je vais voir ça cette nuit.

Voilà une version qui fait exactement ça. Seul le programme Panoramic est modifié, la DLL est inchangé:

Code:: ' FlowChartDesigner.bas

labels()
constantes()
variables()
menu()
cadres()
Objets()

on_user_event UserEvent

end

UserEvent:
if bin_and(user_event_wparam,hex("FF000000"))=hex("0B000000") : ' ScrollImage
pos% = user_event_lparam : ' positon: yyyyxxxx
xxp% = bin_and(pos%,hex("0000FFFF"))
yyp% = pos%/65536

if DoPoints%=5
res% = dll_call4("IdentifyFlowChartElement",FC%,adr(xxp%),adr(yyp%),adr(FCEnew%))
if res%<0 then return
if FCEnew%=FCE%
annulerselection()
return
else
DoPoints% = 0
end_if
end_if
if DoPoints%=0
res% = dll_call4("IdentifyFlowChartElement",FC%,adr(xxp%),adr(yyp%),adr(FCE%))
if res%<0 then return
DoPoints% = 4
active no_AnnSel%
active no_SuppLiens%
hide no_AttributsConnector%
hide no_AttributsAction%
hide no_AttributsCondition%
hide no_AttributsSelection%
hide no_AttributsStart%
hide no_AttributsEnd%
end_if

if DoPoints%>0
if DoPoints%=1
NatureOutput% = dll_call5("IdentifyOutputOfFlowChartElement",FC%,xxp%,yyp%,adr(FCEstart%),adr(output%))
if NatureOutput%<0
message "Ce n'est pas une sortie valide."+chr$(13)+chr$(10)+"Recommencez ou Annulez..."
return
end_if
res% = dll_call3("SelectOutputConnectorOfFlowChartElement",FC%,FCEstart%,output%)
DoPoints% = 2
show no_info%
clear no_infotext%
text no_infotext%,"Cliquez maintenant l'élémént de destination"+chr$(13)+chr$(10)+"ou Annulez..."
return
end_if
if DoPoints%=2
res% = dll_call4("IdentifyFlowChartElement",FC%,adr(xxp%),adr(yyp%),adr(FCEdest%))
if res%<0
message "Ce n'est pas un élément valide."+chr$(13)+chr$(10)+"Recommencez ou Annulez..."
return
end_if
DoPoints% = 3
res% = dll_call2("SelectElementInFlowChart",FC%,FCEdest%)
show no_info%
clear no_infotext%
text no_infotext%,"Cliquez maintenant les points d'étape"+chr$(13)+chr$(10)+"puis Tracez ou Annulez..."
res% = dll_call2("ShowRulersInFlowChart",FC%,1)
return
end_if
if DoPoints%=3
' ici, rectangulariser le tracé
if npt%=0
res% = dll_call4("GetOutputConnectorOfFlowChartElement",FCEstart%,output%,adr(xx%),adr(yy%))
else
xx% = xarray%(npt%)
yy% = yarray%(npt%)
end_if
if (npt%=0) and (NatureOutput%<>0)
if abs(xxp%-xx%)<=DeltaRectangle%
xxp% = xx%
else
if abs(yyp%-yy%)<=DeltaRectangle%
yyp% = yy%
else
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yy%
end_if
end_if
end_if
if npt%>0
if abs(xxp%-xx%)<=DeltaRectangle%
xxp% = xx%
else
if abs(yyp%-yy%)<=DeltaRectangle%
yyp% = yy%
else
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yy%
end_if
end_if
end_if

' mémoriser le point
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yyp%
res% = dll_call3("DrawTemporaryMarkIntoFlowChart",FC%,xxp%,yyp%)
res% = dll_call5("DrawTemporaryLineIntoFlowChart",FC%,xx%,yy%,xxp%,yyp%)
' message "Point "+str$(npt%)+": "+str$(xx%)+","+str$(yy%
end_if
if DoPoints%=4
res% = dll_call4("IdentifyFlowChartElement",FC%,adr(xxp%),adr(yyp%),adr(FCE%))
if res%<0
message "Ce n'est pas un élément valide."
return
end_if
' message "Elément "+nature$(res%)+" identifié"
hide no_info%
DoPoints% = 5
select res%
case 0
show no_AttributsConnector%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Connector_X%),handle(no_Connector_Y%),0,0)
position no_Connector_X%,xxp%
position no_Connector_Y%,yyp%
case 1
res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
show no_AttributsAction%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Action_X%),handle(no_Action_Y%),handle(no_Action_Largeur%),handle(no_Action_Hauteur%))
position no_Action_X%,xxp%
position no_Action_Y%,yyp%
position no_Action_Largeur%,wwp%
position no_Action_Hauteur%,hhp%
text no_action_Couleur%,right$(hex$(ccc%),6)
text no_Action_Titre%,item_read$(no_memo%,1)
item_delete no_memo%,1
clear no_Action_Contenu%
if count(no_memo%)>0
for i%=1 to count(no_memo%)
item_add no_Action_Contenu%,item_read$(no_memo%,i%)
next i%
end_if
case 2
res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
show no_AttributsCondition%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Condition_X%),handle(no_Condition_Y%),handle(no_Action_Largeur%),handle(no_Action_Hauteur%))
position no_Condition_X%,xxp%
position no_Condition_Y%,yyp%
position no_Condition_Largeur%,wwp%
position no_Condition_Hauteur%,hhp%
text no_Condition_Couleur%,right$(hex$(ccc%),6)
text no_Condition_Titre%,item_read$(no_memo%,1)
item_delete no_memo%,1
clear no_Condition_Contenu%
if count(no_memo%)>0
for i%=1 to count(no_memo%)
item_add no_Condition_Contenu%,item_read$(no_memo%,i%)
next i%
end_if
case 3
res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
show no_AttributsSelection%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Selection_X%),handle(no_Selection_Y%),handle(no_Selection_Largeur%),handle(no_Selection_Hauteur%))
position no_Selection_X%,xxp%
position no_Selection_Y%,yyp%
position no_Selection_Largeur%,wwp%
position no_Selection_Hauteur%,hhp%
text no_Selection_Couleur%,right$(hex$(ccc%),6)
text no_Selection_Titre%,item_read$(no_memo%,1)
item_delete no_memo%,1
clear no_Selection_Contenu%
if count(no_memo%)>0
for i%=1 to count(no_memo%)
item_add no_Selection_Contenu%,item_read$(no_memo%,i%)
next i%
end_if
case 4
res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
show no_AttributsStart%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Start_X%),handle(no_Start_Y%),handle(no_Start_Largeur%),handle(no_Start_Hauteur%))
position no_Start_X%,xxp%
position no_Start_Y%,yyp%
position no_Start_Largeur%,wwp%
position no_Start_Hauteur%,hhp%
text no_Start_Couleur%,right$(hex$(ccc%),6)
case 5
res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
show no_AttributsEnd%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_End_X%),handle(no_End_Y%),handle(no_End_Largeur%),handle(no_End_Hauteur%))
position no_End_X%,xxp%
position no_End_Y%,yyp%
position no_End_Largeur%,wwp%
position no_End_Hauteur%,hhp%
text no_End_Couleur%,right$(hex$(ccc%),6)
end_select
res% = dll_call2("SelectElementInFlowChart",FC%,FCE%)
end_if
if DoPoints%=6
res% = dll_call4("IdentifyFlowChartLink",FC%,xxp%,yyp%,adr(FCL%))
if res%<0
message "Ce n'est pas un lien valide."
DoPoints% = 0
res% = dll_call2("DrawFlowChart",FC%,1)
return
end_if
' message "Lien "+str$(res%)+" identifié"

res% = dll_call2("SelectLinkInFlowChart",FC%,FCL%)
DoPoints% = 0
res% = dll_call2("DrawFlowChart",FC%,5)
end_if
end_if
end_if

return

sortir:
terminate

AddConnector:
AddConnector()
return

AddAction:
AddAction()
return

AddCondition:
AddCondition()
return

AddSelector:
AddSelector()
return

AddStart:
AddStart()
return

AddEnd:
AddEnd()
return

selectionner:
selectionner()
return

valider_connector:
valider_connector()
return

valider_action:
valider_action()
return

valider_Condition:
valider_Condition()
return

annulerselection:
annulerselection()
return

supprimerliens:
supprimerliens()
return

valider_Selection:
valider_Selection()
return

valider_start:
valider_start()
return

valider_end:
valider_end()
return

nouveauprojet:
nouveauprojet()
return

ouvrirprojet:
ouvrirprojet()
return

enregistrerprojet:
enregistrerprojet()
return

enregistrersousprojet:
enregistrersousprojet()
return

lier:
lier()
return

annulerlier:
annulerlier()
return

tracer:
tracer()
return

exporter:
exporter()
return

selectionLien:
selectionLien()
return

annulerSelLien:
annulerSelLien()
return

supprimerLien:
supprimerLien()
return

sub labels()
label AddConnector, AddAction, AddCondition, AddSelector, AddStart, AddEnd
label valider_connector, valider_action, valider_Condition, valider_Selection
label valider_Start, valider_End
label selectionner, annulerselection, supprimerliens, UserEvent, sortir
label selectionLien, annulerSelLien, supprimerLien
label nouveauprojet, ouvrirprojet, enregistrerprojet, enregistrersousprojet
label lier, annulerlier, tracer, exporter
end_sub

sub constantes()
dim KGF$ : KGF$ = "KGF.dll"
dim M1% : M1% = 0-1
dim DeltaRectangle% : DeltaRectangle% = 10
dim LignesDeVisee% : ' nombre de lignes de visée (0, 1 ou 2)
LignesDeVisee% = 2
dim nature$(6)
nature$(0) = "Connector"
nature$(1) = "Action"
nature$(2) = "Condition"
nature$(3) = "Selector"
nature$(4) = "Start"
nature$(5) = "End"
end_sub

sub variables()
dim res%, DoPoints%, pos%, xxp%, yyp%, titre$, wwp%, hhp%, i%, ccc%, output%
dim xx%, yy%, NatureOutput%, NatureInput%
dim npt%, xarray%(100),yarray%(100)
dim no%, no1%, no2%, no_cElements%, no_AnnSel%, no_SuppLiens%, no_memo%, no_open%, no_save%
dim no_AttributsConnector%, no_AttributsAction%, no_AttributsCondition%
dim no_AttributsSelection%, no_AttributsStart%, no_AttributsEnd%
dim no_Connector_X%, no_Connector_Y%, no_AnnLink%, no_Tracer% , no_Info%, no_infotext%
dim no_Action_X%, no_Action_Y%, no_Action_Titre%, no_action_Couleur%
dim no_Action_Largeur%, no_Action_Hauteur%, no_Action_Contenu%, no_export%
dim no_Condition_X%, no_Condition_Y%, no_Condition_Titre%, no_condition_Couleur%
dim no_Condition_Largeur%, no_Condition_Hauteur%, no_Condition_Contenu%
dim no_Selection_X%, no_Selection_Y%, no_Selection_Titre%, no_selection_Couleur%
dim no_Selection_Largeur%, no_Selection_Hauteur%, no_Selection_Contenu%
dim no_Start_X%, no_Start_Y%, no_Start_Largeur%, no_Start_Hauteur%, no_start_Couleur%
dim no_End_X%, no_End_Y%, no_End_Largeur%, no_End_Hauteur%, no_end_Couleur%
dim no_AnnSelLink%, no_DelLink%
dim FC%, FCE%, FCEstart%, FCEdest%, FCL%, FCEnew%
dim projet$
end_sub

sub menu()
no% = no% + 1 : main_menu no% : no1% = no%
no% = no% + 1 : sub_menu no% : parent no%,no1% : no2% = no% : caption no%,"Fichier"
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Nouveau" : on_click no%,nouveauprojet
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Ouvrir..." : on_click no%,ouvrirprojet
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Enregistrer" : on_click no%,enregistrerprojet
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Enregistrer sous..." : on_click no%,enregistrersousprojet
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Exporter..." : on_click no%,exporter
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"-"
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Sortir" : on_click no%,sortir
end_sub

sub cadres()
dim_local hnd%
dll_on KGF$
no% = no% + 1 : form no% : hide no% : no_info% = no% : width no%,400 : height no%,200
no% = no% + 1 : memo no% : no_infotext% = no% : parent no%,no_info% : full_space no% : bar_both no% : font_size no%,12

no% = no% + 1 : container no% : no_cElements% = no% : width no%,200 : caption no%,"Eléments"
FC% = dll_call6("CreateFlowChart",handle(0),0,0,0,0,LignesDeVisee%)
full_space 0
res% = dll_call5("LocateFlowChart",FC%,width(no_cElements%),0,width_client(0)-width(no_cElements%),height_client(0))
height no_cElements%,350
res% = dll_call2("ShowRulersInFlowChart",FC%,0)
top no_info%,0 : left no_info%,width_client(0)-width(no_info%)-width(no_cElements%)

hnd% = dll_call1("GetHandleOfFlowChart",FC%)
res% = dll_call3("SetFormParent",handle(no_info%),hnd%,0)

no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Début"
top no%,15 : left no%,10 : on_click no%,AddStart
no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Connecteur"
top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddConnector
no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Action"
top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddAction
no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Condition"
top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddCondition
no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Selecteur"
top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddSelector
no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Fin"
top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddEnd

no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Sélectionner"
top no%,top(no%-1)+height(no%-1)+10 : left no%,10 : on_click no%,selectionner
no% = no% + 1 : button no% : parent no%,no_cElements% : no_AnnSel% = no% : caption no%,"Annuler" : inactive no%
top no%,top(no%-1) : left no%,left(no%-1)+width(no%-1) : on_click no%,annulerselection
no% = no% + 1 : button no% : parent no%,no_cElements% : no_SuppLiens% = no% : caption no%,"Supprimer lien" : inactive no%
top no%,top(no%-1)+height(no%-1) : left no%,left(no%-1) : on_click no%,supprimerliens

no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Lier"
top no%,top(no%-1)+height(no%-1)+10 : left no%,10 : on_click no%,lier
no% = no% + 1 : button no% : parent no%,no_cElements% : no_AnnLink% = no% : caption no%,"Annuler" : inactive no%
top no%,top(no%-1) : left no%,left(no%-1)+width(no%-1) : on_click no%,annulerlier
no% = no% + 1 : button no% : parent no%,no_cElements% : no_Tracer% = no% : caption no%,"Tracer" : inactive no%
top no%,top(no%-1)+height(no%-1) : left no%,10 : width no%,width(no%-2)+width(no%-1) : on_click no%,tracer

no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Sel. Lien"
top no%,top(no%-1)+height(no%-1)+10 : left no%,10 : on_click no%,selectionLien
no% = no% + 1 : button no% : parent no%,no_cElements% : no_AnnSelLink% = no% : caption no%,"Annuler" : inactive no%
top no%,top(no%-1) : left no%,left(no%-1)+width(no%-1) : on_click no%,annulerSelLien
no% = no% + 1 : button no% : parent no%,no_cElements% : no_DelLink% = no% : caption no%,"Supprimer lien" : inactive no%
top no%,top(no%-1)+height(no%-1) : left no%,10 : width no%,width(no%-2)+width(no%-1) : on_click no%,supprimerLien

' attributs Connector
no% = no% + 1 : container no% : no_AttributsConnector% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Connector" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsConnector% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_Connector_X% = no% : parent no%,no_AttributsConnector% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsConnector% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_Connector_Y% = no% : parent no%,no_AttributsConnector% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : button no% : parent no%,no_AttributsConnector% : top no%,height(no_AttributsConnector%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_connector

' attributs Action
no% = no% + 1 : container no% : no_AttributsAction% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Action" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_Action_X% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_Action_Y% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_Action_Largeur% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Hauteur:"
no% = no% + 1 : spin no% : no_Action_Hauteur% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_Action_Couleur% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Titre:"
no% = no% + 1 : edit no% : no_Action_Titre% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
width no%,110
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Contenu:"
no% = no% + 1 : memo no% : no_Action_Contenu% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+15 : left no%,10
width no%,180 : bar_both no%
no% = no% + 1 : button no% : parent no%,no_AttributsAction% : top no%,height(no_AttributsAction%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_action

' attributs Condition
no% = no% + 1 : container no% : no_AttributsCondition% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Condition" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_Condition_X% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_Condition_Y% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_Condition_Largeur% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Hauteur:"
no% = no% + 1 : spin no% : no_Condition_Hauteur% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_Condition_Couleur% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Titre:"
no% = no% + 1 : edit no% : no_Condition_Titre% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
width no%,110
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Contenu:"
no% = no% + 1 : memo no% : no_Condition_Contenu% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+15 : left no%,10
width no%,180 : bar_both no%
no% = no% + 1 : button no% : parent no%,no_AttributsCondition% : top no%,height(no_AttributsCondition%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_Condition

' attributs Selection
no% = no% + 1 : container no% : no_AttributsSelection% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Selection" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_Selection_X% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_Selection_Y% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_Selection_Largeur% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Hauteur:"
no% = no% + 1 : spin no% : no_Selection_Hauteur% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_Selection_Couleur% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Titre:"
no% = no% + 1 : edit no% : no_Selection_Titre% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
width no%,110
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Contenu:"
no% = no% + 1 : memo no% : no_Selection_Contenu% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+15 : left no%,10
width no%,180 : bar_both no%
no% = no% + 1 : button no% : parent no%,no_AttributsSelection% : top no%,height(no_AttributsSelection%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_Selection

' attributs Start
no% = no% + 1 : container no% : no_AttributsStart% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Start" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_Start_X% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_Start_Y% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_Start_Largeur% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Hauteur:"
no% = no% + 1 : spin no% : no_Start_Hauteur% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_Start_Couleur% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : button no% : parent no%,no_AttributsStart% : top no%,height(no_AttributsStart%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_Start

' attributs End
no% = no% + 1 : container no% : no_AttributsEnd% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs End" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_End_X% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_End_Y% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_End_Largeur% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Hauteur:"
no% = no% + 1 : spin no% : no_End_Hauteur% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_End_Couleur% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : button no% : parent no%,no_AttributsEnd% : top no%,height(no_AttributsEnd%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_End

end_sub

sub Objets()
no% = no% + 1 : memo no% : no_memo% = no% : hide no% : bar_both no%
no% = no% + 1 : open_dialog no% : no_open% = no% : filter no%,"Projet FlowChart (*.FCproj)|*.FCproj"
no% = no% + 1 : save_dialog no% : no_save% = no% : filter no%,"Projet FlowChart (*.FCproj)|*.FCproj"
no% = no% + 1 : save_dialog no% : no_export% = no% : filter no%,"Images (BMP,JPG,GIF,PNG)|*.BMP;*.JPG;*.GIF;*.PNG"
end_sub

sub AddConnector()
FCE% = dll_call4("AddElementToFlowChart",FC%,0,0,0)
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,20,20)
res% = dll_call2("DrawFlowChart",FC%,1)
position no_Connector_X%,0
position no_Connector_Y%,0
annulerselection()
' show no_AttributsConnector%
end_sub

sub AddAction()
dim_local titre$
titre$ = "Action"
FCE% = dll_call4("AddElementToFlowChart",FC%,1,hex("FFFF00"),adr(titre$))
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,300,200)
res% = dll_call2("DrawFlowChart",FC%,1)
position no_Action_X%,0
position no_Action_Y%,0
position no_Action_Largeur%,300
position no_Action_Hauteur%,200
text no_action_Couleur%,"FFFF00"
text no_Action_Titre%,titre$
clear no_Action_Contenu%
annulerselection()
' show no_AttributsAction%
end_sub

sub AddCondition()
dim_local titre$
titre$ = "Condition ?"
FCE% = dll_call4("AddElementToFlowChart",FC%,2,hex("0000FF"),adr(titre$))
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,300,100)
clear no_memo%
item_add no_memo%,"."
item_add no_memo%,"Oui"
item_add no_memo%,"Non"
res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,0,handle(no_memo%))
res% = dll_call2("DrawFlowChart",FC%,1)
position no_Condition_X%,0
position no_Condition_Y%,0
position no_Condition_Largeur%,300
position no_Condition_Hauteur%,100
text no_Condition_Couleur%,"0000FF"
text no_Condition_Titre%,titre$
clear no_Condition_Contenu%
item_add no_Condition_Contenu%,"Oui"
item_add no_Condition_Contenu%,"."
item_add no_Condition_Contenu%,"Non"
annulerselection()
' show no_AttributsCondition%
end_sub

sub AddSelector()
dim_local titre$
titre$ = "Sélection"
FCE% = dll_call4("AddElementToFlowChart",FC%,3,hex("0000FF"),adr(titre$))
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,300,100)
clear no_memo%
item_add no_memo%,"1"
item_add no_memo%,"2"
item_add no_memo%,"3"
res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,0,handle(no_memo%))
res% = dll_call2("DrawFlowChart",FC%,1)
position no_Selection_X%,0
position no_Selection_Y%,0
position no_Selection_Largeur%,300
position no_Selection_Hauteur%,100
text no_Selection_Couleur%,"0000FF"
text no_Selection_Titre%,titre$
clear no_Selection_Contenu%
item_add no_Selection_Contenu%,"1"
item_add no_Selection_Contenu%,"2"
item_add no_Selection_Contenu%,"3"
annulerselection()
' show no_AttributsSelection%
end_sub

sub AddStart()
dim_local titre$
titre$ = "Début"
FCE% = dll_call4("AddElementToFlowChart",FC%,4,hex("F0F0F0"),adr(titre$))
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,100,100)
res% = dll_call2("DrawFlowChart",FC%,1)
position no_Start_X%,0
position no_Start_Y%,0
position no_Start_Largeur%,100
position no_Start_Hauteur%,100
text no_Start_Couleur%,"F0F0F0"
annulerselection()
' show no_AttributsStart%
end_sub

sub AddEnd()
dim_local titre$
titre$ = "Arrêt"
FCE% = dll_call4("AddElementToFlowChart",FC%,5,hex("F0F0F0"),adr(titre$))
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,100,100)
res% = dll_call2("DrawFlowChart",FC%,1)
position no_End_X%,0
position no_End_Y%,0
position no_End_Largeur%,100
position no_End_Hauteur%,100
text no_End_Couleur%,"F0F0F0"
annulerselection()
' show no_AttributsEnd%
end_sub

sub selectionner()
show no_info%
clear no_infotext%
text no_infotext%,"Sélectionner un élément en cliquant dessus..."
DoPoints% = 4
active no_AnnSel%
active no_SuppLiens%
hide no_AttributsConnector%
hide no_AttributsAction%
hide no_AttributsCondition%
hide no_AttributsSelection%
hide no_AttributsStart%
hide no_AttributsEnd%
end_sub

sub annulerselection()
DoPoints% = 0
inactive no_AnnSel%
inactive no_SuppLiens%
hide no_AttributsConnector%
hide no_AttributsAction%
hide no_AttributsCondition%
hide no_AttributsSelection%
hide no_AttributsStart%
hide no_AttributsEnd%
res% = dll_call2("SelectElementInFlowChart",FC%,0)
hide no_info%
end_sub

sub supprimerliens()
res% = dll_call2("RemoveAllLinksFromFlowChartElement",FC%,FCE%)
end_sub

sub valider_connector()
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Connector_X%),position(no_Connector_Y%),M1%,M1%)
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsConnector%
end_sub

sub valider_action()
dim_local titre$
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Action_X%),position(no_Action_Y%),position(no_Action_Largeur%),position(no_Action_Hauteur%))
titre$ = trim$(text$(no_Action_Titre%))
res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,adr(titre$),handle(no_Action_Contenu%))
res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_Action_couleur%)))
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsAction%
end_sub

sub valider_Condition()
dim_local titre$
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Condition_X%),position(no_Condition_Y%),position(no_Condition_Largeur%),position(no_Condition_Hauteur%))
titre$ = trim$(text$(no_Condition_Titre%))
res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,adr(titre$),handle(no_Condition_Contenu%))
res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_Condition_couleur%)))
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsCondition%
end_sub

sub valider_Selection()
dim_local titre$
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Selection_X%),position(no_Selection_Y%),position(no_Selection_Largeur%),position(no_Selection_Hauteur%))
titre$ = trim$(text$(no_Selection_Titre%))
res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,adr(titre$),handle(no_Selection_Contenu%))
res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_Selection_couleur%)))
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsSelection%
end_sub

sub valider_Start()
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Start_X%),position(no_Start_Y%),position(no_Start_Largeur%),position(no_Start_Hauteur%))
res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_Start_couleur%)))
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsStart%
end_sub

sub valider_End()
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_End_X%),position(no_End_Y%),position(no_End_Largeur%),position(no_End_Hauteur%))
res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_End_couleur%)))
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsEnd%
end_sub

sub nouveauprojet()
FC% = dll_call1("DeleteFlowChart",FC%)
FC% = dll_call6("CreateFlowChart",handle(0),0,0,0,0,LignesDeVisee%)
full_space 0
res% = dll_call5("LocateFlowChart",FC%,width(no_cElements%),0,width_client(0)-width(no_cElements%),height_client(0))
' height no_cElements%,300
projet$ = ""
end_sub

sub ouvrirprojet()
dim_local prj$
prj$ = file_name$(no_save%)
if prj$="_" then exit_sub
if lower$(file_extract_extension$(prj$))<>".fcproj"
message "Extension erronnée (*.FCproj)"
exit_sub
end_if
if file_exists(prj$)=0
message("Ce fichier n'existe pas."
exit_sub
end_if

nouveauprojet()
res% = dll_call2("LoadFlowChartProject",FC%,adr(prj$))
if res%<0
message "Erreur en chargement"
else
message "Le projet a été chargé:"+chr$(13)+chr$(10)+prj$
projet$ = prj$
end_if
end_sub

sub enregistrerprojet()
dim_local prj$
if projet$=""
enregistrersousprojet()
exit_sub
end_if
prj$ = projet$
if file_exists(prj$)=1 then file_delete prj$
res% = dll_call2("SaveFlowChartProject",FC%,adr(prj$))
if res%<0
message "Erreur en sauvegarde"
else
message "Le ficher a été créé:"+chr$(13)+chr$(10)+prj$
projet$ = prj$
end_if
end_sub

sub enregistrersousprojet()
dim_local prj$
prj$ = file_name$(no_save%)
if prj$="_" then exit_sub
if lower$(file_extract_extension$(prj$))<>".fcproj"
message "Extension erronnée (*.FCproj)"
exit_sub
end_if
if file_exists(prj$)=1
if message_confirmation_yes_no("Ce fichier existe déjà. Remplacer ?")<>1 then exit_sub
file_delete prj$
end_if
res% = dll_call2("SaveFlowChartProject",FC%,adr(prj$))
if res%<0
message "Erreur en sauvegarde"
else
message "Le ficher a été créé:"+chr$(13)+chr$(10)+prj$
projet$ = prj$
end_if
end_sub

sub lier()
DoPoints% = 1
npt% = 0
show no_info%
clear no_infotext%
text no_infotext%,"Cliquer sur une sortie..."
active no_AnnLink%
active no_Tracer%
end_sub

sub annulerlier()
res% = dll_call2("ShowRulersInFlowChart",FC%,0)
DoPoints% = 0
npt% = 0
xarray%(0) = 0
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call3("SelectOutputConnectorOfFlowChartElement",FC%,FCEstart%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
inactive no_AnnLink%
inactive no_Tracer%
hide no_info%
end_sub

sub tracer()
dim_local do1%
' rectangulariser le dernier segment
NatureInput% = dll_call3("GetInputConnectorOfFlowChartElement",FCEdest%,adr(xx%),adr(yy%))
if NatureInput%<>0
if npt%=0
res% = dll_call4("GetOutputConnectorOfFlowChartElement",FCEstart%,output%,adr(xxp%),adr(yyp%))
else
xxp% = xArray%(npt%)
yyp% = yArray%(npt%)
end_if

do1% = 0
if abs(xxp%-xx%)<=DeltaRectangle%
xxp% = xx%
do1% = 1
else
if abs(yyp%-yy%)<=DeltaRectangle%
yyp% = yy%
do1% = 1
end_if
end_if
if do1%=1
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yyp%
end_if
if yyp%>(yy%-DeltaRectangle%)
yyp% = yy% - DeltaRectangle%
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yyp%
end_if
if xxp%<>xx%
xxp% = xx%
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yyp%
end_if
end_if

res% = dll_call6("ConnectElementsOfFlowChart",FC%,FCEstart%,output%,FCEdest%,adr(xArray%),adr(yArray%))
if res%=0 then message "Erreur en créant la connexion"
res% = dll_call2("ShowRulersInFlowChart",FC%,0)
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call3("SelectOutputConnectorOfFlowChartElement",FC%,FCEstart%,0)
' res% = dll_call2("DrawFlowChart",FC%,1)
DoPoints% = 0
npt% = 0
xarray%(0) = 0
inactive no_AnnLink%
inactive no_Tracer%
hide no_info%
end_sub

sub exporter()
dim_local f$
f$ = file_name$(no_export%)
if f$="_" then exit_sub
if instr(".bmp.jpg.gif.png",lower$(file_extract_extension$(f$)))=0
message "Erreur d'extension"
exit_sub
end_if
if file_exists(f$)=1
if message_confirmation_yes_no("Cette image existe déjà? Remplacer ?")<>1 then exit_sub
end_if
res% = dll_call1("CopyFlowChartToClipboard",FC%)
res% = dll_call1("SaveAnyImageFile",adr(f$))
message "L'image est enregistrée dans:"+chr$(13)+chr$(10)+f$
end_sub

sub selectionLien()
DoPoints% = 6
npt% = 0
show no_info%
clear no_infotext%
text no_infotext%,"Cliquer sur un lien..."
res% = dll_call2("DrawFlowChart",FC%,5)
active no_AnnSelLink%
active no_DelLink%
end_sub

sub annulerSelLien()
DoPoints% = 0
npt% = 0
xarray%(0) = 0
res% = dll_call2("SelectLinkInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
inactive no_AnnSelLink%
inactive no_DelLink%
hide no_info%
hide no_info%
end_sub

sub supprimerLien()
res% = dll_call1("DeleteLinkFromFlowChart",FCL%)
hide no_info%
end_sub

Nouvelle version:
en plus des modifications fonctionnelles concernant la sélection des éléments, j'ai levé unne restrictiion absolument ridicule: le nombre de liens identifiables par la sélection de liens était de 255 alors qu'un peut créer autant de liens qu'on veut (dans la limite des 32 bits, tout de même). Ceci est corrigé, sans changement d'apparence ni de fonctionnalité.

Recharger KGF.dll du WebDav, dossier DLLs.
Voici le programme qui gère cela:

Code:: ' FlowChartDesigner.bas

labels()
constantes()
variables()
menu()
cadres()
Objets()

on_user_event UserEvent

end

UserEvent:
if bin_and(user_event_wparam,hex("FF000000"))=hex("0B000000") : ' ScrollImage
pos% = user_event_lparam : ' positon: yyyyxxxx
xxp% = bin_and(pos%,hex("0000FFFF"))
yyp% = pos%/65536

if DoPoints%=5
res% = dll_call4("IdentifyFlowChartElement",FC%,adr(xxp%),adr(yyp%),adr(FCEnew%))
if res%<0 then return
if FCEnew%=FCE%
annulerselection()
return
else
DoPoints% = 0
end_if
end_if
if DoPoints%=0
res% = dll_call4("IdentifyFlowChartElement",FC%,adr(xxp%),adr(yyp%),adr(FCE%))
if res%<0 then return
DoPoints% = 4
active no_AnnSel%
active no_SuppLiens%
hide no_AttributsConnector%
hide no_AttributsAction%
hide no_AttributsCondition%
hide no_AttributsSelection%
hide no_AttributsStart%
hide no_AttributsEnd%
end_if

if DoPoints%>0
if DoPoints%=1
NatureOutput% = dll_call5("IdentifyOutputOfFlowChartElement",FC%,xxp%,yyp%,adr(FCEstart%),adr(output%))
if NatureOutput%<0
message "Ce n'est pas une sortie valide."+chr$(13)+chr$(10)+"Recommencez ou Annulez..."
return
end_if
res% = dll_call3("SelectOutputConnectorOfFlowChartElement",FC%,FCEstart%,output%)
DoPoints% = 2
show no_info%
clear no_infotext%
text no_infotext%,"Cliquez maintenant l'élémént de destination"+chr$(13)+chr$(10)+"ou Annulez..."
return
end_if
if DoPoints%=2
res% = dll_call4("IdentifyFlowChartElement",FC%,adr(xxp%),adr(yyp%),adr(FCEdest%))
if res%<0
message "Ce n'est pas un élément valide."+chr$(13)+chr$(10)+"Recommencez ou Annulez..."
return
end_if
DoPoints% = 3
res% = dll_call2("SelectElementInFlowChart",FC%,FCEdest%)
show no_info%
clear no_infotext%
text no_infotext%,"Cliquez maintenant les points d'étape"+chr$(13)+chr$(10)+"puis Tracez ou Annulez..."
res% = dll_call2("ShowRulersInFlowChart",FC%,1)
return
end_if
if DoPoints%=3
' ici, rectangulariser le tracé
if npt%=0
res% = dll_call4("GetOutputConnectorOfFlowChartElement",FCEstart%,output%,adr(xx%),adr(yy%))
else
xx% = xarray%(npt%)
yy% = yarray%(npt%)
end_if
if (npt%=0) and (NatureOutput%<>0)
if abs(xxp%-xx%)<=DeltaRectangle%
xxp% = xx%
else
if abs(yyp%-yy%)<=DeltaRectangle%
yyp% = yy%
else
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yy%
end_if
end_if
end_if
if npt%>0
if abs(xxp%-xx%)<=DeltaRectangle%
xxp% = xx%
else
if abs(yyp%-yy%)<=DeltaRectangle%
yyp% = yy%
else
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yy%
end_if
end_if
end_if

' mémoriser le point
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yyp%
res% = dll_call3("DrawTemporaryMarkIntoFlowChart",FC%,xxp%,yyp%)
res% = dll_call5("DrawTemporaryLineIntoFlowChart",FC%,xx%,yy%,xxp%,yyp%)
' message "Point "+str$(npt%)+": "+str$(xx%)+","+str$(yy%
end_if
if DoPoints%=4
res% = dll_call4("IdentifyFlowChartElement",FC%,adr(xxp%),adr(yyp%),adr(FCE%))
if res%<0
message "Ce n'est pas un élément valide."
return
end_if
' message "Elément "+nature$(res%)+" identifié"
hide no_info%
DoPoints% = 5
select res%
case 0
show no_AttributsConnector%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Connector_X%),handle(no_Connector_Y%),0,0)
position no_Connector_X%,xxp%
position no_Connector_Y%,yyp%
case 1
res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
show no_AttributsAction%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Action_X%),handle(no_Action_Y%),handle(no_Action_Largeur%),handle(no_Action_Hauteur%))
position no_Action_X%,xxp%
position no_Action_Y%,yyp%
position no_Action_Largeur%,wwp%
position no_Action_Hauteur%,hhp%
text no_action_Couleur%,right$(hex$(ccc%),6)
text no_Action_Titre%,item_read$(no_memo%,1)
item_delete no_memo%,1
clear no_Action_Contenu%
if count(no_memo%)>0
for i%=1 to count(no_memo%)
item_add no_Action_Contenu%,item_read$(no_memo%,i%)
next i%
end_if
case 2
res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
show no_AttributsCondition%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Condition_X%),handle(no_Condition_Y%),handle(no_Action_Largeur%),handle(no_Action_Hauteur%))
position no_Condition_X%,xxp%
position no_Condition_Y%,yyp%
position no_Condition_Largeur%,wwp%
position no_Condition_Hauteur%,hhp%
text no_Condition_Couleur%,right$(hex$(ccc%),6)
text no_Condition_Titre%,item_read$(no_memo%,1)
item_delete no_memo%,1
clear no_Condition_Contenu%
if count(no_memo%)>0
for i%=1 to count(no_memo%)
item_add no_Condition_Contenu%,item_read$(no_memo%,i%)
next i%
end_if
case 3
res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
show no_AttributsSelection%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Selection_X%),handle(no_Selection_Y%),handle(no_Selection_Largeur%),handle(no_Selection_Hauteur%))
position no_Selection_X%,xxp%
position no_Selection_Y%,yyp%
position no_Selection_Largeur%,wwp%
position no_Selection_Hauteur%,hhp%
text no_Selection_Couleur%,right$(hex$(ccc%),6)
text no_Selection_Titre%,item_read$(no_memo%,1)
item_delete no_memo%,1
clear no_Selection_Contenu%
if count(no_memo%)>0
for i%=1 to count(no_memo%)
item_add no_Selection_Contenu%,item_read$(no_memo%,i%)
next i%
end_if
case 4
res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
show no_AttributsStart%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Start_X%),handle(no_Start_Y%),handle(no_Start_Largeur%),handle(no_Start_Hauteur%))
position no_Start_X%,xxp%
position no_Start_Y%,yyp%
position no_Start_Largeur%,wwp%
position no_Start_Hauteur%,hhp%
text no_Start_Couleur%,right$(hex$(ccc%),6)
case 5
res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
show no_AttributsEnd%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_End_X%),handle(no_End_Y%),handle(no_End_Largeur%),handle(no_End_Hauteur%))
position no_End_X%,xxp%
position no_End_Y%,yyp%
position no_End_Largeur%,wwp%
position no_End_Hauteur%,hhp%
text no_End_Couleur%,right$(hex$(ccc%),6)
end_select
res% = dll_call2("SelectElementInFlowChart",FC%,FCE%)
end_if
if DoPoints%=6
res% = dll_call4("IdentifyFlowChartLink",FC%,xxp%,yyp%,adr(FCL%))
if res%<0
message "Ce n'est pas un lien valide."
DoPoints% = 0
res% = dll_call2("DrawFlowChart",FC%,1)
return
end_if
' message "Lien "+str$(res%)+" identifié"

res% = dll_call2("SelectLinkInFlowChart",FC%,FCL%)
DoPoints% = 0
res% = dll_call2("DrawFlowChart",FC%,5)
end_if
end_if
end_if

return

sortir:
terminate

AddConnector:
AddConnector()
return

AddAction:
AddAction()
return

AddCondition:
AddCondition()
return

AddSelector:
AddSelector()
return

AddStart:
AddStart()
return

AddEnd:
AddEnd()
return

selectionner:
selectionner()
return

valider_connector:
valider_connector()
return

valider_action:
valider_action()
return

valider_Condition:
valider_Condition()
return

annulerselection:
annulerselection()
return

supprimerliens:
supprimerliens()
return

valider_Selection:
valider_Selection()
return

valider_start:
valider_start()
return

valider_end:
valider_end()
return

nouveauprojet:
nouveauprojet()
return

ouvrirprojet:
ouvrirprojet()
return

enregistrerprojet:
enregistrerprojet()
return

enregistrersousprojet:
enregistrersousprojet()
return

lier:
lier()
return

annulerlier:
annulerlier()
return

tracer:
tracer()
return

exporter:
exporter()
return

selectionLien:
selectionLien()
return

annulerSelLien:
annulerSelLien()
return

supprimerLien:
supprimerLien()
return

sub labels()
label AddConnector, AddAction, AddCondition, AddSelector, AddStart, AddEnd
label valider_connector, valider_action, valider_Condition, valider_Selection
label valider_Start, valider_End
label selectionner, annulerselection, supprimerliens, UserEvent, sortir
label selectionLien, annulerSelLien, supprimerLien
label nouveauprojet, ouvrirprojet, enregistrerprojet, enregistrersousprojet
label lier, annulerlier, tracer, exporter
end_sub

sub constantes()
dim KGF$ : KGF$ = "KGF.dll"
dim M1% : M1% = 0-1
dim DeltaRectangle% : DeltaRectangle% = 10
dim LignesDeVisee% : ' nombre de lignes de visée (0, 1 ou 2)
LignesDeVisee% = 2
dim nature$(6)
nature$(0) = "Connector"
nature$(1) = "Action"
nature$(2) = "Condition"
nature$(3) = "Selector"
nature$(4) = "Start"
nature$(5) = "End"
end_sub

sub variables()
dim res%, DoPoints%, pos%, xxp%, yyp%, titre$, wwp%, hhp%, i%, ccc%, output%
dim xx%, yy%, NatureOutput%, NatureInput%
dim npt%, xarray%(100),yarray%(100)
dim no%, no1%, no2%, no_cElements%, no_AnnSel%, no_SuppLiens%, no_memo%, no_open%, no_save%
dim no_AttributsConnector%, no_AttributsAction%, no_AttributsCondition%
dim no_AttributsSelection%, no_AttributsStart%, no_AttributsEnd%
dim no_Connector_X%, no_Connector_Y%, no_AnnLink%, no_Tracer% , no_Info%, no_infotext%
dim no_Action_X%, no_Action_Y%, no_Action_Titre%, no_action_Couleur%
dim no_Action_Largeur%, no_Action_Hauteur%, no_Action_Contenu%, no_export%
dim no_Condition_X%, no_Condition_Y%, no_Condition_Titre%, no_condition_Couleur%
dim no_Condition_Largeur%, no_Condition_Hauteur%, no_Condition_Contenu%
dim no_Selection_X%, no_Selection_Y%, no_Selection_Titre%, no_selection_Couleur%
dim no_Selection_Largeur%, no_Selection_Hauteur%, no_Selection_Contenu%
dim no_Start_X%, no_Start_Y%, no_Start_Largeur%, no_Start_Hauteur%, no_start_Couleur%
dim no_End_X%, no_End_Y%, no_End_Largeur%, no_End_Hauteur%, no_end_Couleur%
dim no_AnnSelLink%, no_DelLink%
dim FC%, FCE%, FCEstart%, FCEdest%, FCL%, FCEnew%
dim projet$
end_sub

sub menu()
no% = no% + 1 : main_menu no% : no1% = no%
no% = no% + 1 : sub_menu no% : parent no%,no1% : no2% = no% : caption no%,"Fichier"
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Nouveau" : on_click no%,nouveauprojet
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Ouvrir..." : on_click no%,ouvrirprojet
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Enregistrer" : on_click no%,enregistrerprojet
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Enregistrer sous..." : on_click no%,enregistrersousprojet
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Exporter..." : on_click no%,exporter
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"-"
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Sortir" : on_click no%,sortir
end_sub

sub cadres()
dim_local hnd%
dll_on KGF$
no% = no% + 1 : form no% : hide no% : no_info% = no% : width no%,400 : height no%,200
no% = no% + 1 : memo no% : no_infotext% = no% : parent no%,no_info% : full_space no% : bar_both no% : font_size no%,12

no% = no% + 1 : container no% : no_cElements% = no% : width no%,200 : caption no%,"Eléments"
FC% = dll_call6("CreateFlowChart",handle(0),0,0,0,0,LignesDeVisee%)
full_space 0
res% = dll_call5("LocateFlowChart",FC%,width(no_cElements%),0,width_client(0)-width(no_cElements%),height_client(0))
height no_cElements%,350
res% = dll_call2("ShowRulersInFlowChart",FC%,0)
top no_info%,0 : left no_info%,width_client(0)-width(no_info%)-width(no_cElements%)

hnd% = dll_call1("GetHandleOfFlowChart",FC%)
res% = dll_call3("SetFormParent",handle(no_info%),hnd%,0)

no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Début"
top no%,15 : left no%,10 : on_click no%,AddStart
no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Connecteur"
top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddConnector
no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Action"
top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddAction
no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Condition"
top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddCondition
no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Selecteur"
top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddSelector
no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Fin"
top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddEnd

no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Sélectionner"
top no%,top(no%-1)+height(no%-1)+10 : left no%,10 : on_click no%,selectionner
no% = no% + 1 : button no% : parent no%,no_cElements% : no_AnnSel% = no% : caption no%,"Annuler" : inactive no%
top no%,top(no%-1) : left no%,left(no%-1)+width(no%-1) : on_click no%,annulerselection
no% = no% + 1 : button no% : parent no%,no_cElements% : no_SuppLiens% = no% : caption no%,"Supprimer lien" : inactive no%
top no%,top(no%-1)+height(no%-1) : left no%,left(no%-1) : on_click no%,supprimerliens

no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Lier"
top no%,top(no%-1)+height(no%-1)+10 : left no%,10 : on_click no%,lier
no% = no% + 1 : button no% : parent no%,no_cElements% : no_AnnLink% = no% : caption no%,"Annuler" : inactive no%
top no%,top(no%-1) : left no%,left(no%-1)+width(no%-1) : on_click no%,annulerlier
no% = no% + 1 : button no% : parent no%,no_cElements% : no_Tracer% = no% : caption no%,"Tracer" : inactive no%
top no%,top(no%-1)+height(no%-1) : left no%,10 : width no%,width(no%-2)+width(no%-1) : on_click no%,tracer

no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Sel. Lien"
top no%,top(no%-1)+height(no%-1)+10 : left no%,10 : on_click no%,selectionLien
no% = no% + 1 : button no% : parent no%,no_cElements% : no_AnnSelLink% = no% : caption no%,"Annuler" : inactive no%
top no%,top(no%-1) : left no%,left(no%-1)+width(no%-1) : on_click no%,annulerSelLien
no% = no% + 1 : button no% : parent no%,no_cElements% : no_DelLink% = no% : caption no%,"Supprimer lien" : inactive no%
top no%,top(no%-1)+height(no%-1) : left no%,10 : width no%,width(no%-2)+width(no%-1) : on_click no%,supprimerLien

' attributs Connector
no% = no% + 1 : container no% : no_AttributsConnector% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Connector" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsConnector% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_Connector_X% = no% : parent no%,no_AttributsConnector% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsConnector% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_Connector_Y% = no% : parent no%,no_AttributsConnector% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : button no% : parent no%,no_AttributsConnector% : top no%,height(no_AttributsConnector%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_connector

' attributs Action
no% = no% + 1 : container no% : no_AttributsAction% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Action" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_Action_X% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_Action_Y% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_Action_Largeur% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Hauteur:"
no% = no% + 1 : spin no% : no_Action_Hauteur% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_Action_Couleur% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Titre:"
no% = no% + 1 : edit no% : no_Action_Titre% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
width no%,110
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Contenu:"
no% = no% + 1 : memo no% : no_Action_Contenu% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+15 : left no%,10
width no%,180 : bar_both no%
no% = no% + 1 : button no% : parent no%,no_AttributsAction% : top no%,height(no_AttributsAction%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_action

' attributs Condition
no% = no% + 1 : container no% : no_AttributsCondition% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Condition" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_Condition_X% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_Condition_Y% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_Condition_Largeur% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Hauteur:"
no% = no% + 1 : spin no% : no_Condition_Hauteur% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_Condition_Couleur% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Titre:"
no% = no% + 1 : edit no% : no_Condition_Titre% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
width no%,110
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Contenu:"
no% = no% + 1 : memo no% : no_Condition_Contenu% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+15 : left no%,10
width no%,180 : bar_both no%
no% = no% + 1 : button no% : parent no%,no_AttributsCondition% : top no%,height(no_AttributsCondition%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_Condition

' attributs Selection
no% = no% + 1 : container no% : no_AttributsSelection% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Selection" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_Selection_X% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_Selection_Y% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_Selection_Largeur% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Hauteur:"
no% = no% + 1 : spin no% : no_Selection_Hauteur% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_Selection_Couleur% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Titre:"
no% = no% + 1 : edit no% : no_Selection_Titre% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
width no%,110
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Contenu:"
no% = no% + 1 : memo no% : no_Selection_Contenu% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+15 : left no%,10
width no%,180 : bar_both no%
no% = no% + 1 : button no% : parent no%,no_AttributsSelection% : top no%,height(no_AttributsSelection%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_Selection

' attributs Start
no% = no% + 1 : container no% : no_AttributsStart% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Start" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_Start_X% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_Start_Y% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_Start_Largeur% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Hauteur:"
no% = no% + 1 : spin no% : no_Start_Hauteur% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_Start_Couleur% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : button no% : parent no%,no_AttributsStart% : top no%,height(no_AttributsStart%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_Start

' attributs End
no% = no% + 1 : container no% : no_AttributsEnd% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs End" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_End_X% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_End_Y% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_End_Largeur% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Hauteur:"
no% = no% + 1 : spin no% : no_End_Hauteur% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_End_Couleur% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : button no% : parent no%,no_AttributsEnd% : top no%,height(no_AttributsEnd%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_End

end_sub

sub Objets()
no% = no% + 1 : memo no% : no_memo% = no% : hide no% : bar_both no%
no% = no% + 1 : open_dialog no% : no_open% = no% : filter no%,"Projet FlowChart (*.FCproj)|*.FCproj"
no% = no% + 1 : save_dialog no% : no_save% = no% : filter no%,"Projet FlowChart (*.FCproj)|*.FCproj"
no% = no% + 1 : save_dialog no% : no_export% = no% : filter no%,"Images (BMP,JPG,GIF,PNG)|*.BMP;*.JPG;*.GIF;*.PNG"
end_sub

sub AddConnector()
FCE% = dll_call4("AddElementToFlowChart",FC%,0,0,0)
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,20,20)
res% = dll_call2("DrawFlowChart",FC%,1)
position no_Connector_X%,0
position no_Connector_Y%,0
annulerselection()
' show no_AttributsConnector%
end_sub

sub AddAction()
dim_local titre$
titre$ = "Action"
FCE% = dll_call4("AddElementToFlowChart",FC%,1,hex("FFFF00"),adr(titre$))
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,300,200)
res% = dll_call2("DrawFlowChart",FC%,1)
position no_Action_X%,0
position no_Action_Y%,0
position no_Action_Largeur%,300
position no_Action_Hauteur%,200
text no_action_Couleur%,"FFFF00"
text no_Action_Titre%,titre$
clear no_Action_Contenu%
annulerselection()
' show no_AttributsAction%
end_sub

sub AddCondition()
dim_local titre$
titre$ = "Condition ?"
FCE% = dll_call4("AddElementToFlowChart",FC%,2,hex("0000FF"),adr(titre$))
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,300,100)
clear no_memo%
item_add no_memo%,"."
item_add no_memo%,"Oui"
item_add no_memo%,"Non"
res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,0,handle(no_memo%))
res% = dll_call2("DrawFlowChart",FC%,1)
position no_Condition_X%,0
position no_Condition_Y%,0
position no_Condition_Largeur%,300
position no_Condition_Hauteur%,100
text no_Condition_Couleur%,"0000FF"
text no_Condition_Titre%,titre$
clear no_Condition_Contenu%
item_add no_Condition_Contenu%,"Oui"
item_add no_Condition_Contenu%,"."
item_add no_Condition_Contenu%,"Non"
annulerselection()
' show no_AttributsCondition%
end_sub

sub AddSelector()
dim_local titre$
titre$ = "Sélection"
FCE% = dll_call4("AddElementToFlowChart",FC%,3,hex("0000FF"),adr(titre$))
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,300,100)
clear no_memo%
item_add no_memo%,"1"
item_add no_memo%,"2"
item_add no_memo%,"3"
res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,0,handle(no_memo%))
res% = dll_call2("DrawFlowChart",FC%,1)
position no_Selection_X%,0
position no_Selection_Y%,0
position no_Selection_Largeur%,300
position no_Selection_Hauteur%,100
text no_Selection_Couleur%,"0000FF"
text no_Selection_Titre%,titre$
clear no_Selection_Contenu%
item_add no_Selection_Contenu%,"1"
item_add no_Selection_Contenu%,"2"
item_add no_Selection_Contenu%,"3"
annulerselection()
' show no_AttributsSelection%
end_sub

sub AddStart()
dim_local titre$
titre$ = "Début"
FCE% = dll_call4("AddElementToFlowChart",FC%,4,hex("F0F0F0"),adr(titre$))
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,100,100)
res% = dll_call2("DrawFlowChart",FC%,1)
position no_Start_X%,0
position no_Start_Y%,0
position no_Start_Largeur%,100
position no_Start_Hauteur%,100
text no_Start_Couleur%,"F0F0F0"
annulerselection()
' show no_AttributsStart%
end_sub

sub AddEnd()
dim_local titre$
titre$ = "Arrêt"
FCE% = dll_call4("AddElementToFlowChart",FC%,5,hex("F0F0F0"),adr(titre$))
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,100,100)
res% = dll_call2("DrawFlowChart",FC%,1)
position no_End_X%,0
position no_End_Y%,0
position no_End_Largeur%,100
position no_End_Hauteur%,100
text no_End_Couleur%,"F0F0F0"
annulerselection()
' show no_AttributsEnd%
end_sub

sub selectionner()
show no_info%
clear no_infotext%
text no_infotext%,"Sélectionner un élément en cliquant dessus..."
DoPoints% = 4
active no_AnnSel%
active no_SuppLiens%
hide no_AttributsConnector%
hide no_AttributsAction%
hide no_AttributsCondition%
hide no_AttributsSelection%
hide no_AttributsStart%
hide no_AttributsEnd%
end_sub

sub annulerselection()
DoPoints% = 0
inactive no_AnnSel%
inactive no_SuppLiens%
hide no_AttributsConnector%
hide no_AttributsAction%
hide no_AttributsCondition%
hide no_AttributsSelection%
hide no_AttributsStart%
hide no_AttributsEnd%
res% = dll_call2("SelectElementInFlowChart",FC%,0)
hide no_info%
end_sub

sub supprimerliens()
res% = dll_call2("RemoveAllLinksFromFlowChartElement",FC%,FCE%)
end_sub

sub valider_connector()
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Connector_X%),position(no_Connector_Y%),M1%,M1%)
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsConnector%
end_sub

sub valider_action()
dim_local titre$
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Action_X%),position(no_Action_Y%),position(no_Action_Largeur%),position(no_Action_Hauteur%))
titre$ = trim$(text$(no_Action_Titre%))
res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,adr(titre$),handle(no_Action_Contenu%))
res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_Action_couleur%)))
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsAction%
end_sub

sub valider_Condition()
dim_local titre$
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Condition_X%),position(no_Condition_Y%),position(no_Condition_Largeur%),position(no_Condition_Hauteur%))
titre$ = trim$(text$(no_Condition_Titre%))
res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,adr(titre$),handle(no_Condition_Contenu%))
res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_Condition_couleur%)))
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsCondition%
end_sub

sub valider_Selection()
dim_local titre$
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Selection_X%),position(no_Selection_Y%),position(no_Selection_Largeur%),position(no_Selection_Hauteur%))
titre$ = trim$(text$(no_Selection_Titre%))
res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,adr(titre$),handle(no_Selection_Contenu%))
res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_Selection_couleur%)))
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsSelection%
end_sub

sub valider_Start()
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Start_X%),position(no_Start_Y%),position(no_Start_Largeur%),position(no_Start_Hauteur%))
res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_Start_couleur%)))
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsStart%
end_sub

sub valider_End()
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_End_X%),position(no_End_Y%),position(no_End_Largeur%),position(no_End_Hauteur%))
res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_End_couleur%)))
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsEnd%
end_sub

sub nouveauprojet()
FC% = dll_call1("DeleteFlowChart",FC%)
FC% = dll_call6("CreateFlowChart",handle(0),0,0,0,0,LignesDeVisee%)
full_space 0
res% = dll_call5("LocateFlowChart",FC%,width(no_cElements%),0,width_client(0)-width(no_cElements%),height_client(0))
' height no_cElements%,300
projet$ = ""
end_sub

sub ouvrirprojet()
dim_local prj$
prj$ = file_name$(no_save%)
if prj$="_" then exit_sub
if lower$(file_extract_extension$(prj$))<>".fcproj"
message "Extension erronnée (*.FCproj)"
exit_sub
end_if
if file_exists(prj$)=0
message("Ce fichier n'existe pas."
exit_sub
end_if

nouveauprojet()
res% = dll_call2("LoadFlowChartProject",FC%,adr(prj$))
if res%<0
message "Erreur en chargement"
else
message "Le projet a été chargé:"+chr$(13)+chr$(10)+prj$
projet$ = prj$
end_if
end_sub

sub enregistrerprojet()
dim_local prj$
if projet$=""
enregistrersousprojet()
exit_sub
end_if
prj$ = projet$
if file_exists(prj$)=1 then file_delete prj$
res% = dll_call2("SaveFlowChartProject",FC%,adr(prj$))
if res%<0
message "Erreur en sauvegarde"
else
message "Le ficher a été créé:"+chr$(13)+chr$(10)+prj$
projet$ = prj$
end_if
end_sub

sub enregistrersousprojet()
dim_local prj$
prj$ = file_name$(no_save%)
if prj$="_" then exit_sub
if lower$(file_extract_extension$(prj$))<>".fcproj"
message "Extension erronnée (*.FCproj)"
exit_sub
end_if
if file_exists(prj$)=1
if message_confirmation_yes_no("Ce fichier existe déjà. Remplacer ?")<>1 then exit_sub
file_delete prj$
end_if
res% = dll_call2("SaveFlowChartProject",FC%,adr(prj$))
if res%<0
message "Erreur en sauvegarde"
else
message "Le ficher a été créé:"+chr$(13)+chr$(10)+prj$
projet$ = prj$
end_if
end_sub

sub lier()
DoPoints% = 1
npt% = 0
show no_info%
clear no_infotext%
text no_infotext%,"Cliquer sur une sortie..."
active no_AnnLink%
active no_Tracer%
end_sub

sub annulerlier()
res% = dll_call2("ShowRulersInFlowChart",FC%,0)
DoPoints% = 0
npt% = 0
xarray%(0) = 0
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call3("SelectOutputConnectorOfFlowChartElement",FC%,FCEstart%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
inactive no_AnnLink%
inactive no_Tracer%
hide no_info%
end_sub

sub tracer()
dim_local do1%
' rectangulariser le dernier segment
NatureInput% = dll_call3("GetInputConnectorOfFlowChartElement",FCEdest%,adr(xx%),adr(yy%))
if NatureInput%<>0
if npt%=0
res% = dll_call4("GetOutputConnectorOfFlowChartElement",FCEstart%,output%,adr(xxp%),adr(yyp%))
else
xxp% = xArray%(npt%)
yyp% = yArray%(npt%)
end_if

do1% = 0
if abs(xxp%-xx%)<=DeltaRectangle%
xxp% = xx%
do1% = 1
else
if abs(yyp%-yy%)<=DeltaRectangle%
yyp% = yy%
do1% = 1
end_if
end_if
if do1%=1
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yyp%
end_if
if yyp%>(yy%-DeltaRectangle%)
yyp% = yy% - DeltaRectangle%
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yyp%
end_if
if xxp%<>xx%
xxp% = xx%
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yyp%
end_if
end_if

res% = dll_call6("ConnectElementsOfFlowChart",FC%,FCEstart%,output%,FCEdest%,adr(xArray%),adr(yArray%))
if res%=0 then message "Erreur en créant la connexion"
res% = dll_call2("ShowRulersInFlowChart",FC%,0)
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call3("SelectOutputConnectorOfFlowChartElement",FC%,FCEstart%,0)
' res% = dll_call2("DrawFlowChart",FC%,1)
DoPoints% = 0
npt% = 0
xarray%(0) = 0
inactive no_AnnLink%
inactive no_Tracer%
hide no_info%
end_sub

sub exporter()
dim_local f$
f$ = file_name$(no_export%)
if f$="_" then exit_sub
if instr(".bmp.jpg.gif.png",lower$(file_extract_extension$(f$)))=0
message "Erreur d'extension"
exit_sub
end_if
if file_exists(f$)=1
if message_confirmation_yes_no("Cette image existe déjà? Remplacer ?")<>1 then exit_sub
end_if
res% = dll_call1("CopyFlowChartToClipboard",FC%)
res% = dll_call1("SaveAnyImageFile",adr(f$))
message "L'image est enregistrée dans:"+chr$(13)+chr$(10)+f$
end_sub

sub selectionLien()
DoPoints% = 6
npt% = 0
show no_info%
clear no_infotext%
text no_infotext%,"Cliquer sur un lien..."
res% = dll_call2("DrawFlowChart",FC%,5)
active no_AnnSelLink%
active no_DelLink%
end_sub

sub annulerSelLien()
DoPoints% = 0
npt% = 0
xarray%(0) = 0
res% = dll_call2("SelectLinkInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
inactive no_AnnSelLink%
inactive no_DelLink%
hide no_info%
hide no_info%
end_sub

sub supprimerLien()
res% = dll_call1("DeleteLinkFromFlowChart",FCL%)
hide no_info%
end_sub

Un petit exemple d'application: un arbre généalogique entièrement dessiné avec cet outil, de façon interactive. Cet exemple montre un homme marié avec 3 enfants, puis divorcé et remarié avec 2 enfants. On peut compléter les cases à l'envie, avec les informations pertinentes: date de naissance, date de mariage et divorce, lieu de naissance, ...

Voici le fichier Généalogie.FCproj:

Spoiler:

Et voici le résultat:
Un essai de construction d'organigramme par Panoramic - Page 4 Aa153

Bonjour Klaus !

J'ai pris quelques minutes pour tester... Et je confirme que c'est fonctionnel et intuitif !
L'exemple que tu présente est une très bonne approche pour ton logiciel.
Un grand BRAVO ! cheers

Bravo plus qu'à l'associer à ta BDDR pour que l'arbre se construise tout seul 'autour' d'une personne sélectionnée sur un nombre de générations paramétrable... Wink

Bon en tous cas, c'est encore une belle réussite.

Bravo Klaus !

Très belle avancée !

C'est super !

Merci !

Tenez, voici une version légèrement améliorée pourmieux gérer les transitions entre sélection d'éléments, sélection de liens et oahse de création de liens. En plus, maintenant, lorsqu'on est en "Selection de lien", on peut cliquer les différents liens pour passer d'un lien à un autre, comme c'est le cas pour la sélection des éléments.

Code:: ' FlowChartDesigner.bas

labels()
constantes()
variables()
menu()
cadres()
Objets()

on_user_event UserEvent

end

UserEvent:
  if bin_and(user_event_wparam,hex("FF000000"))=hex("0B000000") : ' ScrollImage
   pos% = user_event_lparam : ' positon: yyyyxxxx
   xxp% = bin_and(pos%,hex("0000FFFF"))
   yyp% = pos%/65536

   if DoPoints%=5
   res% = dll_call4("IdentifyFlowChartElement",FC%,adr(xxp%),adr(yyp%),adr(FCEnew%))
   if res%<0 then return
   if FCEnew%=FCE%
   annulerselection()
   return
   else
   DoPoints% = 0
   annulerSelLien()
   end_if
   end_if
   if DoPoints%=0
   res% = dll_call4("IdentifyFlowChartElement",FC%,adr(xxp%),adr(yyp%),adr(FCE%))
   if res%<0 then return
   annulerSelLien()
   DoPoints% = 4
   active no_AnnSel%
   active no_SuppLiens%
   hide no_AttributsConnector%
   hide no_AttributsAction%
   hide no_AttributsCondition%
   hide no_AttributsSelection%
   hide no_AttributsStart%
   hide no_AttributsEnd%
   end_if

   if DoPoints%>0
   if DoPoints%=1
   NatureOutput% = dll_call5("IdentifyOutputOfFlowChartElement",FC%,xxp%,yyp%,adr(FCEstart%),adr(output%))
   if NatureOutput%<0
   message "Ce n'est pas une sortie valide."+chr$(13)+chr$(10)+"Recommencez ou Annulez..."
   return
   end_if
   res% = dll_call3("SelectOutputConnectorOfFlowChartElement",FC%,FCEstart%,output%)
   DoPoints% = 2
   show no_info%
   clear no_infotext%
   text no_infotext%,"Cliquez maintenant l'élémént de destination"+chr$(13)+chr$(10)+"ou Annulez..."
   return
   end_if
   if DoPoints%=2
   res% = dll_call4("IdentifyFlowChartElement",FC%,adr(xxp%),adr(yyp%),adr(FCEdest%))
   if res%<0
   message "Ce n'est pas un élément valide."+chr$(13)+chr$(10)+"Recommencez ou Annulez..."
   return
   end_if
   DoPoints% = 3
   res% = dll_call2("SelectElementInFlowChart",FC%,FCEdest%)
   show no_info%
   clear no_infotext%
   text no_infotext%,"Cliquez maintenant les points d'étape"+chr$(13)+chr$(10)+"puis Tracez ou Annulez..."
   res% = dll_call2("ShowRulersInFlowChart",FC%,1)
   return
   end_if
   if DoPoints%=3
   ' ici, rectangulariser le tracé
   if npt%=0
   res% = dll_call4("GetOutputConnectorOfFlowChartElement",FCEstart%,output%,adr(xx%),adr(yy%))
   else
   xx% = xarray%(npt%)
   yy% = yarray%(npt%)
   end_if
   if (npt%=0) and (NatureOutput%<>0)
   if abs(xxp%-xx%)<=DeltaRectangle%
   xxp% = xx%
   else
   if abs(yyp%-yy%)<=DeltaRectangle%
   yyp% = yy%
   else
   npt% = npt% + 1
   xarray%(0) = npt%
   xarray%(npt%) = xxp%
   yarray%(npt%) = yy%
   end_if
   end_if
   end_if
   if npt%>0
   if abs(xxp%-xx%)<=DeltaRectangle%
   xxp% = xx%
   else
   if abs(yyp%-yy%)<=DeltaRectangle%
   yyp% = yy%
   else
   npt% = npt% + 1
   xarray%(0) = npt%
   xarray%(npt%) = xxp%
   yarray%(npt%) = yy%
   end_if
   end_if
   end_if

   ' mémoriser le point
   npt% = npt% + 1
   xarray%(0) = npt%
   xarray%(npt%) = xxp%
   yarray%(npt%) = yyp%
   res% = dll_call3("DrawTemporaryMarkIntoFlowChart",FC%,xxp%,yyp%)
   res% = dll_call5("DrawTemporaryLineIntoFlowChart",FC%,xx%,yy%,xxp%,yyp%)
' message "Point "+str$(npt%)+": "+str$(xx%)+","+str$(yy%
   end_if
   if DoPoints%=4
   res% = dll_call4("IdentifyFlowChartElement",FC%,adr(xxp%),adr(yyp%),adr(FCE%))
   if res%<0
   message "Ce n'est pas un élément valide."
   return
   end_if
' message "Elément "+nature$(res%)+" identifié"
   hide no_info%
   DoPoints% = 5
   select res%
   case 0
   show no_AttributsConnector%
   res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Connector_X%),handle(no_Connector_Y%),0,0)
   position no_Connector_X%,xxp%
   position no_Connector_Y%,yyp%
   case 1
   res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
   show no_AttributsAction%
   res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Action_X%),handle(no_Action_Y%),handle(no_Action_Largeur%),handle(no_Action_Hauteur%))
   position no_Action_X%,xxp%
   position no_Action_Y%,yyp%
   position no_Action_Largeur%,wwp%
   position no_Action_Hauteur%,hhp%
   text no_action_Couleur%,right$(hex$(ccc%),6)
   text no_Action_Titre%,item_read$(no_memo%,1)
   item_delete no_memo%,1
   clear no_Action_Contenu%
   if count(no_memo%)>0
   for i%=1 to count(no_memo%)
   item_add no_Action_Contenu%,item_read$(no_memo%,i%)
   next i%
   end_if
   case 2
   res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
   show no_AttributsCondition%
   res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Condition_X%),handle(no_Condition_Y%),handle(no_Action_Largeur%),handle(no_Action_Hauteur%))
   position no_Condition_X%,xxp%
   position no_Condition_Y%,yyp%
   position no_Condition_Largeur%,wwp%
   position no_Condition_Hauteur%,hhp%
   text no_Condition_Couleur%,right$(hex$(ccc%),6)
   text no_Condition_Titre%,item_read$(no_memo%,1)
   item_delete no_memo%,1
   clear no_Condition_Contenu%
   if count(no_memo%)>0
   for i%=1 to count(no_memo%)
   item_add no_Condition_Contenu%,item_read$(no_memo%,i%)
   next i%
   end_if
   case 3
   res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
   show no_AttributsSelection%
   res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Selection_X%),handle(no_Selection_Y%),handle(no_Selection_Largeur%),handle(no_Selection_Hauteur%))
   position no_Selection_X%,xxp%
   position no_Selection_Y%,yyp%
   position no_Selection_Largeur%,wwp%
   position no_Selection_Hauteur%,hhp%
   text no_Selection_Couleur%,right$(hex$(ccc%),6)
   text no_Selection_Titre%,item_read$(no_memo%,1)
   item_delete no_memo%,1
   clear no_Selection_Contenu%
   if count(no_memo%)>0
   for i%=1 to count(no_memo%)
   item_add no_Selection_Contenu%,item_read$(no_memo%,i%)
   next i%
   end_if
   case 4
   res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
   show no_AttributsStart%
   res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Start_X%),handle(no_Start_Y%),handle(no_Start_Largeur%),handle(no_Start_Hauteur%))
   position no_Start_X%,xxp%
   position no_Start_Y%,yyp%
   position no_Start_Largeur%,wwp%
   position no_Start_Hauteur%,hhp%
   text no_Start_Couleur%,right$(hex$(ccc%),6)
   case 5
   res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
   show no_AttributsEnd%
   res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_End_X%),handle(no_End_Y%),handle(no_End_Largeur%),handle(no_End_Hauteur%))
   position no_End_X%,xxp%
   position no_End_Y%,yyp%
   position no_End_Largeur%,wwp%
   position no_End_Hauteur%,hhp%
   text no_End_Couleur%,right$(hex$(ccc%),6)
   end_select
   res% = dll_call2("SelectElementInFlowChart",FC%,FCE%)
   end_if
   if DoPoints%=6
   res% = dll_call4("IdentifyFlowChartLink",FC%,xxp%,yyp%,adr(FCL%))
   if res%<0
   message "Ce n'est pas un lien valide."
   res% = dll_call2("DrawFlowChart",FC%,1)
   return
   end_if
' message "Lien "+str$(res%)+" identifié"

   res% = dll_call2("SelectLinkInFlowChart",FC%,FCL%)
   res% = dll_call2("DrawFlowChart",FC%,5)
   end_if
   end_if
  end_if

  return

sortir:
  terminate

AddConnector:
  AddConnector()
  return

AddAction:
  AddAction()
  return

AddCondition:
  AddCondition()
  return

AddSelector:
  AddSelector()
  return

AddStart:
  AddStart()
  return

AddEnd:
  AddEnd()
  return

selectionner:
  selectionner()
  return

valider_connector:
  valider_connector()
  return

valider_action:
  valider_action()
  return

valider_Condition:
  valider_Condition()
  return

annulerselection:
  annulerselection()
  return

supprimerliens:
  supprimerliens()
  return

valider_Selection:
  valider_Selection()
  return

valider_start:
  valider_start()
  return

valider_end:
  valider_end()
  return

nouveauprojet:
  nouveauprojet()
  return

ouvrirprojet:
  ouvrirprojet()
  return

enregistrerprojet:
  enregistrerprojet()
  return

enregistrersousprojet:
  enregistrersousprojet()
  return

lier:
  lier()
  return

annulerlier:
  annulerlier()
  return

tracer:
  tracer()
  return

exporter:
  exporter()
  return

selectionLien:
  selectionLien()
  return

annulerSelLien:
  annulerSelLien()
  return

supprimerLien:
  supprimerLien()
  return

sub labels()
  label AddConnector, AddAction, AddCondition, AddSelector, AddStart, AddEnd
  label valider_connector, valider_action, valider_Condition, valider_Selection
  label valider_Start, valider_End
  label selectionner, annulerselection, supprimerliens, UserEvent, sortir
  label selectionLien, annulerSelLien, supprimerLien
  label nouveauprojet, ouvrirprojet, enregistrerprojet, enregistrersousprojet
  label lier, annulerlier, tracer, exporter
end_sub

sub constantes()
  dim KGF$ : KGF$ = "KGF.dll"
  dim M1% : M1% = 0-1
  dim DeltaRectangle% : DeltaRectangle% = 10
  dim LignesDeVisee% : ' nombre de lignes de visée (0, 1 ou 2)
   LignesDeVisee% = 2
  dim nature$(6)
   nature$(0) = "Connector"
   nature$(1) = "Action"
   nature$(2) = "Condition"
   nature$(3) = "Selector"
   nature$(4) = "Start"
   nature$(5) = "End"
end_sub

sub variables()
  dim res%, DoPoints%, pos%, xxp%, yyp%, titre$, wwp%, hhp%, i%, ccc%, output%
  dim xx%, yy%, NatureOutput%, NatureInput%
  dim npt%, xarray%(100),yarray%(100)
  dim no%, no1%, no2%, no_cElements%, no_AnnSel%, no_SuppLiens%, no_memo%, no_open%, no_save%
  dim no_AttributsConnector%, no_AttributsAction%, no_AttributsCondition%
  dim no_AttributsSelection%, no_AttributsStart%, no_AttributsEnd%
  dim no_Connector_X%, no_Connector_Y%, no_AnnLink%, no_Tracer% , no_Info%, no_infotext%
  dim no_Action_X%, no_Action_Y%, no_Action_Titre%, no_action_Couleur%
  dim no_Action_Largeur%, no_Action_Hauteur%, no_Action_Contenu%, no_export%
  dim no_Condition_X%, no_Condition_Y%, no_Condition_Titre%, no_condition_Couleur%
  dim no_Condition_Largeur%, no_Condition_Hauteur%, no_Condition_Contenu%
  dim no_Selection_X%, no_Selection_Y%, no_Selection_Titre%, no_selection_Couleur%
  dim no_Selection_Largeur%, no_Selection_Hauteur%, no_Selection_Contenu%
  dim no_Start_X%, no_Start_Y%, no_Start_Largeur%, no_Start_Hauteur%, no_start_Couleur%
  dim no_End_X%, no_End_Y%, no_End_Largeur%, no_End_Hauteur%, no_end_Couleur%
  dim no_AnnSelLink%, no_DelLink%
  dim FC%, FCE%, FCEstart%, FCEdest%, FCL%, FCEnew%
  dim projet$
end_sub

sub menu()
  no% = no% + 1 : main_menu no% : no1% = no%
   no% = no% + 1 : sub_menu no% : parent no%,no1% : no2% = no% : caption no%,"Fichier"
   no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Nouveau" : on_click no%,nouveauprojet
   no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Ouvrir..." : on_click no%,ouvrirprojet
   no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Enregistrer" : on_click no%,enregistrerprojet
   no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Enregistrer sous..." : on_click no%,enregistrersousprojet
   no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Exporter..." : on_click no%,exporter
   no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"-"
   no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Sortir" : on_click no%,sortir
end_sub

sub cadres()
  dim_local hnd%
  dll_on KGF$
  no% = no% + 1 : form no% : hide no% : no_info% = no% : width no%,400 : height no%,200
  no% = no% + 1 : memo no% : no_infotext% = no% : parent no%,no_info% : full_space no% : bar_both no% : font_size no%,12

  no% = no% + 1 : container no% : no_cElements% = no% : width no%,200 : caption no%,"Eléments"
  FC% = dll_call6("CreateFlowChart",handle(0),0,0,0,0,LignesDeVisee%)
  full_space 0
  res% = dll_call5("LocateFlowChart",FC%,width(no_cElements%),0,width_client(0)-width(no_cElements%),height_client(0))
  height no_cElements%,350
  res% = dll_call2("ShowRulersInFlowChart",FC%,0)
  top no_info%,0 : left no_info%,width_client(0)-width(no_info%)-width(no_cElements%)

  hnd% = dll_call1("GetHandleOfFlowChart",FC%)
  res% = dll_call3("SetFormParent",handle(no_info%),hnd%,0)

  no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Début"
   top no%,15 : left no%,10 : on_click no%,AddStart
  no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Connecteur"
   top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddConnector
  no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Action"
   top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddAction
  no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Condition"
   top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddCondition
  no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Selecteur"
   top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddSelector
  no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Fin"
   top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddEnd

  no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Sélectionner"
   top no%,top(no%-1)+height(no%-1)+10 : left no%,10 : on_click no%,selectionner
  no% = no% + 1 : button no% : parent no%,no_cElements% : no_AnnSel% = no% : caption no%,"Annuler" : inactive no%
   top no%,top(no%-1) : left no%,left(no%-1)+width(no%-1) : on_click no%,annulerselection
  no% = no% + 1 : button no% : parent no%,no_cElements% : no_SuppLiens% = no% : caption no%,"Supprimer lien" : inactive no%
   top no%,top(no%-1)+height(no%-1) : left no%,left(no%-1) : on_click no%,supprimerliens

  no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Lier"
   top no%,top(no%-1)+height(no%-1)+10 : left no%,10 : on_click no%,lier
  no% = no% + 1 : button no% : parent no%,no_cElements% : no_AnnLink% = no% : caption no%,"Annuler" : inactive no%
   top no%,top(no%-1) : left no%,left(no%-1)+width(no%-1) : on_click no%,annulerlier
  no% = no% + 1 : button no% : parent no%,no_cElements% : no_Tracer% = no% : caption no%,"Tracer" : inactive no%
   top no%,top(no%-1)+height(no%-1) : left no%,10 : width no%,width(no%-2)+width(no%-1) : on_click no%,tracer

  no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Sel. Lien"
   top no%,top(no%-1)+height(no%-1)+10 : left no%,10 : on_click no%,selectionLien
  no% = no% + 1 : button no% : parent no%,no_cElements% : no_AnnSelLink% = no% : caption no%,"Annuler" : inactive no%
   top no%,top(no%-1) : left no%,left(no%-1)+width(no%-1) : on_click no%,annulerSelLien
  no% = no% + 1 : button no% : parent no%,no_cElements% : no_DelLink% = no% : caption no%,"Supprimer lien" : inactive no%
   top no%,top(no%-1)+height(no%-1) : left no%,10 : width no%,width(no%-2)+width(no%-1) : on_click no%,supprimerLien

   ' attributs Connector
  no% = no% + 1 : container no% : no_AttributsConnector% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
   height no%,300 : caption no%,"Attributs Connector" : hide no%
  no% = no% + 1 : alpha no% : parent no%,no_AttributsConnector% : top no%,20 : left no%,10
   caption no%,"Position X:"
  no% = no% + 1 : spin no% : no_Connector_X% = no% : parent no%,no_AttributsConnector% : top no%,top(no%-1) : left no%,80
   min no%,0 : max no%,4000 : position no%,0 : width no%,50
  no% = no% + 1 : alpha no% : parent no%,no_AttributsConnector% : top no%,top(no%-1)+25 : left no%,10
   caption no%,"Position Y:"
  no% = no% + 1 : spin no% : no_Connector_Y% = no% : parent no%,no_AttributsConnector% : top no%,top(no%-1) : left no%,80
   min no%,0 : max no%,4000 : position no%,0 : width no%,50
  no% = no% + 1 : button no% : parent no%,no_AttributsConnector% : top no%,height(no_AttributsConnector%)-30 : left no%,20
   caption no%,"Valider" : on_click no%,valider_connector

  ' attributs Action
  no% = no% + 1 : container no% : no_AttributsAction% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
   height no%,300 : caption no%,"Attributs Action" : hide no%
  no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,20 : left no%,10
   caption no%,"Position X:"
  no% = no% + 1 : spin no% : no_Action_X% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
   min no%,0 : max no%,4000 : position no%,0 : width no%,50
  no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
   caption no%,"Position Y:"
  no% = no% + 1 : spin no% : no_Action_Y% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
   min no%,0 : max no%,4000 : position no%,0 : width no%,50
  no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
   caption no%,"Largeur:"
  no% = no% + 1 : spin no% : no_Action_Largeur% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
   min no%,0 : max no%,500 : position no%,0 : width no%,50
  no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
   caption no%,"Hauteur:"
  no% = no% + 1 : spin no% : no_Action_Hauteur% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
   min no%,0 : max no%,500 : position no%,0 : width no%,50
  no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
   caption no%,"Couleur RGB:"
  no% = no% + 1 : edit no% : no_Action_Couleur% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
   width no%,50
  no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
   caption no%,"Titre:"
  no% = no% + 1 : edit no% : no_Action_Titre% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
   width no%,110
  no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
   caption no%,"Contenu:"
  no% = no% + 1 : memo no% : no_Action_Contenu% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+15 : left no%,10
   width no%,180 : bar_both no%
  no% = no% + 1 : button no% : parent no%,no_AttributsAction% : top no%,height(no_AttributsAction%)-30 : left no%,20
   caption no%,"Valider" : on_click no%,valider_action

  ' attributs Condition
  no% = no% + 1 : container no% : no_AttributsCondition% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
   height no%,300 : caption no%,"Attributs Condition" : hide no%
  no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,20 : left no%,10
   caption no%,"Position X:"
  no% = no% + 1 : spin no% : no_Condition_X% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
   min no%,0 : max no%,4000 : position no%,0 : width no%,50
  no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
   caption no%,"Position Y:"
  no% = no% + 1 : spin no% : no_Condition_Y% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
   min no%,0 : max no%,4000 : position no%,0 : width no%,50
  no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
   caption no%,"Largeur:"
  no% = no% + 1 : spin no% : no_Condition_Largeur% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
   min no%,0 : max no%,500 : position no%,0 : width no%,50
  no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
   caption no%,"Hauteur:"
  no% = no% + 1 : spin no% : no_Condition_Hauteur% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
   min no%,0 : max no%,500 : position no%,0 : width no%,50
  no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
   caption no%,"Couleur RGB:"
  no% = no% + 1 : edit no% : no_Condition_Couleur% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
   width no%,50
  no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
   caption no%,"Titre:"
  no% = no% + 1 : edit no% : no_Condition_Titre% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
   width no%,110
  no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
   caption no%,"Contenu:"
  no% = no% + 1 : memo no% : no_Condition_Contenu% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+15 : left no%,10
   width no%,180 : bar_both no%
  no% = no% + 1 : button no% : parent no%,no_AttributsCondition% : top no%,height(no_AttributsCondition%)-30 : left no%,20
   caption no%,"Valider" : on_click no%,valider_Condition

  ' attributs Selection
  no% = no% + 1 : container no% : no_AttributsSelection% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
   height no%,300 : caption no%,"Attributs Selection" : hide no%
  no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,20 : left no%,10
   caption no%,"Position X:"
  no% = no% + 1 : spin no% : no_Selection_X% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
   min no%,0 : max no%,4000 : position no%,0 : width no%,50
  no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
   caption no%,"Position Y:"
  no% = no% + 1 : spin no% : no_Selection_Y% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
   min no%,0 : max no%,4000 : position no%,0 : width no%,50
  no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
   caption no%,"Largeur:"
  no% = no% + 1 : spin no% : no_Selection_Largeur% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
   min no%,0 : max no%,500 : position no%,0 : width no%,50
  no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
   caption no%,"Hauteur:"
  no% = no% + 1 : spin no% : no_Selection_Hauteur% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
   min no%,0 : max no%,500 : position no%,0 : width no%,50
  no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
   caption no%,"Couleur RGB:"
  no% = no% + 1 : edit no% : no_Selection_Couleur% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
   width no%,50
  no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
   caption no%,"Titre:"
  no% = no% + 1 : edit no% : no_Selection_Titre% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
   width no%,110
  no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
   caption no%,"Contenu:"
  no% = no% + 1 : memo no% : no_Selection_Contenu% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+15 : left no%,10
   width no%,180 : bar_both no%
  no% = no% + 1 : button no% : parent no%,no_AttributsSelection% : top no%,height(no_AttributsSelection%)-30 : left no%,20
   caption no%,"Valider" : on_click no%,valider_Selection

  ' attributs Start
  no% = no% + 1 : container no% : no_AttributsStart% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
   height no%,300 : caption no%,"Attributs Start" : hide no%
  no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,20 : left no%,10
   caption no%,"Position X:"
  no% = no% + 1 : spin no% : no_Start_X% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
   min no%,0 : max no%,4000 : position no%,0 : width no%,50
  no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,top(no%-1)+25 : left no%,10
   caption no%,"Position Y:"
  no% = no% + 1 : spin no% : no_Start_Y% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
   min no%,0 : max no%,4000 : position no%,0 : width no%,50
  no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,top(no%-1)+25 : left no%,10
   caption no%,"Largeur:"
  no% = no% + 1 : spin no% : no_Start_Largeur% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
   min no%,0 : max no%,500 : position no%,0 : width no%,50
  no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,top(no%-1)+25 : left no%,10
   caption no%,"Hauteur:"
  no% = no% + 1 : spin no% : no_Start_Hauteur% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
   min no%,0 : max no%,500 : position no%,0 : width no%,50
  no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,top(no%-1)+25 : left no%,10
   caption no%,"Couleur RGB:"
  no% = no% + 1 : edit no% : no_Start_Couleur% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
   width no%,50
  no% = no% + 1 : button no% : parent no%,no_AttributsStart% : top no%,height(no_AttributsStart%)-30 : left no%,20
   caption no%,"Valider" : on_click no%,valider_Start

  ' attributs End
  no% = no% + 1 : container no% : no_AttributsEnd% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
   height no%,300 : caption no%,"Attributs End" : hide no%
  no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,20 : left no%,10
   caption no%,"Position X:"
  no% = no% + 1 : spin no% : no_End_X% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
   min no%,0 : max no%,4000 : position no%,0 : width no%,50
  no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,top(no%-1)+25 : left no%,10
   caption no%,"Position Y:"
  no% = no% + 1 : spin no% : no_End_Y% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
   min no%,0 : max no%,4000 : position no%,0 : width no%,50
  no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,top(no%-1)+25 : left no%,10
   caption no%,"Largeur:"
  no% = no% + 1 : spin no% : no_End_Largeur% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
   min no%,0 : max no%,500 : position no%,0 : width no%,50
  no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,top(no%-1)+25 : left no%,10
   caption no%,"Hauteur:"
  no% = no% + 1 : spin no% : no_End_Hauteur% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
   min no%,0 : max no%,500 : position no%,0 : width no%,50
  no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,top(no%-1)+25 : left no%,10
   caption no%,"Couleur RGB:"
  no% = no% + 1 : edit no% : no_End_Couleur% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
   width no%,50
  no% = no% + 1 : button no% : parent no%,no_AttributsEnd% : top no%,height(no_AttributsEnd%)-30 : left no%,20
   caption no%,"Valider" : on_click no%,valider_End

end_sub

sub Objets()
  no% = no% + 1 : memo no% : no_memo% = no% : hide no% : bar_both no%
  no% = no% + 1 : open_dialog no% : no_open% = no% : filter no%,"Projet FlowChart (*.FCproj)|*.FCproj"
  no% = no% + 1 : save_dialog no% : no_save% = no% : filter no%,"Projet FlowChart (*.FCproj)|*.FCproj"
  no% = no% + 1 : save_dialog no% : no_export% = no% : filter no%,"Images (BMP,JPG,GIF,PNG)|*.BMP;*.JPG;*.GIF;*.PNG"
end_sub

sub AddConnector()
  FCE% = dll_call4("AddElementToFlowChart",FC%,0,0,0)
  res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,20,20)
  res% = dll_call2("DrawFlowChart",FC%,1)
  position no_Connector_X%,0
  position no_Connector_Y%,0
  annulerselection()
' show no_AttributsConnector%
end_sub

sub AddAction()
  dim_local titre$
  titre$ = "Action"
  FCE% = dll_call4("AddElementToFlowChart",FC%,1,hex("FFFF00"),adr(titre$))
  res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,300,200)
  res% = dll_call2("DrawFlowChart",FC%,1)
  position no_Action_X%,0
  position no_Action_Y%,0
  position no_Action_Largeur%,300
  position no_Action_Hauteur%,200
  text no_action_Couleur%,"FFFF00"
  text no_Action_Titre%,titre$
  clear no_Action_Contenu%
  annulerselection()
' show no_AttributsAction%
end_sub

sub AddCondition()
  dim_local titre$
  titre$ = "Condition ?"
  FCE% = dll_call4("AddElementToFlowChart",FC%,2,hex("0000FF"),adr(titre$))
  res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,300,100)
  clear no_memo%
  item_add no_memo%,"."
  item_add no_memo%,"Oui"
  item_add no_memo%,"Non"
  res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,0,handle(no_memo%))
  res% = dll_call2("DrawFlowChart",FC%,1)
  position no_Condition_X%,0
  position no_Condition_Y%,0
  position no_Condition_Largeur%,300
  position no_Condition_Hauteur%,100
  text no_Condition_Couleur%,"0000FF"
  text no_Condition_Titre%,titre$
  clear no_Condition_Contenu%
  item_add no_Condition_Contenu%,"Oui"
  item_add no_Condition_Contenu%,"."
  item_add no_Condition_Contenu%,"Non"
  annulerselection()
' show no_AttributsCondition%
end_sub

sub AddSelector()
  dim_local titre$
  titre$ = "Sélection"
  FCE% = dll_call4("AddElementToFlowChart",FC%,3,hex("0000FF"),adr(titre$))
  res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,300,100)
  clear no_memo%
  item_add no_memo%,"1"
  item_add no_memo%,"2"
  item_add no_memo%,"3"
  res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,0,handle(no_memo%))
  res% = dll_call2("DrawFlowChart",FC%,1)
  position no_Selection_X%,0
  position no_Selection_Y%,0
  position no_Selection_Largeur%,300
  position no_Selection_Hauteur%,100
  text no_Selection_Couleur%,"0000FF"
  text no_Selection_Titre%,titre$
  clear no_Selection_Contenu%
  item_add no_Selection_Contenu%,"1"
  item_add no_Selection_Contenu%,"2"
  item_add no_Selection_Contenu%,"3"
  annulerselection()
' show no_AttributsSelection%
end_sub

sub AddStart()
  dim_local titre$
  titre$ = "Début"
  FCE% = dll_call4("AddElementToFlowChart",FC%,4,hex("F0F0F0"),adr(titre$))
  res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,100,100)
  res% = dll_call2("DrawFlowChart",FC%,1)
  position no_Start_X%,0
  position no_Start_Y%,0
  position no_Start_Largeur%,100
  position no_Start_Hauteur%,100
  text no_Start_Couleur%,"F0F0F0"
  annulerselection()
' show no_AttributsStart%
end_sub

sub AddEnd()
  dim_local titre$
  titre$ = "Arrêt"
  FCE% = dll_call4("AddElementToFlowChart",FC%,5,hex("F0F0F0"),adr(titre$))
  res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,100,100)
  res% = dll_call2("DrawFlowChart",FC%,1)
  position no_End_X%,0
  position no_End_Y%,0
  position no_End_Largeur%,100
  position no_End_Hauteur%,100
  text no_End_Couleur%,"F0F0F0"
  annulerselection()
' show no_AttributsEnd%
end_sub

sub selectionner()
  show no_info%
  clear no_infotext%
  text no_infotext%,"Sélectionner un élément en cliquant dessus..."
  DoPoints% = 4
  active no_AnnSel%
  active no_SuppLiens%
  hide no_AttributsConnector%
  hide no_AttributsAction%
  hide no_AttributsCondition%
  hide no_AttributsSelection%
  hide no_AttributsStart%
  hide no_AttributsEnd%
end_sub

sub annulerselection()
  DoPoints% = 0
  inactive no_AnnSel%
  inactive no_SuppLiens%
  hide no_AttributsConnector%
  hide no_AttributsAction%
  hide no_AttributsCondition%
  hide no_AttributsSelection%
  hide no_AttributsStart%
  hide no_AttributsEnd%
  res% = dll_call2("SelectElementInFlowChart",FC%,0)
  hide no_info%
end_sub

sub supprimerliens()
  res% = dll_call2("RemoveAllLinksFromFlowChartElement",FC%,FCE%)
end_sub

sub valider_connector()
  res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Connector_X%),position(no_Connector_Y%),M1%,M1%)
  res% = dll_call2("SelectElementInFlowChart",FC%,0)
  res% = dll_call2("DrawFlowChart",FC%,1)
  hide no_AttributsConnector%
end_sub

sub valider_action()
  dim_local titre$
  res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Action_X%),position(no_Action_Y%),position(no_Action_Largeur%),position(no_Action_Hauteur%))
  titre$ = trim$(text$(no_Action_Titre%))
  res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,adr(titre$),handle(no_Action_Contenu%))
  res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_Action_couleur%)))
  res% = dll_call2("SelectElementInFlowChart",FC%,0)
  res% = dll_call2("DrawFlowChart",FC%,1)
  hide no_AttributsAction%
end_sub

sub valider_Condition()
  dim_local titre$
  res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Condition_X%),position(no_Condition_Y%),position(no_Condition_Largeur%),position(no_Condition_Hauteur%))
  titre$ = trim$(text$(no_Condition_Titre%))
  res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,adr(titre$),handle(no_Condition_Contenu%))
  res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_Condition_couleur%)))
  res% = dll_call2("SelectElementInFlowChart",FC%,0)
  res% = dll_call2("DrawFlowChart",FC%,1)
  hide no_AttributsCondition%
end_sub

sub valider_Selection()
  dim_local titre$
  res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Selection_X%),position(no_Selection_Y%),position(no_Selection_Largeur%),position(no_Selection_Hauteur%))
  titre$ = trim$(text$(no_Selection_Titre%))
  res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,adr(titre$),handle(no_Selection_Contenu%))
  res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_Selection_couleur%)))
  res% = dll_call2("SelectElementInFlowChart",FC%,0)
  res% = dll_call2("DrawFlowChart",FC%,1)
  hide no_AttributsSelection%
end_sub

sub valider_Start()
  res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Start_X%),position(no_Start_Y%),position(no_Start_Largeur%),position(no_Start_Hauteur%))
  res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_Start_couleur%)))
  res% = dll_call2("SelectElementInFlowChart",FC%,0)
  res% = dll_call2("DrawFlowChart",FC%,1)
  hide no_AttributsStart%
end_sub

sub valider_End()
  res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_End_X%),position(no_End_Y%),position(no_End_Largeur%),position(no_End_Hauteur%))
  res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_End_couleur%)))
  res% = dll_call2("SelectElementInFlowChart",FC%,0)
  res% = dll_call2("DrawFlowChart",FC%,1)
  hide no_AttributsEnd%
end_sub

sub nouveauprojet()
  FC% = dll_call1("DeleteFlowChart",FC%)
  FC% = dll_call6("CreateFlowChart",handle(0),0,0,0,0,LignesDeVisee%)
  full_space 0
  res% = dll_call5("LocateFlowChart",FC%,width(no_cElements%),0,width_client(0)-width(no_cElements%),height_client(0))
' height no_cElements%,300
  projet$ = ""
end_sub

sub ouvrirprojet()
  dim_local prj$
  prj$ = file_name$(no_save%)
  if prj$="_" then exit_sub
  if lower$(file_extract_extension$(prj$))<>".fcproj"
   message "Extension erronnée (*.FCproj)"
   exit_sub
  end_if
  if file_exists(prj$)=0
   message("Ce fichier n'existe pas."
   exit_sub
  end_if

  nouveauprojet()
  res% = dll_call2("LoadFlowChartProject",FC%,adr(prj$))
  if res%<0
   message "Erreur en chargement"
  else
   message "Le projet a été chargé:"+chr$(13)+chr$(10)+prj$
   projet$ = prj$
  end_if
end_sub

sub enregistrerprojet()
  dim_local prj$
  if projet$=""
   enregistrersousprojet()
   exit_sub
  end_if
  prj$ = projet$
  if file_exists(prj$)=1 then file_delete prj$
  res% = dll_call2("SaveFlowChartProject",FC%,adr(prj$))
  if res%<0
   message "Erreur en sauvegarde"
  else
   message "Le ficher a été créé:"+chr$(13)+chr$(10)+prj$
   projet$ = prj$
  end_if
end_sub

sub enregistrersousprojet()
  dim_local prj$
  prj$ = file_name$(no_save%)
  if prj$="_" then exit_sub
  if lower$(file_extract_extension$(prj$))<>".fcproj"
   message "Extension erronnée (*.FCproj)"
   exit_sub
  end_if
  if file_exists(prj$)=1
   if message_confirmation_yes_no("Ce fichier existe déjà. Remplacer ?")<>1 then exit_sub
   file_delete prj$
  end_if
  res% = dll_call2("SaveFlowChartProject",FC%,adr(prj$))
  if res%<0
   message "Erreur en sauvegarde"
  else
   message "Le ficher a été créé:"+chr$(13)+chr$(10)+prj$
   projet$ = prj$
  end_if
end_sub

sub lier()
  annulerSelLien()
  AnnulerSelection()
  DoPoints% = 1
  npt% = 0
  show no_info%
  clear no_infotext%
  text no_infotext%,"Cliquer sur une sortie..."
  active no_AnnLink%
  active no_Tracer%
end_sub

sub annulerlier()
  res% = dll_call2("ShowRulersInFlowChart",FC%,0)
  DoPoints% = 0
  npt% = 0
  xarray%(0) = 0
  res% = dll_call2("SelectElementInFlowChart",FC%,0)
  res% = dll_call3("SelectOutputConnectorOfFlowChartElement",FC%,FCEstart%,0)
  res% = dll_call2("DrawFlowChart",FC%,1)
  inactive no_AnnLink%
  inactive no_Tracer%
  hide no_info%
end_sub

sub tracer()
  dim_local do1%
  ' rectangulariser le dernier segment
  NatureInput% = dll_call3("GetInputConnectorOfFlowChartElement",FCEdest%,adr(xx%),adr(yy%))
  if NatureInput%<>0
   if npt%=0
   res% = dll_call4("GetOutputConnectorOfFlowChartElement",FCEstart%,output%,adr(xxp%),adr(yyp%))
   else
   xxp% = xArray%(npt%)
   yyp% = yArray%(npt%)
   end_if

   do1% = 0
   if abs(xxp%-xx%)<=DeltaRectangle%
   xxp% = xx%
   do1% = 1
   else
   if abs(yyp%-yy%)<=DeltaRectangle%
   yyp% = yy%
   do1% = 1
   end_if
   end_if
   if do1%=1
   npt% = npt% + 1
   xarray%(0) = npt%
   xarray%(npt%) = xxp%
   yarray%(npt%) = yyp%
   end_if
   if yyp%>(yy%-DeltaRectangle%)
   yyp% = yy% - DeltaRectangle%
   npt% = npt% + 1
   xarray%(0) = npt%
   xarray%(npt%) = xxp%
   yarray%(npt%) = yyp%
   end_if
   if xxp%<>xx%
   xxp% = xx%
   npt% = npt% + 1
   xarray%(0) = npt%
   xarray%(npt%) = xxp%
   yarray%(npt%) = yyp%
   end_if
  end_if

  res% = dll_call6("ConnectElementsOfFlowChart",FC%,FCEstart%,output%,FCEdest%,adr(xArray%),adr(yArray%))
  if res%=0 then message "Erreur en créant la connexion"
  res% = dll_call2("ShowRulersInFlowChart",FC%,0)
  res% = dll_call2("SelectElementInFlowChart",FC%,0)
  res% = dll_call3("SelectOutputConnectorOfFlowChartElement",FC%,FCEstart%,0)
' res% = dll_call2("DrawFlowChart",FC%,1)
  DoPoints% = 0
  npt% = 0
  xarray%(0) = 0
  inactive no_AnnLink%
  inactive no_Tracer%
  hide no_info%
end_sub

sub exporter()
  dim_local f$
  f$ = file_name$(no_export%)
  if f$="_" then exit_sub
  if instr(".bmp.jpg.gif.png",lower$(file_extract_extension$(f$)))=0
   message "Erreur d'extension"
   exit_sub
  end_if
  if file_exists(f$)=1
   if message_confirmation_yes_no("Cette image existe déjà? Remplacer ?")<>1 then exit_sub
  end_if
  res% = dll_call1("CopyFlowChartToClipboard",FC%)
  res% = dll_call1("SaveAnyImageFile",adr(f$))
  message "L'image est enregistrée dans:"+chr$(13)+chr$(10)+f$
end_sub

sub selectionLien()
  AnnulerSelection()
  DoPoints% = 6
  npt% = 0
  show no_info%
  clear no_infotext%
  text no_infotext%,"Cliquer sur un lien..."
  res% = dll_call2("DrawFlowChart",FC%,5)
  active no_AnnSelLink%
  active no_DelLink%
end_sub

sub annulerSelLien()
  DoPoints% = 0
  npt% = 0
  xarray%(0) = 0
  res% = dll_call2("SelectLinkInFlowChart",FC%,0)
  res% = dll_call2("DrawFlowChart",FC%,1)
  inactive no_AnnSelLink%
  inactive no_DelLink%
  hide no_info%
  hide no_info%
end_sub

sub supprimerLien()
  res% = dll_call1("DeleteLinkFromFlowChart",FCL%)
  hide no_info%
end_sub

Et voici une nouvelle version avec une nouveauté intéressante: on peut maintenant colorer les liens !

Par défaut, leur couleur est noire. En sélectionnant on lien, il s'affiche en jaune (comme un élément sélectionné). Mais maintenant, il y a un cadre d'attributs du lien qui s'affiche en bas à gauche, avec un seul attrbut: sa couleur. On peut la changer avec une valeur hexa de type RGB (sachant que la représentatiion hexa d'une valeur RGB est BBGGRR !). en validant, le lien prend cette couleur.

Si l'on sélectionne un lien qui est naturellement jaune, il s'afichera en rouge, tout comme un élément jaune lors de sa sélection.

La nouvelle version de la DLL est dans le WebDav, dossier DLLs, et le nouveau programme est ici:

Code:: ' FlowChartDesigner.bas

labels()
constantes()
variables()
menu()
cadres()
Objets()

on_user_event UserEvent

end

UserEvent:
if bin_and(user_event_wparam,hex("FF000000"))=hex("0B000000") : ' ScrollImage
pos% = user_event_lparam : ' positon: yyyyxxxx
xxp% = bin_and(pos%,hex("0000FFFF"))
yyp% = pos%/65536

if DoPoints%=5
res% = dll_call4("IdentifyFlowChartElement",FC%,adr(xxp%),adr(yyp%),adr(FCEnew%))
if res%<0 then return
if FCEnew%=FCE%
annulerselection()
return
else
DoPoints% = 0
annulerSelLien()
end_if
end_if
if DoPoints%=0
res% = dll_call4("IdentifyFlowChartElement",FC%,adr(xxp%),adr(yyp%),adr(FCE%))
if res%<0 then return
annulerSelLien()
DoPoints% = 4
active no_AnnSel%
active no_SuppLiens%
hide no_AttributsConnector%
hide no_AttributsAction%
hide no_AttributsCondition%
hide no_AttributsSelection%
hide no_AttributsStart%
hide no_AttributsEnd%
end_if

if DoPoints%>0
if DoPoints%=1
NatureOutput% = dll_call5("IdentifyOutputOfFlowChartElement",FC%,xxp%,yyp%,adr(FCEstart%),adr(output%))
if NatureOutput%<0
message "Ce n'est pas une sortie valide."+chr$(13)+chr$(10)+"Recommencez ou Annulez..."
return
end_if
res% = dll_call3("SelectOutputConnectorOfFlowChartElement",FC%,FCEstart%,output%)
DoPoints% = 2
show no_info%
clear no_infotext%
text no_infotext%,"Cliquez maintenant l'élémént de destination"+chr$(13)+chr$(10)+"ou Annulez..."
return
end_if
if DoPoints%=2
res% = dll_call4("IdentifyFlowChartElement",FC%,adr(xxp%),adr(yyp%),adr(FCEdest%))
if res%<0
message "Ce n'est pas un élément valide."+chr$(13)+chr$(10)+"Recommencez ou Annulez..."
return
end_if
DoPoints% = 3
res% = dll_call2("SelectElementInFlowChart",FC%,FCEdest%)
show no_info%
clear no_infotext%
text no_infotext%,"Cliquez maintenant les points d'étape"+chr$(13)+chr$(10)+"puis Tracez ou Annulez..."
res% = dll_call2("ShowRulersInFlowChart",FC%,1)
return
end_if
if DoPoints%=3
' ici, rectangulariser le tracé
if npt%=0
res% = dll_call4("GetOutputConnectorOfFlowChartElement",FCEstart%,output%,adr(xx%),adr(yy%))
else
xx% = xarray%(npt%)
yy% = yarray%(npt%)
end_if
if (npt%=0) and (NatureOutput%<>0)
if abs(xxp%-xx%)<=DeltaRectangle%
xxp% = xx%
else
if abs(yyp%-yy%)<=DeltaRectangle%
yyp% = yy%
else
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yy%
end_if
end_if
end_if
if npt%>0
if abs(xxp%-xx%)<=DeltaRectangle%
xxp% = xx%
else
if abs(yyp%-yy%)<=DeltaRectangle%
yyp% = yy%
else
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yy%
end_if
end_if
end_if

' mémoriser le point
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yyp%
res% = dll_call3("DrawTemporaryMarkIntoFlowChart",FC%,xxp%,yyp%)
res% = dll_call5("DrawTemporaryLineIntoFlowChart",FC%,xx%,yy%,xxp%,yyp%)
' message "Point "+str$(npt%)+": "+str$(xx%)+","+str$(yy%
end_if
if DoPoints%=4
res% = dll_call4("IdentifyFlowChartElement",FC%,adr(xxp%),adr(yyp%),adr(FCE%))
if res%<0
message "Ce n'est pas un élément valide."
return
end_if
' message "Elément "+nature$(res%)+" identifié"
hide no_info%
DoPoints% = 5
select res%
case 0
show no_AttributsConnector%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Connector_X%),handle(no_Connector_Y%),0,0)
position no_Connector_X%,xxp%
position no_Connector_Y%,yyp%
case 1
res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
show no_AttributsAction%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Action_X%),handle(no_Action_Y%),handle(no_Action_Largeur%),handle(no_Action_Hauteur%))
position no_Action_X%,xxp%
position no_Action_Y%,yyp%
position no_Action_Largeur%,wwp%
position no_Action_Hauteur%,hhp%
text no_action_Couleur%,right$(hex$(ccc%),6)
text no_Action_Titre%,item_read$(no_memo%,1)
item_delete no_memo%,1
clear no_Action_Contenu%
if count(no_memo%)>0
for i%=1 to count(no_memo%)
item_add no_Action_Contenu%,item_read$(no_memo%,i%)
next i%
end_if
case 2
res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
show no_AttributsCondition%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Condition_X%),handle(no_Condition_Y%),handle(no_Action_Largeur%),handle(no_Action_Hauteur%))
position no_Condition_X%,xxp%
position no_Condition_Y%,yyp%
position no_Condition_Largeur%,wwp%
position no_Condition_Hauteur%,hhp%
text no_Condition_Couleur%,right$(hex$(ccc%),6)
text no_Condition_Titre%,item_read$(no_memo%,1)
item_delete no_memo%,1
clear no_Condition_Contenu%
if count(no_memo%)>0
for i%=1 to count(no_memo%)
item_add no_Condition_Contenu%,item_read$(no_memo%,i%)
next i%
end_if
case 3
res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
show no_AttributsSelection%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Selection_X%),handle(no_Selection_Y%),handle(no_Selection_Largeur%),handle(no_Selection_Hauteur%))
position no_Selection_X%,xxp%
position no_Selection_Y%,yyp%
position no_Selection_Largeur%,wwp%
position no_Selection_Hauteur%,hhp%
text no_Selection_Couleur%,right$(hex$(ccc%),6)
text no_Selection_Titre%,item_read$(no_memo%,1)
item_delete no_memo%,1
clear no_Selection_Contenu%
if count(no_memo%)>0
for i%=1 to count(no_memo%)
item_add no_Selection_Contenu%,item_read$(no_memo%,i%)
next i%
end_if
case 4
res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
show no_AttributsStart%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_Start_X%),handle(no_Start_Y%),handle(no_Start_Largeur%),handle(no_Start_Hauteur%))
position no_Start_X%,xxp%
position no_Start_Y%,yyp%
position no_Start_Largeur%,wwp%
position no_Start_Hauteur%,hhp%
text no_Start_Couleur%,right$(hex$(ccc%),6)
case 5
res% = dll_call5("GetFlowChartElementAttributes",FCE%,adr(wwp%),adr(hhp%),adr(ccc%),handle(no_memo%))
show no_AttributsEnd%
res% = dll_call5("SetSpinControlsForFlowChart",FC%,handle(no_End_X%),handle(no_End_Y%),handle(no_End_Largeur%),handle(no_End_Hauteur%))
position no_End_X%,xxp%
position no_End_Y%,yyp%
position no_End_Largeur%,wwp%
position no_End_Hauteur%,hhp%
text no_End_Couleur%,right$(hex$(ccc%),6)
end_select
res% = dll_call2("SelectElementInFlowChart",FC%,FCE%)
end_if
if DoPoints%=6
res% = dll_call4("IdentifyFlowChartLink",FC%,xxp%,yyp%,adr(FCL%))
if res%<0
message "Ce n'est pas un lien valide."
res% = dll_call2("DrawFlowChart",FC%,1)
return
end_if
' message "Lien "+str$(res%)+" identifié"

res% = dll_call3("SelectLinkInFlowChart",FC%,FCL%,adr(ccc%))
res% = dll_call2("DrawFlowChart",FC%,5)
show no_AttributsLink%
text no_Link_Couleur%,right$(hex$(ccc%),6)
end_if
end_if
end_if

return

sortir:
terminate

AddConnector:
AddConnector()
return

AddAction:
AddAction()
return

AddCondition:
AddCondition()
return

AddSelector:
AddSelector()
return

AddStart:
AddStart()
return

AddEnd:
AddEnd()
return

selectionner:
selectionner()
return

valider_connector:
valider_connector()
return

valider_action:
valider_action()
return

valider_Condition:
valider_Condition()
return

annulerselection:
annulerselection()
return

supprimerliens:
supprimerliens()
return

valider_Selection:
valider_Selection()
return

valider_start:
valider_start()
return

valider_end:
valider_end()
return

valider_Link:
valider_Link()
return

nouveauprojet:
nouveauprojet()
return

ouvrirprojet:
ouvrirprojet()
return

enregistrerprojet:
enregistrerprojet()
return

enregistrersousprojet:
enregistrersousprojet()
return

lier:
lier()
return

annulerlier:
annulerlier()
return

tracer:
tracer()
return

exporter:
exporter()
return

selectionLien:
selectionLien()
return

annulerSelLien:
annulerSelLien()
return

supprimerLien:
supprimerLien()
return

sub labels()
label AddConnector, AddAction, AddCondition, AddSelector, AddStart, AddEnd
label valider_connector, valider_action, valider_Condition, valider_Selection
label valider_Start, valider_End, valider_Link
label selectionner, annulerselection, supprimerliens, UserEvent, sortir
label selectionLien, annulerSelLien, supprimerLien
label nouveauprojet, ouvrirprojet, enregistrerprojet, enregistrersousprojet
label lier, annulerlier, tracer, exporter
end_sub

sub constantes()
dim KGF$ : KGF$ = "KGF.dll"
dim M1% : M1% = 0-1
dim DeltaRectangle% : DeltaRectangle% = 10
dim LignesDeVisee% : ' nombre de lignes de visée (0, 1 ou 2)
LignesDeVisee% = 2
dim nature$(6)
nature$(0) = "Connector"
nature$(1) = "Action"
nature$(2) = "Condition"
nature$(3) = "Selector"
nature$(4) = "Start"
nature$(5) = "End"
end_sub

sub variables()
dim res%, DoPoints%, pos%, xxp%, yyp%, titre$, wwp%, hhp%, i%, ccc%, output%
dim xx%, yy%, NatureOutput%, NatureInput%
dim npt%, xarray%(100),yarray%(100)
dim no%, no1%, no2%, no_cElements%, no_AnnSel%, no_SuppLiens%, no_memo%, no_open%, no_save%
dim no_AttributsConnector%, no_AttributsAction%, no_AttributsCondition%
dim no_AttributsSelection%, no_AttributsStart%, no_AttributsEnd%, no_AttributsLink%
dim no_Connector_X%, no_Connector_Y%, no_AnnLink%, no_Tracer% , no_Info%, no_infotext%
dim no_Action_X%, no_Action_Y%, no_Action_Titre%, no_action_Couleur%
dim no_Action_Largeur%, no_Action_Hauteur%, no_Action_Contenu%, no_export%
dim no_Condition_X%, no_Condition_Y%, no_Condition_Titre%, no_condition_Couleur%
dim no_Condition_Largeur%, no_Condition_Hauteur%, no_Condition_Contenu%
dim no_Selection_X%, no_Selection_Y%, no_Selection_Titre%, no_selection_Couleur%
dim no_Selection_Largeur%, no_Selection_Hauteur%, no_Selection_Contenu%
dim no_Start_X%, no_Start_Y%, no_Start_Largeur%, no_Start_Hauteur%, no_start_Couleur%
dim no_End_X%, no_End_Y%, no_End_Largeur%, no_End_Hauteur%, no_end_Couleur%
dim no_Link_Couleur%
dim no_AnnSelLink%, no_DelLink%
dim FC%, FCE%, FCEstart%, FCEdest%, FCL%, FCEnew%
dim projet$
end_sub

sub menu()
no% = no% + 1 : main_menu no% : no1% = no%
no% = no% + 1 : sub_menu no% : parent no%,no1% : no2% = no% : caption no%,"Fichier"
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Nouveau" : on_click no%,nouveauprojet
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Ouvrir..." : on_click no%,ouvrirprojet
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Enregistrer" : on_click no%,enregistrerprojet
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Enregistrer sous..." : on_click no%,enregistrersousprojet
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Exporter..." : on_click no%,exporter
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"-"
no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Sortir" : on_click no%,sortir
end_sub

sub cadres()
dim_local hnd%
dll_on KGF$
no% = no% + 1 : form no% : hide no% : no_info% = no% : width no%,400 : height no%,200
no% = no% + 1 : memo no% : no_infotext% = no% : parent no%,no_info% : full_space no% : bar_both no% : font_size no%,12

no% = no% + 1 : container no% : no_cElements% = no% : width no%,200 : caption no%,"Eléments"
FC% = dll_call6("CreateFlowChart",handle(0),0,0,0,0,LignesDeVisee%)
full_space 0
res% = dll_call5("LocateFlowChart",FC%,width(no_cElements%),0,width_client(0)-width(no_cElements%),height_client(0))
height no_cElements%,350
res% = dll_call2("ShowRulersInFlowChart",FC%,0)
top no_info%,0 : left no_info%,width_client(0)-width(no_info%)-width(no_cElements%)

hnd% = dll_call1("GetHandleOfFlowChart",FC%)
res% = dll_call3("SetFormParent",handle(no_info%),hnd%,0)

no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Début"
top no%,15 : left no%,10 : on_click no%,AddStart
no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Connecteur"
top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddConnector
no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Action"
top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddAction
no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Condition"
top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddCondition
no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Selecteur"
top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddSelector
no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Fin"
top no%,top(no%-1)+height(no%-1) : left no%,10 : on_click no%,AddEnd

no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Sélectionner"
top no%,top(no%-1)+height(no%-1)+10 : left no%,10 : on_click no%,selectionner
no% = no% + 1 : button no% : parent no%,no_cElements% : no_AnnSel% = no% : caption no%,"Annuler" : inactive no%
top no%,top(no%-1) : left no%,left(no%-1)+width(no%-1) : on_click no%,annulerselection
no% = no% + 1 : button no% : parent no%,no_cElements% : no_SuppLiens% = no% : caption no%,"Supprimer lien" : inactive no%
top no%,top(no%-1)+height(no%-1) : left no%,left(no%-1) : on_click no%,supprimerliens

no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Lier"
top no%,top(no%-1)+height(no%-1)+10 : left no%,10 : on_click no%,lier
no% = no% + 1 : button no% : parent no%,no_cElements% : no_AnnLink% = no% : caption no%,"Annuler" : inactive no%
top no%,top(no%-1) : left no%,left(no%-1)+width(no%-1) : on_click no%,annulerlier
no% = no% + 1 : button no% : parent no%,no_cElements% : no_Tracer% = no% : caption no%,"Tracer" : inactive no%
top no%,top(no%-1)+height(no%-1) : left no%,10 : width no%,width(no%-2)+width(no%-1) : on_click no%,tracer

no% = no% + 1 : button no% : parent no%,no_cElements% : caption no%,"Sel. Lien"
top no%,top(no%-1)+height(no%-1)+10 : left no%,10 : on_click no%,selectionLien
no% = no% + 1 : button no% : parent no%,no_cElements% : no_AnnSelLink% = no% : caption no%,"Annuler" : inactive no%
top no%,top(no%-1) : left no%,left(no%-1)+width(no%-1) : on_click no%,annulerSelLien
no% = no% + 1 : button no% : parent no%,no_cElements% : no_DelLink% = no% : caption no%,"Supprimer lien" : inactive no%
top no%,top(no%-1)+height(no%-1) : left no%,10 : width no%,width(no%-2)+width(no%-1) : on_click no%,supprimerLien

' attributs Connector
no% = no% + 1 : container no% : no_AttributsConnector% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Connector" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsConnector% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_Connector_X% = no% : parent no%,no_AttributsConnector% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsConnector% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_Connector_Y% = no% : parent no%,no_AttributsConnector% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : button no% : parent no%,no_AttributsConnector% : top no%,height(no_AttributsConnector%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_connector

' attributs Action
no% = no% + 1 : container no% : no_AttributsAction% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Action" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_Action_X% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_Action_Y% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_Action_Largeur% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Hauteur:"
no% = no% + 1 : spin no% : no_Action_Hauteur% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_Action_Couleur% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Titre:"
no% = no% + 1 : edit no% : no_Action_Titre% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1) : left no%,80
width no%,110
no% = no% + 1 : alpha no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Contenu:"
no% = no% + 1 : memo no% : no_Action_Contenu% = no% : parent no%,no_AttributsAction% : top no%,top(no%-1)+15 : left no%,10
width no%,180 : bar_both no%
no% = no% + 1 : button no% : parent no%,no_AttributsAction% : top no%,height(no_AttributsAction%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_action

' attributs Condition
no% = no% + 1 : container no% : no_AttributsCondition% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Condition" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_Condition_X% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_Condition_Y% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_Condition_Largeur% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Hauteur:"
no% = no% + 1 : spin no% : no_Condition_Hauteur% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_Condition_Couleur% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Titre:"
no% = no% + 1 : edit no% : no_Condition_Titre% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1) : left no%,80
width no%,110
no% = no% + 1 : alpha no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Contenu:"
no% = no% + 1 : memo no% : no_Condition_Contenu% = no% : parent no%,no_AttributsCondition% : top no%,top(no%-1)+15 : left no%,10
width no%,180 : bar_both no%
no% = no% + 1 : button no% : parent no%,no_AttributsCondition% : top no%,height(no_AttributsCondition%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_Condition

' attributs Selection
no% = no% + 1 : container no% : no_AttributsSelection% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Selection" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_Selection_X% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_Selection_Y% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_Selection_Largeur% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Hauteur:"
no% = no% + 1 : spin no% : no_Selection_Hauteur% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_Selection_Couleur% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Titre:"
no% = no% + 1 : edit no% : no_Selection_Titre% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1) : left no%,80
width no%,110
no% = no% + 1 : alpha no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Contenu:"
no% = no% + 1 : memo no% : no_Selection_Contenu% = no% : parent no%,no_AttributsSelection% : top no%,top(no%-1)+15 : left no%,10
width no%,180 : bar_both no%
no% = no% + 1 : button no% : parent no%,no_AttributsSelection% : top no%,height(no_AttributsSelection%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_Selection

' attributs Start
no% = no% + 1 : container no% : no_AttributsStart% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Start" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_Start_X% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_Start_Y% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_Start_Largeur% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Hauteur:"
no% = no% + 1 : spin no% : no_Start_Hauteur% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsStart% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_Start_Couleur% = no% : parent no%,no_AttributsStart% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : button no% : parent no%,no_AttributsStart% : top no%,height(no_AttributsStart%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_Start

' attributs End
no% = no% + 1 : container no% : no_AttributsEnd% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs End" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,20 : left no%,10
caption no%,"Position X:"
no% = no% + 1 : spin no% : no_End_X% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Position Y:"
no% = no% + 1 : spin no% : no_End_Y% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,4000 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Largeur:"
no% = no% + 1 : spin no% : no_End_Largeur% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Hauteur:"
no% = no% + 1 : spin no% : no_End_Hauteur% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
min no%,0 : max no%,500 : position no%,0 : width no%,50
no% = no% + 1 : alpha no% : parent no%,no_AttributsEnd% : top no%,top(no%-1)+25 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_End_Couleur% = no% : parent no%,no_AttributsEnd% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : button no% : parent no%,no_AttributsEnd% : top no%,height(no_AttributsEnd%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_End

' Attributs Link
no% = no% + 1 : container no% : no_AttributsLink% = no% : top no%,height(no_cElements%) : width no%,width(no_cElements%)
height no%,300 : caption no%,"Attributs Lien" : hide no%
no% = no% + 1 : alpha no% : parent no%,no_AttributsLink% : top no%,20 : left no%,10
caption no%,"Couleur RGB:"
no% = no% + 1 : edit no% : no_Link_Couleur% = no% : parent no%,no_AttributsLink% : top no%,top(no%-1) : left no%,80
width no%,50
no% = no% + 1 : button no% : parent no%,no_AttributsLink% : top no%,height(no_AttributsLink%)-30 : left no%,20
caption no%,"Valider" : on_click no%,valider_Link

end_sub

sub Objets()
no% = no% + 1 : memo no% : no_memo% = no% : hide no% : bar_both no%
no% = no% + 1 : open_dialog no% : no_open% = no% : filter no%,"Projet FlowChart (*.FCproj)|*.FCproj"
no% = no% + 1 : save_dialog no% : no_save% = no% : filter no%,"Projet FlowChart (*.FCproj)|*.FCproj"
no% = no% + 1 : save_dialog no% : no_export% = no% : filter no%,"Images (BMP,JPG,GIF,PNG)|*.BMP;*.JPG;*.GIF;*.PNG"
end_sub

sub AddConnector()
FCE% = dll_call4("AddElementToFlowChart",FC%,0,0,0)
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,20,20)
res% = dll_call2("DrawFlowChart",FC%,1)
position no_Connector_X%,0
position no_Connector_Y%,0
annulerselection()
' show no_AttributsConnector%
end_sub

sub AddAction()
dim_local titre$
titre$ = "Action"
FCE% = dll_call4("AddElementToFlowChart",FC%,1,hex("FFFF00"),adr(titre$))
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,300,200)
res% = dll_call2("DrawFlowChart",FC%,1)
position no_Action_X%,0
position no_Action_Y%,0
position no_Action_Largeur%,300
position no_Action_Hauteur%,200
text no_action_Couleur%,"FFFF00"
text no_Action_Titre%,titre$
clear no_Action_Contenu%
annulerselection()
' show no_AttributsAction%
end_sub

sub AddCondition()
dim_local titre$
titre$ = "Condition ?"
FCE% = dll_call4("AddElementToFlowChart",FC%,2,hex("0000FF"),adr(titre$))
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,300,100)
clear no_memo%
item_add no_memo%,"."
item_add no_memo%,"Oui"
item_add no_memo%,"Non"
res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,0,handle(no_memo%))
res% = dll_call2("DrawFlowChart",FC%,1)
position no_Condition_X%,0
position no_Condition_Y%,0
position no_Condition_Largeur%,300
position no_Condition_Hauteur%,100
text no_Condition_Couleur%,"0000FF"
text no_Condition_Titre%,titre$
clear no_Condition_Contenu%
item_add no_Condition_Contenu%,"Oui"
item_add no_Condition_Contenu%,"."
item_add no_Condition_Contenu%,"Non"
annulerselection()
' show no_AttributsCondition%
end_sub

sub AddSelector()
dim_local titre$
titre$ = "Sélection"
FCE% = dll_call4("AddElementToFlowChart",FC%,3,hex("0000FF"),adr(titre$))
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,300,100)
clear no_memo%
item_add no_memo%,"1"
item_add no_memo%,"2"
item_add no_memo%,"3"
res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,0,handle(no_memo%))
res% = dll_call2("DrawFlowChart",FC%,1)
position no_Selection_X%,0
position no_Selection_Y%,0
position no_Selection_Largeur%,300
position no_Selection_Hauteur%,100
text no_Selection_Couleur%,"0000FF"
text no_Selection_Titre%,titre$
clear no_Selection_Contenu%
item_add no_Selection_Contenu%,"1"
item_add no_Selection_Contenu%,"2"
item_add no_Selection_Contenu%,"3"
annulerselection()
' show no_AttributsSelection%
end_sub

sub AddStart()
dim_local titre$
titre$ = "Début"
FCE% = dll_call4("AddElementToFlowChart",FC%,4,hex("F0F0F0"),adr(titre$))
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,100,100)
res% = dll_call2("DrawFlowChart",FC%,1)
position no_Start_X%,0
position no_Start_Y%,0
position no_Start_Largeur%,100
position no_Start_Hauteur%,100
text no_Start_Couleur%,"F0F0F0"
annulerselection()
' show no_AttributsStart%
end_sub

sub AddEnd()
dim_local titre$
titre$ = "Arrêt"
FCE% = dll_call4("AddElementToFlowChart",FC%,5,hex("F0F0F0"),adr(titre$))
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,0,0,100,100)
res% = dll_call2("DrawFlowChart",FC%,1)
position no_End_X%,0
position no_End_Y%,0
position no_End_Largeur%,100
position no_End_Hauteur%,100
text no_End_Couleur%,"F0F0F0"
annulerselection()
' show no_AttributsEnd%
end_sub

sub selectionner()
show no_info%
clear no_infotext%
text no_infotext%,"Sélectionner un élément en cliquant dessus..."
DoPoints% = 4
active no_AnnSel%
active no_SuppLiens%
hide no_AttributsConnector%
hide no_AttributsAction%
hide no_AttributsCondition%
hide no_AttributsSelection%
hide no_AttributsStart%
hide no_AttributsEnd%
hide no_AttributsLink%
end_sub

sub annulerselection()
DoPoints% = 0
inactive no_AnnSel%
inactive no_SuppLiens%
hide no_AttributsConnector%
hide no_AttributsAction%
hide no_AttributsCondition%
hide no_AttributsSelection%
hide no_AttributsStart%
hide no_AttributsEnd%
hide no_AttributsLink%
res% = dll_call2("SelectElementInFlowChart",FC%,0)
hide no_info%
end_sub

sub supprimerliens()
res% = dll_call2("RemoveAllLinksFromFlowChartElement",FC%,FCE%)
end_sub

sub valider_connector()
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Connector_X%),position(no_Connector_Y%),M1%,M1%)
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsConnector%
end_sub

sub valider_action()
dim_local titre$
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Action_X%),position(no_Action_Y%),position(no_Action_Largeur%),position(no_Action_Hauteur%))
titre$ = trim$(text$(no_Action_Titre%))
res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,adr(titre$),handle(no_Action_Contenu%))
res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_Action_couleur%)))
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsAction%
end_sub

sub valider_Condition()
dim_local titre$
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Condition_X%),position(no_Condition_Y%),position(no_Condition_Largeur%),position(no_Condition_Hauteur%))
titre$ = trim$(text$(no_Condition_Titre%))
res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,adr(titre$),handle(no_Condition_Contenu%))
res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_Condition_couleur%)))
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsCondition%
end_sub

sub valider_Selection()
dim_local titre$
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Selection_X%),position(no_Selection_Y%),position(no_Selection_Largeur%),position(no_Selection_Hauteur%))
titre$ = trim$(text$(no_Selection_Titre%))
res% = dll_call4("TextForElementOfFlowChart",FC%,FCE%,adr(titre$),handle(no_Selection_Contenu%))
res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_Selection_couleur%)))
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsSelection%
end_sub

sub valider_Start()
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_Start_X%),position(no_Start_Y%),position(no_Start_Largeur%),position(no_Start_Hauteur%))
res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_Start_couleur%)))
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsStart%
end_sub

sub valider_End()
res% = dll_call6("LocateElementOfFlowChart",FC%,FCE%,position(no_End_X%),position(no_End_Y%),position(no_End_Largeur%),position(no_End_Hauteur%))
res% = dll_call3("ColorForElementOfFlowChart",FC%,FCE%,hex(text$(no_End_couleur%)))
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
hide no_AttributsEnd%
end_sub

sub valider_Link()
res% = dll_call3("ColorForLinkOfFlowChart",FC%,FCL%,hex(text$(no_Link_couleur%)))
res% = dll_call3("SelectLinkInFlowChart",FC%,0,adr(ccc%))
res% = dll_call2("DrawFlowChart",FC%,5)
hide no_AttributsLink%
end_sub

sub nouveauprojet()
FC% = dll_call1("DeleteFlowChart",FC%)
FC% = dll_call6("CreateFlowChart",handle(0),0,0,0,0,LignesDeVisee%)
full_space 0
res% = dll_call5("LocateFlowChart",FC%,width(no_cElements%),0,width_client(0)-width(no_cElements%),height_client(0))
' height no_cElements%,300
projet$ = ""
end_sub

sub ouvrirprojet()
dim_local prj$
prj$ = file_name$(no_save%)
if prj$="_" then exit_sub
if lower$(file_extract_extension$(prj$))<>".fcproj"
message "Extension erronnée (*.FCproj)"
exit_sub
end_if
if file_exists(prj$)=0
message("Ce fichier n'existe pas."
exit_sub
end_if

nouveauprojet()
res% = dll_call2("LoadFlowChartProject",FC%,adr(prj$))
if res%<0
message "Erreur en chargement"
else
message "Le projet a été chargé:"+chr$(13)+chr$(10)+prj$
projet$ = prj$
end_if
end_sub

sub enregistrerprojet()
dim_local prj$
if projet$=""
enregistrersousprojet()
exit_sub
end_if
prj$ = projet$
if file_exists(prj$)=1 then file_delete prj$
res% = dll_call2("SaveFlowChartProject",FC%,adr(prj$))
if res%<0
message "Erreur en sauvegarde"
else
message "Le ficher a été créé:"+chr$(13)+chr$(10)+prj$
projet$ = prj$
end_if
end_sub

sub enregistrersousprojet()
dim_local prj$
prj$ = file_name$(no_save%)
if prj$="_" then exit_sub
if lower$(file_extract_extension$(prj$))<>".fcproj"
message "Extension erronnée (*.FCproj)"
exit_sub
end_if
if file_exists(prj$)=1
if message_confirmation_yes_no("Ce fichier existe déjà. Remplacer ?")<>1 then exit_sub
file_delete prj$
end_if
res% = dll_call2("SaveFlowChartProject",FC%,adr(prj$))
if res%<0
message "Erreur en sauvegarde"
else
message "Le ficher a été créé:"+chr$(13)+chr$(10)+prj$
projet$ = prj$
end_if
end_sub

sub lier()
annulerSelLien()
AnnulerSelection()
DoPoints% = 1
npt% = 0
show no_info%
clear no_infotext%
text no_infotext%,"Cliquer sur une sortie..."
active no_AnnLink%
active no_Tracer%
end_sub

sub annulerlier()
res% = dll_call2("ShowRulersInFlowChart",FC%,0)
DoPoints% = 0
npt% = 0
xarray%(0) = 0
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call3("SelectOutputConnectorOfFlowChartElement",FC%,FCEstart%,0)
res% = dll_call2("DrawFlowChart",FC%,1)
inactive no_AnnLink%
inactive no_Tracer%
hide no_info%
end_sub

sub tracer()
dim_local do1%
' rectangulariser le dernier segment
NatureInput% = dll_call3("GetInputConnectorOfFlowChartElement",FCEdest%,adr(xx%),adr(yy%))
if NatureInput%<>0
if npt%=0
res% = dll_call4("GetOutputConnectorOfFlowChartElement",FCEstart%,output%,adr(xxp%),adr(yyp%))
else
xxp% = xArray%(npt%)
yyp% = yArray%(npt%)
end_if

do1% = 0
if abs(xxp%-xx%)<=DeltaRectangle%
xxp% = xx%
do1% = 1
else
if abs(yyp%-yy%)<=DeltaRectangle%
yyp% = yy%
do1% = 1
end_if
end_if
if do1%=1
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yyp%
end_if
if yyp%>(yy%-DeltaRectangle%)
yyp% = yy% - DeltaRectangle%
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yyp%
end_if
if xxp%<>xx%
xxp% = xx%
npt% = npt% + 1
xarray%(0) = npt%
xarray%(npt%) = xxp%
yarray%(npt%) = yyp%
end_if
end_if

res% = dll_call6("ConnectElementsOfFlowChart",FC%,FCEstart%,output%,FCEdest%,adr(xArray%),adr(yArray%))
if res%=0 then message "Erreur en créant la connexion"
res% = dll_call2("ShowRulersInFlowChart",FC%,0)
res% = dll_call2("SelectElementInFlowChart",FC%,0)
res% = dll_call3("SelectOutputConnectorOfFlowChartElement",FC%,FCEstart%,0)
' res% = dll_call2("DrawFlowChart",FC%,1)
DoPoints% = 0
npt% = 0
xarray%(0) = 0
inactive no_AnnLink%
inactive no_Tracer%
hide no_info%
end_sub

sub exporter()
dim_local f$
f$ = file_name$(no_export%)
if f$="_" then exit_sub
if instr(".bmp.jpg.gif.png",lower$(file_extract_extension$(f$)))=0
message "Erreur d'extension"
exit_sub
end_if
if file_exists(f$)=1
if message_confirmation_yes_no("Cette image existe déjà? Remplacer ?")<>1 then exit_sub
end_if
res% = dll_call1("CopyFlowChartToClipboard",FC%)
res% = dll_call1("SaveAnyImageFile",adr(f$))
message "L'image est enregistrée dans:"+chr$(13)+chr$(10)+f$
end_sub

sub selectionLien()
AnnulerSelection()
DoPoints% = 6
npt% = 0
show no_info%
clear no_infotext%
text no_infotext%,"Cliquer sur un lien..."
res% = dll_call2("DrawFlowChart",FC%,5)
active no_AnnSelLink%
active no_DelLink%
end_sub

sub annulerSelLien()
DoPoints% = 0
npt% = 0
xarray%(0) = 0
res% = dll_call3("SelectLinkInFlowChart",FC%,0,adr(ccc%))
res% = dll_call2("DrawFlowChart",FC%,1)
inactive no_AnnSelLink%
inactive no_DelLink%
hide no_info%
hide no_info%
end_sub

sub supprimerLien()
res% = dll_call1("DeleteLinkFromFlowChart",FCL%)
hide no_info%
end_sub

» Un essai d'éditeur 100% Panoramic
» Compilateur FBPano
» Essai d'envoi d'un fichier .rar
» Partage sur MyDrive
» Petit essai autour de la 3D