KGF_dll - nouvelles versions

Sujet: Re: KGF_dll - nouvelles versions Mer 28 Jan 2015 - 1:38

Je ne sais pas ce qui arrive à l'objet BUTTON de Panoramic lorsque je l'injecte dans un TabObject. Je peux injecter un EDIT, et cet EDIT réagit au ON_CLICK et au ON_CHANGE. Par contre, il réagit au HINT - va savoir...

Mais en attendant que je trouve la solution, j'ai une possibilité de contournement (un work-arround, comme ils disent...): utilise mon LabelPictureButton à la place ! Et recharge KGF.dll de mon WebDav ou de mon site. Il n'y a pas de changement de version, mais j'ai fait une petite modif pour faire marcher cela.

Voici le programme de démo, avec un quatrième onglet contenant un BUTTON (malheureusement inactif, mais le HINT marche), un EDIT (fonctionnel, même avec HINT), et un LabelPictureButton (fonctionnel).

Code:: label click0, click2, change3, click3

dim res%, SE1%, SE2%, SE3%, TO%, txt$, hnd1%, hnd2%, hnd3%
dim LPB%, bmp$, up$, dwn$

dll_on "KGF.dll"

edit 1 : hide 1

TO% = dll_call1("CreateTabObject",handle(0))
res% = dll_call5("TabObjectGeometry",TO%,20,20,400,350)
txt$ = "Premier"
res% = dll_call2("AddTabObjectTab",TO%,adr(txt$))
txt$ = "Deuxième"
res% = dll_call2("AddTabObjectTab",TO%,adr(txt$))
txt$ = "Troisième"
res% = dll_call2("AddTabObjectTab",TO%,adr(txt$))
txt$ = "Quatrième"
res% = dll_call2("AddTabObjectTab",TO%,adr(txt$))

res% = dll_call0("SyneditInitialize")

SE1% = dll_call2("SyneditCreate",handle(0),handle(1))
res% = dll_call5("SyneditGeometry",SE1%,10,10,350,280)
hnd1% = dll_call3("SyneditFunction",SE1%,20,0)
res% = dll_call3("AddObjectToTabObjectTab",TO%,1,hnd1%)

SE2% = dll_call2("SyneditCreate",handle(0),handle(1))
res% = dll_call5("SyneditGeometry",SE2%,10,10,350,280)
hnd2% = dll_call3("SyneditFunction",SE2%,20,0)
res% = dll_call3("AddObjectToTabObjectTab",TO%,2,hnd2%)

SE3% = dll_call2("SyneditCreate",handle(0),handle(1))
res% = dll_call5("SyneditGeometry",SE3%,10,10,350,280)
hnd3% = dll_call3("SyneditFunction",SE3%,20,0)
res% = dll_call3("AddObjectToTabObjectTab",TO%,3,hnd3%)

button 2 : top 2,20 : left 2,10 : caption 2,"Cliquez-moi"
res% = dll_call3("AddObjectToTabObjectTab",TO%,4,handle(2))
' on_click 2,click2
' res% = dll_call3("AddSimpleObjectToTabObjectTab",TO%,4,object_internal(2))
  on_click 2,click2
  hint 2,"Il faut me cliquer"

edit 3 : top 3,50 : left 3,10
res% = dll_call3("AddObjectToTabObjectTab",TO%,4,handle(3))
hint 3,"accepte On_Click et On_Change"
on_change 3,change3
on_click 3,click3

bmp$ = ""
up$ = "Cliquez-moi"
dwn$ = "Cliquez-moi"
res% = dll_call6("ConfigureLabelPictureButtonStyle",12,12,1,1,0,0)
res% = dll_call5("ConfigureLabelPictureButtonGeometry",handle(0),120,25,0,0)
LPB% = dll_call6("CreateLabelPictureButton",0,20,100,adr(bmp$),adr(up$),adr(dwn$))
res% = dll_call3("AddSimpleObjectToTabObjectTab",TO%,4,LPB%)

on_click 0,click0

end

click2:
  message "D'accord - vous m'avez cliqué !"
  return

change3:
  message "Le contenu a changé"
  return

click3:
  message "On a cliqué dedans"
  return

click0:
  res% = dll_call0("IdentifyLabelPictureButton")
  if res%=LPB%
   message "clic sur le LabelPictureButton"
  end_if
  return

EDIT

J'ai fait une nouvelle version de KGF.dll pour ça - voir le post suuivant.

Sujet: Re: KGF_dll - nouvelles versions Mer 28 Jan 2015 - 1:56

Nouvelle version:
KGF.dll V4.18 du 28/01/2015

Nouveautés:
- TabObject: la fonction AddSimpleObjectToTabObjectTab peut maintenant injecter un objet LabelPictureButton dans un onglet
- Correction de petites anomalies dans la doc de LabelPictureButton

Modules modifiés:
KGF.dll

Les sources et la doc sont à jour.

Sujet: Re: KGF_dll - nouvelles versions Mer 28 Jan 2015 - 18:11

Nouvelle version:
KGF.dll V4.19 du 28/01/2015

Nouveautés:
- LabelPictureButton: nouvelles fonctions CreateSimpleLabelPictureButton et LabelPictureBttonFunction

Modules modifiés:
KGF.dll

Les sources et la doc sont à jour.

La fonction CreateSimpleLabelPictureButton permet de créer un bouton simplifié qui a l'aspect d'un bouton Panoramic et qui semble fonctionner de la même manière. Mais c'est un vrai LabelPictureButton, mais sans image. Pourtant, la fonction LabelPictureButtonFunction peut lui affecter des textes variables, des tailles de police, couleurs et attributs variables, en fonction de son état "enfoncé" ou "sorti". Le On_Click fonctionne de la même manière que pour un LabelPictureButton normal. Mais, contrairement à un BUTTON Panoramic, un LabelPictureButton simplifié peut être ajouté à un onglet d'un TabObject !

La fonction LabelPictureButtonFunction permet de modifier divers aspects d'un LabelPictureButton après sa création.

Voici une démo qui créer un YabObject avec 4 onglets. Le 4ème contient un LabelPictureButton simplifié qui est opérationnel. D'ailleurs, on voit que les HINT sont opérationnels dans un TabObject, ainsi que le On_Click dans un EDIT:

Code:: label click0, click2, change3, click3

dim res%, SE1%, SE2%, SE3%, TO%, txt$, hnd1%, hnd2%, hnd3%
dim LPB%, bmp$, up$, dwn$, m1%
m1% = 0 - 1

dll_on "KGF.dll"

edit 1 : hide 1

TO% = dll_call1("CreateTabObject",handle(0))
res% = dll_call5("TabObjectGeometry",TO%,20,20,400,350)
txt$ = "Premier"
res% = dll_call2("AddTabObjectTab",TO%,adr(txt$))
txt$ = "Deuxième"
res% = dll_call2("AddTabObjectTab",TO%,adr(txt$))
txt$ = "Troisième"
res% = dll_call2("AddTabObjectTab",TO%,adr(txt$))
txt$ = "Quatrième"
res% = dll_call2("AddTabObjectTab",TO%,adr(txt$))

res% = dll_call0("SyneditInitialize")

SE1% = dll_call2("SyneditCreate",handle(0),handle(1))
res% = dll_call5("SyneditGeometry",SE1%,10,10,350,280)
hnd1% = dll_call3("SyneditFunction",SE1%,20,0)
res% = dll_call3("AddObjectToTabObjectTab",TO%,1,hnd1%)

