Aide Panoramic bis

LABEL Fin, Detol, Ecritom, Titro, Detail, detex, Reinit, Objets, Clobj, Nmc
LABEL News, Nomcourt, Recher, Afrec, Afrec1, Faff, Vtt, Vtts, Vcel, Ajout, Aide
LABEL Aidob, Msg, Majcat, Exec, Sauve, Clkc, Inil, Clkl, Fmaj

DIM a$, b$, d$, ra$, rm$, f$, fz$, fl$, ff$, fd$, s$, v$, DatPano$, Edipan$, ResHacker$
DIM Res_params$, i%, j%, w0, h0, wl, hl, wf, ncl, nl, k%, fnm$, fnews$, fbat$, fm$
DIM nlong$, ncourt$, seq$, rec, tr, nc, lc, hc, x%, y%, cc%, nf, cr$, maj%
DIM Cat$(50), Typ$(50), ncat, n1, n2, ini%

' Catégories des mots-clés (à chaque catégorie correspond un libellé)
DATA "G2D","G3D","DPR","E/S","STR","FNT","SYS","MOC","LKB","MAT","OBJ","FIL"
DATA "SPR","VIS","EXC","EVE","XXX","F"
'
DATA "Graphismes 2D","Graphismes 3D","Déroulement du programme","Entrées/Sorties"
DATA "Fonctions chaînes","Fonctions polices","Fonctions système","Souris et curseur"
DATA "Lecture du clavier","Mathématiques et logique","Gestion des objets"
DATA "Répertoires et fichiers","Sprites","Vidéo et son","Fonctions Excel et grilles"
DATA "Événements","Divers (non classé)"
ncat = 0: READ a$
WHILE a$ <> "F": ncat = ncat+1: Cat$(ncat) = a$: READ a$: END_WHILE
FOR i% = 1 TO ncat: READ Typ$(i%): NEXT i%

' -------------------------------- CHEMINS A AJUSTER ! ------------------------
fd$  = "C:\Temp\Dir.tmp": '        *** à ajuster (temporaire)
fbat$ = "C:\Temp\Nomcourt.bat": ' *** à ajuster (temporaire)
fm$  = "C:\Temp\temp":          ' *** à ajuster (temporaire)
ra$  = "C:\Langages\Panoramic"+CHR$(92): ' répertoire des sources
fnews$ = ra$ + "News.rtf": '      ce qui est en cours (à créer au départ)
Edipan$ = "C:\Program Files\Panoramic Editor\PANORAMIC_EDITOR.exe": ' **  À AJUSTER **
ResHacker$ = "C:\UTIL\ResHacker.exe": ' *** chemin de Reshacker
rm$ = ra$ + "Manuel": ' répertoire des fichiers d'aide (sera créé si inexistant)
rm$ = rm$ + CHR$(92): ' + antislash
fz$ = rm$ + "ppp.res": ' fichier résultat de ResHacker
fl$ = rm$ + "Listmc.lst": ' liste brute
ff$ = rm$ + "Listmc.cat": ' liste des catégories de mots-clés
DatPano$ = rm$ + "Datedi.dat": ' date de la version Editeur courante
rec = 0
IF DIR_EXISTS(ra$) = 0
    MESSAGE "Chemin des sources Panoramic non trouvé ! (variable ra$)"
    TERMINATE
END_IF
IF INSTR(ra$, " ") > 0
    nlong$ = ra$: GOSUB Nomcourt: ra$ = ncourt$
END_IF
IF FILE_EXISTS(Edipan$) = 0
    Edipan$ = "C:\Program Files (x86)\Panoramic Editor\PANORAMIC_EDITOR.exe": ' Windows7
    IF FILE_EXISTS(Edipan$) = 0
        MESSAGE "Éditeur Panoramic non trouvé ! (variable Edipan$)"
        TERMINATE
    END_IF
END_IF
nlong$ = Edipan$: GOSUB Nomcourt: Edipan$ = ncourt$
IF FILE_EXISTS(ResHacker$) = 0
    MESSAGE "Utilitaire ResHacker.exe non trouvé ! (variable ResHacker$)"
    TERMINATE
END_IF
IF DIR_EXISTS("C:\Temp") = 0 THEN DIR_MAKE "C:\Temp"
IF DIR_EXISTS(rm$) = 0 THEN DIR_MAKE rm$

fnm$ = "http://panoramic-language.pagesperso-orange.fr/French/HISTORY.htm": ' forum
Res_params$ = " -extract "+Edipan$+", "+fz$+", RCData, KEYWORDS, 1036"
' ------------------------------------------------------------------------------
w0 = 800: h0 = SCREEN_Y-100
WIDTH 0, w0: HEIGHT 0, h0
CAPTION 0, " - "+CAPTION$(0)+": MANUEL DE RÉFÉRENCE -"
wl = 200: hl = h0-60
LIST 10: TOP 10, 0: LEFT 10, 5: WIDTH 10, wl: HEIGHT 10, hl: ' liste des mots-clés
COLOR 10,200,255,200: ON_CLICK 10, Detail

wf = w0-wl-30
LIST 11: TOP 11, 20: LEFT 11, wl+10: WIDTH 11, wf: HEIGHT 11, hl-25: ' description
FONT_NAME 11, "Bitstream Vera Sans Mono": FONT_SIZE 11, 10
ncl = INT(wf/8)-1
COLOR 11, 255,255,200: ON_CLICK 11, Afrec
LIST 12: TOP 12, 0: LEFT 12, wl+10: WIDTH 12, wf: HEIGHT 12, 25: ' en-tête
FONT_NAME 12, "Bitstream Vera Sans Mono": FONT_SIZE 12, 12: FONT_BOLD 12
COLOR 12, 255,255,200
BUTTON 13: TOP 13,hl-30: LEFT 13,wl+wf-100: WIDTH 13,100: CAPTION 13,"Ajouter"
ON_CLICK 13, Ajout
MAIN_MENU 15
SUB_MENU 16: PARENT 16, 15: CAPTION 16, "Réinit": ON_CLICK 16, Reinit
' SUB_MENU 19: PARENT 19, 16: CAPTION 19, "Reconstituer la liste": ON_CLICK 19, Reinit
SUB_MENU 17: PARENT 17, 15: CAPTION 17, "Objets": ON_CLICK 17, Objets
SUB_MENU 18: PARENT 18, 15: CAPTION 18, "Historique": ON_CLICK 18, Nmc
SUB_MENU 19: PARENT 19, 15: CAPTION 19, "Nouveautés": ON_CLICK 19, News
SUB_MENU 20: PARENT 20, 15: CAPTION 20, "Rechercher": ON_CLICK 20, Recher
SUB_MENU 21: PARENT 21, 15: CAPTION 21, "Voir"
SUB_MENU 22: PARENT 22, 15: CAPTION 22, "Catégories": ON_CLICK 22, Majcat
SUB_MENU 23: PARENT 23, 15: CAPTION 23, "Aide": ON_CLICK 23, Aide

SUB_MENU 50: PARENT 50,21: CAPTION 50, "Tous les mots-clés": ON_CLICK 50, Vtt
' affichage éventuel par catégorie de mot-clé
FOR i% = 1 TO ncat
    j% = i%+50
    SUB_MENU j%: PARENT j%,21: CAPTION j%,Typ$(i%): ON_CLICK j%, Vtt
NEXT i%

DLIST 80: ' liste parallèle, catégories des mots-clés (catégorie + mot-clé)

FORM 90: TOP 90,150: LEFT 90,200: WIDTH 90,520: HEIGHT 90,800: HIDE 90
COLOR 90,190,255,190: ON_CLOSE 90, Faff
LIST 91: PARENT 91,90:TOP 91,0: WIDTH 91,WIDTH(90)-16
HEIGHT 91,HEIGHT(90)-38: COLOR 91,255,255,180: FONT_BOLD 91
FONT_COLOR 91,0,0,255
BUTTON 92: PARENT 92,90: TOP 92,1: WIDTH 92,100: LEFT 92,WIDTH(90)-116
CAPTION 92, "OK": ON_CLICK 92,Faff
BUTTON 93: PARENT 93,90: TOP 93,HEIGHT(91)-30: LEFT 93,WIDTH(91)-100
WIDTH 93,100: CAPTION 93,"Ajouter": ON_CLICK 93, Ajout

