Petit menu des outils créé avec mon IDE en Panoramic

J'ai utilisé mon IDE pour créer un petit menu permettant de lancer l'ensemble des outils que j'aime bien avoir sous la main, en permanence, sans avoir à chercher les icônes sur le bureau. Ce sont les programmes suivants:
PANORAMIC_EDITOR.exe
L'excellent AIDE.exe
IDE.exe
mes astuces.exe

Le source ci-après est un projet IDE et peut être chargé et modifié par l'IDE, mais marche aussi directement dans l'éditeur Panoramic:

Code:: ' === Projet IDE
label labels : gosub labels
gosub FORM0
gosub variables
gosub GUI
gosub initialisations
end

' === IDE subroutine labels
labels:
label astuces
label aide
label IDE
label editor
label sortie
label initialisations
label FORM0
label GUI
label variables
return

' === IDE subroutine variables
variables:
dim editor$, IDE$, aide$, astuces$
return

' === IDE subroutine GUI
GUI:
' --- IDE objet
button 1
top 1,0
left 1,0
height 1,25
width 1,75
show 1
active 1
caption 1,"P. Editor"
on_click 1,editor

' --- IDE objet
button 2
top 2,0
left 2,74
height 2,25
width 2,75
show 2
active 2
caption 2,"IDE"
on_click 2,IDE

' --- IDE objet
button 3
top 3,0
left 3,148
height 3,25
width 3,75
show 3
active 3
caption 3,"Aide"
on_click 3,aide

' --- IDE objet
button 4
top 4,0
left 4,222
height 4,25
width 4,75
show 4
active 4
caption 4,"Astuces"
on_click 4,astuces

' --- IDE objet
button 5
top 5,0
left 5,296
height 5,25
width 5,75
show 5
active 5
caption 5,"Sortie"
on_click 5,sortie

' --- IDE objet
main_menu 6

' --- IDE objet
sub_menu 7
caption 7,"P. Editor"
parent 7,6
on_click 7,editor

' --- IDE objet
sub_menu 8
caption 8,"IDE"
parent 8,6
on_click 8,IDE

' --- IDE objet
sub_menu 9
caption 9,"Aide"
parent 9,6
active 9
on_click 9,aide

' --- IDE objet
sub_menu 10
caption 10,"Astuces"
parent 10,6
active 10
on_click 10,astuces

' --- IDE objet
sub_menu 11
caption 11,"Sortie"
parent 11,6
on_click 11,sortie

return

' === IDE subroutine FORM0
FORM0:
top 0,0
left 0,0
height 0,80
width 0,380
show 0
active 0
caption 0,"IDE - programme application"
color 0,236,233,216
return

' === IDE subroutine initialisations
initialisations:
editor$ = "C:\PROGRA~1\PANORA~1\PANORA~3.EXE"
IDE$ = "C:\PROGRA~1\PANORA~1\IDE.exe"
aide$ = "C:\Langages\PANORA~1\Help.exe"
astuces$ = "C:\PROGRA~1\PANORA~1\MESAST~1.EXE"
left 0,screen_x-width(0)
return

' === IDE subroutine sortie
sortie:
terminate
return

' === IDE subroutine editor
editor:
execute editor$
return

' === IDE subroutine IDE
IDE:
execute IDE$
return

' === IDE subroutine aide
aide:
execute aide$

return

' === IDE subroutine astuces
astuces:
execute astuces$
return
' === IDE EOF

Nombre de messages : 601 Date d'inscription : 05/01/2012

Toujours l'esprit pratique Klaus, bravo ! super utile.

Et voivi une nouvelle version, encore plus réduite visuellement: on ne voit plus que le menu à l'écran, dans le coin en bas à droite de l'écran, quelque soit sa dimension. Pour quitter le programme, il faut utiliser le choix "Sortir":

Code:: ' === Projet IDE
label labels : gosub labels
gosub FORM0
gosub variables
gosub GUI
gosub initialisations
end

' === IDE subroutine labels
labels:
label delphi
label astuces
label aide
label IDE
label editor
label sortie
label initialisations
label FORM0
label GUI
label variables
return

' === IDE subroutine variables
variables:
dim editor$, IDE$, aide$, astuces$, delphi$
return

' === IDE subroutine GUI
GUI:

' --- IDE objet
main_menu 1

' --- IDE objet
sub_menu 2
caption 2,"Outils"
parent 2,1

' --- IDE objet
sub_menu 3
caption 3,"P. Editor"
parent 3,2
on_click 3,editor

' --- IDE objet
sub_menu 4
caption 4,"IDE"
parent 4,2
on_click 4,IDE

' --- IDE objet
sub_menu 5
caption 5,"Aide"
parent 5,2
active 5
on_click 5,aide

' --- IDE objet
sub_menu 6
caption 6,"Astuces"
parent 6,2
active 6
on_click 6,astuces

' --- IDE objet
sub_menu 7
caption 7,"Delphi"
parent 7,2
active 7
on_click 7,delphi

' --- IDE objet
sub_menu 8
caption 8,"Sortie"
parent 8,2
active 8
on_click 8,sortie

return

' === IDE subroutine FORM0
FORM0:
top 0,0
left 0,0
height 0,50
width 0,70
show 0
active 0
caption 0,""
color 0,236,233,216
return

' === IDE subroutine initialisations
initialisations:
editor$ = "C:\PROGRA~1\PANORA~1\PANORA~3.EXE"
IDE$ = "C:\PROGRA~1\PANORA~1\IDE.exe"
aide$ = "C:\Langages\PANORA~1\Help.exe"
astuces$ = "C:\PROGRA~1\PANORA~1\MESAST~1.EXE"
delphi$ = "C:\PROGRA~1\Borland\Delphi6\Bin\delphi32.exe"
border_hide 0
height 0,20
width 0,40
left 0,screen_x-width(0)
top 0,screen_y-height(0)
return

' === IDE subroutine sortie
sortie:
terminate
return

' === IDE subroutine editor
editor:
execute editor$
return

' === IDE subroutine IDE
IDE:
execute IDE$
return

' === IDE subroutine aide
aide:
execute aide$

return

' === IDE subroutine astuces
astuces:
execute astuces$

return

' === IDE subroutine delphi
delphi:
execute delphi$

return
' === IDE EOF

Note: développé avec mon IDE...

» Outils couleurs avec pipette
» Menu personalisé avec icones et menu contextuel
» Petit outils pour icones
» "AIDE" créé par HelpNDoc lancé depuis un prog. en panoramic
» creer des menu pour panoramic