SE2% = dll_call2("SyneditCreate",handle(0),handle(1))
res% = dll_call5("SyneditGeometry",SE2%,10,10,350,280)
hnd2% = dll_call3("SyneditFunction",SE2%,20,0)
res% = dll_call3("AddObjectToTabObjectTab",TO%,2,hnd2%)

SE3% = dll_call2("SyneditCreate",handle(0),handle(1))
res% = dll_call5("SyneditGeometry",SE3%,10,10,350,280)
hnd3% = dll_call3("SyneditFunction",SE3%,20,0)
res% = dll_call3("AddObjectToTabObjectTab",TO%,3,hnd3%)

button 2 : top 2,20 : left 2,10 : caption 2,"Cliquez-moi"
res% = dll_call3("AddObjectToTabObjectTab",TO%,4,handle(2))
on_click 2,click2
hint 2,"Il faut me cliquer"

edit 3 : top 3,50 : left 3,10
res% = dll_call3("AddObjectToTabObjectTab",TO%,4,handle(3))
hint 3,"accepte On_Click et On_Change"
on_change 3,change3
on_click 3,click3

bmp$ = ""
up$ = "Cliquez-moi"
LPB% = dll_call6("CreateSimpleLabelPictureButton",handle(0),20,100,120,25,adr(up$))
res% = dll_call3("AddSimpleObjectToTabObjectTab",TO%,4,LPB%)
dwn$ = "coucou"
res% = dll_call5("LabelPictureButtonFunction",LPB%,1,0,adr(dwn$),0) : ' changer le libellé
res% = dll_call5("LabelPictureButtonFunction",LPB%,2,0,12,10) : ' changer la taille
res% = dll_call5("LabelPictureButtonFunction",LPB%,3,m1%,255,m1%) : ' changer la couleur
res% = dll_call5("LabelPictureButtonFunction",LPB%,4,0,2,m1%) : ' changer l'attribut "italique"
res% = dll_call5("LabelPictureButtonFunction",LPB%,4,0,3,m1%) : ' changer l'attribut "sousligné"
' 1=italique sousligné 3=barré

on_click 0,click0

end

click2:
message "D'accord - vous m'avez cliqué !"
return

change3:
message "Le contenu a changé"
return

click3:
message "On a cliqué dedans"
return

click0:
res% = dll_call0("IdentifyLabelPictureButton")
if res%=LPB%
message "clic sur le LabelPictureButton"
end_if
return

Sujet: re Mer 28 Jan 2015 - 20:52

Voilà de nouvelles fonctions bien prometteuses ...

Bravo Klaus !

Pourrais tu mettre un petit exemple simple sur la fonction 3 de SyneditFunction
changement des attributs textes "xttgisbp\S" c' est un peu abstrait.
Sont ce des entiers, des chaîne$ ?

Sujet: Re: KGF_dll - nouvelles versions Mer 28 Jan 2015 - 23:56