' Description des objets Panoramic
FORM 100: Height 100, 860: WIDTH 100,600: Font_Bold 100: HIDE 100
ON_CLOSE 100, CLobj
Alpha 150: PARENT 150,100: Top 150, 5: Left 150, 70
Caption 150, "********** Aidob-MÉMOIRE des principaux objets système **********"
Alpha 151: PARENT 151,100: Top 151, 20: Left 151, 140: Caption 151, "(Cliquer sur l'intitulé de l'objet en bleu)"
Font_Color 150,255,0,0
' SPIN : objet n choix croissant ou décroissant
' valeurs limites: MINI n, v MAXI n,v
' Lecture valeur choisie par utilisateur: v = POSITION(n)
SPIN 106: PARENT 106,100
top 106, 200: left 106, 340: width 106, 40: height 106, 20
MIN 106, 6: MAX 106, 24: POSITION 106, 6
Alpha 107: PARENT 107,100: top 107, 202: left 107, 250: Caption 107, "SPIN :"
Alpha 131: PARENT 131,100: Top 131, 202: Left 131, 300: Caption 131, "Taille:"
Font_Color 107,0,0,255
On_Click 107, Aidob
' CONTAINER_OPTION options exclusives
' intitulé CAPTION n, a$, PARENT d'un groupe d'OPTIONs
CONTAINER_OPTION 101: PARENT 101,100
top 101, 70:  left 101, 55: width 101, 140: height 101, 65: caption 101, " Choix entre 3: "
option 102: parent 102,101: top 102,15: left 102,20: caption 102, "option 1"
option 103: parent 103,101: top 103,30: left 103,20: caption 103, "option 2"
option 104: parent 104,101: top 104,45: left 104,20: caption 104, "option 3"
Mark_ON 102
Alpha 108: PARENT 108,100: top 108, 50: left 108, 55: Caption 108, "CONTAINER_OPTION:"
Font_Color 108,0,0,255
On_Click 108, Aidob
' MEMO zone modifiable par l'utilisateur, lecture: Item_Read(x)
MEMO 110: PARENT 110,100
top 110, 50: left 110, 330: width 110, 200: height 110, 60
Item_Add 110, "Ligne 1 du Memo"
Item_Add 110, "Ligne 2"
Item_Add 110, "Ligne 3"
Alpha 120: PARENT 120,100: Top 120, 50: Left 120, 250: Caption 120, "MEMO :"
Font_Color 120,0,0,255
On_Click 120, Aidob
' COMBO liste défilante (combiné de EDIT et LIST)
' ligne sélectionnée par utilisateur: ITEM_INDEX(n) et ITEM_INDEX$(n)
COMBO 111: PARENT 111,100
Top 111, 120: left 111, 330
Text 111, "Combo "
Item_Add 111, "Arial"
Item_Add 111, "Courier New"
Item_Add 111, "Lucida Console"
Alpha 121: PARENT 121,100: Top 121, 120: Left 121, 250: Caption 121, "COMBO :"
Font_Color 121,0,0,255
On_Click 121, Aidob
' LIST choix d'un élément d'une liste
' ligne sélectionnée par utilisateur: ITEM_INDEX(n) et ITEM_INDEX$(n)
LIST 112: PARENT 112,100
Top 112, 150: Left 112, 55: Width 112, 160: Height 112, 80
Item_Add 112, "Objet LIST :"
Item_Add 112, "Ligne 2 de la List"
Item_Add 112, "Ligne 3 de la List"
FONT_NAMES_Add 112: ' ajout de la liste des polices disponsibles
Alpha 128: PARENT 128,100: Top 128, 150: Left 128, 20: Caption 128, "LIST"
Font_Color 128,0,0,255
On_Click 128, Aidob
' DLIST objet non visible
DLIST 113
ITEM_ADD 113,"Première ligne": ITEM_ADD 113,"Deuxième ligne": ITEM_ADD 113,"Troisième ligne"
nf = COUNT(113): ' nombre d'éléments lus
Alpha 122: PARENT 122,100: Top 122, 150: Left 122, 250: Caption 122, "DLIST"
Alpha 130: PARENT 130,100: TOP 130, 150: LEFT 130, 300: Caption 130, "n éléments invisibles."
Font_Color 122,0,0,255
a$ = ITEM_READ$
Alpha 123: PARENT 123,100: Top 123, 170: Left 123, 250: Caption 123, "(ex. élément 3 de Dlist: " + ITEM_READ$(113, 3)+")"
On_Click 122, Aidob
' EDIT affichage d'une ligne d'édition (saisie d'un texte ou valeur)
' Texte saisi: TEXT$(n)
EDIT 114: PARENT 114,100
Top 114, 250: Left 114, 120: width 114, 350
Text 114, "pour saisir une chaîne"
Alpha 127: PARENT 127,100: Top 127, 252: Left 127, 55: Caption 127, "EDIT :"
Font_Color 127,0,0,255
On_Click 127, Aidob
' CHECK choix binaire (coche ou non)
' Statut: CHECKED(n)
CHECK 115: PARENT 115,100
Top 115, 280: Left 115, 120: width 115, 120: Caption 115, "Case à cocher"
Alpha 129: PARENT 129,100: Top 129, 280: Left 129, 55: Caption 129, "CHECK :"
Font_Color 129,0,0,255
On_Click 129, Aidob
' TRACK_BAR choix de valeur par incrément, MIN et MAX, résultat: POSITION(n)
' positionnement vertical ou horizontal: VERTICAL n, HORIZONTAL n
TRACK_BAR 116: PARENT 116,100
Top 116, 305: Left 116, 175: Width 116, 200: MIN 116, 128: MAX 116, 255
POSITION 116, 180
Alpha 124: PARENT 124,100: Top 124, 310: Left 124, 55: Caption 124, "TRACK_BAR :"
Font_Color 124,0,0,255
On_Click 124, Aidob
' SCROLL_BAR choix dans une gamme de valeurs entre MIN et MAX, -> POSITION(n)
' vertical ou horizontal (mêmes commandes que Track_Bar)
SCROLL_BAR 117: PARENT 117,100
Top 117, 340: Left 117, 180: Width 117, 250
Alpha 125: PARENT 125,100: Top 125, 340: Left 125, 55: Caption 125, "SCROLL_BAR :"
Font_Color 125,0,0,255
On_Click 125, Aidob
' PROGRESS_BAR visualisation d'une progression (mêmes commandes que Track_Bar)
PROGRESS_BAR 118: PARENT 118,100
Top 118, 370: Left 118, 180: Width 118, 300
MIN 118, 0: MAX 118, 100: POSITION 118, 25
Alpha 126: PARENT 126,100: Top 126, 370: Left 126, 55: Caption 126, "PROGRESS_BAR :"
Font_Color 126,0,0,255
On_Click 126, Aidob
' ALPHA visualisation d'un texte statique
ALPHA 152: PARENT 152,100
Top 152, 400: Left 152, 55: Width 152, 200: Caption 152, "ALPHA :"
Alpha 132: PARENT 132,100: Top 132, 400: Left 132, 115: Caption 132, "zone d'affichage"
Font_Color 152,0,0,255
On_Click 152, Aidob
' BUTTON bouton à cliquer
BUTTON 153: PARENT 153,100
Top 153, 425: Left 153, 150: Width 153, 100: Height 153, 20: Caption 153, "Bouton"
Alpha 154: PARENT 154,100: Top 154, 425: Left 154, 55: Caption 154, "BUTTON :"
Font_Color 154,0,0,255
On_Click 154, Aidob
' FORM fenêtre conteneur d'objets
FORM 155: HIDE 155
Top 155, TOP(100)+485: Left 155, LEFT(100)+55: Width 155, 200: Height 155,90: Caption 155, "FORM"
On_Click 155, Aidob
' PICTURE zone de dessin, visualisation d'une image bitmap
PICTURE 157: PARENT 157,100
Top 157, 420: Left 157, 300: Width 157, 240: Height 157, 120
2D_TARGET_IS 157: 2D_FILL_COLOR 0,255,255: 2D_RECTANGLE 0, 0, 239, 119
2D_PEN_WIDTH 3: 2D_PEN_COLOR 255,255,0
2D_CIRCLE 120,60,40: 2D_CIRCLE 105, 50, 5: 2D_CIRCLE 135, 50, 5
2D_LINE 100,75,140,75
Alpha 158: PARENT 158,100: Top 158, 400: Left 158, 300: Caption 158, "PICTURE :"
Alpha 133: PARENT 133,100: Top 133, 400: Left 133, 370: Caption 133, "zone dessin, image bitmap"
Font_Color 158,0,0,255
On_Click 158, Aidob