Code 3: "changer numéros de ligne, police et attributs"
paramétré comme suit:
En-dehors de ce code fonction 3, SyneditFunction a un unique paramètre sous forme de adr(chaine$). Et cette chaîne de caractères est codée comme suit:
format: "xttgisbp\S" avec
x=numéros de ligne (1=afficher les numéros, 0=ne pas afficher)
tt=taille de la police sur 2 chiffres (08, 10, 12, 14, ...)
g=gras (1=gras 0=normal)
i=italique (1=italique 0=normal)
s=sousligné (1=sousligné 0=normal)
b=barré (1=barré 0=normal)
p=police (nom de la police, ex. Courier)
\=séparateur entre police et syntae
S=syntaxe (nom de la syntaxe, ex. Panoramic
sachant que ces paramètres concernent l'affichage de base, sans les variations dues à la coloration syntaxique.

Un exemple concret:
"1101000Courier\Panoramic"
appliqué comme suit:

Code:: dim s$, res%
s$ = "1101000Courier\Panoramic"
' SE% est l'identifiant du Synedit auquel on s'adresse
res% = dll_call3("SyneditFunction",SE%,3,adr(s$))

Sujet: re Jeu 29 Jan 2015 - 0:23

Merci Klaus.

J' ai essayé mais l' attribut gras n' est pas pris en compte.
Je vais essayer les autres... Suspect

Sujet: Re: KGF_dll - nouvelles versions Jeu 29 Jan 2015 - 0:29

En fait, si tu regardes les sources de Synedi_Editor.bas, tu verras que cette fonction sert à transmettre les "options de la page" pour configurer le comportement de base d'un objet Synedit_Editor. Cela n'a aucun intérêt pour agir sur une portion particulière de texte.

Sujet: re Jeu 29 Jan 2015 - 0:35

Voila le code d' un onglet avec un objet synedit:

Code::    Ongle1$ = "Main.bas"
   Tab_res% = dll_call2("AddTabObjectTab",Tab%,adr(Ongle1$))

   Syn%(1) = dll_call2("SyneditCreate",handle(0),handle(Syn_Edit%))
   Syn_res% = dll_call5("SyneditGeometry",Syn%(1),5,5,664,500)
   Syn_hnd1% = dll_call3("SyneditFunction",Syn%(1),20,0)
   Syn_res% = dll_call3("SyneditFunction",Syn%(1),24,16769495)
   Syn_res% = dll_call3("SyneditFunction",Syn%(1),3,adr(SynStyle1$))
   SynStyle1$="1100000Arial\Panoramic"
   Syn_res% = dll_call3("SyneditFunction",Syn%(1),26,SynColorText%(1))
   Syn_res% = dll_call3("SyneditFunction",Syn%(1),1,1): EtatLine%(1)=1
   Tab_res% = dll_call3("AddObjectToTabObjectTab",Tab%,1,Syn_hnd1%)

SynStyle1$="1101000Arial\Panoramic" >> Pas de texte en gras
SynStyle1$="1100100Arial\Panoramic" >> Pas de texte en italique
SynStyle1$="1100010Arial\Panoramic" >> Pas de texte souligné

SynStyle1$="1100001Arial\Panoramic" >>

KGF_dll - nouvelles versions - Page 10 Captur14

Puis à la fermeture :

KGF_dll - nouvelles versions - Page 10 Captur15

Sujet: re Jeu 29 Jan 2015 - 0:39

Je cherchais à créer un style par defaut
et faire fonctionner mes boutons "bold", "italic","underline","barré", combo de police et de taille.
Pour la police et la taille, cela a l' air de fonctionner.

Après je butte pour l' histoire de la coloration syntaxique, le fichier des mots clefs....
Je suis en train de faire de la brasse coulée ou plutôt de la plongée Laughing

Sujet: Re: KGF_dll - nouvelles versions Jeu 29 Jan 2015 - 1:13

En fait, c'est une erreur dans la doc. Ou plutôt, une évolution que j'ai oubliée de documenter. Voici, en avant-première, la vraie information, en attendant que KGF.chm sera corrige.
Les options ont en fait je format suivant:
xttgisbKKKKSSSSCCCCpolice\syntaxe
xttgisb - les 7 premiers caractères sont comme décrits ci-dessus.
Ensuite, on a 3 groupes de 4 caractères chacun, selon le format suivant:
gisb - attributs graphiques pour:
KKKK=attributs des mots-clé
SSSS=attributs des chaînes de caractères (entre "...")
CCCC=attributs des commentaires (après ' ou REM)
police\syntaxe - comme décrit ci-dessus

Desolé pour cette omission !

Sujet: re Jeu 29 Jan 2015 - 1:44

Wouahou !!!! je ne suis pas sorti des paramétrages tout de suite... Laughing

Merci pour cette précision Klaus.

( je comprends maintenant pourquoi nous n' avons pas de boutons Bold,Italic,Souligné, Barré dans l' éditeur... Laughing

)

Sujet: Re: KGF_dll - nouvelles versions Jeu 29 Jan 2015 - 1:52

Eh oui, j'ai galéré pour mettre ça au point dans Synedit_Editor. Et la structure bizarre ce cette chaîne de caractères montre l'évolution par vraiment maîtrisée de cette partie du produit. Enfin, ça marche - c'est déjà ça.

Sujet: re Jeu 29 Jan 2015 - 4:49

J' ai pris le parti de supprimer les boutons de style, ce sera pour les paramètres... Wink

Les combo de la police et de sa taille changent ces attributs pour les 5 onglets
car je ne peux mettre à jour les combo à un changement d' onglet ( on va finir par regretter les objets cachés Laughing

).

Aller, c' est l' heure de Sleep

Sujet: Re: KGF_dll - nouvelles versions Jeu 29 Jan 2015 - 11:03

La doc est corrigée avec le complément de SyneditFunction.

Sujet: re Jeu 29 Jan 2015 - 14:53

Qu' est ce que j' ai écrit de mal ?...

Adresse du fichier de syntaxe ( Que je t' ai volé Laughing

)

Code:: Dim Syntaxe$ : Syntaxe$ =Inf$+"Syntaxe.inf"

Initialisation temporaire pour les essais des varibles contenant les styles et les couleurs

Code:: SUB Inits()
   dim_local i%
' MISE A JOUR DE L APPLICATION

' RECUPERATION DES PARAMETRES UTILISATEUR
   for i%=1 to 6
   EtatLine%(i%)=1
   PolSizeText%(i%)=10
   PoliceText$(i%)="ARIAL"
   StyleN$(i%)="0000"
   StyleK$(i%)="1100"
   StyleT$(i%)="0000"
   StyleC$(i%)="0100"
   ColorN$(i%)="CLBlack"
   ColorK$(i%)="clBlue"
   ColorT$(i%)="clTeal"
   ColorC$(i%)="CLFuchsia"
   next i%

END_SUB

Création d' un onglet avec un objet synedit

Code::    Ongle1$ = "Main.bas"
   Tab_res% = dll_call2("AddTabObjectTab",Tab%,adr(Ongle1$))
' --création de l' objet synedit
   Syn%(1) = dll_call2("SyneditCreate",handle(0),handle(Syn_Edit%))
' --positionnement et dimensions de l' objet synedit
   Syn_res% = dll_call5("SyneditGeometry",Syn%(1),5,5,664,500)
' récupération du handle de l' objet pour l' accrochage sur un onglet
   Syn_hnd1% = dll_call3("SyneditFunction",Syn%(1),20,0)
' --couleur de la goutière
   Syn_res% = dll_call3("SyneditFunction",Syn%(1),24,16769495)
' --adresse du fichier de syntaxe
' Par1$=Syntaxe$
' Par2$=""
' Syn_res% = dll_call4("SyneditConfigureHighlighter",Syn%(1),2,adr(par1$),adr(par2$))
' --attribut de mots clef
' Par1$=StyleK$(1)
' Par2$=ColorK$(1)
' Syn_res% = dll_call4("SyneditConfigureHighlighter",Syn%(1),4,adr(par1$),adr(par2$))
' --attribut des chaines
' Par1$=StyleT$(1)
' Par2$=ColorT$(1)
' Syn_res% = dll_call4("SyneditConfigureHighlighter",Syn%(1),5,adr(par1$),adr(par2$))
' --attribut des commentaires
' Par1$=StyleC$(1)
' Par2$=ColorC$(1)
' Syn_res% = dll_call4("SyneditConfigureHighlighter",Syn%(1),6,adr(par1$),adr(par2$))
   SynStyle$=str$(EtatLine%(1))+str$(PolSizeText%(1))+StyleN$(1)+StyleK$(1)+StyleT$(1)+StyleC$(1)+PoliceText$(1)+"\PANORAMIC"
   Syn_res% = dll_call3("SyneditFunction",Syn%(1),3,adr(SynStyle$))
   Tab_res% = dll_call3("AddObjectToTabObjectTab",Tab%,1,Syn_hnd1%)

dès que j' active une des fonctions highlighter, j' ai droit à un acces violation

Sujet: Re: KGF_dll - nouvelles versions Jeu 29 Jan 2015 - 15:23

Difficile de le tester ainsi, avec ces morceaux de code fragmentaires. Mais, voici ce que j'ai relevé:

1. construction des paramètres:

Code:: SynStyle$=str$(EtatLine%(1))+str$(PolSizeText%(1))+StyleN$(1)+StyleK$(1)+StyleT$(1)+StyleC$(1)+PoliceText$(1)+"\PANORAMIC"
Syn_res% = dll_call3("SyneditFunction",Syn%(1),3,adr(SynStyle$))

Remarque 1: je passerais la syntaxe comme "Panoramic" au lieu de "PANORAMIC"
Remarque 2: es-tu certain que la longueur de la chaîne précédant le nom de la police est de 19 caractères, très précisément ? Vérifie-le, par exemple en affichant SynStyle avant de le passer à SyneditFunction.

2. Une fois que Synedit est créé, il convient de fixer la syntaxe, par:

Code:: Syntaxe$ = "Panoramic"
res% = dll_call3("SyneditFunction",SE%,5,adr(Syntaxe$))

Prends le source de Synedit_Editor et regarde comment c'est fait. Au besoin, insère des messages pour afficher les variables juste avant appel des fonctions DLL.

Sujet: Re Jeu 29 Jan 2015 - 15:36

Ce n' est pas "SyneditFunction" qui créé un bug mais les fonctions "SyneditConfigureHighlighter" que j' ai mis en REM...

J' ai mis une Maj de mon zip sur le webdav,
comme celà tu pourras tout voir...ou pas. Laughing

Sujet: Re: KGF_dll - nouvelles versions Jeu 29 Jan 2015 - 15:49

Certes, mais d'après ce que j'ai vu, tu n'as pas appelé

Code:: res% = dll_call3("SyneditFunction",SE%,5,adr(Syntaxe$))

pour fixer la syntaxe... et donc, la configuration pose problème puisqu'elle est prévue pour Panoramic.

Je vais regarder le ZIP néanmoins.

Sujet: Re: KGF_dll - nouvelles versions Jeu 29 Jan 2015 - 16:14

J'ai vu que tu utilises CLBlack et CLFuchsia. Cela m'a fait découvrir que j'ai fait quelques approximations de codage, aussi bien dans la DLL que dans la doc. Les deux sont corrigés.

En tout cas, CLBlack et CLFuchsia n'existaient pas. C'étaient ClBlack et ClFuchsia. Mais j'ai corrigé tout cela, et maintenant, tous les noms de couleurs commencent par les 2 lettres "cl" en minuscules. Désolé pour cette anomalie.

J'ai lancé ton programme. Je n'ai pas encore modifié le code, mais je peux te dire que ton interface visuelle est superbe. Bravo !

EDIT

J'ai oublié de dire: recharge la DLL et la doc !

Sujet: Re: KGF_dll - nouvelles versions Jeu 29 Jan 2015 - 16:25

J'ai modifié GUI.bas en ajoutant le choix de la syntaxe:

Code:: ' --création de l' objet synedit
Syn%(1) = dll_call2("SyneditCreate",handle(0),handle(Syn_Edit%))
' --positionnement et dimensions de l' objet synedit
Syn_res% = dll_call5("SyneditGeometry",Syn%(1),5,5,664,500)
' --Klaus: choisir Panoramic comme syntaxe
dim klaus$ : klaus$ = "Panoramic"
Syn_res% = dll_call3("SyneditFunction",Syn%(1),5,adr(klaus$))

Puis, j'ai activé tous les appels à SyneditConfigureHighlighter. Je n'ai aucun plantage. Mais la coloration syntaxique ne se fait pas. Je vais continuer à creuser un peu...

Sujet: re Jeu 29 Jan 2015 - 16:29

Merci pour l' interface mais elle ne serait rien
sans Panoramic et Kgf.dll.

Je crois qu' il serait bien de mettre quelques exemples simples et concrets pour synedit.
Cela t' évitera beaucoup de posts sur le forum... Laughing

Sujet: Re: KGF_dll - nouvelles versions Jeu 29 Jan 2015 - 17:12

Dans la doc, il y a des exemples, plus ou moins simples, pour chaque fonction. Et il y a le source de Synedit_Editor...

Revenons à ton code. Dans le module GUI.bas, remplace tous les "\PANORAMIC' par "\Panoramic", et ta syntaxe sera reconnue, avec les attributs corrrespondants. Et, pour la police, remplace "ARIAL" par "Arial". Les attributs graphiques passent bien, les mots-clé sont reconnus, les commentaires aussi.

Si tu suis les quelques conseils de ce poste et des précédents, tu devrais avancer d'un grand pas.

Voici GUI.bas avec mes modifs:

Code:: ' ------------------------------------------------------------------------------
' INTERFACE UTILISATEUR
' ------------------------------------------------------------------------------
SUB Gui()
dim_local res%,hnd%,Par1$,Par2$
hnd%=handle(0)
res% = DLL_call2("SetMinimizeMaximize",hnd%,0)
' FORM 0
Height 0,650 : Width 0,1100
Top 0,(screen_y-height(0))/2 : Left 0,(screen_x-width(0))/2
Caption 0,"Personnal Panoramic Editor Vs "+Vers$

' DLIST
no%=no%+1 : KW_dlist%=no% : Dlist no%
no%=no%+1 : Sub_dlist%=no% : Dlist no%
no%=no%+1 : Param_dlist%=no% : Dlist no%
no%=no%+1 : Temp_dlist%=no% : Dlist no%
no%=no%+1 : Inc_dlist%=no% : Dlist no%

' MENU
no%=no%+1 : MM%=no% : Main_menu no%
no%=no%+1 : SM%(1)=no% :O_Sub_menu(no%,MM%,"Fichier",1,1)
no%=no%+1 : SSM%(1)=no% :O_Sub_menu(no%,SM%(1),"Nouveau",1,1)
no%=no%+1 : SSM%(2)=no% :O_Sub_menu(no%,SM%(1),"Ouvrir",1,1)
no%=no%+1 : SSM%(3)=no% :O_Sub_menu(no%,SM%(1),"Imprimer",1,1)
no%=no%+1 : SSM%(4)=no% :O_Sub_menu(no%,SM%(1),"Enregistrer",1,1)
no%=no%+1 : SSM%(5)=no% :O_Sub_menu(no%,SM%(1),"Enregistrer sous *.zip",1,1)
no%=no%+1 : SSM%(6)=no% :O_Sub_menu(no%,SM%(1),"-",1,1)
no%=no%+1 : SSM%(7)=no% :O_Sub_menu(no%,SM%(1),"Quitter",1,1)
no%=no%+1 : SM%(2)=no% :O_Sub_menu(no%,MM%,"Prévisualiser",1,1)
no%=no%+1 : SM%(3)=no% :O_Sub_menu(no%,MM%,"Compiler",1,1)
no%=no%+1 : SSM%(8)=no% :O_Sub_menu(no%,SM%(3),">>> *.exe",1,1)
no%=no%+1 : SSM%(9)=no% :O_Sub_menu(no%,SM%(3),">>> *.apk",1,1)
no%=no%+1 : SM%(4)=no% :O_Sub_menu(no%,MM%,"Paramètres",1,1)
no%=no%+1 : SM%(5)=no% :O_Sub_menu(no%,MM%,"A Propos...",1,1)
no%=no%+1 : SM%(6)=no% :O_Sub_menu(no%,MM%,"Aide",1,1)
no%=no%+1 : SSM%(10)=no% :O_Sub_menu(no%,SM%(6),"PPE",1,1)
no%=no%+1 : SSM%(11)=no% :O_Sub_menu(no%,SM%(6),"Panoramic",1,1)
no%=no%+1 : SSM%(12)=no% :O_Sub_menu(no%,SM%(6),"KGF",1,1)
no%=no%+1 : SSM%(13)=no% :O_Sub_menu(no%,SM%(6),"BDR",1,1)

' BARRE D OUTILS
no%=no%+1 : TB_Edit%=no%
O_Edit(no%,0,0,0,0,0,0,"",1)
no%=no%+1 : TB_Pan%=no%
Panel no% : color no%,205,255,255
Init_TB()

' (police)
no%=no%+1 : Combo1%=no%
O_Combo(no%,0,1,2,365,0,215,"",1)
font_name no%,"arial":font_bold no%
font_names_load no% :text no%, item_read$(no%,1)

' (taille de la police)
no%=no%+1 : Combo2%=no%
O_Combo(no%,0,1,2,583,0,40,"",1)
font_name no%,"arial":font_bold no% :text no%,"8"
dim i%
for i%=8 to 14 : item_add no%,str$(i%):next i%
free i%

' TAB

Tab% = dll_call1("CreateTabObject",handle(TB_Pan%))
Tab_res% = dll_call6("TabObjectFunction",Tab%,5,0,3,0,0)
Tab_res% = dll_call6("TabObjectFunction",Tab%,1,0,1,16769495,0)
Tab_res% = dll_call5("TabObjectGeometry",Tab%,205,5,width(TB_Pan%)-410,510)

Syn_Nb% = dll_call0("SyneditInitialize")

no%=no%+1 : Syn_Edit%=no%
Edit no% : Hide no% : On_change no%,Change
' -----------
Ongle1$ = "Main.bas"
Tab_res% = dll_call2("AddTabObjectTab",Tab%,adr(Ongle1$))
' --création de l' objet synedit
Syn%(1) = dll_call2("SyneditCreate",handle(0),handle(Syn_Edit%))
' --positionnement et dimensions de l' objet synedit
Syn_res% = dll_call5("SyneditGeometry",Syn%(1),5,5,664,500)
' --Klaus: choisir Panoramic comme syntaxe
dim klaus$ : klaus$ = "Panoramic"
Syn_res% = dll_call3("SyneditFunction",Syn%(1),5,adr(klaus$))
if Syn_res%<0 then message "oups 1"
' récupération du handle de l' objet pour l' accrochage sur un onglet
Syn_hnd1% = dll_call3("SyneditFunction",Syn%(1),20,0)
' --couleur de la goutière
Syn_res% = dll_call3("SyneditFunction",Syn%(1),24,16769495)
if Syn_res%<0 then message "oups 2"
' --adresse du fichier de syntaxe
Par1$=Syntaxe$
Par2$=""
Syn_res% = dll_call4("SyneditConfigureHighlighter",Syn%(1),2,adr(par1$),adr(par2$))
if Syn_res%<0 then message "oups 3"
' --attribut de mots clef
Par1$=StyleK$(1)
Par2$=ColorK$(1)
Syn_res% = dll_call4("SyneditConfigureHighlighter",Syn%(1),4,adr(par1$),adr(par2$))
if Syn_res%<0 then message "oups 4"
' --attribut des chaines
Par1$=StyleT$(1)
Par2$=ColorT$(1)
Syn_res% = dll_call4("SyneditConfigureHighlighter",Syn%(1),5,adr(par1$),adr(par2$))
if Syn_res%<0 then message "oups 5"
' --attribut des commentaires
Par1$=StyleC$(1)
Par2$=ColorC$(1)
Syn_res% = dll_call4("SyneditConfigureHighlighter",Syn%(1),6,adr(par1$),adr(par2$))
if Syn_res%<0 then message "oups 6"
' SynStyle$=str$(EtatLine%(1))+str$(PolSizeText%(1))+StyleN$(1)+StyleK$(1)+StyleT$(1)+StyleC$(1)+PoliceText$(1)+"\PANORAMIC"
SynStyle$=str$(EtatLine%(1))+str$(PolSizeText%(1))+StyleN$(1)+StyleK$(1)+StyleT$(1)+StyleC$(1)+PoliceText$(1)+"\Panoramic"
message "["+SynStyle$+"]"
Syn_res% = dll_call3("SyneditFunction",Syn%(1),3,adr(SynStyle$))
if Syn_res%<0 then message "oups 7"
Tab_res% = dll_call3("AddObjectToTabObjectTab",Tab%,1,Syn_hnd1%)

' -----------
Ongle2$ = "VAR.bas"
Tab_res% = dll_call2("AddTabObjectTab",Tab%,adr(Ongle2$))

Syn%(2) = dll_call2("SyneditCreate",handle(0),handle(Syn_Edit%))
Syn_res% = dll_call5("SyneditGeometry",Syn%(2),5,5,664,500)
Syn_hnd2% = dll_call3("SyneditFunction",Syn%(2),20,0)
Syn_res% = dll_call3("SyneditFunction",Syn%(2),24,16769495)
' SynStyle$=str$(EtatLine%(2))+str$(PolSizeText%(2))+StyleN$(2)+StyleK$(2)+StyleT$(2)+StyleC$(2)+PoliceText$(2)+"\PANORAMIC"
SynStyle$=str$(EtatLine%(2))+str$(PolSizeText%(2))+StyleN$(2)+StyleK$(2)+StyleT$(2)+StyleC$(2)+PoliceText$(2)+"\Panoramic"
Syn_res% = dll_call3("SyneditFunction",Syn%(2),3,adr(SynStyle$))
Tab_res% = dll_call3("AddObjectToTabObjectTab",Tab%,2,Syn_hnd2%)

' -----------
Ongle3$ = "LAB.bas"
Tab_res% = dll_call2("AddTabObjectTab",Tab%,adr(Ongle3$))

Syn%(3) = dll_call2("SyneditCreate",handle(0),handle(Syn_Edit%))
Syn_res% = dll_call5("SyneditGeometry",Syn%(3),5,5,664,500)
Syn_hnd3% = dll_call3("SyneditFunction",Syn%(3),20,0)
Syn_res% = dll_call3("SyneditFunction",Syn%(3),24,16769495)
SynStyle$=str$(EtatLine%(3))+str$(PolSizeText%(3))+StyleN$(3)+StyleK$(3)+StyleT$(3)+StyleC$(3)+PoliceText$(3)+"\PANORAMIC"
Syn_res% = dll_call3("SyneditFunction",Syn%(3),3,adr(SynStyle$))
Tab_res% = dll_call3("AddObjectToTabObjectTab",Tab%,3,Syn_hnd3%)

' -----------
Ongle4$ = "GUI.bas"
Tab_res% = dll_call2("AddTabObjectTab",Tab%,adr(Ongle4$))

Syn%(4) = dll_call2("SyneditCreate",handle(0),handle(Syn_Edit%))
Syn_res% = dll_call5("SyneditGeometry",Syn%(4),5,5,664,500)
Syn_hnd4% = dll_call3("SyneditFunction",Syn%(4),20,0)
Syn_res% = dll_call3("SyneditFunction",Syn%(4),24,16769495)
' SynStyle$=str$(EtatLine%(4))+str$(PolSizeText%(4))+StyleN$(4)+StyleK$(4)+StyleT$(4)+StyleC$(4)+PoliceText$(4)+"\PANORAMIC"
SynStyle$=str$(EtatLine%(4))+str$(PolSizeText%(4))+StyleN$(4)+StyleK$(4)+StyleT$(4)+StyleC$(4)+PoliceText$(4)+"\Panoramio"
Syn_res% = dll_call3("SyneditFunction",Syn%(4),3,adr(SynStyle$))
Tab_res% = dll_call3("AddObjectToTabObjectTab",Tab%,4,Syn_hnd4%)

' -----------
Ongle5$ = "FCT.bas"
Tab_res% = dll_call2("AddTabObjectTab",Tab%,adr(Ongle5$))

Syn%(5) = dll_call2("SyneditCreate",handle(0),handle(Syn_Edit%))
Syn_res% = dll_call5("SyneditGeometry",Syn%(5),5,5,664,500)
Syn_hnd5% = dll_call3("SyneditFunction",Syn%(5),20,0)
Syn_res% = dll_call3("SyneditFunction",Syn%(5),24,16769495)
' SynStyle$=str$(EtatLine%(5))+str$(PolSizeText%(5))+StyleN$(5)+StyleK$(5)+StyleT$(5)+StyleC$(5)+PoliceText$(5)+"\PANORAMIC"
SynStyle$=str$(EtatLine%(5))+str$(PolSizeText%(5))+StyleN$(5)+StyleK$(5)+StyleT$(5)+StyleC$(5)+PoliceText$(5)+"\Panoramic"
Syn_res% = dll_call3("SyneditFunction",Syn%(5),3,adr(SynStyle$))
Tab_res% = dll_call3("AddObjectToTabObjectTab",Tab%,5,Syn_hnd5%)

' -----------
TabAttribut(Tab%,15132390,15132390,15724527,"Times new roman",10,1,0,16729600)

' PANNEAUX
' --Panneaux de gauche
' --Panel 4 -- Liste des includes projet --
no%=no%+1 : Pan%(4)=no%
Panel no% : Parent no%,TB_Pan%
width no%,200 : height no%,242
Top no%,301 : Left no%,0
color no%,230,230,230
PanEtat%(1)=1

no%=no%+1 : Pictpan%(4)=no%
Picture no% : Parent no%,Pan%(4)
height no%,15 : width no%,width(Pan%(4))-2
top no%, height(Pan%(4))-(height(no%)+1): left no%,1
Color no%,215,225,255
On_Click no%,Clic :cursor_point no%

no%=no%+1 : Alphpan%(4)=no%
Alpha no% : Parent no%,Pan%(4)
top no%,top(Pictpan%(4)): left no%,10
Color no%,215,225,255
font_name no%,"Times new roman" : font_size no%,10 : font_bold no%
font_color no%,0,110,0
Caption no%,"Includes"
On_Click no%,Clic :cursor_point no%

no%=no%+1 : Inc_list%=no%
O_List(no%,Pan%(4),1,5,2,192,195,"",1)
no%=no%+1 : B_addinclude%=no%
O_Button(no%,Pan%(4),1,202,175,20,20,"+",1)
hint no%,"Ajouter un fichier"

' --Panel 5 -- Liste des Dlls projet --
no%=no%+1 : Pan%(5)=no%
Panel no% : Parent no%,TB_Pan%
width no%,200 : height no%,242
Top no%,272-(height(no%)-30) : Left no%,0
color no%,230,230,230

no%=no%+1 : Pictpan%(5)=no%
Picture no% : Parent no%,Pan%(5)
height no%,15 : width no%,width(Pan%(5))-2
top no%, height(Pan%(5))-(height(no%)+1) : left no%,1
Color no%,215,225,255
On_Click no%,Clic :cursor_point no%

no%=no%+1 : Alphpan%(5)=no%
Alpha no% : Parent no%,Pan%(5)
top no%,top(Pictpan%(5)): left no%,10
Color no%,215,225,255
font_name no%,"Times new roman" : font_size no%,10 : font_bold no%
font_color no%,0,0,200
Caption no%,"Dlls"
On_Click no%,Clic :cursor_point no%

no%=no%+1 : Dll_list%=no%
O_List(no%,Pan%(5),1,5,2,192,195,"",1)
no%=no%+1 : B_adddll%=no%
O_Button(no%,Pan%(5),1,202,175,20,20,"+",1)
hint no%,"Ajouter une dll"

' --Panel 6 -- Liste des images
no%=no%+1 : Pan%(6)=no%
Panel no% : Parent no%,TB_Pan%
width no%,200 : height no%,242
Top no%,272-(height(no%)-15) : Left no%,0
color no%,230,230,230

no%=no%+1 : Pictpan%(6)=no%
Picture no% : Parent no%,Pan%(6)
height no%,15 : width no%,width(Pan%(6))-2
top no%, height(Pan%(6))-(height(no%)+1) : left no%,1
Color no%,215,225,255
On_Click no%,Clic :cursor_point no%

no%=no%+1 : Alphpan%(6)=no%
Alpha no% : Parent no%,Pan%(6)
top no%,top(Pictpan%(6)): left no%,10
Color no%,215,225,255
font_name no%,"Times new roman" : font_size no%,10 : font_bold no%
font_color no%,0,0,200
Caption no%,"Images"
On_Click no%,Clic :cursor_point no%

no%=no%+1 : Img_list%=no%
O_List(no%,Pan%(6),1,5,2,192,195,"",1)
no%=no%+1 : B_addimage%=no%
O_Button(no%,Pan%(6),1,202,175,20,20,"+",1)
hint no%,"Ajouter une image"

' --Panel 1 -- Liste des variables projet --
no%=no%+1 : Pan%(1)=no%
Panel no% : Parent no%,TB_Pan%
width no%,200 : height no%,242
Top no%,30 : Left no%,0
color no%,230,230,230
PanEtat%(1)=1

no%=no%+1 : Pictpan%(1)=no%
Picture no% : Parent no%,Pan%(1)
height no%,15 : width no%,width(Pan%(1))-2
top no%, height(Pan%(1))-(height(no%)+1): left no%,1
Color no%,215,225,255
On_Click no%,Clic :cursor_point no%

no%=no%+1 : Alphpan%(1)=no%
Alpha no% : Parent no%,Pan%(1)
top no%,top(Pictpan%(1)): left no%,10
Color no%,215,225,255
font_name no%,"Times new roman" : font_size no%,10 : font_bold no%
font_color no%,0,110,0
Caption no%,"Variables"
On_Click no%,Clic :cursor_point no%

no%=no%+1 : Var_list%=no%
O_List(no%,Pan%(1),1,5,2,192,195,"",1)
no%=no%+1 : Edit_AjVar%=no%
O_Edit(no%,Pan%(1),1,202,2,0,160,"",0)
Hint no%,"Format 1 variable : ab%"+chr$(13)+"Format x variables : ab%,rg%,ac$,a"
no%=no%+1 : B_addvariable%=no%
O_Button(no%,Pan%(1),1,202,175,20,20,"+",1)
hint no%,"Ajouter la variable"

' --Panel 2 -- Liste des Labels projet --
no%=no%+1 : Pan%(2)=no%
Panel no% : Parent no%,TB_Pan%
width no%,200 : height no%,242
Top no%,0-(height(no%)-30) : Left no%,0
color no%,230,230,230

no%=no%+1 : Pictpan%(2)=no%
Picture no% : Parent no%,Pan%(2)
height no%,15 : width no%,width(Pan%(2))-2
top no%, height(Pan%(2))-(height(no%)+1) : left no%,1
Color no%,215,225,255
On_Click no%,Clic :cursor_point no%

no%=no%+1 : Alphpan%(2)=no%
Alpha no% : Parent no%,Pan%(2)
top no%,top(Pictpan%(2)): left no%,10
Color no%,215,225,255
font_name no%,"Times new roman" : font_size no%,10 : font_bold no%
font_color no%,0,0,200
Caption no%,"Labels"
On_Click no%,Clic :cursor_point no%

no%=no%+1 : Lab_list%=no%
O_List(no%,Pan%(2),1,5,2,192,195,"",1)
no%=no%+1 : Edit_AjLab%=no%
O_Edit(no%,Pan%(2),1,202,2,0,160,"",0)
no%=no%+1 : B_addlabel%=no%
O_Button(no%,Pan%(2),1,202,175,20,20,"+",1)
hint no%,"Ajouter le label"

' --Panel 3 -- Liste des procédures
no%=no%+1 : Pan%(3)=no%
Panel no% : Parent no%,TB_Pan%
width no%,200 : height no%,242
Top no%,0-(height(no%)-15) : Left no%,0
color no%,230,230,230

no%=no%+1 : Pictpan%(3)=no%
Picture no% : Parent no%,Pan%(3)
height no%,15 : width no%,width(Pan%(3))-2
top no%, height(Pan%(3))-(height(no%)+1) : left no%,1
Color no%,215,225,255
On_Click no%,Clic :cursor_point no%

no%=no%+1 : Alphpan%(3)=no%
Alpha no% : Parent no%,Pan%(3)
top no%,top(Pictpan%(3)): left no%,10
Color no%,215,225,255
font_name no%,"Times new roman" : font_size no%,10 : font_bold no%
font_color no%,0,0,200
Caption no%,"Procédures"
On_Click no%,Clic :cursor_point no%

no%=no%+1 : Proc_list%=no%
O_List(no%,Pan%(3),1,5,2,218,195,"",1)

' --Panneaux de droite
' --Panel 7
no%=no%+1 : Pan%(7)=no%
Panel no% : Parent no%,TB_Pan%
width no%,200 : height no%,514
Top no%,30 : Left no%,width(TB_Pan%)-width(no%)
color no%,230,230,230
PanEtat%(4)=1

no%=no%+1 : Pictpan%(7)=no%
Picture no% : Parent no%,Pan%(7)
height no%,15 : width no%,width(Pan%(7))-2
top no%, height(Pan%(7))-(height(no%)+1) : left no%,1
Color no%,215,225,255
On_Click no%,Clic :cursor_point no%

no%=no%+1 : Alphpan%(7)=no%
Alpha no% : Parent no%,Pan%(7)
top no%,top(Pictpan%(7)): left no%,10
Color no%,215,225,255
font_name no%,"Times new roman" : font_size no%,10 : font_bold no%
font_color no%,0,110,0
Caption no%,"Couleurs"
On_Click no%,Clic :cursor_point no%

' --Panel 8
no%=no%+1 : Pan%(8)=no%
Panel no% : Parent no%,TB_Pan%
width no%,200 : height no%,514
Top no%,0-(height(no%)-30) : Left no%,width(TB_Pan%)-width(no%)
color no%,230,230,230

no%=no%+1 : Pictpan%(8)=no%
Picture no% : Parent no%,Pan%(8)
height no%,15 : width no%,width(Pan%(8))-2
top no%, height(Pan%(8))-(height(no%)+1) : left no%,1
Color no%,215,225,255
On_Click no%,Clic :cursor_point no%

no%=no%+1 : Alphpan%(8)=no%
Alpha no% : Parent no%,Pan%(8)
top no%,top(Pictpan%(8)): left no%,10
Color no%,215,225,255
font_name no%,"Times new roman" : font_size no%,10 : font_bold no%
font_color no%,0,0,200
Caption no%,"Codes des touches"
On_Click no%,Clic :cursor_point no%

no%=no%+1
O_Alpha(no%,Pan%(8),1,10,30,0,0,"Taper sur une touche")
font_name no%,"arial" :font_bold no% : font_size no%,10
font_color no%,0,0,200 : font_underline no%

no%=no%+1 :KDC_result%=no%
KDC_result$="Key_Down_Code ="
O_Alpha(no%,Pan%(8),1,40,10,0,0,KDC_result$)
font_name no%,"arial" :font_bold no% : font_size no%,10

no%=no%+1 :KDS_result%=no%
KDS_result$="Key_Down_Special ="
O_Alpha(no%,Pan%(8),1,60,10,0,0,KDS_result$)
font_name no%,"arial" :font_bold no%: font_size no%,10

no%=no%+1 :KUC_result%=no%
KUC_result$="Key_Up_Code ="
O_Alpha(no%,Pan%(8),1,80,10,0,0,KUC_result$)
font_name no%,"arial" :font_bold no% : font_size no%,10

no%=no%+1 :KUS_result%=no%
KUS_result$="Key_Up_Special ="
O_Alpha(no%,Pan%(8),1,100,10,0,0,KUS_result$)
font_name no%,"arial" :font_bold no% : font_size no%,10

no%=no%+1 :SC_result%=no%
SC_result$="Scancode ="
O_Alpha(no%,Pan%(8),1,120,10,0,0,SC_result$)
font_name no%,"arial" :font_bold no% : font_size no%,10

no%=no%+1 :ResetKC%=no%
O_Button(no%,Pan%(8),1,125,150,20,20,"R",1)
font_name no%,"arial":font_bold no%
hint no%,"Reset"

' --Panel 9
no%=no%+1 : Pan%(9)=no%
Panel no% : Parent no%,TB_Pan%
width no%,200 : height no%,513
Top no%,0-(height(no%)-15) : Left no%,width(TB_Pan%)-width(no%)
color no%,230,230,230

no%=no%+1 : Pictpan%(9)=no%
Picture no% : Parent no%,Pan%(9)
height no%,15 : width no%,width(Pan%(9))-2
top no%, height(Pan%(9))-(height(no%)+1) : left no%,1
Color no%,215,225,255
On_Click no%,Clic :cursor_point no%

no%=no%+1 : Alphpan%(9)=no%
Alpha no% : Parent no%,Pan%(9)
top no%,top(Pictpan%(9)): left no%,10
Color no%,215,225,255
font_name no%,"Times new roman" : font_size no%,10 : font_bold no%
font_color no%,0,0,200
Caption no%,"Strings"
On_Click no%,Clic :cursor_point no%

no%=no%+1
O_Alpha(no%,Pan%(9),1,20,10,0,0,"ASC")
font_name no%,"arial":font_bold no% : font_underline no%
font_color no%,0,0,200

no%=no%+1 :ASC_edit%=no%
O_Edit(no%,Pan%(9),1,40,10,0,30,"",0)

no%=no%+1 :ASC_button%=no%
O_Button(no%,Pan%(9),1,40,50,20,20,">>",1)
font_bold no%

no%=no%+1 :ASC_result%=no%
ASC_result$="ASC("+chr$(34)+"A"+chr$(34)+")=65"
O_Alpha(no%,Pan%(9),1,43,80,0,0,ASC_result$)
font_name no%,"arial" :font_bold no% : font_size no%,10

no%=no%+1
O_Alpha(no%,Pan%(9),1,70,10,0,0,"Chr$ (0-255)")
font_name no%,"arial":font_bold no% : font_underline no%
font_color no%,0,0,200

no%=no%+1 :CHR_edit%=no%
O_Edit(no%,Pan%(9),1,90,10,0,30,"",0)

no%=no%+1 :CHR_button%=no%
O_Button(no%,Pan%(9),1,90,50,20,20,">>",1)
font_bold no%

no%=no%+1 :CHR_result%=no%
CHR_result$="Chr$(65)="+chr$(34)+"A"+chr$(34)
O_Alpha(no%,Pan%(9),1,93,80,0,0,CHR_result$)
font_name no%,"arial" :font_bold no% : font_size no%,10

' --Panel 10 -- Listes des mots clefs
no%=no%+1 : Pan%(10)=no%
Panel no% : Parent no%,TB_Pan%
width no%,300 : height no%,544
Top no%,0 : Left no%,width(TB_Pan%)+width(no%)
color no%,230,230,230

no%=no%+1 : Pictpan%(10)=no%
Picture no% : Parent no%,Pan%(10)
width no%,15 : height no%,height(Pan%(10))-2
top no%, 1 : left no%,1
Color no%,215,225,255
On_Click no%,Clic :cursor_point no%

no%=no%+1 : Alphpan%(10)=no%
Alpha no% : Parent no%,Pan%(10)
top no%,250: left no%,2
color no%,215,225,255
font_name no%,"Wingdings 3" : font_size no%,10 : font_bold no%
font_color no%,0,110,0
Caption no%,"t"
On_Click no%,Clic :cursor_point no%

no%=no%+1
Alpha no% : parent no%,Pan%(10):top no%,5 : left no%,17
font_name no%,"Times new roman" : font_size no%,10 : font_bold no%
font_color no%,0,0,200
Caption no%,"Liste des mots clef :"

no%=no%+1 : KW_Liste%=no%
O_List(no%,Pan%(10),1,25,17,488,280,"",1):cursor_point no%
font_name no%,"arial":font_color no%,130,25,0 :font_bold no%
Init_Keyword_List()
on_click no%,clic
on_double_click no%,DClic

' --Panel 11 -- Listes des Procédures
no%=no%+1 : Pan%(11)=no%
Panel no% : Parent no%,TB_Pan%
width no%,300 : height no%,544
Top no%,0 : Left no%,width(TB_Pan%)+width(no%)
color no%,230,230,230

no%=no%+1 : Pictpan%(11)=no%
Picture no% : Parent no%,Pan%(11)
width no%,15 : height no%,height(Pan%(11))-2
top no%, 1 : left no%,1
Color no%,215,225,255
on_click no%,clic
On_Click no%,Clic :cursor_point no%

no%=no%+1 : Alphpan%(11)=no%
Alpha no% : Parent no%,Pan%(11)
top no%,250: left no%,2
color no%,215,225,255
font_name no%,"Wingdings 3" : font_size no%,10 : font_bold no%
font_color no%,0,110,0
Caption no%,"t"
On_Click no%,Clic :cursor_point no%

no%=no%+1
Alpha no% : parent no%,Pan%(11):top no%,5 : left no%,17
font_name no%,"Times new roman" : font_size no%,10 : font_bold no%
font_color no%,0,0,200
Caption no%,"Liste des Procédures :"

no%=no%+1 : Sub_Liste%=no%
O_List(no%,Pan%(11),1,25,17,488,280,"",1):cursor_point no%
font_name no%,"arial":font_color no%,130,25,0 :font_bold no%
Init_Sub_List()
on_double_click no%,DClic

' BARRE DE STATUT
no%=no%+1 :SB%=no% :O_Statut_Bar(no%,0,1,1)
no%=no%+1 :SB_alpha%=no% :O_Alpha(no%,0,1,top(sb%)+3,10,0,0,"")
color no%,230,230,230
font_name no%,"arial"
font_color no%,0,0,250
no%=no%+1 :SB_PB%=no% :O_Progress_bar(no%,0,0,top(sb%)+3,width(0)-150,0,100)
min no%,0 :max no%,100 :position no%,0
END_SUB

' ############## FORM AIDE PANORAMIC #########################################

Sub Pano_help()
dim_local hnd%,res%,url$
url$="http://panoramic-language.pagesperso-orange.fr/French/DOCUMENTS.htm"
if PanoHelpForm%>0
show PanoHelpForm%
else
no%=no%+1 : PanoHelpForm%=no%
O_Form(no%,0,1,0,0,480,740,"Aide Panoramic")
hnd%=handle(PanoHelpForm%)
res% = DLL_call2("SetMinimizeMaximize",hnd%,0)
no%=no%+1 : HP1_button%=no%
O_Button(no%,PanoHelpForm%,1,5,5,20,20,"",1)
font_name no%,"Webdings":caption no%,"3":font_size no%,12
no%=no%+1 : HP2_button%=no%
O_Button(no%,PanoHelpForm%,1,5,30,20,20,"",1)
font_name no%,"Webdings":caption no%,"H":font_size no%,12
no%=no%+1 : HP3_button%=no%
O_Button(no%,PanoHelpForm%,1,5,55,20,20,"",1)
font_name no%,"Webdings":caption no%,"4":font_size no%,12
WB1% = dll_call1("WB_Create",hnd%)
res% = dll_call5("WB_Locate",WB1%,5,30,width(PanoHelpForm%)-30,height(PanoHelpForm%)-80)
end_if
res% = dll_call2("WB_Url",WB1%,adr(url$))
End_sub

' ############## FORM A PROPOS ###############################################

Sub APp()
dim_local hnd%,res%
if App_form%>0
show App_form%
else
no%=no%+1 : App_form%=no%
O_Form(no%,0,1,0,0,180,320,"A Propos...")
font_name no%,"Times new roman"
no%=no%+1
O_Alpha(no%,App_form%,1,20,30,0,0,"Personnal Panoramic Editor")
font_size no%,14 : font_color no%,139,0,0
no%=no%+1
O_Alpha(no%,App_form%,1,40,100,0,0,"Version "+Vers$)
font_size no%,12 : font_color no%,0,0,200
no%=no%+1
O_Alpha(no%,App_form%,1,60,70,0,0,"Créé par ygeronimi")
font_size no%,12 : font_color no%,139,0,0
no%=no%+1
O_Alpha(no%,App_form%,1,80,30,0,0,"Avec PANORAMIC_EDITOR 0.9.26i5")
font_size no%,12 : font_color no%,0,0,200
no%=no%+1
O_Alpha(no%,App_form%,1,100,30,0,0,"Et l' aide de Klaus et de KGF.dll")
font_size no%,12 : font_color no%,0,0,200
end_if
hnd%=handle(App_form%)
res% = DLL_call2("WindowTopMost",hnd%,1)
End_sub

' ############## FORM USER PARAM #############################################

Sub User_param()
dim_local hnd%,i%,res%
if UP_form%>0
show UP_form%
else
no%=no%+1 : UP_form%=no%
O_Form(no%,0,1,0,0,400,600,"Paramètres Utilisateur")
end_if
hnd%=handle(UP_form%)
res% = DLL_call2("WindowTopMost",hnd%,1)
End_sub

Et voici INI.bas:

Code:: ' ------------------------------------------------------------------------------
' INITIALISATIONS
' ------------------------------------------------------------------------------
SUB Inits()
dim_local i%
' MISE A JOUR DE L APPLICATION

' RECUPERATION DES PARAMETRES UTILISATEUR
for i%=1 to 6
EtatLine%(i%)=1
PolSizeText%(i%)=10
' PoliceText$(i%)="ARIAL"
PoliceText$(i%)="Arial"
StyleN$(i%)="0000"
StyleK$(i%)="1100"
StyleT$(i%)="0000"
StyleC$(i%)="0100"
ColorN$(i%)="clBlack"
ColorK$(i%)="clBlue"
ColorT$(i%)="clTeal"
ColorC$(i%)="clFuchsia"
next i%

END_SUB

Tu verras aisément ce que j'ai fait.

Sujet: re Jeu 29 Jan 2015 - 21:38

Merci Klaus.

J' ai repris tes modifs et je vois mieux le fonctionnement.
J' ai essayé, plus de messages barbares ( c' est déjà çà Smile

).
J' ai bien le style voulu mais je reste en noir et blanc, pas de couleurs Crying or Very sad

Pour ce qui est de disséquer Synedit_Editor, j' avoue que je suis un peu dépassé par le morceau... Laughing

Sujet: re Jeu 29 Jan 2015 - 22:13

Ca y est ! je revenu en 2015 ! j' ai la couleur !!!!
KGF_dll - nouvelles versions - Page 10 Youpi-12

bleu = Bleu
noir = Noir
etc....

et pas cl....

Embarassed

Sujet: Re: KGF_dll - nouvelles versions Jeu 29 Jan 2015 - 23:52

Oups... j'aurais dû le savoir, d'autant que c'est marqué en clair dans la doc que j'ai rédigé moi-même ! Désolé... Mais je suis content que tu aies trouvé la solution.

» KGF_dll - nouvelles versions
» Nouvelles versions
» Synedit_Editor - nouvelles versions
» KGF_dll - nouvelles versions
» KGF_dll - nouvelles versions