Alpha 162: PARENT 162,100: TOP 162, 600: LEFT 162,55: CAPTION 162, "GRID "
Font_Color 162,0,0,255: ON_CLICK 162, Aidob
GRID 163: PARENT 163,100: TOP 163, 560: LEFT 163, 120: ON_CLICK 163, Aidob

Alpha 170: PARENT 170,100: TOP 170, 700: Left 170, 55: CAPTION 170, "Autres objets: "
Alpha 171: PARENT 171,100: TOP 171, 720: LEFT 171, 55: CAPTION 171, "SCENE2D": ON_CLICK 171, Aidob
Alpha 172: PARENT 172,100: TOP 172, 720: LEFT 172, 180: CAPTION 172, "SCENE3D": ON_CLICK 172, Aidob
ALPHA 173: PARENT 173,100: TOP 173, 720: LEFT 173, 305: CAPTION 173, "MAIN_MENU": ON_CLICK 173, Aidob
Alpha 174: PARENT 174,100: TOP 174, 720: LEFT 174, 435: CAPTION 174, "SUB_MENU": ON_CLICK 174, Aidob
Alpha 175: PARENT 175,100: TOP 175, 740: LEFT 175, 55: CAPTION 175, "SOUND"
Alpha 176: PARENT 176,100: TOP 176, 740: LEFT 176, 180: CAPTION 176, "MOVIE"
ALPHA 177: PARENT 177,100: TOP 177, 740: LEFT 177, 305: CAPTION 177, "IMAGE"
ALPHA 178: PARENT 178,100: TOP 178, 740: LEFT 178, 435: CAPTION 178, "TIMER"
ALPHA 179: PARENT 179,100: TOP 179, 760: LEFT 179, 55: CAPTION 179, "CONTAINER"
ALPHA 180: PARENT 180,100: TOP 180, 760: LEFT 180, 180: CAPTION 180, "OPEN_DIALOG"
ALPHA 181: PARENT 181,100: TOP 181, 760: LEFT 181, 305: CAPTION 181, "SAVE_DIALOG"
FOR i% = 171 TO 181: Font_Color i%,0,0,255: ON_CLICK i%, Aidob: NEXT i%

' Tableau de tous les mots-clés:
FORM 200: HIDE 200: CAPTION 200, " - LISTE DES MOTS-CLÉS PANORAMIC -"
WIDTH 200,1500: HEIGHT 200,950
PICTURE 201: PARENT 201,200: TOP 201,0: LEFT 201,0: ON_CLICK 201, Vcel
BUTTON 202: PARENT 202,200: CAPTION 202,"OK": ON_CLICK 202, Vtts

EXECUTE_WAIT "Cmd.exe /c DIR " + Edipan$ + " >" + fd$
FILE_OPEN_READ 1, fd$
    FILE_READLN 1, a$
    WHILE a$ = "" OR LEFT$(a$, 1)= " ": FILE_READLN 1, a$: END_WHILE
    d$ = LEFT$(a$, 17): ' date de création de l'Editeur
FILE_CLOSE 1
FILE_DELETE fd$
maj% = 0
IF FILE_EXISTS(DatPano$) = 1
    FILE_OPEN_READ 1, DatPano$: FILE_READLN 1, a$: FILE_CLOSE 1
    IF a$ = d$ THEN FILE_LOAD 10, fl$: GOTO Fin: ' fichiers doc déjà à jour
END_IF
FILE_OPEN_WRITE 1, DatPano$: FILE_WRITELN 1, d$: FILE_CLOSE 1: ' archivage date
GOSUB Detol: ' Extraction du manuel d'aide, de l'Editeur Panoramic
maj% = 1: ' mise à jour de la liste des mots-clés effectuée

Fin:
FILE_LOAD 10, fl$

' -------- Structure pour mise à jour des catégories de mots-clés: -------------
FORM 300: HEIGHT 300,1100: WIDTH 300,540: HIDE 300
FONT_BOLD 300: COLOR 300,255,200,255: ON_CLOSE 300, Fmaj
CAPTION 300, " - MISE À JOUR DES CATÉGORIES DES MOTS-CLÉS (fichier Listmc.cat) -"
LIST 301: PARENT 301,300: HEIGHT 301,HEIGHT(300)-38: WIDTH 301,300
FONT_NAME 301,"Lucida Console": FONT_BOLD_OFF 301: ON_CLICK 301, Clkl
ALPHA 310: PARENT 310,300: LEFT 310,305: TOP 310, 22: CAPTION 310, "De la ligne:"
EDIT 311: PARENT 311,300: TOP 311,20: LEFT 311,370: WIDTH 311,75: ON_CLICK 311,Inil
ALPHA 312: PARENT 312,300: LEFT 312,315: TOP 312,52: CAPTION 312,"à la ligne:"
EDIT 313: PARENT 313,300: TOP 313,50: LEFT 313,370: WIDTH 313,75: ON_CLICK 313,Inil
ALPHA 318: PARENT 318,300: TOP 318,80: LEFT 318,360
CAPTION 318, "Clic une catégorie:"
LIST 319: PARENT 319,300: TOP 319,TOP(318)+20: LEFT 319,305: WIDTH 319,210
i% = TEXT_HEIGHT("ABC",319): HEIGHT 319,i%*(ncat+1)
' HEIGHT 319,280: ' liste des catégories
ON_CLICK 319,Clkc
FOR i% = 1 TO ncat: ITEM_ADD 319,cat$(i%)+" "+typ$(i%): NEXT i%
ALPHA 314: PARENT 314,300: TOP 314, TOP(319)+HEIGHT(319)+20: LEFT 314, 330: CAPTION 314,"  Cat."
EDIT 315: PARENT 315,300: TOP 315,TOP(314)-2: LEFT 315, 370: WIDTH 315,75
BUTTON 316: PARENT 316,300: TOP 316, TOP(314)+30: LEFT 316, 370: CAPTION 316, "Appliquer"
ON_CLICK 316, Exec
BUTTON 317: PARENT 317,300: TOP 317,TOP(316)+50: LEFT 317, 370: CAPTION 317, "Enregistrer"
ON_CLICK 317, Sauve
LIST 320: PARENT 320,300: TOP 320,TOP(317)+100: LEFT 320,305: WIDTH 320,210
HEIGHT 320, 160: COLOR 320,190,255,190
ITEM_ADD 320,"            - USAGE: -": ITEM_ADD 320,""
ITEM_ADD 320,"Cliquer la 1ère ligne à modifier": ITEM_ADD 320,"    (liste de gauche)."
ITEM_ADD 320,"Si plusieurs lignes consécutives,":ITEM_ADD 320,"    cliquer la dernière ligne."
ITEM_ADD 320,"Cliquer une catégorie.": ITEM_ADD 320,"Valider par 'Appliquer'."
ITEM_ADD 320,""
ITEM_ADD 320,"A la fin, sauvegarder":ITEM_ADD 320,"    par 'Enregistrer'"
' ------------------------------------------------------------------------------
CLEAR 80: ' dlist: catégories associées aux mots-clés
IF FILE_EXISTS(ff$) = 0
    FOR i% = 1 TO COUNT(10)
        ' catégorie XXX partout (initialisation), à mettre à jour
        ITEM_ADD 80, "XXX " + ITEM_READ$(10, i%)
    NEXT i%
    FILE_SAVE 80, ff$: ' création initiale du fichier des associations
ELSE
    FILE_LOAD 80, ff$
    IF maj% = 1 AND COUNT(10) > COUNT(80)
        ' il y a eu une mise à jour (nouveaux mots-clés), mise à niveau des deux listes
        FOR i% = 1 TO COUNT(10)
            a$ = ITEM_READ$(10, i%)
            IF a$ <> MID$(ITEM_READ$(80,i%),5,100): ' c'est un nouveau mot
                ITEM_INSERT 80, i%+1, "XXX "+a$: ' catégorie sera à mettre à jour
            END_IF
        NEXT i%
        FILE_SAVE 80, ff$: ' sauvegarde
    END_IF
END_IF
s$ = ITEM_READ$(10, 1): GOSUB detex: ' affichage du 1er mot-clé de la liste

END
' =========================== SOUS-PROGRAMMES ============================
Detol:
EXECUTE_WAIT ResHacker$+Res_params$: ' résultat dans fz$
' Nouvelle version ou réinit: constitution des fichiers des mots-clés
EXECUTE_WAIT "Cmd.exe /c DEL " + rm$ + "*.txt"
CLEAR 10
ITEM_ADD 10, "Reconstitution de la liste..."
FILE_OPEN_READ 1, fz$
WHILE FILE_EOF(1) = 0
    FILE_READLN 1, a$
    IF a$ = "1"
        FILE_READLN 1, a$: ' Nouveau mot-clé
        IF LEFT$(a$, 1) = "#"
            a$ = "INCLUDE"
        ELSE
            IF LEFT$(a$, 5) = "(FOR "
                IF MID$(a$, 9, 1) = ")"
                    a$ = "TO"
                ELSE
                    a$ = "STEP"
                END_IF
            END_IF
        END_IF
        f$ = CHR$(34) + rm$ + a$ + ".txt" + CHR$(34)
        FILE_OPEN_WRITE 2, f$
            a$ = STRING$(INT((ncl-LEN(a$))/2)," ") + a$
            ' FILE_WRITELN 2, a$
            FILE_WRITELN 2, ""
            FILE_READLN 1, a$
            WHILE a$ <> "2": FILE_READLN 1, a$: END_WHILE
            FILE_READLN 1, a$: GOSUB Ecritom: ' résumé
            a$ = "DÉFINITION": GOSUB Titro
            FILE_READLN 1, a$
            WHILE a$ <> "3": FILE_READLN 1, a$: END_WHILE
            FILE_READLN 1, a$
            WHILE LEN(a$) > 1: GOSUB Ecritom: FILE_READLN 1, a$: END_WHILE
            a$ = "FONCTION": GOSUB Titro
            WHILE a$<>"4": FILE_READLN 1, a$: END_WHILE
            FILE_READLN 1, a$
            WHILE LEN(a$) > 1: GOSUB Ecritom: FILE_READLN 1, a$: END_WHILE
            a$ = "SYNTAXE": GOSUB Titro
            WHILE a$<>"5": FILE_READLN 1, a$: END_WHILE
            FILE_READLN 1, a$
            WHILE LEN(a$) > 1: GOSUB Ecritom: FILE_READLN 1, a$: END_WHILE
            a$ = "USAGE": GOSUB Titro
            WHILE a$ <>"6": FILE_READLN 1,a$: END_WHILE
            FILE_READLN 1, a$
            WHILE LEN(a$) > 1: GOSUB Ecritom: FILE_READLN 1, a$: END_WHILE
            a$ = "CAS D'ERREUR": GOSUB Titro
            WHILE a$ <>"7": FILE_READLN 1,a$: END_WHILE
            FILE_READLN 1, a$
            WHILE LEN(a$) > 1: GOSUB Ecritom: FILE_READLN 1, a$: END_WHILE
            a$ = "EXEMPLE": GOSUB Titro
            WHILE a$ <>"8": FILE_READLN 1,a$: END_WHILE
            FILE_READLN 1, a$
            WHILE LEN(a$) > 1: GOSUB Ecritom: FILE_READLN 1, a$: END_WHILE
            a$ = "EN RAPPORT": GOSUB Titro
            WHILE a$ <>"9": FILE_READLN 1,a$: END_WHILE
            FILE_READLN 1, a$
            WHILE LEN(a$) > 1: GOSUB Ecritom: FILE_READLN 1, a$: END_WHILE
        FILE_CLOSE 2
    END_IF
END_WHILE
FILE_CLOSE 1: FILE_DELETE fz$
EXECUTE_WAIT "Cmd.exe /c DIR " + rm$ + "*.txt /O:N /B >" + fd$
FILE_OPEN_READ 1, fd$: FILE_OPEN_WRITE 2, fl$
WHILE FILE_EOF(1) = 0: FILE_READLN 1, a$
    IF a$ = "INCLUDE.txt" THEN a$ = "#INCLUDE " + CHR$(34) + "F" + CHR$(34)+".txt"
    FILE_WRITELN 2, LEFT$(a$, LEN(a$)-4)
END_WHILE
FILE_CLOSE 1: FILE_DELETE fd$
FILE_CLOSE 2
RETURN

Ecritom:
IF LEN(a$) > ncl
    FOR i% = ncl+1 TO 1 STEP -1
        IF MID$(a$, i%, 1) = " " THEN EXIT_FOR
    NEXT i%
    FILE_WRITELN 2, LEFT$(a$, i%-1): a$ = MID$(a$, i%+1, LEN(a$)): GOTO Ecritom
END_IF
FILE_WRITELN 2, a$
RETURN

Titro:
a$ = STRING$(INT((ncl-LEN(a$))/2)-1,"=") + " " + a$ + " "
a$ = a$ + STRING$(ncl-LEN(a$), "=")
FILE_WRITELN 2, "": FILE_WRITELN 2, a$
RETURN

Detail:
rec = 0: HIDE 90
s$ = ITEM_INDEX$(10)
detex:
IF LEFT$(s$, 1) = "#" THEN s$ = "INCLUDE"
k% = INT(ncl*14/17)
a$ = STRING$(INT((k%-LEN(s$))/2)," ") + s$
' visualisation de la fiche dans le List 11
CLEAR 12: ITEM_ADD 12, a$
FILE_LOAD 11, CHR$(34) + rm$ + s$ + ".txt" + CHR$(34)
IF FILE_EXISTS(rm$ + s$ + ".txu") = 1: ' fiche commentaire correspondante existe
    ITEM_ADD 11, ""
    ITEM_ADD 11,"========================= COMMENTAIRES PERSO ========================="
    FILE_ADD 11, CHR$(34) + rm$ + s$ + ".txu" + CHR$(34)
END_IF
RETURN

Reinit:
a$ = "Reconstituer l'aide complète à partir de l'Éditeur Panoramic ?"
IF MESSAGE_CONFIRMATION_YES_NO(a$) = 1
    GOSUB Detol
    FILE_LOAD 10, fl$
END_IF
RETURN

Objets:
SHOW 100: SHOW 155
RETURN

Clobj:
HIDE 155: HIDE 100
RETURN

Nmc:
EXECUTE_WAIT fnm$
RETURN

News:
EXECUTE_WAIT "Write.exe " + fnews$
RETURN

Nomcourt:
' Récupération du chemin court d'un fichier (8.3) en fonction de son chemin long
If File_Exists(nlong$) = 0
    IF Dir_Exists(nlong$) = 0
        Message "Path " + nlong$ + " inexistant !"
        Return
    End_If
End_If
File_Open_Write 1, fbat$
    File_WriteLn 1, "@echo off"
    File_WriteLn 1, "for %%A in ("+chr$(34)+nlong$+chr$(34)+") do echo.%%~sfA >" + fm$
File_Close 1
EXECUTE_WAIT fbat$
File_Open_Read 1, fm$: File_ReadLn 1, ncourt$: File_Close 1
File_Delete fm$: File_Delete fbat$
RETURN

Recher:
' rechercher une expression seq$ dans la documentation complète
seq$ = MESSAGE_INPUT$("Recherche d'une séquence dans les fiches","Séquence cherchée:","")
IF seq$ = "" THEN RETURN
CLEAR 11: CLEAR 12
ITEM_ADD 12, "RECHERCHE DE LA SÉQUENCE: " + seq$: ITEM_ADD 12, ""
seq$ = UPPER$(seq$): tr = 0
FOR i% = 1 TO COUNT(10)
    d$ = ITEM_READ$(10, i%): IF LEFT$(d$, 1) = "#" THEN d$ = "INCLUDE"
    FILE_OPEN_READ 1, CHR$(34) + rm$ + d$ + ".txt" + CHR$(34)
    FILE_READLN 1, a$
    WHILE INSTR(a$, "FONCTION") < 1: FILE_READLN 1, a$: END_WHILE
    FILE_READLN 1, a$
    WHILE INSTR(a$,"=====") < 1
        k% = INSTR(UPPER$(a$), seq$): IF k% > 0 THEN EXIT_WHILE
        FILE_READLN 1, a$
    END_WHILE
    IF k% > 0 THEN ITEM_ADD 11, d$: tr = 1
    FILE_CLOSE 1
NEXT i%
d$ = " ***** RECHERCHE TERMINÉE: "
IF tr = 0
    d$ = d$ + "Non trouvé ! *****"
ELSE
    d$ = d$ + " Clic un article pour détails *****"
END_IF
ITEM_ADD 11, "": ITEM_ADD 11, d$
rec = 1
RETURN

Afrec:
IF rec = 0 OR tr = 0 THEN RETURN
IF ITEM_INDEX(11) >= (COUNT(11)-1) THEN RETURN
s$ = ITEM_INDEX$(11)
LEFT 90, 200
Afrec1:
' visualisation d'une fiche dans le List 101
IF LEFT$(s$, 1) = "#" THEN s$ = "INCLUDE"
SHOW 90: TO_FOREGROUND 90: CLEAR 91
CAPTION 90, " ***** " + s$ + " *****"
ITEM_ADD 91, " ***** " + s$ + " *****"
FILE_ADD 91, CHR$(34) + rm$ + s$ + ".txt" + CHR$(34)
IF FILE_EXISTS(rm$ + s$ + ".txu") = 1
    ITEM_ADD 91, ""
    ITEM_ADD 91,"========================= COMMENTAIRES PERSO ========================="
    FILE_ADD 91, CHR$(34) + rm$ + s$ + ".txu" + CHR$(34)
END_IF
RETURN

Faff:
HIDE 90
RETURN

Vtt:
FOR i% = 50 TO 66
    IF CLICKED(i%) = 1 THEN EXIT_FOR
NEXT i%
IF i% = 50
    ' Voir tous les mots-clés
    FILE_LOAD 10, fl$
    SHOW 200
    WIDTH 201,WIDTH(200)-16: HEIGHT 201,HEIGHT(200)-38: COLOR 201,200,255,200
    TOP 202,HEIGHT(200)-70: LEFT 202,WIDTH(201)/2-40
    nc = 10: lc = INT(WIDTH(201)/nc): hc = 15
    x% = 0: y% = 0: d$ = "": cc% = -1
    2D_TARGET_IS 201: 2D_FILL_COLOR 255,255,200
    PRINT_TARGET_IS 201: FONT_SIZE 201,8: ' font_bold 201
    FONT_NAME 201,"Arial"
    HIDE 201
    FILE_OPEN_READ 1, fl$
    WHILE FILE_EOF(1) = 0
        FILE_READLN 1, a$
        IF LEFT$(a$,2) <> d$ THEN cc% = -1 * cc%
        FONT_COLOR 201,0,0,0: IF cc% <> 1 THEN FONT_COLOR 201,0,0,255
        d$ = LEFT$(a$, 2)
        PRINT_LOCATE x%, y%: PRINT a$
        x% = x%+lc: IF x%>=(WIDTH(201)-20) THEN x% = 0: y% = y% + hc
    END_WHILE
    FILE_CLOSE 1
    SHOW 201
ELSE
    ' Voir une catégorie seulement
    k% = i% - 50: d$ = cat$(k%): ' catégorie cliquée
    CLEAR 10
    FOR i% = 1 TO COUNT(80)
        a$ = ITEM_READ$(80, i%)
        IF LEFT$(a$, 3) = d$
            ITEM_ADD 10, MID$(a$, 5, 100)
        END_IF
    NEXT i%
END_IF
RETURN

Vcel:
x% = MOUSE_X_LEFT_DOWN(201): y% = MOUSE_Y_LEFT_DOWN(201)
i% = 1 + nc*INT(y%/hc) + INT(x%/lc)
s$ = ITEM_READ$(10, i%)
IF x% < WIDTH(200)/2
    LEFT 90,WIDTH(200)/2+40
ELSE
    LEFT 90,40
END_IF
GOTO Afrec1

Vtts:
HIDE 200
RETURN

Ajout:
' Ajout de commentaires personnels à une fiche
EXECUTE_WAIT "Notepad.exe " + CHR$(34) + rm$ + s$ + ".txu" + CHR$(34)
RETURN

Aide:
v$ = CHR$(13)+CHR$(10)
a$ = " - VISUALISATION DE LA DOCUMENTATION SUR LES MOTS-CLÉS PANORAMIC -"+v$+v$
a$ = a$+"Aide succincte:"+v$+v$
a$ = a$+"La liste des mots-clés est extraite de Panoramic_Editor à l'aide de l'utilitaire"+v$
a$ = a$+"ResHacker. Cette extraction est refaite automatiquement à chaque nouvelle"+v$
a$ = a$+"version de l'Éditeur, on peut également forcer la mise à jour (menu 'Réinit')."+v$
a$ = a$+"À chaque mot-clé correspond une fiche au format ascii (.txt), l'ensemble des"+v$
a$ = a$+"fiches est rangé dans un répertoire particulier (voir les chemins des répertoires"+v$
a$ = a$+"en début de programme, à adapter à ses conditions locales)."+v$
a$ = a$+"Affichage: à gauche la liste complète des mots-clés, à droite la fiche du mot-"+v$
a$ = a$+"clé cliqué dans la liste."+v$+v$
a$ = a$+"- Menu 'Réinit': voir plus haut."+v$
a$ = a$+"- Menu 'Objets': affichage d'une page présentant les caractéristiques principales"+v$
a$ = a$+"des différents objets Panoramic, pour mémoire."+v$
a$ = a$+"- Menu 'Historique': lance la connexion sur la rubrique 'Historique' (évolution"+v$
a$ = a$+"du langage) du forum Panoramic."+v$
a$ = a$+"- Menu 'Nouveautés': affichage d'un fichier au format .rtf (Wordpad), aide-mémoire"+v$
a$ = a$+"à tenir à jour soi-même, extrait de la rubrique 'Ce qui est en cours' du forum."+v$
a$ = a$+"- Menu 'Rechercher': permet de rechercher un mot ou une série de mots dans toutes"+v$
a$ = a$+"les fiches mots-clés, pour rechercher par exemple un mot-clé particulier."+v$
a$ = a$+"- Menu 'Voir': Il est possible de visualiser l'ensemble des mots-clés dans une"+v$
a$ = a$+"seule fenêtre. En cliquant sur un élément, on obtient la fiche correspondant à"+v$
a$ = a$+"cet éléments."+v$
a$ = a$+"Il est possible également de ne visualiser que les mots-clés appartenant à une"+v$
a$ = a$+"catégorie donnée, il faut avoir préalablement classé les mots-clés selon ces"+v$
a$ = a$+"critères (voir plus loin)."+v$
a$ = a$+"- Menu 'Catégories': classement des mots-clés, voir plus loin."+v$+v$
a$ = a$+"Il a été ajouté la possibilité d'associer à une fiche 'mot-clé' une fiche"+v$
a$ = a$+"'commentaire personnel', dans laquelle on peut consigner ses remarques"+v$
a$ = a$+"personnelles, exemples de programmes, aide-mémoire, etc. concernant ce mot-"+v$
a$ = a$+"clé particulier. Ce 'commentaire perso' sera affiché automatiquement à chaque"+v$
a$ = a$+"appel de la fiche correspondante."+v$
a$ = a$+"Pour créer et/ou modifier une fiche de commentaire perso, il suffit de cliquer"+v$
a$ = a$+"le bouton 'Ajouter' au moment de l'affichage de la fiche, en bas à droite."+v$+v$
a$ = a$+"Classement des mots-clés par catégories:"+v$
a$ = a$+"Un classement arbitraire par catégorie d'usage peut être réalisé: il est créé"+v$
a$ = a$+"au lancement un fichier des mots-clés avec leur catégorie (tous XXX au départ)."+v$
a$ = a$+"Mise à jour: Menu 'Catégorie', modifier le mot clé ou une série de mots-clés,"+v$
a$ = a$+"puis enregistrer le résultat, qui sera conservé."+v$
a$ = a$+"A chaque nouveau mot-clé, (nouvelles versions) il faudra faire son classement."+v$
a$ = a$+"On peut adapter les catégories à sa guise: série de DATAs en tête du programme,"+v$
a$ = a$+"le menu 'Voir' sera adapté en conséquence."
MESSAGE a$
RETURN

Aidob:
TO_FOREGROUND 155
cr$ = CHR$(13)+CHR$(10)
If Clicked(108) = 1
    a$ = "Objet 32 ********** CONTAINER_OPTION **********" + cr$
    a$ = a$ + cr$ + "Choix d'une option parmi plusieurs (choix exclusif)" + cr$
    a$ = a$ + cr$ + "Dimensions implicites (pixels): 185 x 105" + cr$
    a$ = a$ + cr$ + "- Commandes associées:" + cr$
    a$ = a$ + cr$ + "Positionnement et dimensions: TOP, LEFT, HEIGHT, WIDTH"
    a$ = a$ + cr$ + "Intitulé: CAPTION n, chaîne"
    a$ = a$ + cr$ + "Événements: ON_CLICK n, étiquette" + cr$
    a$ = a$ + cr$ + cr$ + "Objet 11 ********** OPTION **********" + cr$
    a$ = a$ + cr$ + "Sous-ensemble de CONTAINER_OPTION" + cr$
    a$ = a$ + cr$ + "Dimensions implicites (pixels): 113 x 117" + cr$
    a$ = a$ + cr$ + " Commandes associées:" + cr$
    a$ = a$ + cr$ + "PARENT n (n = le CONTAINER_OPTION)"
    a$ = a$ + cr$ + "Intitulé: CAPTION n, chaîne"
    a$ = a$ + cr$ + "Forçage d'une option: MARK_ON, MARK_OFF"
    Goto Msg
End_If
If Clicked(107) = 1
    a$ = "Objet 21 ********** SPIN **********" + cr$
    a$ = a$ + cr$ + "Choix d'une valeur numérique par incrémentation ou décrémentation" + cr$
    a$ = a$ + cr$ + "Dimensions implicites (pixels): 121 x 21" + cr$
    a$ = a$ + cr$ + "- Commandes associées:" + cr$
    a$ = a$ + cr$ + "Positionnement et dimensions: TOP, LEFT, HEIGHT, WIDTH"
    a$ = a$ + cr$ + "Forçage de la valeur initiale: POSITION n,v"
    a$ = a$ + cr$ + "Forçage des valeurs maxi et mini: MAX n,x  MIN n,y"
    a$ = a$ + cr$ + "Lecture de la position: POSITION(n), TOP(n), LEFT(n)"
    Goto Msg
End_If
If Clicked(120) = 1
    a$ = "Objet 4 ********** MEMO **********" + cr$
    a$ = a$ + cr$ + "Visualisation d'une zone multilignes, modifiable par l'utilisateur" + cr$
    a$ = a$ + cr$ + "Dimensions implicites (pixels): 185 x 89" + cr$
    a$ = a$ + cr$ + "- Commandes associées:" + cr$
    a$ = a$ + cr$ + "Positionnement et dimensions: TOP, LEFT, HEIGHT, WIDTH"
    a$ = a$ + cr$ + "Barres de défilement: BAR_HORIZONTAL, BAR_VERTICAL, BAR_BOTH, BAR_NONE"
    a$ = a$ + cr$ + "Nettoyage du Memo: CLEAR n"
    a$ = a$ + cr$ + "Charger un fichier: FILE_LOAD n, fichier"
    a$ = a$ + cr$ + "Ajouter un fichier: FILE_ADD n, fichier"
    a$ = a$ + cr$ + "Sauvegarder la liste dans un fichier: FILE_SAVE n, fichier"
    a$ = a$ + cr$ + "Ajouter du texte: ITEM_ADD n, chaîne"
    a$ = a$ + cr$ + "Insérer du texte (après x): ITEM_INSERT n, x, chaîne"
    a$ = a$ + cr$ + "Supprimer une ligne: ITEM_DELETE n, x"
    a$ = a$ + cr$ + "Lire une ligne (x): ITEM_READ$(n, x)"
    a$ = a$ + cr$ + "Nombre d'éléments: COUNT(n)"
    Goto Msg
End_If
If Clicked(121) = 1
    a$ = "Objet 5 ********** COMBO **********" + cr$
    a$ = a$ + cr$ + "Choix d'une ligne modifiable par l'utilisateur dans une zone multilignes" + cr$
    a$ = a$ + cr$ + "Dimensions implicites (pixels): 145 x 21" + cr$
    a$ = a$ + cr$ + "- Commandes associées:" + cr$
    a$ = a$ + cr$ + "Positionnement et dimensions: TOP, LEFT, HEIGHT, WIDTH"
    a$ = a$ + cr$ + "Charger un fichier: FILE_LOAD n, fichier"
    a$ = a$ + cr$ + "Ajouter un fichier: FILE_ADD n, fichier"
    a$ = a$ + cr$ + "Ajouter du texte: ITEM_ADD n, chaîne"
    a$ = a$ + cr$ + "Insérer du texte (après x): ITEM_INSERT n, x, chaîne"
    a$ = a$ + cr$ + "Supprimer une ligne: ITEM_DELETE n, x"
    a$ = a$ + cr$ + "Lire une ligne (x): ITEM_READ$(n, x)"
    a$ = a$ + cr$ + "Ligne sélectionnée: ITEM_INDEX(n), ITEM_INDEX$(n)"
    a$ = a$ + cr$ + "Visualiser un texte: TEXT n,a$"
    a$ = a$ + cr$ + "Nombre d'éléments: COUNT(n)"
    a$ = a$ + cr$ + "Effacement total: CLEARn"
    a$ = a$ + cr$ + "Charger la liste des polices système: FONT_NAMES_LOAD"
    a$ = a$ + cr$ + "Ajouter la liste des polices système: FONT_NAMES_ADD"
    a$ = a$ + cr$ + "Sauvegarder la liste dans un fichier: FILE_SAVE n, fichier"
    Goto Msg
End_If
If Clicked(122) = 1
    a$ = "Objet 26 ********** DLIST **********" + cr$
    a$ = a$ + cr$ + "Liste d'articles chaîne non visibles" + cr$
    a$ = a$ + cr$ + "- Commandes associées:" + cr$
    a$ = a$ + cr$ + "Charger un fichier: FILE_LOAD n, fichier"
    a$ = a$ + cr$ + "Ajouter un fichier: FILE_ADD n, fichier"
    a$ = a$ + cr$ + "Sauvegarder la liste dans un fichier: FILE_SAVE n, fichier"
    a$ = a$ + cr$ + "Ajouter du texte: ITEM_ADD n, chaîne"
    a$ = a$ + cr$ + "Insérer du texte (après x): ITEM_INSERT n, x, chaîne"
    a$ = a$ + cr$ + "Supprimer une ligne: ITEM_DELETE n, x"
    a$ = a$ + cr$ + "Lire une ligne (x): ITEM_READ$(n, x)"
    a$ = a$ + cr$ + "Nombre d'éléments: COUNT(n)"
    a$ = a$ + cr$ + "Effacement total: CLEAR n"
    a$ = a$ + cr$ + "Charger la liste des polices système: FONT_NAMES_LOAD"
    a$ = a$ + cr$ + "Ajouter la liste des polices système: FONT_NAMES_ADD"
    Goto Msg
End_If
If Clicked(124) = 1
    a$ = "Objet 16 ********** TRACK_BAR **********" + cr$ + cr$
    a$ = a$ + "Choix d'une valeur par déplacement d'un curseur" + cr$
    a$ = a$ + cr$ + "Dimensions implicites (pixels): 150 x 45" + cr$
    a$ = a$ + cr$ + "- Commandes associées:" + cr$
    a$ = a$ + cr$ + "Positionnement et dimensions: TOP, LEFT, HEIGHT, WIDTH"
    a$ = a$ + cr$ + "Orientation: HORIZONTAL n, VERTICAL n "
    a$ = a$ + cr$ + "Valeurs limites: MIN n, v et MAX n, v"
    a$ = a$ + cr$ + "Fixation de la position initiale: POSITION n, v"
    a$ = a$ + cr$ + "Lecture de la position actuelle: POSITION(n)"
    Goto Msg
End_If
If Clicked(125) = 1
    a$ = "Objet 19 ********** SCROLL_BAR **********" + cr$
    a$ = a$ + cr$ + "Déplacement d'un curseur carré vers une valeur choisie" + cr$
    a$ = a$ + cr$ + "Dimensions implicites (pixels): 121 x 17" + cr$
    a$ = a$ + cr$ + "- Commandes associées:" + cr$
    a$ = a$ + cr$ + "Positionnement et dimensions: TOP, LEFT, HEIGHT, WIDTH"
    a$ = a$ + cr$ + "Orientation: HORIZONTAL n, VERTICAL n "
    a$ = a$ + cr$ + "Valeurs limites: MIN n, v et MAX n, v"
    a$ = a$ + cr$ + "Fixation de la position initiale: POSITION n, v"
    a$ = a$ + cr$ + "Lecture de la position actuelle: POSITION(n)"
    Goto Msg
End_If
If Clicked(126) = 1
    a$ = "Objet 20 ********** PROGRESS_BAR **********" + cr$
    a$ = a$ + cr$+ "Visualisation d'un indicateur de progression" + cr$
    a$ = a$ + cr$ + "Dimensions implicites (pixels): 150 x 17" + cr$
    a$ = a$ + cr$ + "- Commandes associées:" + cr$
    a$ = a$ + cr$ + "Positionnement et dimensions: TOP, LEFT, HEIGHT, WIDTH"
    a$ = a$ + cr$ + "Orientation: HORIZONTAL n, VERTICAL n "
    a$ = a$ + cr$ + "Valeurs limites: MIN n, v et MAX n, v"
    a$ = a$ + cr$ + "Fixation de la position initiale: POSITION n, v"
    a$ = a$ + cr$ + "Lecture de la position actuelle: POSITION(n)"
    Goto Msg
End_If
If Clicked(127) = 1
    a$ = "Objet 3 ********** EDIT **********" + cr$
    a$ = a$ + cr$ + "Saisie et/ou modification d'une ligne de texte" + cr$
    a$ = a$ + cr$ + "Dimensions implicites (pixels): 121 x 21" + cr$
    a$ = a$ + cr$ + "- Commandes associées:" + cr$
    a$ = a$ + cr$ + "Visualiser un texte: TEXT n, chaîne"
    a$ = a$ + cr$ + "Lire le texte entré par l'utilisateur: TEXT$(n)"
    a$ = a$ + cr$ + "Événements: ON_CLICK, ON_CHANGE, ON_KEY_UP, ON_KEY_DOWN"
    Goto Msg
End_If
If Clicked(128) = 1
    a$ = "Objet 8 ********** LIST **********" + cr$
    a$ = a$ + cr$ + "Choix d'une ligne dans une zone multilignes (non modifiable)" + cr$
    a$ = a$ + cr$ + "Dimensions implicites (pixels): 121 x 97" + cr$
    a$ = a$ + cr$ + "- Commandes associées:" + cr$
    a$ = a$ + cr$ + "Positionnement et dimensions: TOP, LEFT, HEIGHT, WIDTH"
    a$ = a$ + cr$ + "Charger un fichier: FILE_LOAD n, fichier"
    a$ = a$ + cr$ + "Ajouter d'un fichier: FILE_ADD n, fichier"
    a$ = a$ + cr$ + "Ajouter du texte: ITEM_ADD n, chaîne"
    a$ = a$ + cr$ + "Insérer du texte (après x): ITEM_INSERT n, x, chaîne"
    a$ = a$ + cr$ + "Supprimer une ligne: ITEM_DELETE n, x"
    a$ = a$ + cr$ + "Lire une ligne (x): ITEM_READ$(n, x)"
    a$ = a$ + cr$ + "Ligne sélectionnée: x = ITEM_INDEX(n) ou a$ = ITEM_INDEX$(n)"
    a$ = a$ + cr$ + "Nombre d'éléments: COUNT(n)"
    a$ = a$ + cr$ + "Effacement total: CLEAR n"
    a$ = a$ + cr$ + "Charger la liste des polices système: FONT_NAMES_LOAD"
    a$ = a$ + cr$ + "Ajouter la liste des polices système: FONT_NAMES_ADD"
    a$ = a$ + cr$ + "Sauvegarder la liste dans un fichier: FILE_SAVE n, fichier"
    Goto Msg
End_If
If Clicked(129) = 1
    a$ = "Objet 10 ********** CHECK **********" + cr$
    a$ = a$ + cr$ + "Case à cocher" + cr$
    a$ = a$ + cr$ + "Dimensions implicites (pixels): 97 x 17" + cr$
    a$ = a$ + cr$ + "- Commandes associées:" + cr$
    a$ = a$ + cr$ + "Positionnement et dimensions: TOP, LEFT, HEIGHT, WIDTH"
    a$ = a$ + cr$ + "Forçage de l'option: MARK_ON ou MARK_OFF"
    a$ = a$ + cr$ + "Intitulé: CAPTION"
    a$ = a$ + cr$ + "Lecture: IF CHECKED(n) = 1"
    Goto Msg
End_If
If Clicked(152) = 1
    a$ = "Objet 6 ********** ALPHA **********" + cr$
    a$ = a$ + cr$ + "Visualisation d'un texte statique, non modifiable" + cr$
    a$ = a$ + cr$ + "Dimensions implicites (pixels): 65 x 17" + cr$
    a$ = a$ + cr$ + "- Commandes associées:" + cr$
    a$ = a$ + cr$ + "Positionnement et dimensions: TOP, LEFT, HEIGHT, WIDTH"
    a$ = a$ + cr$ + "Texte à afficher: CAPTION n,chaîne"
    Goto Msg
End_If
If Clicked(154) = 1
    a$ = "Objet 2 ********** BUTTON **********" + cr$
    a$ = a$ + cr$ + "Affichage d'un bouton cliquable" + cr$
    a$ = a$ + cr$ + "Dimensions implicites (pixels): 75 x 25" + cr$
    a$ = a$ + cr$ + "- Commandes associées:" + cr$
    a$ = a$ + cr$ + "Positionnement et dimensions: TOP, LEFT, HEIGHT, WIDTH"
    a$ = a$ + cr$ + "Intitulé: CAPTION n,chaîne"
    a$ = a$ + cr$ + "Lecture: par ON_CLICK n,adresse"
    a$ = a$ + "Événements: IF CLICKED(n) = 1, ON_KEY_UP, ON_KEY_DOWN"
    Goto Msg
End_If
If Clicked(155) = 1
    a$ = "Objet 7 ********** FORM **********" + cr$
    a$ = a$ + cr$ + "Création d'un conteneur d'objets" + cr$
    a$ = a$ + cr$ + "Dimensions implicites (pixels): 320 x 240" + cr$
    a$ = a$ + cr$ + "- Commandes associées:" + cr$
    a$ = a$ + cr$ + "Positionnement et dimensions: TOP, LEFT, HEIGHT, WIDTH"
    a$ = a$ + cr$ + "Intitulé: CAPTION n,string"
    a$ = a$ + cr$ + "Modifier la bordure: BORDER_HIDE, BORDER_SMALL, BORDER_NORMAL"
    a$ = a$ + cr$ + "Événements: ON_CLICK, ON_KEY_UP, ON_KEY_DOWN, ON_CLOSE"
    Goto Msg
End_If
If Clicked(158) = 1
    a$ = "Objet 9 ********** PICTURE **********" + cr$
    a$ = a$ + cr$ + "Création d'une zone d'affichage d'une image BMP ou JPG" + cr$
    a$ = a$ + cr$ + "Dimensions implicites (pixels): 105 x 105" + cr$
    a$ = a$ + cr$ + "- Commandes associées:" + cr$
    a$ = a$ + cr$ + "Positionnement et dimensions: TOP, LEFT, HEIGHT, WIDTH"
    a$ = a$ + cr$ + "Chargement d'une image dans le picture: FILE_LOAD n, Image"
    a$ = a$ + cr$ + "Ajuster l'image à la fenêtre: STRETCH_ON n"
    a$ = a$ + cr$ + " (inverse: STRETCH_OFF n)"
    a$ = a$ + cr$ + "Position de la souris sur le picture: MOUSE_X_POSITION, MOUSE_Y_POSITION"
    a$ = a$ + cr$ + "Effacement total (doit être la cible du 2D_TARGET): CLS"
    Goto Msg
End_If
IF Clicked(162) = 1 OR Clicked(163) = 1
    a$ = "Objet 22 ********** GRID **********" + cr$
    a$ = a$ + cr$ + "Création d'un objet grille (tableau)" + cr$
    a$ = a$ + cr$ + "Dimensions implicites (pixels): 320 x 120 (1+4 lignes, 1+4 colonnes)" + cr$
    a$ = a$ + cr$ + "- Commandes associées:" + cr$
    a$ = a$ + cr$ + "Caractéristiques:"
    a$ = a$ + cr$ + "    HINT, HINT_HIDE, FULL_SPACE"
    a$ = a$ + cr$ + "    GRID_COLUMN, GRID_COLUMN_FIXED, GRID_COLUMN_WIDTH"
    a$ = a$ + cr$ + "    GRID_ROW, GRID_ROW_FIXED, GRID_ROW_HEIGHT"
    a$ = a$ + cr$ + "    GRID_ONE_COLUMN_WIDTH, GRID_ONE_ROW_HEIGHT"
    a$ = a$ + cr$ + "    GRID_FIXED_COLOR, GRID_WRITE, GRID_READ$"
    a$ = a$ + cr$ + "    GRID_X_TO_COLUMN, GRID_Y_TO_ROW"
    a$ = a$ + cr$ + "    GRID_COLUMN_SIZING_ON, GRID_COLUMN_SIZING_OFF"
    a$ = a$ + cr$ + "    GRID_ROW_SIZING_ON, GRID_ROW_SIZING_OFF"
    a$ = a$ + cr$ + "Gestion de l'événement: ON_CLICK n, étiquette"
    Goto Msg
End_If
IF Clicked(171) = 1
    a$ = "Objet 27 ********** SCENE2D **********" + cr$
    a$ = a$ + cr$ + "Visualisation d'un univers 2D" + cr$
    a$ = a$ + cr$ + "Dimensions implicites (pixels): 200 x 200" + cr$
    a$ = a$ + cr$ + "- Commandes associées:" + cr$
    a$ = a$ + cr$ + "TOP, LEFT, WIDTH, HEIGHT, COLOR, FULL_SPACE, STRETCH_ON, STRETCH_OFF"
    Goto Msg
End_If
IF Clicked(172) = 1
    a$ = "Objet 1 ********** SCENE3D **********" + cr$
    a$ = a$ + cr$ + "Visualisation d'un monde 3D" + cr$
    a$ = a$ + cr$ + "Dimensions implicites (pixels): 200 x 200" + cr$
    a$ = a$ + cr$ + "- Commandes associées:" + cr$
    a$ = a$ + cr$ + "TOP, LEFT, WIDTH, HEIGHT, COLOR, HINT, HINT_HIDE, FULL_SPACE, ON_CLICK"
    Goto Msg
End_If
IF Clicked(173) = 1
    a$ = "Objet 12 ********** MAIN_MENU **********" + cr$
    a$ = a$ + cr$ + "Création d'un système de menus" + cr$
    a$ = a$ + cr$ + "- Commandes associées:" + cr$
    a$ = a$ + cr$ + "ON_CLICK"
    Goto Msg
End_If
IF Clicked(174) = 1
    a$ = "Objet 13 ********** SUB_MENU **********" + cr$
    a$ = a$ + cr$ + "Création des sous-menus d'un MAIN_MENU" + cr$
    a$ = a$ + cr$ + "- Commandes associées:" + cr$
    a$ = a$ + cr$ + "PARENT, CAPTION, HIDE, SHOW, ACTIVE, INACTIVE, ON_CLICK"
    Goto Msg
End_If
IF Clicked(175) = 1
    a$ = "Objet 14 ********** SOUND **********" + cr$
    a$ = a$ + cr$ + "Création d'un objet SOUND" + cr$
    a$ = a$ + "pour jouer un fichier son chargé par FILE_LOAD" + cr$
    a$ = a$ + cr$ + "- Commandes associées:" + cr$
    a$ = a$ + cr$ + "FILE_LOAD, PLAY"
    Goto Msg
End_If
IF Clicked(176) = 1
    a$ = "Objet 15 ********** MOVIE **********" + cr$
    a$ = a$ + cr$ + "Création d'un objet MOVIE" + cr$
    a$ = a$ + "pour jouer une vidéo multimédia chargée par FILE_LOAD" + cr$
    a$ = a$ + cr$ + "Dimensions implicites (pixels): 100 x 80" + cr$
    a$ = a$ + cr$ + "- Commandes associées:" + cr$
    a$ = a$ + cr$ + "TOP, LEFT, WIDTH, HEIGHT, HINT, HINT_HIDE, FULL_SPACE, COLOR,"
    a$ = a$ + cr$ + "ON_CLICK, FILE_LOAD"
    Goto Msg
End_If
IF Clicked(177) = 1
    a$ = "Objet 41 ********** IMAGE **********" + cr$
    a$ = a$ + cr$ + "Création d'un objet IMAGE en mémoire" + cr$
    a$ = a$ + cr$ + "- Commandes associées:" + cr$
    a$ = a$ + cr$ + "FILE_LOAD, FILE_SAVE, 2D_IMAGE_COPY, 2D_IMAGE_PASTE,"
    a$ = a$ + cr$ + "SPRITE_IMAGE_LOAD, 2D_IMAGE_TEXTURE"
    Goto Msg
End_If
IF Clicked(178) = 1
    a$ = "Objet 28 ********** TIMER **********" + cr$
    a$ = a$ + cr$ + "Déclenchement d'une interruption périodique" + cr$
    a$ = a$ + cr$ + "- Commandes associées:" + cr$
    a$ = a$ + cr$ + "Période (implicite 1000ms): TIMER_INTERVAL"
    a$ = a$ + cr$ + "Désactivation/Réactivation: TIMER_OFF, TIMER_ON"
    a$ = a$ + cr$ + "Gestion de l'événement: ON_TIMER n, étiquette"
    Goto Msg
End_If
IF Clicked(179) = 1
    a$ = "Objet 23 ********** CONTAINER **********" + cr$
    a$ = a$ + cr$ + "Création d'un conteneur d'objets système" + cr$
    a$ = a$ + cr$ + "- Commandes associées:" + cr$
    a$ = a$ + cr$ + "TOP, LEFT, WIDTH, HEIGHT, HINT, HINT_HIDE, FULL_SPACE,"
    a$ = a$ + cr$ + "PARENT, ON_CLICK"
    Goto Msg
End_If
IF Clicked(180) = 1
    a$ = "Objet 17 ********** OPEN_DIALOG **********" + cr$
    a$ = a$ + cr$ + "Création d'un OPEN_DIALOG pour choix de fichier ultérieur" + cr$
    a$ = a$ + cr$ + "- Commandes associées:" + cr$
    a$ = a$ + cr$ + "FILTER, FILE_NAME$, DIR_DIALOG"
    Goto Msg
End_If
IF Clicked(181) = 1
    a$ = "Objet 18 ********** SAVE_DIALOG **********" + cr$
    a$ = a$ + cr$ + "Création d'un SAVE_DIALOG pour sauvegarde ultérieure de fichier" + cr$
    a$ = a$ + cr$ + "- Commandes associées:" + cr$
    a$ = a$ + cr$ + "FILTER, FILE_NAME$, DIR_DIALOG"
    Goto Msg
End_If
Msg:
MESSAGE a$
RETURN

Majcat:
' gestion des catégories des mots-clés
SHOW 300
CLEAR 301
FOR i% = 1 TO COUNT(80)
    ITEM_ADD 301, RIGHT$("  "+STR$(i%),3)+" "+ITEM_READ$(80,i%)
NEXT i%
RETURN

Exec:
n1 = VAL(TEXT$(311)): n2 = VAL(TEXT$(313))
IF n2 = 0 THEN n2 = n1: ' une seule ligne
IF n2 < n1 THEN RETURN
IF n1<1 OR n1>COUNT(301) THEN RETURN
IF n2<1 OR n2>COUNT(301) THEN RETURN
d$ = TEXT$(315)
FOR i% = n1 TO n2
    a$ = ITEM_READ$(301, i%)
    b$ = LEFT$(a$, 4) + d$ + MID$(a$, 8, 100)
    ITEM_DELETE 301, i%: ITEM_INSERT 301, i%, b$
NEXT i%
ini% = 0
RETURN

Sauve:
CLEAR 80
FOR i% = 1 TO COUNT(301)
    a$ = MID$(ITEM_READ$(301, i%), 5, 100)
    ITEM_ADD 80, a$
NEXT i%
FILE_SAVE 80, ff$
RETURN

Clkl:
i% = VAL(LEFT$(ITEM_INDEX$(301),3)): ' ligne cliquée
IF ini% = 0
    TEXT 311, STR$(i%): TEXT 313, STR$(i%): ini% = 1
ELSE
    IF ini% = 1
        TEXT 313, STR$(i%): ini% = 2
    ELSE
        IF ini% = 2
            ' on recommence à la 1ère ligne
            TEXT 311, STR$(i%): TEXT 313, STR$(i%): ini% = 1
        END_IF
    END_IF
END_IF
RETURN

Inil:
IF CLICKED(311) = 1 THEN ini% = 0: TEXT 311,"": TEXT 313,""
IF CLICKED(313) = 1 THEN ini% = 1
RETURN

Clkc:
a$ = LEFT$(ITEM_INDEX$(319), 3)
TEXT 315, a$
RETURN

Fmaj:
HIDE 300
RETURN

fd$ = "C:\Temp\Dir.tmp": '        *** à ajuster (temporaire)
fbat$ = "C:\Temp\Nomcourt.bat": ' *** à ajuster (temporaire)
fm$ = "C:\Temp\temp":          ' *** à ajuster (temporaire)
ra$ = "C:\Program Files (x86)\Panoramic Editor V 0.9.23"+CHR$(92): ' répertoire des sources
fnews$ = ra$ + "News.rtf": '      ce qui est en cours
rec = 0

File_Open_Read 1, fm$: File_ReadLn 1, ncourt$: File_Close 1