Développement du programme de base

Développement du programme de base

Hallo Panoramics,
ich möchte euch meinen Entwurf eines Grundprogramm mitteilen.
Es ist noch in der Entwicklung. Aber Vorschläge und Verbesserungen
sind ausdrücklich erwünscht.
Einige Fragen an euch habe ich noch:
Wie ist das Design ?
Ist es ergonomisch und übersichtlich ?

Lebhafte Diskusion
Severin

Hello Panoramics,
I wanted to share my design of a basic program.
It is still under development. But suggestions and improvements
are encouraged.
Some questions for you, I have:
How is the design?
Is it ergonomically and clearly?

animated Talkshow
Severin

Bonjour Panoramiques,
Je voulais partager ma conception d'un programme de base.
Il est encore en cours de développement. Mais les suggestions et améliorations
sont encouragés.
Quelques questions pour vous, j'ai:
Comment est la conception?
Est-il ergonomique et clairement?

Talk-show animé
Severin

Code:: ' *** Eltern kind mit DLL nach klaus *******************************************
' *** MIT DLL LoadProgram ******************************************************
' *** Mit DLL FORM nach Nardo **************************************************
' *** Dank an Klaus und Nardo für "LoadProgram.dll und Form.dll" ***************
'
label attacher :' Objekt anhängen
label detacher :' Objekt abhängen
'
dim hnd0000%
dim hnd0100%
dim hnd0200%
dim hnd0300%
'
dim hnd0500%
dim ancien%
'
dim LEERMENUE$
dim LEERZEICHEN$
dim LEERLAENGE$
'
' *** LABEL FÜR FORMEN ERSTELLEN ***********************************************
LABEL ZAHL0000
LABEL ZAHL0100
LABEL ZAHL0200
LABEL ZAHL0300
LABEL ZAHL0400
LABEL ZAHL0500
Label Zahl1900
'
'
'
' *** FORM 000 EIGENSCHAFTEN ERSTELLEN *****************************************
'
' *** SetCLOSEOff :' Deaktivieren der Schließen-Schaltfläche der FORM
'
DIM FORM_BUTTON_Off13 :' =dll_call1("SetCLOSEOff",handle(0))
'
' *** SetMaximize :' 0-> OFF - Ob die Umsetzung einer Vollbild-FORM

DIM FORM_BUTTON_Off14 :' =DLL_CALL2("SetMaximize",HANDLE(0),0)
'
' *** SetMinimize :' 0-> OFF - Ob die Einstellung Symbol eines FORmulars.
'
DIM FORM_BUTTON_Off15 :' =DLL_CALL2("SetMinimize",HANDLE(0),0)
'
'
'
dll_on "form.dll"
'
FORM_BUTTON_Off13=dll_call1("SetCloseOff",handle(0)) :' Schließen deaktiviert
'
FORM_BUTTON_Off14=DLL_CALL2("SetMaximize",HANDLE(0),0) :' Vergrößern deaktiviert
'
FORM_BUTTON_Off15=DLL_CALL2("SetMinimize",HANDLE(0),0) :' Verkleinern deaktiviert
'
dll_off
'
'
' ******************************************************************************
' *** FORM 0000 ERSTELLEN IN SCHWARZ *******************************************
ZAHL0000:
'
' FORM 0000
TOP 0000,0
LEFT 0000,0
WIDTH 0000,SCREEN_X
HEIGHT 0000,SCREEN_Y-44
COLOR 0000,000,000,000
CAPTION 0000," Multimomentstudien erstellen und auswerten "
' HINT 0000
' HINT_HIDE 0000
' BORDER_HIDE 0000
' BORDER_SMALL 0000
' BORDER_NORMAL 0000
' FULL_SPACE 0000
'
hnd0000% = handle(0000)
'
Gosub Zahl0100
Gosub Zahl0200
Gosub Zahl0300
Gosub Zahl0400
Gosub Zahl0500
'
'
' ******************************************************************************
' on_click 1000,Zahl1000 *******************************************************
'
' on_click 1100,Show 0200
' on_click 1200,Zahl1200:on_click 1300,Zahl1300
' on_click 1400,Zahl1400:on_click 1500,Zahl1500:on_click 1600,Zahl1600
' on_click 1700,Zahl1700:on_click 1800,Zahl1800:
on_click 1900,Zahl1900
end
'
' ******************************************************************************
Zahl1900:
'
terminate
end
'
' ******************************************************************************
' *** FORM 0100 ERSTELLEN IN GRAU ---> Schaltflächenleiste ********************
ZAHL0100:
'
COMMAND_TARGET_IS 0000
'
FORM 0100
TOP 0100,2
LEFT 0100,2
WIDTH 0100,SCREEN_X-12
HEIGHT 0100,70
COLOR 0100,229,229,229
' CAPTION 0100," Form 0100 "
' HINT 0100
' HINT_HIDE 0100
BORDER_HIDE 0100
' BORDER_SMALL 0100
' BORDER_NORMAL 0100
' FULL_SPACE 0100
'
hnd0100% = handle(0100)
'
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",hnd0100%,hnd0000%,0)
dll_off
'
'
' ******************************************************************************
' *** BILD AUF FORM 0100 ANZEIGEN **********************************************
'
COMMAND_TARGET_IS 0100
'
' *** später durch Bild ersetzen
BUTTON 0101 :' HIDE 101
TOP 0101,2 : REM HÖHE FENSTER
LEFT 0101,2 : REM BREITE FENSTER
WIDTH 0101,22 : REM ......BREITE 1680
HEIGHT 0101,22 : REM ......HÖHE 1050
CAPTION 0101,"|<--"
' FILE_LOAD 0101,Speicherplatz_Bild01$
' STRETCH_ON 0101 : REM
' SHOW 0101 : REM
'
' *** später durch Bild ersetzen
BUTTON 0102 :' HIDE 101
TOP 0102,26 : REM HÖHE FENSTER
LEFT 0102,2 : REM BREITE FENSTER
WIDTH 0102,22 : REM ......BREITE 1680
HEIGHT 0102,22 : REM ......HÖHE 1050
CAPTION 0102,"-->"
' FILE_LOAD 0102,Speicherplatz_Bild01$
' STRETCH_ON 0102 : REM
' SHOW 0102 : REM
'
' *** später durch Bild ersetzen
BUTTON 0105 :' HIDE 101
TOP 0105,2 : REM HÖHE FENSTER
LEFT 0105,26 : REM BREITE FENSTER
WIDTH 0105,22 : REM ......BREITE 1680
HEIGHT 0105,22 : REM ......HÖHE 1050
CAPTION 0105,"<--"
' FILE_LOAD 0105,Speicherplatz_Bild01$
' STRETCH_ON 0105 : REM
' SHOW 0105 : REM
'
' *** später durch Bild ersetzen
BUTTON 0106 :' HIDE 101
TOP 0106,26 : REM HÖHE FENSTER
LEFT 0106,26 : REM BREITE FENSTER
WIDTH 0106,22 : REM ......BREITE 1680
HEIGHT 0106,22 : REM ......HÖHE 1050
CAPTION 0106,"-->|"
' FILE_LOAD 0106,Speicherplatz_Bild01$
' STRETCH_ON 0106 : REM
' SHOW 0106 : REM
'

' *** später durch Bild ersetzen
BUTTON 0190 :' HIDE 101
TOP 0190,4 : REM HÖHE FENSTER
LEFT 0190,SCREEN_X-110 : REM BREITE FENSTER
WIDTH 0190,44 : REM ......BREITE 1680
HEIGHT 0190,44 : REM ......HÖHE 1050
CAPTION 0190," HELP "
' FILE_LOAD 0102,Speicherplatz_Bild01$
' STRETCH_ON 0102 : REM
' SHOW 0102 : REM
'

' *** später durch Bild ersetzen
BUTTON 0195 :' HIDE 101
TOP 0195,4 : REM HÖHE FENSTER
LEFT 0195,SCREEN_X-60 : REM BREITE FENSTER
WIDTH 0195,44 : REM ......BREITE 1680
HEIGHT 0195,44 : REM ......HÖHE 1050
CAPTION 0195," LOGO "
' FILE_LOAD 0102,Speicherplatz_Bild01$
' STRETCH_ON 0102 : REM
' SHOW 0102 : REM
'
' end
Return
'
' ******************************************************************************
' *** FORM 0200 ERSTELLEN IN GRÜN ---> Bearbeitungsfläche **********************
ZAHL0200:
'
COMMAND_TARGET_IS 0000
'
FORM 0200
TOP 0200,74
LEFT 0200,2
WIDTH 0200,SCREEN_X-12
HEIGHT 0200,SCREEN_Y-177
COLOR 0200,167,171,172
' CAPTION 0200," Form 0200 "
' HINT 0200
' HINT_HIDE 0200
BORDER_HIDE 0200
' BORDER_SMALL 0200
' BORDER_NORMAL 0200
' FULL_SPACE 0200
'
hnd0200% = handle(0200)
'
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",hnd0200%,hnd0000%,0)
dll_off
'
return
'
' *** FORM 0500 ERSTELLEN IN ROT ---> Bearbeitungsfläche **********************
ZAHL0500:
'
COMMAND_TARGET_IS 0000
'
FORM 0500
TOP 0500,74
LEFT 0500,2
WIDTH 0500,SCREEN_X-12
HEIGHT 0500,SCREEN_Y-177
COLOR 0500,255,000,000
' CAPTION 0500," Form 0500 "
' HINT 0500
' HINT_HIDE 0500
BORDER_HIDE 0500
' BORDER_SMALL 0500
' BORDER_NORMAL 0500
' FULL_SPACE 0500
'
hnd0500% = handle(0500)
'
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",hnd0500%,hnd0000%,0)
dll_off
'
return
'
' *** FORM 0300 ERSTELLEN IN BLAU ---> FUSSLEISTE ******************************
ZAHL0300:
'
COMMAND_TARGET_IS 0000
'
FORM 0300
TOP 0300,SCREEN_Y-101
LEFT 0300,2
WIDTH 0300,SCREEN_X-12
HEIGHT 0300,28
COLOR 0300,231,238,240
' CAPTION 0300," Form 0300 "
' HINT 0300
' HINT_HIDE 0300
BORDER_HIDE 0300
' BORDER_SMALL 0300
' BORDER_NORMAL 0300
' FULL_SPACE 0300
'
hnd0300% = handle(0300)
'
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",hnd0300%,hnd0000%,0)
dll_off
'
return
'
'
' ******************************************************************************
ZAHL0400:
'
COMMAND_TARGET_IS 0100
'
Font_name 0100,"arial"
Font_size 0100,07
font_bold 0100

'
' ******************************************************************************
' *** Hauptmenü erstellen ******************************************************
main_menu 0001
' ******************************************************************************
' *** ERSTELLEN DES HAUPTMENÜ 1000 bis 9000 ************************************
sub_menu 1000:CAPTION 1000,"MENUE 01 ":parent 1000,0001
sub_menu 2000:CAPTION 2000,"MENUE 02 ":parent 2000,0001
sub_menu 3000:CAPTION 3000,"MENUE 03 ":parent 3000,0001
sub_menu 4000:CAPTION 4000,"MENUE 04 ":parent 4000,0001
sub_menu 5000:CAPTION 5000,"MENUE 04 ":parent 5000,0001
sub_menu 6000:CAPTION 6000,"MENUE 05 ":parent 6000,0001
sub_menu 7000:CAPTION 7000,"MENUE 06 ":parent 7000,0001
'
' *** Berechnung von Länge des Leermenue ****

' LEERZEICHEN$ = CHR$(32)
'

LEERMENUE$= STRING$(120,CHR$(32))

' sub_menu 7500:CAPTION 7500,LEERLAENGE:parent 7500,0001
sub_menu 7500:CAPTION 7500,LEERMENUE$:parent 7500,0001
sub_menu 8000:CAPTION 8000,"HILFE":parent 8000,0001
sub_menu 9000:CAPTION 9000,"INFO ":parent 9000,0001
' ******************************************************************************
' *** ERSTELLEN UNTERMENÜ 1100 bis 1900 ***************************************
sub_menu 1100:CAPTION 1100," UNTERMENUE 0101 ":parent 1100,1000
sub_menu 1200:CAPTION 1200," UNTERMENUE 0102 ":parent 1200,1000
sub_menu 1300:CAPTION 1300," UNTERMENUE 0103 ":parent 1300,1000
sub_menu 1400:CAPTION 1400," UNTERMENUE 0104 ":parent 1400,1000
sub_menu 1500:CAPTION 1500," UNTERMENUE 0105 ":parent 1500,1000
sub_menu 1600:CAPTION 1600," UNTERMENUE 0106 ":parent 1600,1000
sub_menu 1700:CAPTION 1700," UNTERMENUE 0107 ":parent 1700,1000
sub_menu 1800:CAPTION 1800," UNTERMENUE 0108 ":parent 1800,1000
sub_menu 1900:CAPTION 1900," QUIT ":parent 1900,1000
' ******************************************************************************
'
Return
'
end
'
' ******************************************************************************
'
'
'
' *** Objekt anhängen **********************************************************
attacher:
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",hnd0100%,hnd0100%,1)
dll_off
' inactive 1 : active 2
return
'
' *** Objekt abhängen **********************************************************
detacher:
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",hnd20%,ancien%,0)
dll_off
' active 1 : inactive 2
return
'
' ******************************************************************************

DIM Speicherplatz_BIN03$
Speicherplatz_BIN03$ = DIR_A$ + "1PC-ZEIT\04_PC-ZEIT_BIN\form.dll"

dll_on Speicherplatz_BIN03$
'
FORm_BUTTON_Off13=dll_call1("SetCloseOff",handle(0)) :' Schließen deaktiviert
'
FORm_BUTTON_Off14=DLL_CALL2("SetMaximize",HANDLE(0),0) :' Vergrößern deaktiviert
'
FORm_BUTTON_Off15=DLL_CALL2("SetMinimize",HANDLE(0),0) :' Verkleinern deaktiviert
'
dll_off

'
' *** FORM 000 EIGENSCHAFTEN ERSTELLEN *****************************************
' *** SetSize : 1-> ON - Ob eine FORm resize
DIM FORm_BUTTON_On01:' ...FORm_BUTTON_On01=dll_call2("SetSize",handle(0),1)

' *** SetCaption: 1-> ON - Aktivieren der Titelleiste (CAPTION) eines FORmulars
DIM FORm_BUTTON_On02:' ...FORm_BUTTON_On02= DLL_CALL2("SetCaption",HANDLE(0),1)
'
DIM FORm_BUTTON_On03:' ...FORm_BUTTON_On03=
' *** SetMaximize : 1-> ON - Ob die Umsetzung einer Vollbild-FORm.

DIM FORm_BUTTON_On04:' ...FORm_BUTTON_On04=DLL_CALL2("SetMaximize",HANDLE(0),1)
' *** SetMinimize : 1-> ON - Ob die Einstellung Symbol eines FORmulars

DIM FORm_BUTTON_On05:' ...FORm_BUTTON_On05= DLL_CALL2("SetMinimize", HANDLE(0),1)
'

DIM FORm_BUTTON_On06:' ...FORm_BUTTON_On06=
'

DIM FORm_BUTTON_On07:' ...FORm_BUTTON_On07=
'

DIM FORm_BUTTON_On08:' ...FORm_BUTTON_On08=

' *** SetFORmActive : Legen Sie die FORm in den Vordergrund.

DIM FORm_BUTTON_On09:' ...FORm_BUTTON_On09= dll_call1("SetFORmActive",handle(0))
'
' ******************************************************************************
' *** SetSize : 0-> OFF - Ob eine FORm resize

DIM FORm_BUTTON_Off11 :' ...FORm_BUTTON_Off11=dll_call2("SetSize",handle(0),0)
' *** SetCaption: 0-> OFF - Deaktivieren der Titelleiste (CAPTION) eines FORmulars

DIM FORm_BUTTON_Off12 :' ...FORm_BUTTON_Off12= DLL_CALL2("SetCaption",HANDLE(0),0)

' *** SetCLOSEOff : Deaktivieren Sie die Schließen-Schaltfläche des FORmulars.

DIM FORm_BUTTON_Off13 :' ...FORm_BUTTON_Off13=dll_call1("SetCLOSEOff",handle(0))

' *** SetMaximize : 0-> OFF - Ob die Umsetzung einer Vollbild-FORm.

DIM FORm_BUTTON_Off14 :' ...FORm_BUTTON_Off14=DLL_CALL2("SetMaximize",HANDLE(0),0)

' *** SetMinimize : 0-> OFF - Ob die Einstellung Symbol eines FORmulars.

DIM FORm_BUTTON_Off15 :' ...FORm_BUTTON_Off15=DLL_CALL2("SetMinimize",HANDLE(0),0)
'

DIM FORm_BUTTON_Off16 :' ...FORm_BUTTON_Off16=
'

DIM FORm_BUTTON_Off17 :' ...FORm_BUTTON_Off17=
'

DIM FORm_BUTTON_Off18 :' ...FORm_BUTTON_Off18=
'

DIM FORm_BUTTON_Off19 :' ...FORm_BUTTON_Off19=dll_call1(

' *** CreateBox: Position ein paar Folk (erstellt für den persönlichen Bedarf).

DIM FORm_BUTTON_Off99 :' ...FORm_BUTTON_Off99=dll_call1("SetTOpMost",handle(0))
'
' ******************************************************************************

Entshuldigung, habe es Übersehen. Embarassed

Hallo Severin,

Kannst Du Dein Programm neu eingeben, zwischen CODE et /CODE, anstatt zwischen QUOTE et /CODE ? Im Moment kann man das Programm nicht mit Cut-and-Paste holen.

Jetzt taucht ein Problem auf.

Ich will die Menueleiste gestalten.
Die Menuepunkte "Hilfe" und "Info" sollen rechrsbündig erscheinen.
Daher brauche ich einen PseudoButton.
Ich lese die Textlänge alle Menuetexte aus und berechne den Rest.
Frage ist bekannt um wieviele Pixel der Butten größer ist alls der Text.

Severin

Now there is a problem.

I want to make the menu bar.
The menu items "Help" and "info" will appear to the right.
Therefore I need a pseudo button.
I read from the text length of menu texts and calculate all the rest
Larger question is known how many pixels the text of the tubs is alls.

Severin

Maintenant, il ya un problème.

Je veux faire de la barre de menu.
Les éléments du menu "Aide" et "info" va apparaître à droite.
C'est pourquoi je besoin d'un bouton pseudo.
J'ai lu à partir de la longueur du texte des textes du menu et de calculer tout le reste
Agrandir question est connue de combien de pixels le texte des baignoires est alls.

Severin

Code:: ' *** Eltern kind mit DLL nach klaus *******************************************
' *** MIT DLL LoadProgram ******************************************************
' *** Mit DLL FORM nach Nardo **************************************************
' *** Dank an Klaus und Nardo für "LoadProgram.dll und Form.dll" ***************
'
label attacher :' Objekt anhängen
label detacher :' Objekt abhängen
'
dim hnd0000%
dim hnd0100%
dim hnd0200%
dim hnd0300%
'
dim hnd0500%
dim ancien%
'
' *** Variablen für Menue von Form 100, um Längen zuberechnen ******************
'
dim LEERMENUE01$: dim LEERZEICHEN01%: dim LEERLAENGE01%
dim LEERMENUE02$: dim LEERZEICHEN02$: dim LEERLAENGE02%
dim LEERMENUE03$: dim LEERZEICHEN03$: dim LEERLAENGE03%
dim LEERMENUE04$: dim LEERZEICHEN04%: dim LEERLAENGE04%
dim LEERMENUE05$: dim LEERZEICHEN05%: dim LEERLAENGE05%
dim LEERMENUE06$: dim LEERZEICHEN06%: dim LEERLAENGE06%
dim LEERMENUE07$: dim LEERZEICHEN07%: dim LEERLAENGE07%
dim LEERMENUE08$: dim LEERZEICHEN08%: dim LEERLAENGE08%
dim LEERMENUE09$: dim LEERZEICHEN09%: dim LEERLAENGE09%
dim LEERMENUE10$: dim LEERZEICHEN10%: dim LEERLAENGE10%
dim LEERMENUE11$: dim LEERZEICHEN11%: dim LEERLAENGE11%
dim LEERMENUE12$: dim LEERZEICHEN12%: dim LEERLAENGE12%
dim LEERMENUE13$: dim LEERZEICHEN13%: dim LEERLAENGE13%
dim LEERMENUE14$: dim LEERZEICHEN14%: dim LEERLAENGE14%
dim LEERMENUE15$: dim LEERZEICHEN15%: dim LEERLAENGE15%
dim LEERMENUE16$: dim LEERZEICHEN16%: dim LEERLAENGE16%
dim LEERMENUE17$: dim LEERZEICHEN17%: dim LEERLAENGE17%
dim LEERMENUE18$: dim LEERZEICHEN18%: dim LEERLAENGE18%
dim LEERMENUE19$: dim LEERZEICHEN19%: dim LEERLAENGE19%
dim LEERMENUE20$: dim LEERZEICHEN20%: dim LEERLAENGE20%
'
dim LEERSUMME% :dim LEERSUMME1%
dim LEERSUMME2% :dim LEERSUMME3%
dim LEERSUMME4% :dim LEERSUMME5%
dim LEERSUMME6% :dim LEERSUMME7%
dim LEERSUMME8% :dim LEERSUMME9%

'
' *** LABEL FÜR FORMEN ERSTELLEN ***********************************************
LABEL ZAHL0000
LABEL ZAHL0100
LABEL ZAHL0200
LABEL ZAHL0300
LABEL ZAHL0400
LABEL ZAHL0500
Label Zahl1900
'
'
'
' *** FORM 000 EIGENSCHAFTEN ERSTELLEN *****************************************
'
' *** SetCLOSEOff :' Deaktivieren der Schließen-Schaltfläche der FORM
'
DIM FORM_BUTTON_Off13 :' =dll_call1("SetCLOSEOff",handle(0))
'
' *** SetMaximize :' 0-> OFF - Ob die Umsetzung einer Vollbild-FORM

DIM FORM_BUTTON_Off14 :' =DLL_CALL2("SetMaximize",HANDLE(0),0)
'
' *** SetMinimize :' 0-> OFF - Ob die Einstellung Symbol eines FORmulars.
'
DIM FORM_BUTTON_Off15 :' =DLL_CALL2("SetMinimize",HANDLE(0),0)
'
'
'
dll_on "form.dll"
'
FORM_BUTTON_Off13=dll_call1("SetCloseOff",handle(0)) :' Schließen deaktiviert
'
FORM_BUTTON_Off14=DLL_CALL2("SetMaximize",HANDLE(0),0) :' Vergrößern deaktiviert
'
FORM_BUTTON_Off15=DLL_CALL2("SetMinimize",HANDLE(0),0) :' Verkleinern deaktiviert
'
dll_off
'
'
' ******************************************************************************
' *** FORM 0000 ERSTELLEN IN SCHWARZ *******************************************
ZAHL0000:
'
' FORM 0000
TOP 0000,0
LEFT 0000,0
WIDTH 0000,SCREEN_X
HEIGHT 0000,SCREEN_Y-44
COLOR 0000,000,000,000
CAPTION 0000," Multimomentstudien erstellen und auswerten "
' HINT 0000
' HINT_HIDE 0000
' BORDER_HIDE 0000
' BORDER_SMALL 0000
' BORDER_NORMAL 0000
' FULL_SPACE 0000
'
hnd0000% = handle(0000)
'
Gosub Zahl0100
Gosub Zahl0200
Gosub Zahl0300
Gosub Zahl0400
Gosub Zahl0500
'
'
' ******************************************************************************
' on_click 1000,Zahl1000 *******************************************************
'
' on_click 1100,Show 0200
' on_click 1200,Zahl1200:on_click 1300,Zahl1300
' on_click 1400,Zahl1400:on_click 1500,Zahl1500:on_click 1600,Zahl1600
' on_click 1700,Zahl1700:on_click 1800,Zahl1800:
on_click 1900,Zahl1900
end
'
' ******************************************************************************
Zahl1900:
'
terminate
end
'
' ******************************************************************************
' *** FORM 0100 ERSTELLEN IN GRAU ---> Schaltflächenleiste ********************
ZAHL0100:
'
COMMAND_TARGET_IS 0000
'
FORM 0100
TOP 0100,2
LEFT 0100,2
WIDTH 0100,SCREEN_X-12
HEIGHT 0100,70
COLOR 0100,229,229,229
' CAPTION 0100," Form 0100 "
' HINT 0100
' HINT_HIDE 0100
BORDER_HIDE 0100
' BORDER_SMALL 0100
' BORDER_NORMAL 0100
' FULL_SPACE 0100
'
hnd0100% = handle(0100)
'
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",hnd0100%,hnd0000%,0)
dll_off
'
'
' ******************************************************************************
' *** BILD AUF FORM 0100 ANZEIGEN **********************************************
'
COMMAND_TARGET_IS 0100
'
' *** später durch Bild ersetzen
BUTTON 0101 :' HIDE 101
TOP 0101,2 : REM HÖHE FENSTER
LEFT 0101,2 : REM BREITE FENSTER
WIDTH 0101,22 : REM ......BREITE 1680
HEIGHT 0101,22 : REM ......HÖHE 1050
CAPTION 0101,"|<--"
' FILE_LOAD 0101,Speicherplatz_Bild01$
' STRETCH_ON 0101 : REM
' SHOW 0101 : REM
'
' *** später durch Bild ersetzen
BUTTON 0102 :' HIDE 101
TOP 0102,26 : REM HÖHE FENSTER
LEFT 0102,2 : REM BREITE FENSTER
WIDTH 0102,22 : REM ......BREITE 1680
HEIGHT 0102,22 : REM ......HÖHE 1050
CAPTION 0102,"-->"
' FILE_LOAD 0102,Speicherplatz_Bild01$
' STRETCH_ON 0102 : REM
' SHOW 0102 : REM
'
' *** später durch Bild ersetzen
BUTTON 0105 :' HIDE 101
TOP 0105,2 : REM HÖHE FENSTER
LEFT 0105,26 : REM BREITE FENSTER
WIDTH 0105,22 : REM ......BREITE 1680
HEIGHT 0105,22 : REM ......HÖHE 1050
CAPTION 0105,"<--"
' FILE_LOAD 0105,Speicherplatz_Bild01$
' STRETCH_ON 0105 : REM
' SHOW 0105 : REM
'
' *** später durch Bild ersetzen
BUTTON 0106 :' HIDE 101
TOP 0106,26 : REM HÖHE FENSTER
LEFT 0106,26 : REM BREITE FENSTER
WIDTH 0106,22 : REM ......BREITE 1680
HEIGHT 0106,22 : REM ......HÖHE 1050
CAPTION 0106,"-->|"
' FILE_LOAD 0106,Speicherplatz_Bild01$
' STRETCH_ON 0106 : REM
' SHOW 0106 : REM
'

' *** später durch Bild ersetzen
BUTTON 0190 :' HIDE 101
TOP 0190,4 : REM HÖHE FENSTER
LEFT 0190,SCREEN_X-110 : REM BREITE FENSTER
WIDTH 0190,44 : REM ......BREITE 1680
HEIGHT 0190,44 : REM ......HÖHE 1050
CAPTION 0190," HELP "
' FILE_LOAD 0102,Speicherplatz_Bild01$
' STRETCH_ON 0102 : REM
' SHOW 0102 : REM
'

' *** später durch Bild ersetzen
BUTTON 0195 :' HIDE 101
TOP 0195,4 : REM HÖHE FENSTER
LEFT 0195,SCREEN_X-60 : REM BREITE FENSTER
WIDTH 0195,44 : REM ......BREITE 1680
HEIGHT 0195,44 : REM ......HÖHE 1050
CAPTION 0195," LOGO "
' FILE_LOAD 0102,Speicherplatz_Bild01$
' STRETCH_ON 0102 : REM
' SHOW 0102 : REM
'
' end
Return
'
' ******************************************************************************
' *** FORM 0200 ERSTELLEN IN GRÜN ---> Bearbeitungsfläche **********************
ZAHL0200:
'
COMMAND_TARGET_IS 0000
'
FORM 0200
TOP 0200,74
LEFT 0200,2
WIDTH 0200,SCREEN_X-12
HEIGHT 0200,SCREEN_Y-177
COLOR 0200,167,171,172
' CAPTION 0200," Form 0200 "
' HINT 0200
' HINT_HIDE 0200
BORDER_HIDE 0200
' BORDER_SMALL 0200
' BORDER_NORMAL 0200
' FULL_SPACE 0200
'
hnd0200% = handle(0200)
'
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",hnd0200%,hnd0000%,0)
dll_off
'
return
'
' *** FORM 0500 ERSTELLEN IN ROT ---> Bearbeitungsfläche **********************
ZAHL0500:
'
COMMAND_TARGET_IS 0000
'
FORM 0500
TOP 0500,74
LEFT 0500,2
WIDTH 0500,SCREEN_X-12
HEIGHT 0500,SCREEN_Y-177
COLOR 0500,255,000,000
' CAPTION 0500," Form 0500 "
' HINT 0500
' HINT_HIDE 0500
BORDER_HIDE 0500
' BORDER_SMALL 0500
' BORDER_NORMAL 0500
' FULL_SPACE 0500
'
hnd0500% = handle(0500)
'
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",hnd0500%,hnd0000%,0)
dll_off
'
return
'
' *** FORM 0300 ERSTELLEN IN BLAU ---> FUSSLEISTE ******************************
ZAHL0300:
'
COMMAND_TARGET_IS 0000
'
FORM 0300
TOP 0300,SCREEN_Y-101
LEFT 0300,2
WIDTH 0300,SCREEN_X-12
HEIGHT 0300,28
COLOR 0300,231,238,240
' CAPTION 0300," Form 0300 "
' HINT 0300
' HINT_HIDE 0300
BORDER_HIDE 0300
' BORDER_SMALL 0300
' BORDER_NORMAL 0300
' FULL_SPACE 0300
'
hnd0300% = handle(0300)
'
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",hnd0300%,hnd0000%,0)
dll_off
'
return
'
'
' ******************************************************************************
ZAHL0400:
'
COMMAND_TARGET_IS 0100
'
Font_name 0100,"arial"
Font_size 0100,07
font_bold 0100

'
' ******************************************************************************
' *** Hauptmenü erstellen ******************************************************
main_menu 0001
' ******************************************************************************
' *** ERSTELLEN DES HAUPTMENÜ 1000 bis 9000 ************************************
'
' *** Berechnung von Länge des Leermenue 18 ****
'
LEERMENUE01$ = " MENUE 01 "
LEERMENUE02$ = " MENUE 02 "
LEERMENUE03$ = " MENUE 03 "
LEERMENUE04$ = " MENUE 04 "
LEERMENUE05$ = " MENUE 05 "
LEERMENUE06$ = " MENUE 06 "
LEERMENUE07$ = " MENUE 07 "
LEERMENUE08$ = " MENUE 08 "
LEERMENUE09$ = " MENUE 09 "
LEERMENUE10$ = " MENUE 10 "
'
LEERMENUE11$ = " MENUE 11 "
LEERMENUE12$ = " MENUE 12 "
LEERMENUE13$ = " MENUE 13 "
LEERMENUE14$ = " MENUE 14 "
LEERMENUE15$ = " MENUE 15 "
LEERMENUE16$ = " MENUE 16 "
LEERMENUE17$ = " MENUE 17 "
LEERMENUE18$ = " "
LEERMENUE19$ = " HILFE "
LEERMENUE20$ = " INFO "
'
LEERLAENGE01% = TEXT_WIDTH(LEERMENUE01$,0100)+6
LEERLAENGE02% = TEXT_WIDTH(LEERMENUE02$,0100)+6
LEERLAENGE03% = TEXT_WIDTH(LEERMENUE03$,0100)+6
LEERLAENGE04% = TEXT_WIDTH(LEERMENUE04$,0100)+6
LEERLAENGE05% = TEXT_WIDTH(LEERMENUE05$,0100)+6
LEERLAENGE06% = TEXT_WIDTH(LEERMENUE06$,0100)+6
LEERLAENGE07% = TEXT_WIDTH(LEERMENUE07$,0100)+6
LEERLAENGE08% = TEXT_WIDTH(LEERMENUE08$,0100)+6
LEERLAENGE09% = TEXT_WIDTH(LEERMENUE09$,0100)+6
LEERLAENGE10% = TEXT_WIDTH(LEERMENUE10$,0100)+6
LEERLAENGE11% = TEXT_WIDTH(LEERMENUE11$,0100)+6
LEERLAENGE12% = TEXT_WIDTH(LEERMENUE12$,0100)+6
LEERLAENGE13% = TEXT_WIDTH(LEERMENUE13$,0100)+6
LEERLAENGE14% = TEXT_WIDTH(LEERMENUE14$,0100)+6
LEERLAENGE15% = TEXT_WIDTH(LEERMENUE15$,0100)+6
LEERLAENGE16% = TEXT_WIDTH(LEERMENUE16$,0100)+6
LEERLAENGE17% = TEXT_WIDTH(LEERMENUE17$,0100)+6
LEERLAENGE18% = TEXT_WIDTH(LEERMENUE18$,0100)+6
LEERLAENGE19% = TEXT_WIDTH(LEERMENUE19$,0100)+6
LEERLAENGE20% = TEXT_WIDTH(LEERMENUE20$,0100)+6
'
LEERSUMME1% = LEERLAENGE01% + LEERLAENGE02% + LEERLAENGE03%
LEERSUMME2% = LEERLAENGE04% + LEERLAENGE05% + LEERLAENGE06%
LEERSUMME3% = LEERLAENGE07% + LEERLAENGE08% + LEERLAENGE09%
LEERSUMME4% = LEERLAENGE10% + LEERLAENGE11% + LEERLAENGE12%
LEERSUMME5% = LEERLAENGE13% + LEERLAENGE14% + LEERLAENGE15%
LEERSUMME6% = LEERLAENGE16% + LEERLAENGE17%
LEERSUMME7% = LEERLAENGE19% + LEERLAENGE20%
'
LEERSUMME8% = LEERSUMME1% + LEERSUMME2% + LEERSUMME3% + LEERSUMME4%
LEERSUMME9% = LEERSUMME5% + LEERSUMME6% + LEERSUMME7%
LEERSUMME% = LEERSUMME8% + LEERSUMME9%

LEERLAENGE18% = SCREEN_X - 12 - LEERSUMME%
LEERMENUE18$ = STRING$(INT(LEERLAENGE18%/7),CHR$(32))

'
sub_menu 9000:CAPTION 9000,LEERMENUE01$:parent 9000,0001
sub_menu 9020:CAPTION 9020,LEERMENUE02$:parent 9020,0001
sub_menu 9040:CAPTION 9040,LEERMENUE03$:parent 9040,0001
sub_menu 9060:CAPTION 9060,LEERMENUE04$:parent 9060,0001
sub_menu 9080:CAPTION 9080,LEERMENUE05$:parent 9080,0001
sub_menu 9100:CAPTION 9100,LEERMENUE06$:parent 9100,0001
sub_menu 9120:CAPTION 9120,LEERMENUE07$:parent 9120,0001
sub_menu 9140:CAPTION 9140,LEERMENUE08$:parent 9140,0001
sub_menu 9160:CAPTION 9160,LEERMENUE09$:parent 9160,0001
sub_menu 9180:CAPTION 9180,LEERMENUE10$:parent 9180,0001
sub_menu 9200:CAPTION 9200,LEERMENUE11$:parent 9200,0001
sub_menu 9220:CAPTION 9220,LEERMENUE12$:parent 9220,0001
sub_menu 9240:CAPTION 9240,LEERMENUE13$:parent 9240,0001
sub_menu 9260:CAPTION 9260,LEERMENUE14$:parent 9260,0001
sub_menu 9280:CAPTION 9280,LEERMENUE15$:parent 9280,0001
sub_menu 9300:CAPTION 9300,LEERMENUE16$:parent 9300,0001
sub_menu 9320:CAPTION 9320,LEERMENUE17$:parent 9320,0001
sub_menu 9340:CAPTION 9340,LEERMENUE18$:parent 9340,0001
sub_menu 9360:CAPTION 9360,LEERMENUE19$:parent 9360,0001
sub_menu 9380:CAPTION 9380,LEERMENUE20$:parent 9380,0001
'
' ******************************************************************************
' *** ERSTELLEN UNTERMENÜ 1100 bis 1900 ***************************************
' sub_menu 1100:CAPTION 1100," UNTERMENUE 0101 ":parent 1100,1000
' sub_menu 1200:CAPTION 1200," UNTERMENUE 0102 ":parent 1200,1000
' sub_menu 1300:CAPTION 1300," UNTERMENUE 0103 ":parent 1300,1000
' sub_menu 1400:CAPTION 1400," UNTERMENUE 0104 ":parent 1400,1000
' sub_menu 1500:CAPTION 1500," UNTERMENUE 0105 ":parent 1500,1000
' sub_menu 1600:CAPTION 1600," UNTERMENUE 0106 ":parent 1600,1000
' sub_menu 1700:CAPTION 1700," UNTERMENUE 0107 ":parent 1700,1000
' sub_menu 1800:CAPTION 1800," UNTERMENUE 0108 ":parent 1800,1000
sub_menu 1900:CAPTION 1900," QUIT ":parent 1900,9000
' ******************************************************************************
'
Return
'
end
'
' ******************************************************************************

So hier ist eine weitere Entwicklungsstufe.

Im Menue "INFO" ist der erste Punkt aktiv. Zum Testen.

Die Struktur ist überarbeitet. Kommentare hinzugefügt.

Severin

So here is another stage of development.

In the menu "Info", the first point is active. For testing.

The structure is revised. Comments added.

Severin

Donc, voici un autre stade de développement.

Dans le menu "Info", le premier point est actif. Pour les tests.

La structure est révisée. Les commentaires ajoutés.

Severin

Code:: ' *** Eltern kind mit DLL nach klaus *******************************************
' *** MIT DLL LoadProgram ******************************************************
' *** Mit DLL FORM nach Nardo **************************************************
' *** Dank an Klaus und Nardo für "LoadProgram.dll und Form.dll" ***************
'

' ******************************************************************************
' *** VARIABLE FÜR OBJEKTE anhängen und OBJEKTE abhängen LoadProgram.DLL *******
'
label OBJEKT_AN :' Objekt anhängen
label detacher :' Objekt abhängen
'
dim PARENTNUMMER1%
dim PARENTNUMMER2%
dim ancien%
'
' ******************************************************************************
' *** Variablen für Menue von Form 100, um Längen zuberechnen ******************
'
dim LEERMENUE01$: dim LEERZEICHEN01%: dim LEERLAENGE01%
dim LEERMENUE02$: dim LEERZEICHEN02$: dim LEERLAENGE02%
dim LEERMENUE03$: dim LEERZEICHEN03$: dim LEERLAENGE03%
dim LEERMENUE04$: dim LEERZEICHEN04%: dim LEERLAENGE04%
dim LEERMENUE05$: dim LEERZEICHEN05%: dim LEERLAENGE05%
dim LEERMENUE06$: dim LEERZEICHEN06%: dim LEERLAENGE06%
dim LEERMENUE07$: dim LEERZEICHEN07%: dim LEERLAENGE07%
dim LEERMENUE08$: dim LEERZEICHEN08%: dim LEERLAENGE08%
dim LEERMENUE09$: dim LEERZEICHEN09%: dim LEERLAENGE09%
dim LEERMENUE10$: dim LEERZEICHEN10%: dim LEERLAENGE10%
dim LEERMENUE11$: dim LEERZEICHEN11%: dim LEERLAENGE11%
dim LEERMENUE12$: dim LEERZEICHEN12%: dim LEERLAENGE12%
dim LEERMENUE13$: dim LEERZEICHEN13%: dim LEERLAENGE13%
dim LEERMENUE14$: dim LEERZEICHEN14%: dim LEERLAENGE14%
dim LEERMENUE15$: dim LEERZEICHEN15%: dim LEERLAENGE15%
dim LEERMENUE16$: dim LEERZEICHEN16%: dim LEERLAENGE16%
dim LEERMENUE17$: dim LEERZEICHEN17%: dim LEERLAENGE17%
dim LEERMENUE18$: dim LEERZEICHEN18%: dim LEERLAENGE18%
dim LEERMENUE19$: dim LEERZEICHEN19%: dim LEERLAENGE19%
dim LEERMENUE20$: dim LEERZEICHEN20%: dim LEERLAENGE20%
'
dim LEERSUMME% :dim LEERSUMME1%
dim LEERSUMME2% :dim LEERSUMME3%
dim LEERSUMME4% :dim LEERSUMME5%
dim LEERSUMME6% :dim LEERSUMME7%
dim LEERSUMME8% :dim LEERSUMME9%
'
dim Menuetext$
'
' ******************************************************************************
' *** VARIABLE FÜR MENÜS ERSTELLEN *********************************************
' *** DEUTSCH ENGLISCH FRANZÖSISCH
' DATA

' ******************************************************************************
' *** LABEL FÜR FORMEN ERSTELLEN ***********************************************
LABEL SCREEN0000
LABEL SCREEN0100
LABEL ZAHL0110
LABEL ZAHL0200
LABEL ZAHL0400

LABEL ZAHL1000
LABEL ZAHL2000

Label ZAHL8600
Label ZAHL8620
Label ZAHL8640
Label ZAHL8660
Label ZAHL8680
Label ZAHL8700
Label ZAHL8720
Label ZAHL8740
Label ZAHL8760
Label ZAHL8780
Label ZAHL8800
Label ZAHL8820
Label ZAHL8840
Label ZAHL8860
Label ZAHL8880
Label ZAHL8900
Label ZAHL8920
Label ZAHL8940
Label ZAHL8960
Label ZAHL8980

Label PROGRAMM_ENDE
LABEL PROGRAMM_OEFFNEN
LABEL PROGRAMM_SPEICHER
'
' ******************************************************************************
' *** VARIABLE für Dateien *****************************************************
dim Datei_Name$

' ******************************************************************************
' *** VARIABLEN FORM 000 EIGENSCHAFTEN FÜR FORM.DLL ERSTELLEN ******************
'
' *** SetSize : 1-> ON - Ob eine FORm resize
DIM FORm_BUTTON_On01:' ...FORm_BUTTON_On01=dll_call2("SetSize",handle(0),1)
' *** SetCaption: 1-> ON - Aktivieren der Titelleiste (CAPTION) eines FORmulars
DIM FORm_BUTTON_On02:' ...FORm_BUTTON_On02= DLL_CALL2("SetCaption",HANDLE(0),1)
'
DIM FORm_BUTTON_On03:' ...FORm_BUTTON_On03=
' *** SetMaximize : 1-> ON - Ob die Umsetzung einer Vollbild-FORm.
DIM FORm_BUTTON_On04:' ...FORm_BUTTON_On04=DLL_CALL2("SetMaximize",HANDLE(0),1)
' *** SetMinimize : 1-> ON - Ob die Einstellung Symbol eines FORmulars
DIM FORm_BUTTON_On05:' ...FORm_BUTTON_On05= DLL_CALL2("SetMinimize", HANDLE(0),1)
'
DIM FORm_BUTTON_On06:' ...FORm_BUTTON_On06=
'
DIM FORm_BUTTON_On07:' ...FORm_BUTTON_On07=
'
DIM FORm_BUTTON_On08:' ...FORm_BUTTON_On08=
' *** SetFORmActive : Legen Sie die FORm in den Vordergrund.
DIM FORm_BUTTON_On09:' ...FORm_BUTTON_On09= dll_call1("SetFORmActive",handle(0))
'
DIM FORm_BUTTON_On10:' ...FORm_BUTTON_On10=
' *** SetSize : 0-> OFF - Ob eine FORm resize
DIM FORm_BUTTON_Off11 :' ...FORm_BUTTON_Off11=dll_call2("SetSize",handle(0),0)
' *** SetCaption: 0-> OFF - Deaktivieren der Titelleiste (CAPTION) eines FORmulars
DIM FORm_BUTTON_Off12 :' ...FORm_BUTTON_Off12= DLL_CALL2("SetCaption",HANDLE(0),0)
' *** SetCLOSEOff :' Deaktivieren der Schließen-Schaltfläche der FORM
DIM FORM_BUTTON_Off13 :' =dll_call1("SetCLOSEOff",handle(0))
' *** SetMaximize :' 0-> OFF - Ob die Umsetzung einer Vollbild-FORM
DIM FORM_BUTTON_Off14 :' =DLL_CALL2("SetMaximize",HANDLE(0),0)
' *** SetMinimize :' 0-> OFF - Ob die Einstellung Symbol eines FORmulars.
DIM FORM_BUTTON_Off15 :' =DLL_CALL2("SetMinimize",HANDLE(0),0)
'
DIM FORm_BUTTON_Off16 :' ...FORm_BUTTON_Off16=
'
DIM FORm_BUTTON_Off17 :' ...FORm_BUTTON_Off17=
'
DIM FORm_BUTTON_Off18 :' ...FORm_BUTTON_Off18=
'
DIM FORm_BUTTON_Off19 :' ...FORm_BUTTON_Off19=dll_call1(
' *** CreateBox: Position ein paar Folk (erstellt für den persönlichen Bedarf).
DIM FORm_BUTTON_Off99 :' ...FORm_BUTTON_Off99=dll_call1("SetTOpMost",handle(0))
'
' ******************************************************************************
' *** FORM 0000 ERSTELLEN IN SCHWARZ *******************************************
SCREEN0000:
'
dll_on "form.dll"
FORM_BUTTON_Off13=dll_call1("SetCloseOff",handle(0)) :' Schließen deaktiviert
FORM_BUTTON_Off14=DLL_CALL2("SetMaximize",HANDLE(0),0) :' Vergrößern deaktiviert
FORM_BUTTON_Off15=DLL_CALL2("SetMinimize",HANDLE(0),0) :' Verkleinern deaktiviert
dll_off
'
' FORM 0000
TOP 0000,0
LEFT 0000,0
WIDTH 0000,SCREEN_X
HEIGHT 0000,SCREEN_Y-44
COLOR 0000,000,000,000
CAPTION 0000," Multimomentstudien erstellen und auswerten "
'
PARENTNUMMER2% = handle(0000)
'
' *** ALLE FORMEN ERSTELLEN ****************************************************
'
Gosub SCREEN0100 :' Form für Schaltflächenleiste -- oben
Gosub Zahl0200 :' Form für Fussleiste -- unten
Gosub Zahl0400
Gosub Zahl1000 :' Form für Clientarena ---> 1000
' Gosub Zahl2000 :' Form für Clientarena ---> 2000
'
'
' ******************************************************************************
' on_click 1000,Zahl1000 *******************************************************
'
on_click 9001,PROGRAMM_ENDE
on_click 9002,PROGRAMM_OEFFNEN
on_click 9004,PROGRAMM_SPEICHER
' on_click 1200,Zahl1200:
' on_click 1300,Zahl1300
' on_click 1400,Zahl1400:
' on_click 1500,Zahl1500:
' on_click 1600,Zahl1600
' on_click 1700,Zahl1700:
' on_click 1800,Zahl1800:
on_click 9019,PROGRAMM_ENDE
' *** Menue 20 *****************************************************************
on_click 9381,Zahl8600
on_click 9382,Zahl8620
on_click 9383,Zahl8640

end
'
' ******************************************************************************
' *** FORM 0100 ERSTELLEN IN GRAU ---> Schaltflächenleiste ********************
SCREEN0100:
'
COMMAND_TARGET_IS 0000
'
FORM 0100
TOP 0100,2
LEFT 0100,2
WIDTH 0100,SCREEN_X-12
HEIGHT 0100,70
COLOR 0100,229,229,229
BORDER_HIDE 0100
'
PARENTNUMMER1% = handle(0100)
GOSUB OBJEKT_AN
'
'
' ******************************************************************************
' *** BILD AUF FORM 0100 ANZEIGEN **********************************************
'
COMMAND_TARGET_IS 0100
'
' *** später durch Bild ersetzen
BUTTON 0101 :' HIDE 101
TOP 0101,2 : REM HÖHE FENSTER
LEFT 0101,2 : REM BREITE FENSTER
WIDTH 0101,22 : REM ......BREITE 1680
HEIGHT 0101,22 : REM ......HÖHE 1050
CAPTION 0101,"|<--"
' FILE_LOAD 0101,Speicherplatz_Bild01$
' STRETCH_ON 0101 : REM
' SHOW 0101 : REM
'
' *** später durch Bild ersetzen
BUTTON 0102 :' HIDE 101
TOP 0102,26 : REM HÖHE FENSTER
LEFT 0102,2 : REM BREITE FENSTER
WIDTH 0102,22 : REM ......BREITE 1680
HEIGHT 0102,22 : REM ......HÖHE 1050
CAPTION 0102,"-->"
' FILE_LOAD 0102,Speicherplatz_Bild01$
' STRETCH_ON 0102 : REM
' SHOW 0102 : REM
'
' *** später durch Bild ersetzen
BUTTON 0105 :' HIDE 101
TOP 0105,2 : REM HÖHE FENSTER
LEFT 0105,26 : REM BREITE FENSTER
WIDTH 0105,22 : REM ......BREITE 1680
HEIGHT 0105,22 : REM ......HÖHE 1050
CAPTION 0105,"<--"
' FILE_LOAD 0105,Speicherplatz_Bild01$
' STRETCH_ON 0105 : REM
' SHOW 0105 : REM
'
' *** später durch Bild ersetzen
BUTTON 0106 :' HIDE 101
TOP 0106,26 : REM HÖHE FENSTER
LEFT 0106,26 : REM BREITE FENSTER
WIDTH 0106,22 : REM ......BREITE 1680
HEIGHT 0106,22 : REM ......HÖHE 1050
CAPTION 0106,"-->|"
' FILE_LOAD 0106,Speicherplatz_Bild01$
' STRETCH_ON 0106 : REM
' SHOW 0106 : REM
'

' *** später durch Bild ersetzen
BUTTON 0190 :' HIDE 101
TOP 0190,4 : REM HÖHE FENSTER
LEFT 0190,SCREEN_X-110 : REM BREITE FENSTER
WIDTH 0190,44 : REM ......BREITE 1680
HEIGHT 0190,44 : REM ......HÖHE 1050
CAPTION 0190," HELP "
' FILE_LOAD 0102,Speicherplatz_Bild01$
' STRETCH_ON 0102 : REM
' SHOW 0102 : REM
'
parent 0190,0100
'

' *** später durch Bild ersetzen
BUTTON 0195 :' HIDE 101
TOP 0195,4 : REM HÖHE FENSTER
LEFT 0195,SCREEN_X-60 : REM BREITE FENSTER
WIDTH 0195,44 : REM ......BREITE 1680
HEIGHT 0195,44 : REM ......HÖHE 1050
CAPTION 0195," LOGO "
' FILE_LOAD 0102,Speicherplatz_Bild01$
' STRETCH_ON 0102 : REM
' SHOW 0102 : REM
'
parent 0195,0100
'
' end
Return
'
' ******************************************************************************
ZAHL0110:

' COMMAND_TARGET_IS 0100
2d_target_is 0100
2d_pen_color 190,190,190
2d_pen_width 3
2d_line 100,4,100,160

' COMMAND_TARGET_IS 0100
2d_target_is 0100
2d_pen_color 190,190,190
2d_pen_width 3
2d_line SCREEN_X-116,4,SCREEN_X-116,260

return

'
' ******************************************************************************
' *** FORM 0200 ERSTELLEN ---> FUSSLEISTE **************************************
ZAHL0200:
'
COMMAND_TARGET_IS 0000
'
FORM 0200
TOP 0200,SCREEN_Y-101
LEFT 0200,2
WIDTH 0200,SCREEN_X-12
HEIGHT 0200,28
COLOR 0200,231,238,240
BORDER_HIDE 0200
'
PARENTNUMMER1% = handle(0200)
GOSUB OBJEKT_AN
'
return
'
' ******************************************************************************
' *** FORM 1000 ERSTELLEN ---> Bearbeitungsfläche 1000 *************************
ZAHL1000:
'
COMMAND_TARGET_IS 0000
'
FORM 1000
TOP 1000,74
LEFT 1000,2
WIDTH 1000,SCREEN_X-12
HEIGHT 1000,SCREEN_Y-177
COLOR 1000,167,171,172
BORDER_HIDE 1000
'
PARENTNUMMER1% = handle(1000)
GOSUB OBJEKT_AN
'
return
'
' ******************************************************************************
' *** FORM 2000 ERSTELLEN ---> Bearbeitungsfläche 2000 *************************
ZAHL2000:
'
COMMAND_TARGET_IS 0000
'
FORM 2000
TOP 2000,74
LEFT 2000,2
WIDTH 2000,SCREEN_X-12
HEIGHT 2000,SCREEN_Y-177
COLOR 2000,255,000,000
BORDER_HIDE 2000
'
PARENTNUMMER1% = handle(2000)
GOSUB OBJEKT_AN
'
return
' ******************************************************************************
' *** FORM 8600 ERSTELLEN ---> Bearbeitungsfläche 8600 *************************
ZAHL8600:
'
COMMAND_TARGET_IS 0000
'
FORM 8600
TOP 8600,74
LEFT 8600,2
WIDTH 8600,SCREEN_X-12
HEIGHT 8600,SCREEN_Y-177
COLOR 8600,229,229,229
BORDER_HIDE 8600
'
PARENTNUMMER1% = handle(8600)
GOSUB OBJEKT_AN
'
COMMAND_TARGET_IS 0200
'
' *** später durch Bild ersetzen
BUTTON 8601
TOP 8601,3
LEFT 8601,2
WIDTH 8601,22
HEIGHT 8601,22
CAPTION 8601,"ICON"
' FILE_LOAD 8601,Speicherplatz_Bild01$
' STRETCH_ON 8601
' SHOW 8601
'
edit 8602
TOP 8602,4
LEFT 8602,26
WIDTH 8602,300
HEIGHT 8602,24
FONT_COLOR 8602,000,000,255
TEXT 8602," INFO -- über Programm "
Menuetext$ = TEXT$(8602)
print Menuetext$
FONT_COLOR 8602,000,000,000
'
return
' ******************************************************************************
' *** FORM 8620 ERSTELLEN ---> Bearbeitungsfläche 8620 *************************
ZAHL8620:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8640:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8660:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8680:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8700:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8720:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8740:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8760:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8780:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8800:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8820:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8840:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8860:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8880:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8900:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8920:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8940:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8960:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8980:
'
return

' ******************************************************************************
' ******************************************************************************
ZAHL0400:
'
COMMAND_TARGET_IS 0100
'
Font_name 0100,"arial"
Font_size 0100,07
font_bold 0100

'
' ******************************************************************************
' *** Hauptmenü erstellen ******************************************************
main_menu 0001
' ******************************************************************************
' *** ERSTELLEN DES HAUPTMENÜ 1000 bis 9000 ************************************
'
' *** Berechnung von Länge des Leermenue 18 ****
'
LEERMENUE01$ = " DATEI "
LEERMENUE02$ = " MENUE 02 "
LEERMENUE03$ = " MENUE 03 "
LEERMENUE04$ = " MENUE 04 "
LEERMENUE05$ = " MENUE 05 "
LEERMENUE06$ = " MENUE 06 "
LEERMENUE07$ = " MENUE 07 "
LEERMENUE08$ = " MENUE 08 "
LEERMENUE09$ = " MENUE 09 "
LEERMENUE10$ = " MENUE 10 "
'
LEERMENUE11$ = " MENUE 11 "
LEERMENUE12$ = " MENUE 12 "
LEERMENUE13$ = " MENUE 13 "
LEERMENUE14$ = " MENUE 14 "
LEERMENUE15$ = " MENUE 15 "
LEERMENUE16$ = " MENUE 16 "
LEERMENUE17$ = " OPTIONEN "
LEERMENUE18$ = " "
LEERMENUE19$ = " HILFE "
LEERMENUE20$ = " INFO "
'
LEERLAENGE01% = TEXT_WIDTH(LEERMENUE01$,0100)+8
LEERLAENGE02% = TEXT_WIDTH(LEERMENUE02$,0100)+8
LEERLAENGE03% = TEXT_WIDTH(LEERMENUE03$,0100)+8
LEERLAENGE04% = TEXT_WIDTH(LEERMENUE04$,0100)+8
LEERLAENGE05% = TEXT_WIDTH(LEERMENUE05$,0100)+8
LEERLAENGE06% = TEXT_WIDTH(LEERMENUE06$,0100)+8
LEERLAENGE07% = TEXT_WIDTH(LEERMENUE07$,0100)+8
LEERLAENGE08% = TEXT_WIDTH(LEERMENUE08$,0100)+8
LEERLAENGE09% = TEXT_WIDTH(LEERMENUE09$,0100)+8
LEERLAENGE10% = TEXT_WIDTH(LEERMENUE10$,0100)+8
LEERLAENGE11% = TEXT_WIDTH(LEERMENUE11$,0100)+8
LEERLAENGE12% = TEXT_WIDTH(LEERMENUE12$,0100)+8
LEERLAENGE13% = TEXT_WIDTH(LEERMENUE13$,0100)+8
LEERLAENGE14% = TEXT_WIDTH(LEERMENUE14$,0100)+8
LEERLAENGE15% = TEXT_WIDTH(LEERMENUE15$,0100)+8
LEERLAENGE16% = TEXT_WIDTH(LEERMENUE16$,0100)+8
LEERLAENGE17% = TEXT_WIDTH(LEERMENUE17$,0100)+8
LEERLAENGE18% = TEXT_WIDTH(LEERMENUE18$,0100)+8
LEERLAENGE19% = TEXT_WIDTH(LEERMENUE19$,0100)+8
LEERLAENGE20% = TEXT_WIDTH(LEERMENUE20$,0100)+8
'
LEERSUMME1% = LEERLAENGE01% + LEERLAENGE02% + LEERLAENGE03%
LEERSUMME2% = LEERLAENGE04% + LEERLAENGE05% + LEERLAENGE06%
LEERSUMME3% = LEERLAENGE07% + LEERLAENGE08% + LEERLAENGE09%
LEERSUMME4% = LEERLAENGE10% + LEERLAENGE11% + LEERLAENGE12%
LEERSUMME5% = LEERLAENGE13% + LEERLAENGE14% + LEERLAENGE15%
LEERSUMME6% = LEERLAENGE16% + LEERLAENGE17%
LEERSUMME7% = LEERLAENGE19% + LEERLAENGE20%
'
LEERSUMME8% = LEERSUMME1% + LEERSUMME2% + LEERSUMME3% + LEERSUMME4%
LEERSUMME9% = LEERSUMME5% + LEERSUMME6% + LEERSUMME7%
LEERSUMME% = LEERSUMME8% + LEERSUMME9%

LEERLAENGE18% = SCREEN_X - 12 - LEERSUMME% -0
LEERMENUE18$ = STRING$(INT(LEERLAENGE18%/7),CHR$(32))

'
sub_menu 9000:CAPTION 9000,LEERMENUE01$:parent 9000,0001
sub_menu 9020:CAPTION 9020,LEERMENUE02$:parent 9020,0001
sub_menu 9040:CAPTION 9040,LEERMENUE03$:parent 9040,0001
sub_menu 9060:CAPTION 9060,LEERMENUE04$:parent 9060,0001
sub_menu 9080:CAPTION 9080,LEERMENUE05$:parent 9080,0001
sub_menu 9100:CAPTION 9100,LEERMENUE06$:parent 9100,0001
sub_menu 9120:CAPTION 9120,LEERMENUE07$:parent 9120,0001
sub_menu 9140:CAPTION 9140,LEERMENUE08$:parent 9140,0001
sub_menu 9160:CAPTION 9160,LEERMENUE09$:parent 9160,0001
sub_menu 9180:CAPTION 9180,LEERMENUE10$:parent 9180,0001
sub_menu 9200:CAPTION 9200,LEERMENUE11$:parent 9200,0001
sub_menu 9220:CAPTION 9220,LEERMENUE12$:parent 9220,0001
sub_menu 9240:CAPTION 9240,LEERMENUE13$:parent 9240,0001
sub_menu 9260:CAPTION 9260,LEERMENUE14$:parent 9260,0001
sub_menu 9280:CAPTION 9280,LEERMENUE15$:parent 9280,0001
sub_menu 9300:CAPTION 9300,LEERMENUE16$:parent 9300,0001
sub_menu 9320:CAPTION 9320,LEERMENUE17$:parent 9320,0001
sub_menu 9340:CAPTION 9340,LEERMENUE18$:parent 9340,0001
sub_menu 9360:CAPTION 9360,LEERMENUE19$:parent 9360,0001
sub_menu 9380:CAPTION 9380,LEERMENUE20$:parent 9380,0001
'
' ******************************************************************************
' *** Hauptmenue 9000 --- ERSTELLEN UNTERMENÜ 9001 bis 9019 *******************
sub_menu 9001:CAPTION 9001," Neu ":parent 9001,9000
sub_menu 9002:CAPTION 9002," Öffnen ... ":parent 9002,9000
sub_menu 9003:CAPTION 9003," Speichern ":parent 9003,9000
sub_menu 9004:CAPTION 9004," Speichern unter ":parent 9004,9000
sub_menu 9005:CAPTION 9005,"--------------------":parent 9005,9000
sub_menu 9006:CAPTION 9006," UNTERMENUE 0106 ":parent 9006,9000
sub_menu 9007:CAPTION 9007," UNTERMENUE 0107 ":parent 9007,9000
sub_menu 9008:CAPTION 9008," UNTERMENUE 0108 ":parent 9008,9000
sub_menu 9009:CAPTION 9009," UNTERMENUE 0109 ":parent 9009,9000
sub_menu 9010:CAPTION 9010," UNTERMENUE 0110 ":parent 9010,9000
sub_menu 9011:CAPTION 9011," UNTERMENUE 0111 ":parent 9011,9000
sub_menu 9012:CAPTION 9012," UNTERMENUE 0112 ":parent 9012,9000
sub_menu 9013:CAPTION 9013," UNTERMENUE 0113 ":parent 9013,9000
sub_menu 9014:CAPTION 9014," UNTERMENUE 0114 ":parent 9014,9000
sub_menu 9015:CAPTION 9015," UNTERMENUE 0115 ":parent 9015,9000
sub_menu 9016:CAPTION 9016," UNTERMENUE 0116 ":parent 9016,9000
sub_menu 9017:CAPTION 9017," UNTERMENUE 0117 ":parent 9017,9000
sub_menu 9018:CAPTION 9018,"--------------------":parent 9018,9000
sub_menu 9019:CAPTION 9019," QUIT ":parent 9019,9000
' ******************************************************************************
' *** Hauptmenue 9320 --- ERSTELLEN UNTERMENÜ 9321 bis 9339 *******************
sub_menu 9321:CAPTION 9321," Einstellung ":parent 9321,9320
sub_menu 9322:CAPTION 9322," Sprache ... ":parent 9322,9320
sub_menu 9323:CAPTION 9323," UNTERMENUE 1703 ":parent 9323,9320
sub_menu 9324:CAPTION 9324," UNTERMENUE 1704 ":parent 9324,9320
sub_menu 9325:CAPTION 9325," UNTERMENUE 1705 ":parent 9325,9320
sub_menu 9326:CAPTION 9326," UNTERMENUE 1706 ":parent 9326,9320
sub_menu 9327:CAPTION 9327," UNTERMENUE 1707 ":parent 9327,9320
sub_menu 9328:CAPTION 9328," UNTERMENUE 1708 ":parent 9328,9320
sub_menu 9329:CAPTION 9329," UNTERMENUE 1709 ":parent 9329,9320
sub_menu 9330:CAPTION 9330," UNTERMENUE 1710 ":parent 9330,9320
' ******************************************************************************
' *** Hauptmenue 9360 --- ERSTELLEN UNTERMENÜ 9361 bis 9379 *******************
sub_menu 9361:CAPTION 9361," HILFE 01 ":parent 9361,9360
sub_menu 9362:CAPTION 9362," HILFE 02 ":parent 9362,9360
sub_menu 9363:CAPTION 9363," HILFE 03 ":parent 9363,9360
sub_menu 9364:CAPTION 9364," HILFE 04 ":parent 9364,9360
sub_menu 9365:CAPTION 9365," HILFE 05 ":parent 9365,9360
sub_menu 9366:CAPTION 9366," HILFE 06 ":parent 9366,9360
sub_menu 9367:CAPTION 9367," HILFE 07 ":parent 9367,9360
sub_menu 9368:CAPTION 9368," HILFE 08 ":parent 9368,9360
sub_menu 9369:CAPTION 9369," HILFE 09 ":parent 9369,9360
sub_menu 9370:CAPTION 9370," HILFE 10 ":parent 9370,9360
' ******************************************************************************
' *** Hauptmenue 9380 --- ERSTELLEN UNTERMENÜ 9381 bis 9399 *******************
sub_menu 9381:CAPTION 9381," über Programm ":parent 9381,9380
sub_menu 9382:CAPTION 9382," über Computer ":parent 9382,9380
sub_menu 9383:CAPTION 9383," über Netzwerk ":parent 9383,9380
sub_menu 9384:CAPTION 9384," UNTERMENUE 2004 ":parent 9384,9380
sub_menu 9385:CAPTION 9385," UNTERMENUE 2005 ":parent 9385,9380
sub_menu 9386:CAPTION 9386," UNTERMENUE 2006 ":parent 9386,9380
sub_menu 9387:CAPTION 9387," UNTERMENUE 2007 ":parent 9387,9380
sub_menu 9388:CAPTION 9388," UNTERMENUE 2008 ":parent 9388,9380
sub_menu 9389:CAPTION 9389," UNTERMENUE 2009 ":parent 9389,9360
sub_menu 9390:CAPTION 9390," UNTERMENUE 2010 ":parent 9390,9360

Return
'
' ******************************************************************************
PROGRAMM_OEFFNEN:

open_Dialog 22

Datei_Name$ = File_name$(22)

return

' ******************************************************************************
PROGRAMM_SPEICHER:

save_Dialog 23

Datei_Name$ = File_name$(23)

return

end
'
' ******************************************************************************
' *** PROGRAMM BEENDEN *********************************************************
PROGRAMM_ENDE:
'
terminate
end
'
' ******************************************************************************
' *** Objekt anhängen **********************************************************
OBJEKT_AN:
'
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",PARENTNUMMER1%,PARENTNUMMER2%,1)
dll_off
'
return
'
' ******************************************************************************
' *** Objekt abhängen **********************************************************
detacher:
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",hnd20%,ancien%,0)
dll_off
' active 1 : inactive 2
return
'
' ******************************************************************************

Hallo panoramic's,
hier ist der neuste Code. Ich werde alle Änderungen in diesem Bereich einstellen.
Da das Programm sehr lang ist, stelle ich es in zwei Teile. Hier ist der erste Teil.

Hello panoramic's,
Here is the latest code. I would take away all changes in this area.
Since the program is very long, I put it into two parts. Here is the first part.

Bonjour de panoramique,
Voici le dernier code. Je mettrai tous les changements dans ce domaine.
Parce que le programme est très long, je l'ai mis en deux parties. Voici la première partie.

Severin
Stand: 03.05.2012

Code:: ' *** Eltern kind mit DLL nach klaus *******************************************
' *** MIT DLL LoadProgram ******************************************************
' *** Mit DLL FORM nach Nardo **************************************************
' *** Dank an Klaus und Nardo für "LoadProgram.dll und Form.dll" ***************
'
DIM SPRACHE%
SPRACHE% = 1 :' deutsch
' SPRACHE% = 2 :' englisch
' SPRACHE% = 3 :' französisch
LABEL SchriftartTerminal
DIM SCHRIFTART
'
' ******************************************************************************
' *** VARIABLE FÜR OBJEKTE anhängen und OBJEKTE abhängen LoadProgram.DLL *******
'
LABEL OBJEKT_AN :' Objekt anhängen
LABEL detacher :' Objekt abhängen
'
DIM PARENTNUMMER1%
DIM PARENTNUMMER2%
DIM ancien%
'
' ******************************************************************************
' *** Variablen für Menue von Form 100, um Längen zuberechnen ******************
'
DIM LEERZEICHEN01%: DIM LEERLAENGE01%: DIM LEERZEICHEN02$: DIM LEERLAENGE02%
DIM LEERZEICHEN03$: DIM LEERLAENGE03%: DIM LEERZEICHEN04%: DIM LEERLAENGE04%
DIM LEERZEICHEN05%: DIM LEERLAENGE05%: DIM LEERZEICHEN06%: DIM LEERLAENGE06%
DIM LEERZEICHEN07%: DIM LEERLAENGE07%: DIM LEERZEICHEN08%: DIM LEERLAENGE08%
DIM LEERZEICHEN09%: DIM LEERLAENGE09%: DIM LEERZEICHEN10%: DIM LEERLAENGE10%
DIM LEERZEICHEN11%: DIM LEERLAENGE11%: DIM LEERZEICHEN12%: DIM LEERLAENGE12%
DIM LEERZEICHEN13%: DIM LEERLAENGE13%: DIM LEERZEICHEN14%: DIM LEERLAENGE14%
DIM LEERZEICHEN15%: DIM LEERLAENGE15%: DIM LEERZEICHEN16%: DIM LEERLAENGE16%
DIM LEERZEICHEN17%: DIM LEERLAENGE17%: DIM LEERZEICHEN18%: DIM LEERLAENGE18%
DIM LEERZEICHEN19%: DIM LEERLAENGE19%: DIM LEERZEICHEN20%: DIM LEERLAENGE20%
'
DIM LEERSUMME% :DIM LEERSUMME1% :DIM LEERSUMME2% :DIM LEERSUMME3%
DIM LEERSUMME4% :DIM LEERSUMME5% :DIM LEERSUMME6% :DIM LEERSUMME7%
DIM LEERSUMME8% :DIM LEERSUMME9%
'
DIM Menuetext$
'
' ******************************************************************************
' *** VARIABLE FÜR MENÜS ERSTELLEN *********************************************
'
DIM TEXT_MENUE_00$(20,3) :DIM i :DIM j
DIM TITEL$(3,3)
'
' **** DEUTSCH *********,**** ENGLISCH *****,**** FRANZÖSISCH ******************
'
DATA " DATEI " ," FILE " ," DOSSIER "
DATA " MENUE 02 " ," MENU 02 " ," MENU 02 "
DATA " MENUE 03 " ," MENU 03 " ," MENU 03 "
DATA " MENUE 04 " ," MENU 04 " ," MENU 04 "
DATA " MENUE 05 " ," MENU 05 " ," MENU 05 "
DATA " MENUE 06 " ," MENU 06 " ," MENU 06 "
DATA " MENUE 07 " ," MENU 07 " ," MENU 07 "
DATA " MENUE 08 " ," MENU 08 " ," MENU 08 "
DATA " MENUE 09 " ," MENU 09 " ," MENU 09 "
DATA " MENUE 10 " ," MENU 10 " ," MENU 10 "
DATA " MENUE 11 " ," MENU 11 " ," MENU 11 "
DATA " MENUE 12 " ," MENU 12 " ," MENU 12 "
DATA " MENUE 13 " ," MENU 13 " ," MENU 13 "
DATA " MENUE 14 " ," MENU 14 " ," MENU 14 "
DATA " MENUE 15 " ," MENU 15 " ," MENU 15 "
DATA " Test-MENUE 16 " ," Test-MENU 16 " ," Test-MENU 16 "
DATA " OPTIONEN " ," OPTIONS " ," OPTIONS "
DATA " " ," " ," "
DATA " HILFE " ," HELP " ," AID "
DATA " INFO " ," INFO " ," INFO "
'
FOR i = 1 TO 20
FOR j = 1 TO 3 :read TEXT_MENUE_00$(i,j):next j
next i
' ******************************************************************************
' *** VARIABLE FÜR UNTERMENÜS ERSTELLEN ****************************************
'
DIM TEXT_MENUE_01$(9000,3)
'
' **** DEUTSCH *********,**** ENGLISCH *****,**** FRANZÖSISCH ******************
' 01
DATA " Neu "," New "," Nouveau "
DATA " Öffnen ... "," Open ... "," Ouvert ... "
DATA " Speichern "," Save "," Sauver "
DATA " Speichern unter "," Save under "," Enregistrer sous"
DATA "====================","====================","===================="
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0107 "," SUB NENU 0107 "
DATA " UNTERMENUE 0108 "," SUB NENU 0108 "," SUB NENU 0108 "
DATA " UNTERMENUE 0109 "," SUB NENU 0109 "," SUB NENU 0109 "
DATA " UNTERMENUE 0110 "," SUB NENU 0110 "," SUB NENU 0110 "
DATA " UNTERMENUE 0111 "," SUB NENU 0111 "," SUB NENU 0111 "
DATA " UNTERMENUE 0112 "," SUB NENU 0112 "," SUB NENU 0112 "
DATA " UNTERMENUE 0113 "," SUB NENU 0113 "," SUB NENU 0113 "
DATA " UNTERMENUE 0114 "," SUB NENU 0114 "," SUB NENU 0114 "
DATA " UNTERMENUE 0115 "," SUB NENU 0115 "," SUB NENU 0115 "
DATA " UNTERMENUE 0116 "," SUB NENU 0116 "," SUB NENU 0116 "
DATA " UNTERMENUE 0117 "," SUB NENU 0117 "," SUB NENU 0117 "
DATA "====================","====================","===================="
DATA " QUIT "," QUIT "," QUIT "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 02
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 03
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 04
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 05
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 06
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 07
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 08
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 09
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 10
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 11
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 12
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 13
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 14
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 15
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 16
DATA " TEST-U-Menü 1601 "," TEST-SUB MENU 1601 "," TEST-SUB MENU 1601 "
DATA " TEST-U-Menü 1602 "," TEST-SUB MENU 1602 "," TEST-SUB MENU 1602 "
DATA " TEST-U-Menü 1603 "," TEST-SUB MENU 1603 "," TEST-SUB MENU 1603 "
DATA " TEST-U-Menü 1604 "," TEST-SUB MENU 1604 "," TEST-SUB MENU 1604 "
DATA " TEST-U-Menü 1605 "," TEST-SUB MENU 1605 "," TEST-SUB MENU 1605 "
DATA " TEST-U-Menü 1606 "," TEST-SUB MENU 1606 "," TEST-SUB MENU 1606 "
DATA " TEST-U-Menü 1607 "," TEST-SUB MENU 1607 "," TEST-SUB MENU 1607 "
DATA " TEST-U-Menü 1608 "," TEST-SUB MENU 1608 "," TEST-SUB MENU 1608 "
DATA " TEST-U-Menü 1609 "," TEST-SUB MENU 1609 "," TEST-SUB MENU 1609 "
DATA " TEST-U-Menü 1610 "," TEST-SUB MENU 1610 "," TEST-SUB MENU 1610 "
DATA " TEST-U-Menü 1611 "," TEST-SUB MENU 1611 "," TEST-SUB MENU 1611 "
DATA " TEST-U-Menü 1612 "," TEST-SUB MENU 1612 "," TEST-SUB MENU 1612 "
DATA " TEST-U-Menü 1613 "," TEST-SUB MENU 1613 "," TEST-SUB MENU 1613 "
DATA " TEST-U-Menü 1614 "," TEST-SUB MENU 1614 "," TEST-SUB MENU 1614 "
DATA " TEST-U-Menü 1615 "," TEST-SUB MENU 1615 "," TEST-SUB MENU 1615 "
DATA " TEST-U-Menü 1616 "," TEST-SUB MENU 1616 "," TEST-SUB MENU 1616 "
DATA " TEST-U-Menü 1617 "," TEST-SUB MENU 1617 "," TEST-SUB MENU 1617 "
DATA " TEST-U-Menü 1618 "," TEST-SUB MENU 1618 "," TEST-SUB MENU 1618 "
DATA " TEST-U-Menü 1619 "," TEST-SUB MENU 1619 "," TEST-SUB MENU 1619 "
DATA " TEST-U-Menü 1620 "," TEST-SUB MENU 1620 "," TEST-SUB MENU 1620 ":' inktiv
' 17
DATA " Einstellungen "," Settings "," Paramètres "
DATA " Sprache "," Language "," Langue "
DATA " UNTERMENUE 1703 "," SUB NENU 1703 "," SUB NENU 1703 "
DATA " UNTERMENUE 1704 "," SUB NENU 1704 "," SUB NENU 1704 "
DATA " UNTERMENUE 1705 "," SUB NENU 1705 "," SUB NENU 1705 "
DATA " UNTERMENUE 1706 "," SUB NENU 1706 "," SUB NENU 1706 "
DATA " UNTERMENUE 1707 "," SUB NENU 1707 "," SUB NENU 1707 "
DATA " UNTERMENUE 1708 "," SUB NENU 1708 "," SUB NENU 1708 "
DATA " UNTERMENUE 1709 "," SUB NENU 1709 "," SUB NENU 1709 "
DATA " UNTERMENUE 1710 "," SUB NENU 1710 "," SUB NENU 1710 "
DATA " UNTERMENUE 1711 "," SUB NENU 1711 "," SUB NENU 1711 "
DATA " UNTERMENUE 1712 "," SUB NENU 1712 "," SUB NENU 1712 "
DATA " UNTERMENUE 1713 "," SUB NENU 1713 "," SUB NENU 1713 "
DATA " UNTERMENUE 1714 "," SUB NENU 1714 "," SUB NENU 1714 "
DATA " UNTERMENUE 1715 "," SUB NENU 1715 "," SUB NENU 1715 "
DATA " UNTERMENUE 1716 "," SUB NENU 1716 "," SUB NENU 1716 "
DATA " UNTERMENUE 1717 "," SUB NENU 1717 "," SUB NENU 1717 "
DATA " UNTERMENUE 1718 "," SUB NENU 1718 "," SUB NENU 1718 "
DATA " Menü ändern "," Menu change "," changement Menu "
DATA " UNTERMENUE 1720 "," SUB NENU 1720 "," SUB NENU 1720 " :' inktiv
' 18
DATA " UNTERMENUE 1801 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1802 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1803 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1804 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1805 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1806 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1807 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1808 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1809 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1810 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1811 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1812 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1813 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1814 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1815 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1816 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1817 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1818 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1819 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1820 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
' 19
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 " :' inktiv
' 20
DATA " über Programm "," about Program "," sur le Programme"
DATA " über Computer "," about Computer "," sur l'ordinateur"
DATA " über Netzwerk "," about Network "," sur le réseau "
DATA " UNTERMENUE 2004 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2005 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2006 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2007 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2008 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2009 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2010 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2011 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2012 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2013 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2014 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2015 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2016 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2017 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2018 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2019 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2020 "," SUB NENU 2006 "," SUB NENU 2006 " :' inktiv
'
FOR i = 100 TO 898 STEP 2
FOR j = 1 TO 3 :read TEXT_MENUE_01$(i,j) :next j
next i
' ******************************************************************************
' *** Variable für alle Formen erstellen ***************************************
DIM Screen_Nr%
DIM Screen_Beginn%
DIM Screen_End%
'
DIM FORM_NUMMER%
'
' ******************************************************************************
' *** LABEL FÜR FORMEN ERSTELLEN ***********************************************
LABEL SCREEN0000
LABEL SCREEN0010
LABEL SCREEN0090
LABEL SCREENMENU
'
LABEL SCREEN0095
LABEL SCREENALL
'
LABEL SCREENSHOW
'
LABEL PROGRAMM_ENDE
'
LABEL CLIENTARENA :' Hier werden die EINGABE getätigt
'
' ******************************************************************************
' *** VARIABLE für Dateien *****************************************************
DIM Datei_Name$
'
'
' ******************************************************************************
' *** VARIABLEN FORM 000 EIGENSCHAFTEN FÜR FORM.DLL ERSTELLEN ******************
'
DIM FORM_BUTTON_Off13 :' =dll_call1("SetCLOSEOff",handle(0)) Schließen deaktiviert
DIM FORM_BUTTON_Off14 :' =DLL_CALL2("SetMaximize",HANDLE(0),0)Vergrößern deaktiviert
DIM FORM_BUTTON_Off15 :' =DLL_CALL2("SetMinimize",HANDLE(0),0)Verkleinern deaktiviert
'
' ******************************************************************************
' *** FORM 0000 GRUNDFORM ERSTELLEN ********************************************
SCREEN0000:
'
dll_on "form.dll"
FORM_BUTTON_Off13=dll_call1("SetCloseOff",handle(0))
FORM_BUTTON_Off14=DLL_CALL2("SetMaximize",HANDLE(0),0)
FORM_BUTTON_Off15=DLL_CALL2("SetMinimize",HANDLE(0),0)
dll_off
'
TITEL$(1,1) = " Multimomentstudien erstellen und auswerten "
TITEL$(1,2) = " Work sampling studies, and generate and evaluate "
TITEL$(1,3) = " Les travaux d'études d'échantillonnage, et de générer et d'évaluer "
'
' FORM 0000
TOP 0000,0
LEFT 0000,0
WIDTH 0000,SCREEN_X
HEIGHT 0000,SCREEN_Y-44
COLOR 0000,000,000,000
'
CAPTION 0000,TITEL$(1,SPRACHE%)
'
PARENTNUMMER2% = handle(0000) :' Grundform auf der alle Formen fixiert sind
'
' *** ALLE FORMEN ERSTELLEN ****************************************************
'
Gosub SCREEN0010 :' Form für Schaltflächenleiste -- oben
Gosub SCREEN0090 :' Form für Fussleiste -- unten
Gosub SCREENMENU :' Menue auf Form 10 erstellen
Gosub SCREEN0095 :' Form für Clientarena ---> 1000
Gosub SCREENALL :' ALLE FORMEN ERSTELLEN 1000 bis 8980 Clientarena
'
' ******************************************************************************
' on_click Schaltleiste ********************************************************
' 01
' on_click 0080,SCREENSHOW
'
'
' ******************************************************************************
' on_click 1000,SCREEN0095 *****************************************************
' 01
on_click 0100,SCREENSHOW
on_click 0102,SCREENSHOW
on_click 0104,SCREENSHOW
on_click 0106,SCREENSHOW
' on_click 0108,SCREENSHOW :' Teilungsstrich im Untermenü
on_click 0110,SCREENSHOW :on_click 0112,SCREENSHOW :on_click 0114,SCREENSHOW
on_click 0116,SCREENSHOW :on_click 0118,SCREENSHOW :on_click 0120,SCREENSHOW
on_click 0122,SCREENSHOW :on_click 0124,SCREENSHOW :on_click 0126,SCREENSHOW
on_click 0128,SCREENSHOW :on_click 0130,SCREENSHOW :on_click 0132,SCREENSHOW
' on_click 0134,SCREENSHOW :' Teilungsstrich im Untermenü
on_click 0136,PROGRAMM_ENDE
' 02
on_click 0140,SCREENSHOW :on_click 0142,SCREENSHOW :on_click 0144,SCREENSHOW
on_click 0146,SCREENSHOW :on_click 0148,SCREENSHOW :on_click 0150,SCREENSHOW
on_click 0152,SCREENSHOW :on_click 0154,SCREENSHOW :on_click 0156,SCREENSHOW
on_click 0158,SCREENSHOW :on_click 0160,SCREENSHOW :on_click 0162,SCREENSHOW
on_click 0164,SCREENSHOW :on_click 0166,SCREENSHOW :on_click 0168,SCREENSHOW
on_click 0170,SCREENSHOW :on_click 0172,SCREENSHOW :on_click 0174,SCREENSHOW
on_click 0176,SCREENSHOW
' Programm-Trennung, kann gelöscht werden
' Program separation, can be deleted
' Programme de séparation, peut être supprimé
' Programm-Trennung, kann gelöscht werden
' Program separation, can be deleted
' Programme de séparation, peut être supprimé
' Programm-Trennung, kann gelöscht werden
' Program separation, can be deleted
' Programme de séparation, peut être supprimé

Hier ist der zweite Teil.
Here is the second part.
Voici la deuxième partie.

Severin
Stand: 03.05.2012

Code:: ' Programm-Trennung, kann gelöscht werden
' Program separation, can be deleted
' Programme de séparation, peut être supprimé
' Programm-Trennung, kann gelöscht werden
' Program separation, can be deleted
' Programme de séparation, peut être supprimé
' Programm-Trennung, kann gelöscht werden
' Program separation, can be deleted
' Programme de séparation, peut être supprimé
' 03
on_click 0180,SCREENSHOW :on_click 0182,SCREENSHOW :on_click 0184,SCREENSHOW
on_click 0186,SCREENSHOW :on_click 0188,SCREENSHOW :on_click 0190,SCREENSHOW
on_click 0192,SCREENSHOW :on_click 0194,SCREENSHOW :on_click 0196,SCREENSHOW
on_click 0198,SCREENSHOW :on_click 0200,SCREENSHOW :on_click 0202,SCREENSHOW
on_click 0204,SCREENSHOW :on_click 0206,SCREENSHOW :on_click 0208,SCREENSHOW
on_click 0210,SCREENSHOW :on_click 0212,SCREENSHOW :on_click 0214,SCREENSHOW
on_click 0216,SCREENSHOW
' 04
on_click 0220,SCREENSHOW :on_click 0222,SCREENSHOW :on_click 0224,SCREENSHOW
on_click 0226,SCREENSHOW :on_click 0228,SCREENSHOW :on_click 0230,SCREENSHOW
on_click 0232,SCREENSHOW :on_click 0234,SCREENSHOW :on_click 0236,SCREENSHOW
on_click 0238,SCREENSHOW :on_click 0240,SCREENSHOW :on_click 0242,SCREENSHOW
on_click 0244,SCREENSHOW :on_click 0246,SCREENSHOW :on_click 0248,SCREENSHOW
on_click 0250,SCREENSHOW :on_click 0252,SCREENSHOW :on_click 0254,SCREENSHOW
on_click 0256,SCREENSHOW
' 05
on_click 0260,SCREENSHOW :on_click 0262,SCREENSHOW :on_click 0264,SCREENSHOW
on_click 0266,SCREENSHOW :on_click 0268,SCREENSHOW :on_click 0270,SCREENSHOW
on_click 0272,SCREENSHOW :on_click 0274,SCREENSHOW :on_click 0276,SCREENSHOW
on_click 0278,SCREENSHOW :on_click 0280,SCREENSHOW :on_click 0282,SCREENSHOW
on_click 0284,SCREENSHOW :on_click 0286,SCREENSHOW :on_click 0288,SCREENSHOW
on_click 0290,SCREENSHOW :on_click 0292,SCREENSHOW :on_click 0294,SCREENSHOW
on_click 0296,SCREENSHOW
' 06
on_click 0300,SCREENSHOW :on_click 0302,SCREENSHOW :on_click 0304,SCREENSHOW
on_click 0306,SCREENSHOW :on_click 0308,SCREENSHOW :on_click 0310,SCREENSHOW
on_click 0312,SCREENSHOW :on_click 0314,SCREENSHOW :on_click 0316,SCREENSHOW
on_click 0318,SCREENSHOW :on_click 0320,SCREENSHOW :on_click 0322,SCREENSHOW
on_click 0324,SCREENSHOW :on_click 0326,SCREENSHOW :on_click 0328,SCREENSHOW
on_click 0330,SCREENSHOW :on_click 0332,SCREENSHOW :on_click 0334,SCREENSHOW
on_click 0336,SCREENSHOW
' 07
on_click 0340,SCREENSHOW :on_click 0342,SCREENSHOW :on_click 0344,SCREENSHOW
on_click 0346,SCREENSHOW :on_click 0348,SCREENSHOW :on_click 0350,SCREENSHOW
on_click 0352,SCREENSHOW :on_click 0354,SCREENSHOW :on_click 0356,SCREENSHOW
on_click 0358,SCREENSHOW :on_click 0360,SCREENSHOW :on_click 0362,SCREENSHOW
on_click 0364,SCREENSHOW :on_click 0366,SCREENSHOW :on_click 0368,SCREENSHOW
on_click 0370,SCREENSHOW :on_click 0372,SCREENSHOW :on_click 0374,SCREENSHOW
on_click 0376,SCREENSHOW
' 08
on_click 0380,SCREENSHOW :on_click 0382,SCREENSHOW :on_click 0384,SCREENSHOW
on_click 0386,SCREENSHOW :on_click 0388,SCREENSHOW :on_click 0390,SCREENSHOW
on_click 0392,SCREENSHOW :on_click 0394,SCREENSHOW :on_click 0396,SCREENSHOW
on_click 0398,SCREENSHOW :on_click 0400,SCREENSHOW :on_click 0402,SCREENSHOW
on_click 0404,SCREENSHOW :on_click 0406,SCREENSHOW :on_click 0408,SCREENSHOW
on_click 0410,SCREENSHOW :on_click 0412,SCREENSHOW :on_click 0414,SCREENSHOW
on_click 0416,SCREENSHOW
' 09
on_click 0420,SCREENSHOW :on_click 0422,SCREENSHOW :on_click 0424,SCREENSHOW
on_click 0426,SCREENSHOW :on_click 0428,SCREENSHOW :on_click 0430,SCREENSHOW
on_click 0432,SCREENSHOW :on_click 0434,SCREENSHOW :on_click 0436,SCREENSHOW
on_click 0438,SCREENSHOW :on_click 0440,SCREENSHOW :on_click 0442,SCREENSHOW
on_click 0444,SCREENSHOW :on_click 0446,SCREENSHOW :on_click 0448,SCREENSHOW
on_click 0450,SCREENSHOW :on_click 0452,SCREENSHOW :on_click 0454,SCREENSHOW
on_click 0456,SCREENSHOW
' 10
on_click 0460,SCREENSHOW :on_click 0462,SCREENSHOW :on_click 0464,SCREENSHOW
on_click 0466,SCREENSHOW :on_click 0468,SCREENSHOW :on_click 0470,SCREENSHOW
on_click 0472,SCREENSHOW :on_click 0474,SCREENSHOW :on_click 0476,SCREENSHOW
on_click 0478,SCREENSHOW :on_click 0480,SCREENSHOW :on_click 0482,SCREENSHOW
on_click 0484,SCREENSHOW :on_click 0486,SCREENSHOW :on_click 0488,SCREENSHOW
on_click 0490,SCREENSHOW :on_click 0492,SCREENSHOW :on_click 0494,SCREENSHOW
on_click 0496,SCREENSHOW
' 11
on_click 0500,SCREENSHOW :on_click 0502,SCREENSHOW :on_click 0504,SCREENSHOW
on_click 0506,SCREENSHOW :on_click 0508,SCREENSHOW :on_click 0510,SCREENSHOW
on_click 0512,SCREENSHOW :on_click 0514,SCREENSHOW :on_click 0516,SCREENSHOW
on_click 0518,SCREENSHOW :on_click 0520,SCREENSHOW :on_click 0522,SCREENSHOW
on_click 0524,SCREENSHOW :on_click 0526,SCREENSHOW :on_click 0528,SCREENSHOW
on_click 0530,SCREENSHOW :on_click 0532,SCREENSHOW :on_click 0534,SCREENSHOW
on_click 0536,SCREENSHOW
' 12
on_click 0540,SCREENSHOW :on_click 0542,SCREENSHOW :on_click 0544,SCREENSHOW
on_click 0546,SCREENSHOW :on_click 0548,SCREENSHOW :on_click 0550,SCREENSHOW
on_click 0552,SCREENSHOW :on_click 0554,SCREENSHOW :on_click 0556,SCREENSHOW
on_click 0558,SCREENSHOW :on_click 0560,SCREENSHOW :on_click 0562,SCREENSHOW
on_click 0564,SCREENSHOW :on_click 0566,SCREENSHOW :on_click 0568,SCREENSHOW
on_click 0570,SCREENSHOW :on_click 0572,SCREENSHOW :on_click 0574,SCREENSHOW
on_click 0576,SCREENSHOW
' 13
on_click 0580,SCREENSHOW :on_click 0582,SCREENSHOW :on_click 0584,SCREENSHOW
on_click 0586,SCREENSHOW :on_click 0588,SCREENSHOW :on_click 0590,SCREENSHOW
on_click 0592,SCREENSHOW :on_click 0594,SCREENSHOW :on_click 0596,SCREENSHOW
on_click 0598,SCREENSHOW :on_click 0600,SCREENSHOW :on_click 0602,SCREENSHOW
on_click 0604,SCREENSHOW :on_click 0606,SCREENSHOW :on_click 0608,SCREENSHOW
on_click 0610,SCREENSHOW :on_click 0612,SCREENSHOW :on_click 0614,SCREENSHOW
on_click 0616,SCREENSHOW
' 14
on_click 0620,SCREENSHOW :on_click 0622,SCREENSHOW :on_click 0624,SCREENSHOW
on_click 0626,SCREENSHOW :on_click 0628,SCREENSHOW :on_click 0630,SCREENSHOW
on_click 0632,SCREENSHOW :on_click 0634,SCREENSHOW :on_click 0636,SCREENSHOW
on_click 0638,SCREENSHOW :on_click 0640,SCREENSHOW :on_click 0642,SCREENSHOW
on_click 0644,SCREENSHOW :on_click 0646,SCREENSHOW :on_click 0648,SCREENSHOW
on_click 0650,SCREENSHOW :on_click 0652,SCREENSHOW :on_click 0654,SCREENSHOW
on_click 0656,SCREENSHOW
' 15
on_click 0660,SCREENSHOW :on_click 0662,SCREENSHOW :on_click 0664,SCREENSHOW
on_click 0666,SCREENSHOW :on_click 0668,SCREENSHOW :on_click 0670,SCREENSHOW
on_click 0672,SCREENSHOW :on_click 0674,SCREENSHOW :on_click 0676,SCREENSHOW
on_click 0678,SCREENSHOW :on_click 0680,SCREENSHOW :on_click 0682,SCREENSHOW
on_click 0684,SCREENSHOW :on_click 0686,SCREENSHOW :on_click 0688,SCREENSHOW
on_click 0690,SCREENSHOW :on_click 0692,SCREENSHOW :on_click 0694,SCREENSHOW
on_click 0696,SCREENSHOW
' 16
on_click 0700,SCREENSHOW :on_click 0702,SCREENSHOW :on_click 0704,SCREENSHOW
on_click 0706,SCREENSHOW :on_click 0708,SCREENSHOW :on_click 0710,SCREENSHOW
on_click 0712,SCREENSHOW :on_click 0714,SCREENSHOW :on_click 0716,SCREENSHOW
on_click 0718,SCREENSHOW :on_click 0720,SCREENSHOW :on_click 0722,SCREENSHOW
on_click 0724,SCREENSHOW :on_click 0726,SCREENSHOW :on_click 0728,SCREENSHOW
on_click 0730,SCREENSHOW :on_click 0732,SCREENSHOW :on_click 0734,SCREENSHOW
on_click 0736,SCREENSHOW
' 17
on_click 0740,SCREENSHOW :on_click 0742,SCREENSHOW :on_click 0744,SCREENSHOW
on_click 0746,SCREENSHOW :on_click 0748,SCREENSHOW :on_click 0750,SCREENSHOW
on_click 0752,SCREENSHOW :on_click 0754,SCREENSHOW :on_click 0756,SCREENSHOW
on_click 0758,SCREENSHOW :on_click 0760,SCREENSHOW :on_click 0762,SCREENSHOW
on_click 0764,SCREENSHOW :on_click 0766,SCREENSHOW :on_click 0768,SCREENSHOW
on_click 0770,SCREENSHOW :on_click 0772,SCREENSHOW :on_click 0774,SCREENSHOW
on_click 0776,SCREENSHOW
' 18 inaktiv
' on_click 0780,SCREENSHOW :on_click 0782,SCREENSHOW :on_click 0784,SCREENSHOW
' on_click 0786,SCREENSHOW :on_click 0788,SCREENSHOW :on_click 0790,SCREENSHOW
' on_click 0792,SCREENSHOW :on_click 0794,SCREENSHOW :on_click 0796,SCREENSHOW
' on_click 0798,SCREENSHOW :on_click 0800,SCREENSHOW :on_click 0802,SCREENSHOW
' on_click 0804,SCREENSHOW :on_click 0806,SCREENSHOW :on_click 0808,SCREENSHOW
' on_click 0810,SCREENSHOW :on_click 0812,SCREENSHOW :on_click 0814,SCREENSHOW
' on_click 0816,SCREENSHOW
' 19
on_click 0820,SCREENSHOW :on_click 0822,SCREENSHOW :on_click 0824,SCREENSHOW
on_click 0826,SCREENSHOW :on_click 0828,SCREENSHOW :on_click 0830,SCREENSHOW
on_click 0832,SCREENSHOW :on_click 0834,SCREENSHOW :on_click 0836,SCREENSHOW
on_click 0838,SCREENSHOW :on_click 0840,SCREENSHOW :on_click 0842,SCREENSHOW
on_click 0844,SCREENSHOW :on_click 0846,SCREENSHOW :on_click 0848,SCREENSHOW
on_click 0850,SCREENSHOW :on_click 0852,SCREENSHOW :on_click 0854,SCREENSHOW
on_click 0856,SCREENSHOW
' 20*
on_click 0860,SCREENSHOW :on_click 0862,SCREENSHOW :on_click 0864,SCREENSHOW
on_click 0866,SCREENSHOW :on_click 0868,SCREENSHOW :on_click 0870,SCREENSHOW
on_click 0872,SCREENSHOW :on_click 0874,SCREENSHOW :on_click 0876,SCREENSHOW
on_click 0878,SCREENSHOW :on_click 0880,SCREENSHOW :on_click 0882,SCREENSHOW
on_click 0884,SCREENSHOW :on_click 0886,SCREENSHOW :on_click 0888,SCREENSHOW
on_click 0890,SCREENSHOW :on_click 0892,SCREENSHOW :on_click 0894,SCREENSHOW
on_click 0896,SCREENSHOW
'
end
' ******************************************************************************
' *** FORM 0010 ERSTELLEN ---> Schaltflächenleiste *****************************
SCREEN0010:
'
COMMAND_TARGET_IS 0000
'
FORM 0010
TOP 0010,2
LEFT 0010,2
WIDTH 0010,SCREEN_X-12
HEIGHT 0010,70
COLOR 0010,229,229,229
BORDER_HIDE 0010
'
PARENTNUMMER1% = handle(0010)
GOSUB OBJEKT_AN
'
' ******************************************************************************
' *** BILDER AUF FORM 0010 ANZEIGEN ********************************************
'
COMMAND_TARGET_IS 0010
'
' *** später durch Bild ersetzen
BUTTON 0011 :' HIDE 101
TOP 0011,2 : REM HÖHE FENSTER
LEFT 0011,2 : REM BREITE FENSTER
WIDTH 0011,22 : REM ......BREITE 1680
HEIGHT 0011,22 : REM ......HÖHE 1050
CAPTION 0011,"|<--"
' FILE_LOAD 0011,Speicherplatz_Bild01$
' STRETCH_ON 0011 : REM
' SHOW 0011 : REM
'
' *** später durch Bild ersetzen
BUTTON 0012 :' HIDE 101
TOP 0012,26 : REM HÖHE FENSTER
LEFT 0012,2 : REM BREITE FENSTER
WIDTH 0012,22 : REM ......BREITE 1680
HEIGHT 0012,22 : REM ......HÖHE 1050
CAPTION 0012,"-->"
' FILE_LOAD 0012,Speicherplatz_Bild01$
' STRETCH_ON 0012 : REM
' SHOW 0012 : REM
'
' *** später durch Bild ersetzen
BUTTON 0015 :' HIDE 101
TOP 0015,2 : REM HÖHE FENSTER
LEFT 0015,26 : REM BREITE FENSTER
WIDTH 0015,22 : REM ......BREITE 1680
HEIGHT 0015,22 : REM ......HÖHE 1050
CAPTION 0015,"<--"
' FILE_LOAD 0015,Speicherplatz_Bild01$
' STRETCH_ON 0015 : REM
' SHOW 0015 : REM
'
' *** später durch Bild ersetzen
BUTTON 0016 :' HIDE 101
TOP 0016,26 : REM HÖHE FENSTER
LEFT 0016,26 : REM BREITE FENSTER
WIDTH 0016,22 : REM ......BREITE 1680
HEIGHT 0016,22 : REM ......HÖHE 1050
CAPTION 0016,"-->|"
' FILE_LOAD 0016,Speicherplatz_Bild01$
' STRETCH_ON 0016 : REM
' SHOW 0016 : REM
'
' *** HILE ICON ERSTELLEN ******************************************************
' *** später durch Bild ersetzen
BUTTON 0080 :' HIDE 101
TOP 0080,4 : REM HÖHE FENSTER
LEFT 0080,SCREEN_X-110 : REM BREITE FENSTER
WIDTH 0080,44 : REM ......BREITE 1680
HEIGHT 0080,44 : REM ......HÖHE 1050
CAPTION 0080," HELP "
' FILE_LOAD 0080,Speicherplatz_Bild01$
' STRETCH_ON 0080 : REM
' SHOW 0080 : REM
'
parent 0080,0010
'
' *** INFO ICON ERSTELLEN ******************************************************
' *** später durch Bild ersetzen
BUTTON 0085 :' HIDE 101
TOP 0085,4 : REM HÖHE FENSTER
LEFT 0085,SCREEN_X-60 : REM BREITE FENSTER
WIDTH 0085,44 : REM ......BREITE 1680
HEIGHT 0085,44 : REM ......HÖHE 1050
CAPTION 0085," LOGO "
' FILE_LOAD 0085,Speicherplatz_Bild01$
' STRETCH_ON 0085 : REM
' SHOW 0085 : REM
'
parent 0085,0010
'
RETURN
' ******************************************************************************
' *** FORM 0090 ERSTELLEN ---> FUSSLEISTE **************************************
SCREEN0090:
'
COMMAND_TARGET_IS 0000
'
FORM 0090
TOP 0090,SCREEN_Y-101
LEFT 0090,2
WIDTH 0090,SCREEN_X-12
HEIGHT 0090,28
COLOR 0090,231,238,240
BORDER_HIDE 0090
'
PARENTNUMMER1% = handle(0090)
GOSUB OBJEKT_AN
'
COMMAND_TARGET_IS 0090
'
' *** später durch Bild ersetzen
BUTTON 0091
TOP 0091,3
LEFT 0091,2
WIDTH 0091,22
HEIGHT 0091,22
CAPTION 0091,"ICON"
' FILE_LOAD 0091,Speicherplatz_Bild01$
' STRETCH_ON 0091
' SHOW 0091
'
edit 0092
TOP 0092,4
LEFT 0092,28
WIDTH 0092,40
HEIGHT 0092,24
FONT_COLOR 0092,255,000,000
TEXT 0092," 0090 "
Menuetext$ = TEXT$(0092)
print Menuetext$
'
edit 0093
TOP 0093,4
LEFT 0093,74
WIDTH 0093,370
HEIGHT 0093,24
'
TITEL$(2,1) = " Willkommen im Programm - Multimomentstudien "
TITEL$(2,2) = " Welcome TO the program - work sampling studies "
TITEL$(2,3) = " Bienvenue dans le programme - les études d'échantillonnage de travail "
'
FONT_COLOR 0093,255,000,000
TEXT 0093,TITEL$(2,SPRACHE%)
Menuetext$ = TITEL$(2,SPRACHE%)
print Menuetext$
'
RETURN
' ******************************************************************************
' *** FORM 0095 ERSTELLEN ---> StartForm START *********************************
SCREEN0095:
'
COMMAND_TARGET_IS 0000
'
FORM 0095
TOP 0095,74
LEFT 0095,2
WIDTH 0095,SCREEN_X-12
HEIGHT 0095,SCREEN_Y-177
COLOR 0095,000,255,000
BORDER_HIDE 0095
'
PARENTNUMMER1% = handle(0095)
GOSUB OBJEKT_AN
'
Font_name 0095,"Terminal"
RETURN
' ******************************************************************************
' *** Alle FORMEN ERSTELLEN ---> CLIENTARENA ***********************************
SCREENALL:
'
COMMAND_TARGET_IS 0000
'
Screen_Beginn% = 1000 :Screen_End% = 8980
'
FOR Screen_Nr% = Screen_Beginn% TO Screen_End% step 20
'
FORM Screen_Nr%
' *** FORMEN VERSTECKEN
HIDE Screen_Nr%
TOP Screen_Nr%,74
LEFT Screen_Nr%,2
WIDTH Screen_Nr%,SCREEN_X-12
HEIGHT Screen_Nr%,SCREEN_Y-177
COLOR Screen_Nr%,229,229,229
BORDER_HIDE Screen_Nr%
'
PARENTNUMMER1% = handle(Screen_Nr%)
GOSUB OBJEKT_AN
'
Next Screen_Nr%
'
RETURN
' ******************************************************************************
' *** DATEN DER AUSGEWÄHLTEN FORM IN FUSSLEISTE ANZEIGEN ***********************
SCREENSHOW:
'
FORM_NUMMER% = number_click
FORM_NUMMER% = FORM_NUMMER% * 10
'
FONT_COLOR 0092,000,000,255
TEXT 0092," "+Str$(FORM_NUMMER%)
Menuetext$ = TEXT$(0092)
'
FONT_COLOR 0093,000,000,255
if number_click > 099 then Text 0093,TEXT_MENUE_00$(01,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 139 then Text 0093,TEXT_MENUE_00$(02,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 179 then Text 0093,TEXT_MENUE_00$(03,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 219 then Text 0093,TEXT_MENUE_00$(04,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 259 then Text 0093,TEXT_MENUE_00$(05,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 299 then Text 0093,TEXT_MENUE_00$(06,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 339 then Text 0093,TEXT_MENUE_00$(07,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 379 then Text 0093,TEXT_MENUE_00$(08,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 419 then Text 0093,TEXT_MENUE_00$(09,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 459 then Text 0093,TEXT_MENUE_00$(10,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 499 then Text 0093,TEXT_MENUE_00$(11,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 539 then Text 0093,TEXT_MENUE_00$(12,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 579 then Text 0093,TEXT_MENUE_00$(13,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 619 then Text 0093,TEXT_MENUE_00$(14,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 659 then Text 0093,TEXT_MENUE_00$(15,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 699 then Text 0093,TEXT_MENUE_00$(16,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 739 then Text 0093,TEXT_MENUE_00$(17,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
' if number_click > 779 then Text 0093,TEXT_MENUE_00$(18,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 819 then Text 0093,TEXT_MENUE_00$(19,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 859 then Text 0093,TEXT_MENUE_00$(20,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
'
gosub CLIENTARENA
'
RETURN
' ******************************************************************************
' ******************************************************************************
SCREENMENU:
'
COMMAND_TARGET_IS 0010
'
' *** Hauptmenü erstellen ******************************************************
main_menu 0001
'
' *** Berechnung von Länge des Leermenue 18 ************************************
LEERLAENGE01% = TEXT_WIDTH(TEXT_MENUE_00$(01,SPRACHE%),0010)+8
LEERLAENGE02% = TEXT_WIDTH(TEXT_MENUE_00$(02,SPRACHE%),0010)+8
LEERLAENGE03% = TEXT_WIDTH(TEXT_MENUE_00$(03,SPRACHE%),0010)+8
LEERLAENGE04% = TEXT_WIDTH(TEXT_MENUE_00$(04,SPRACHE%),0010)+8
LEERLAENGE05% = TEXT_WIDTH(TEXT_MENUE_00$(05,SPRACHE%),0010)+8
LEERLAENGE06% = TEXT_WIDTH(TEXT_MENUE_00$(06,SPRACHE%),0010)+8
LEERLAENGE07% = TEXT_WIDTH(TEXT_MENUE_00$(07,SPRACHE%),0010)+8
LEERLAENGE08% = TEXT_WIDTH(TEXT_MENUE_00$(08,SPRACHE%),0010)+8
LEERLAENGE09% = TEXT_WIDTH(TEXT_MENUE_00$(09,SPRACHE%),0010)+8
LEERLAENGE10% = TEXT_WIDTH(TEXT_MENUE_00$(10,SPRACHE%),0010)+8
LEERLAENGE11% = TEXT_WIDTH(TEXT_MENUE_00$(11,SPRACHE%),0010)+8
LEERLAENGE12% = TEXT_WIDTH(TEXT_MENUE_00$(12,SPRACHE%),0010)+8
LEERLAENGE13% = TEXT_WIDTH(TEXT_MENUE_00$(13,SPRACHE%),0010)+8
LEERLAENGE14% = TEXT_WIDTH(TEXT_MENUE_00$(14,SPRACHE%),0010)+8
LEERLAENGE15% = TEXT_WIDTH(TEXT_MENUE_00$(15,SPRACHE%),0010)+8
LEERLAENGE16% = TEXT_WIDTH(TEXT_MENUE_00$(16,SPRACHE%),0010)+8
LEERLAENGE17% = TEXT_WIDTH(TEXT_MENUE_00$(17,SPRACHE%),0010)+8
LEERLAENGE18% = TEXT_WIDTH(TEXT_MENUE_00$(18,SPRACHE%),0010)+8
LEERLAENGE19% = TEXT_WIDTH(TEXT_MENUE_00$(19,SPRACHE%),0010)+8
LEERLAENGE20% = TEXT_WIDTH(TEXT_MENUE_00$(20,SPRACHE%),0010)+8
'
LEERSUMME1% = LEERLAENGE01% + LEERLAENGE02% + LEERLAENGE03%
LEERSUMME2% = LEERLAENGE04% + LEERLAENGE05% + LEERLAENGE06%
LEERSUMME3% = LEERLAENGE07% + LEERLAENGE08% + LEERLAENGE09%
LEERSUMME4% = LEERLAENGE10% + LEERLAENGE11% + LEERLAENGE12%
LEERSUMME5% = LEERLAENGE13% + LEERLAENGE14% + LEERLAENGE15%
LEERSUMME6% = LEERLAENGE16% + LEERLAENGE17%
LEERSUMME7% = LEERLAENGE19% + LEERLAENGE20%
'
LEERSUMME8% = LEERSUMME1% + LEERSUMME2% + LEERSUMME3% + LEERSUMME4%
LEERSUMME9% = LEERSUMME5% + LEERSUMME6% + LEERSUMME7%
LEERSUMME% = LEERSUMME8% + LEERSUMME9%

LEERLAENGE18% = SCREEN_X - 00 - LEERSUMME% -0 :' ???? 12
TEXT_MENUE_00$(18,SPRACHE%) = STRING$(INT(LEERLAENGE18%/7),CHR$(32))
'
' *** ERSTELLEN DES HAUPTMENÜ 9001 bis 9020 ************************************
'
sub_menu 9001:CAPTION 9001,TEXT_MENUE_00$(01,SPRACHE%):parent 9001,0001
sub_menu 9002:CAPTION 9002,TEXT_MENUE_00$(02,SPRACHE%):parent 9002,0001
sub_menu 9003:CAPTION 9003,TEXT_MENUE_00$(03,SPRACHE%):parent 9003,0001
sub_menu 9004:CAPTION 9004,TEXT_MENUE_00$(04,SPRACHE%):parent 9004,0001
sub_menu 9005:CAPTION 9005,TEXT_MENUE_00$(05,SPRACHE%):parent 9005,0001
sub_menu 9006:CAPTION 9006,TEXT_MENUE_00$(06,SPRACHE%):parent 9006,0001
sub_menu 9007:CAPTION 9007,TEXT_MENUE_00$(07,SPRACHE%):parent 9007,0001
sub_menu 9008:CAPTION 9008,TEXT_MENUE_00$(08,SPRACHE%):parent 9008,0001
sub_menu 9009:CAPTION 9009,TEXT_MENUE_00$(09,SPRACHE%):parent 9009,0001
sub_menu 9010:CAPTION 9010,TEXT_MENUE_00$(10,SPRACHE%):parent 9010,0001
sub_menu 9011:CAPTION 9011,TEXT_MENUE_00$(11,SPRACHE%):parent 9011,0001
sub_menu 9012:CAPTION 9012,TEXT_MENUE_00$(12,SPRACHE%):parent 9012,0001
sub_menu 9013:CAPTION 9013,TEXT_MENUE_00$(13,SPRACHE%):parent 9013,0001
sub_menu 9014:CAPTION 9014,TEXT_MENUE_00$(14,SPRACHE%):parent 9014,0001
sub_menu 9015:CAPTION 9015,TEXT_MENUE_00$(15,SPRACHE%):parent 9015,0001
sub_menu 9016:CAPTION 9016,TEXT_MENUE_00$(16,SPRACHE%):parent 9016,0001
sub_menu 9017:CAPTION 9017,TEXT_MENUE_00$(17,SPRACHE%):parent 9017,0001
sub_menu 9018:CAPTION 9018,TEXT_MENUE_00$(18,SPRACHE%):parent 9018,0001
sub_menu 9019:CAPTION 9019,TEXT_MENUE_00$(19,SPRACHE%):parent 9019,0001
sub_menu 9020:CAPTION 9020,TEXT_MENUE_00$(20,SPRACHE%):parent 9020,0001
inactive 9018
'
' ******************************************************************************
' *** Hauptmenue 1000 --- ERSTELLEN UNTERMENÜ 1001 bis 1019 *******************
FOR i = 100 TO 136 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9001:next i
'
inactive 108:inactive 134
'
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 140 TO 176 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9002:next i
'
' *** Hauptmenue 3000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 180 TO 216 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9003:next i
'
' *** Hauptmenue 4000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 220 TO 256 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9004:next i
'
' *** Hauptmenue 5000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 260 TO 296 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9005:next i
'
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 300 TO 336 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9006:next i
'
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 340 TO 376 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9007:next i
'
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 380 TO 416 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9008:next i
'
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 420 TO 456 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9009:next i
'
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 460 TO 496 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9010:next i
'
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 500 TO 536 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9011:next i
'
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 540 TO 576 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9012:next i
'
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 580 TO 616 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9013:next i
'
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 620 TO 656 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9014:next i
'
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 660 TO 696 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9015:next i
'
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 700 TO 736 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9016:next i
'
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 740 TO 776 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9017:next i
'
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
' FOR i = 780 TO 816 STEP 2
' sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9018:' next i
'
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 820 TO 856 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9019:next i
'
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 860 TO 896 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9020:next i
'
RETURN
' ******************************************************************************
' ******************************************************************************
' *** CLIENTARENA FÜR ALLE FORMEN **********************************************
CLIENTARENA:
'
SHOW FORM_NUMMER%
'
COMMAND_TARGET_IS FORM_NUMMER%
'
print_target_is FORM_NUMMER%
'
TITEL$(3,1) = " Hier ist die CLIENTARENA "
TITEL$(3,2) = " Here is the CLIENTARENA "
TITEL$(3,3) = " Voici le CLIENTARENA "
'
print
print
print TITEL$(3,SPRACHE%)+" ",FORM_NUMMER%
print
'
'
'
'
end
' ******************************************************************************
' *** PROGRAMM BEENDEN *********************************************************
PROGRAMM_ENDE:
'
terminate
end
'
' ******************************************************************************
' *** Objekt anhängen **********************************************************
OBJEKT_AN:
'
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",PARENTNUMMER1%,PARENTNUMMER2%,1)
dll_off
'
RETURN
' ******************************************************************************
' *** Objekt abhängen **********************************************************
detacher:
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",hnd20%,ancien%,0)
dll_off
RETURN
' ******************************************************************************
' SUBPROGRAMME FÜR SCHRIFTARTEN ************************************************
' ******************************************************************************
' *** SCHRIFTART Terminal GRÖSSE 08 Normal Schwarz
SchriftartTerminal:
SCHRIFTART = 0000
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,08
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
RETURN
' ******************************************************************************
' *** SCHRIFTART ARIAL 08 Normal Schwarz
Schriftart08N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,08
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
RETURN

New Version 3.5.2012 Severin

New Version 3.5.2012 affraid

Severin

Teil 1

WAU, WAU
so hier ist eine überarbeitete Version.
Folgendes ist zubeachten:

Im Menü "OPTIONEN" sind sechs Untermenüs funktionsfähig.
1 bis 5 und 19.

Bei der Einstellung der Sprache gibt es zwei Möglichkeiten:
1. Im Programm einstellen.
2. In einer INI_Datei die bei Sprachwechsel erstellt wird. IN "TEMP" auf "C".

Das Programm ist sehr ausführlich dokumentiert, im CODE.
Der Code ist auch sehr einfach gehalten, also keine Progammiertricks.
Grösse fast 2000 Zeilen. Die Schaltleiste muss noch eingebunden werden.
Da ich nächste Woche wieder auf Dienstreise bin, wird die nächste Version noch etwas dauern.
Warten wir mal ab, was Jack in seiner neuen Version spannendes zu bieten hat.
Mir ist bewusst, das alle Texte noch in eine INI-Datei gehören.
Kritik negativ oder positiv ist willkommen. Ich bitte um Tests, wegen Fehler.
Wenn die Texte komisch sind, bitte Meldung. GOOOOOOOGLE

Schönes und erholsames Wochenende
Severin

PS.
Wenn ich ich die Verschlüsselung von Klaus begriffen habe, soll die INI_Datei verschlüsselt werden.
Dann können Anwender diese nur über das Programm verändern.

WAU WAU
Voici donc une version révisée.
Ce qui suit est, prenez note:

Dans "Options" six sous-menus sont fonctionnels.
1-5 et 19

Lors du réglage de la langue, il ya deux possibilités:
Première Dans l'ensemble du programme.
Deuxième Dans un INI_Datei qui est créé lorsque des changements linguistiques. IN "TEMP" à "C".

Le programme est documenté en détail dans le Code.
Le code est très simple, donc pas de trucs progammier.
Taille de près de 2000 lignes. Le bloc de raccordement doivent être inclus pour le moment.
Depuis que je suis de retour la semaine prochaine en voyage d'affaires, la prochaine version prendra un certain temps.
Attendons de voir ce que Jack a à offrir dans sa nouvelle version passionnante.
Je comprends que tous les textes sont encore dans un fichier INI.

La critique est positive ou négative de bienvenue. Je demande pour les tests, en raison d'erreurs.
Si les paroles sont drôles, s'il vous plaît message. Gooooooogle

Week-end agréable et relaxant
Severin

HP.
Si je l'avais-je compris le cryptage de Klaus, le INI_Datei doit être crypté.
Ensuite, les utilisateurs peuvent les modifier uniquement sur le programme.

Code:: ' *** Eltern kind mit DLL nach klaus *******************************************
' *** MIT DLL LoadProgram ******************************************************
' *** Mit DLL FORM nach Nardo **************************************************
' *** Dank an Klaus und Nardo für "LoadProgram.dll und Form.dll" ***************
'
' ******************************************************************************
' *** INI-Datei prüfen ob angelegt *********************************************
'
LABEL INIDATEI_YES :LABEL INIDATEI_NO : LABEL INIDATEI_WRITE
LABEL STARTPROGRAMM
'
DIM INI_WERT$
DIM SPRACHE%
DIM INI_DIR_A$ :INI_DIR_A$ = "c:\"
DIM INI_DATEI_WERTE0$ :INI_DATEI_WERTE0$ = INI_DIR_A$ + "temp\INI0_Text.TXT"
'
if file_exists(INI_DATEI_WERTE0$) = 0 then goto INIDATEI_NO
if file_exists(INI_DATEI_WERTE0$) = 1 then goto INIDATEI_YES
' ***INI-DATEI NICHT ANGELEGT, SPRACHE IST DEUTSCH *****************************
INIDATEI_NO:
'
SPRACHE% = 1 :' deutsch
' SPRACHE% = 2 :' englisch
' SPRACHE% = 3 :' französisch
GOTO STARTPROGRAMM
' ***INI-DATEI ANGELEGT, SPRACHE aus INI-DATEI ÜBERNEHMEN **********************
INIDATEI_YES:
'
FILE_OPEN_READ 1,INI_DATEI_WERTE0$
FILE_READLN 1,INI_WERT$
FILE_CLOSE 1
'
SPRACHE% = VAL(INI_WERT$)
'
PRINT "gelesen ",SPRACHE%
PRINT DIR_A$
'
GOTO STARTPROGRAMM
' ******************************************************************************
STARTPROGRAMM:
' ******************************************************************************
DIM SCHRIFTART
' *** LABEL FÜR SCHRIFTEN ANLEGEN **********************************************
LABEL SCHRIFTARTSYMBOLschwarz :LABEL SCHRIFTARTSYMBOLrot
LABEL SCHRIFTARTSYMBOLschwarz12:LABEL SCHRIFTARTSYMBOLrot12
' *** ARIAL NORMAL *************************************************
LABEL SCHRIFTART08N:LABEL SCHRIFTART09N:LABEL SCHRIFTART10N:LABEL SCHRIFTART11N
LABEL SCHRIFTART12N:LABEL SCHRIFTART15N:LABEL SCHRIFTART20N
' *** ARIAL FETT *************************************************
LABEL SCHRIFTART08F:LABEL SCHRIFTART09F:LABEL SCHRIFTART10F:LABEL SCHRIFTART11F
LABEL SCHRIFTART12F:LABEL SCHRIFTART15F:LABEL Schriftart20F
' *** ARIAL FETT UNTERSTRICHEN *************************************************
LABEL SCHRIFTART08FU:LABEL SCHRIFTART09FU:LABEL SCHRIFTART10FU:LABEL SCHRIFTART11FU
LABEL SCHRIFTART12FU:LABEL SCHRIFTART15FU:LABEL Schriftart20FU
' *** ARIAL NORMAL ROT *************************************************
LABEL Schriftart09NR:LABEL Schriftart11NR
' ******************************************************************************
' *** VARIABLE FÜR OBJEKTE anhängen und OBJEKTE abhängen LoadProgram.DLL *******
LABEL OBJEKT_AN :' Objekt anhängen
LABEL detacher :' Objekt abhängen
'
DIM PARENTNUMMER1%
DIM PARENTNUMMER2%
DIM ancien%
' ******************************************************************************
' *** Variablen für Menue von Form 100, um Längen zuberechnen ******************
DIM LEERZEICHEN01%: DIM LEERLAENGE01%: DIM LEERZEICHEN02$: DIM LEERLAENGE02%
DIM LEERZEICHEN03$: DIM LEERLAENGE03%: DIM LEERZEICHEN04%: DIM LEERLAENGE04%
DIM LEERZEICHEN05%: DIM LEERLAENGE05%: DIM LEERZEICHEN06%: DIM LEERLAENGE06%
DIM LEERZEICHEN07%: DIM LEERLAENGE07%: DIM LEERZEICHEN08%: DIM LEERLAENGE08%
DIM LEERZEICHEN09%: DIM LEERLAENGE09%: DIM LEERZEICHEN10%: DIM LEERLAENGE10%
DIM LEERZEICHEN11%: DIM LEERLAENGE11%: DIM LEERZEICHEN12%: DIM LEERLAENGE12%
DIM LEERZEICHEN13%: DIM LEERLAENGE13%: DIM LEERZEICHEN14%: DIM LEERLAENGE14%
DIM LEERZEICHEN15%: DIM LEERLAENGE15%: DIM LEERZEICHEN16%: DIM LEERLAENGE16%
DIM LEERZEICHEN17%: DIM LEERLAENGE17%: DIM LEERZEICHEN18%: DIM LEERLAENGE18%
DIM LEERZEICHEN19%: DIM LEERLAENGE19%: DIM LEERZEICHEN20%: DIM LEERLAENGE20%
'
DIM LEERSUMME% :DIM LEERSUMME1% :DIM LEERSUMME2% :DIM LEERSUMME3%
DIM LEERSUMME4% :DIM LEERSUMME5% :DIM LEERSUMME6% :DIM LEERSUMME7%
DIM LEERSUMME8% :DIM LEERSUMME9%
'
DIM Menuetext$
' *** VARIABLE FÜR MENÜS ERSTELLEN *********************************************
DIM TEXT_MENUE_00$(20,3) :DIM i :DIM j
DIM TITEL$(99,3)
' **** DEUTSCH *********,**** ENGLISCH *****,**** FRANZÖSISCH ******************
DATA " DATEI " ," FILE " ," DOSSIER "
DATA " MENUE 02 " ," MENU 02 " ," MENU 02 "
DATA " MENUE 03 " ," MENU 03 " ," MENU 03 "
DATA " MENUE 04 " ," MENU 04 " ," MENU 04 "
DATA " MENUE 05 " ," MENU 05 " ," MENU 05 "
DATA " MENUE 06 " ," MENU 06 " ," MENU 06 "
DATA " MENUE 07 " ," MENU 07 " ," MENU 07 "
DATA " MENUE 08 " ," MENU 08 " ," MENU 08 "
DATA " MENUE 09 " ," MENU 09 " ," MENU 09 "
DATA " MENUE 10 " ," MENU 10 " ," MENU 10 "
DATA " MENUE 11 " ," MENU 11 " ," MENU 11 "
DATA " MENUE 12 " ," MENU 12 " ," MENU 12 "
DATA " MENUE 13 " ," MENU 13 " ," MENU 13 "
DATA " MENUE 14 " ," MENU 14 " ," MENU 14 "
DATA " MENUE 15 " ," MENU 15 " ," MENU 15 "
DATA " Test-MENUE 16 " ," Test-MENU 16 " ," Test-MENU 16 "
DATA " OPTIONEN " ," OPTIONS " ," OPTIONS "
DATA " " ," " ," "
DATA " HILFE " ," HELP " ," AID "
DATA " INFO " ," INFO " ," INFO "
'
FOR i = 1 TO 20
FOR j = 1 TO 3
read TEXT_MENUE_00$(i,j)
next j
next i
' *** VARIABLE FÜR UNTERMENÜS ERSTELLEN ****************************************
DIM TEXT_MENUE_01$(9000,3)
' **** DEUTSCH *********,**** ENGLISCH *****,**** FRANZÖSISCH ******************
' 01
DATA " Neu "," New "," Nouveau "
DATA " Öffnen ... "," Open ... "," Ouvert ... "
DATA " Speichern "," Save "," Sauver "
DATA " Speichern unter "," Save under "," Enregistrer sous"
DATA "====================","====================","===================="
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0107 "," SUB NENU 0107 "
DATA " UNTERMENUE 0108 "," SUB NENU 0108 "," SUB NENU 0108 "
DATA " UNTERMENUE 0109 "," SUB NENU 0109 "," SUB NENU 0109 "
DATA " UNTERMENUE 0110 "," SUB NENU 0110 "," SUB NENU 0110 "
DATA " UNTERMENUE 0111 "," SUB NENU 0111 "," SUB NENU 0111 "
DATA " UNTERMENUE 0112 "," SUB NENU 0112 "," SUB NENU 0112 "
DATA " UNTERMENUE 0113 "," SUB NENU 0113 "," SUB NENU 0113 "
DATA " UNTERMENUE 0114 "," SUB NENU 0114 "," SUB NENU 0114 "
DATA " UNTERMENUE 0115 "," SUB NENU 0115 "," SUB NENU 0115 "
DATA " UNTERMENUE 0116 "," SUB NENU 0116 "," SUB NENU 0116 "
DATA " UNTERMENUE 0117 "," SUB NENU 0117 "," SUB NENU 0117 "
DATA "====================","====================","===================="
DATA " QUIT "," QUIT "," QUIT "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 02
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 03
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 04
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 05
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 06
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 07
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 08
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 09
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 10
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 11
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 12
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 13
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 14
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 15
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 16
DATA " TEST-U-Menü 1601 "," TEST-SUB MENU 1601 "," TEST-SUB MENU 1601 "
DATA " TEST-U-Menü 1602 "," TEST-SUB MENU 1602 "," TEST-SUB MENU 1602 "
DATA " TEST-U-Menü 1603 "," TEST-SUB MENU 1603 "," TEST-SUB MENU 1603 "
DATA " TEST-U-Menü 1604 "," TEST-SUB MENU 1604 "," TEST-SUB MENU 1604 "
DATA " TEST-U-Menü 1605 "," TEST-SUB MENU 1605 "," TEST-SUB MENU 1605 "
DATA " TEST-U-Menü 1606 "," TEST-SUB MENU 1606 "," TEST-SUB MENU 1606 "
DATA " TEST-U-Menü 1607 "," TEST-SUB MENU 1607 "," TEST-SUB MENU 1607 "
DATA " TEST-U-Menü 1608 "," TEST-SUB MENU 1608 "," TEST-SUB MENU 1608 "
DATA " TEST-U-Menü 1609 "," TEST-SUB MENU 1609 "," TEST-SUB MENU 1609 "
DATA " TEST-U-Menü 1610 "," TEST-SUB MENU 1610 "," TEST-SUB MENU 1610 "
DATA " TEST-U-Menü 1611 "," TEST-SUB MENU 1611 "," TEST-SUB MENU 1611 "
DATA " TEST-U-Menü 1612 "," TEST-SUB MENU 1612 "," TEST-SUB MENU 1612 "
DATA " TEST-U-Menü 1613 "," TEST-SUB MENU 1613 "," TEST-SUB MENU 1613 "
DATA " TEST-U-Menü 1614 "," TEST-SUB MENU 1614 "," TEST-SUB MENU 1614 "
DATA " TEST-U-Menü 1615 "," TEST-SUB MENU 1615 "," TEST-SUB MENU 1615 "
DATA " TEST-U-Menü 1616 "," TEST-SUB MENU 1616 "," TEST-SUB MENU 1616 "
DATA " TEST-U-Menü 1617 "," TEST-SUB MENU 1617 "," TEST-SUB MENU 1617 "
DATA " TEST-U-Menü 1618 "," TEST-SUB MENU 1618 "," TEST-SUB MENU 1618 "
DATA " TEST-U-Menü 1619 "," TEST-SUB MENU 1619 "," TEST-SUB MENU 1619 "
DATA " TEST-U-Menü 1620 "," TEST-SUB MENU 1620 "," TEST-SUB MENU 1620 ":' inktiv
' 17
DATA " Einstellungen "," Settings "," Paramètres "
DATA " Sprache einstellen "," Language set "," Langue fixé "
DATA " ACTIV 1703 "," ACTIV 1703 "," ACTIV 1703 "
DATA " ACTIV 1704 "," ACTIV 1704 "," ACTIV 1704 "
DATA " ACTIV 1705 "," ACTIV 1705 "," ACTIV 1705 "
DATA " UNTERMENUE 1706 "," SUB NENU 1706 "," SUB NENU 1706 "
DATA " UNTERMENUE 1707 "," SUB NENU 1707 "," SUB NENU 1707 "
DATA " UNTERMENUE 1708 "," SUB NENU 1708 "," SUB NENU 1708 "
DATA " UNTERMENUE 1709 "," SUB NENU 1709 "," SUB NENU 1709 "
DATA " UNTERMENUE 1710 "," SUB NENU 1710 "," SUB NENU 1710 "
DATA " UNTERMENUE 1711 "," SUB NENU 1711 "," SUB NENU 1711 "
DATA " UNTERMENUE 1712 "," SUB NENU 1712 "," SUB NENU 1712 "
DATA " UNTERMENUE 1713 "," SUB NENU 1713 "," SUB NENU 1713 "
DATA " UNTERMENUE 1714 "," SUB NENU 1714 "," SUB NENU 1714 "
DATA " UNTERMENUE 1715 "," SUB NENU 1715 "," SUB NENU 1715 "
DATA " UNTERMENUE 1716 "," SUB NENU 1716 "," SUB NENU 1716 "
DATA " UNTERMENUE 1717 "," SUB NENU 1717 "," SUB NENU 1717 "
DATA " UNTERMENUE 1718 "," SUB NENU 1718 "," SUB NENU 1718 "
DATA " Menü ändern "," Menu change "," changement Menu "
DATA " UNTERMENUE 1720 "," SUB NENU 1720 "," SUB NENU 1720 " :' inktiv
' 18
DATA " UNTERMENUE 1801 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1802 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1803 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1804 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1805 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1806 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1807 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1808 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1809 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1810 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1811 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1812 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1813 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1814 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1815 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1816 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1817 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1818 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1819 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1820 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
' 19
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 " :' inktiv
' 20
DATA " über Programm "," about Program "," sur le Programme"
DATA " über Computer "," about Computer "," sur l'ordinateur"
DATA " über Netzwerk "," about Network "," sur le réseau "
DATA " UNTERMENUE 2004 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2005 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2006 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2007 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2008 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2009 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2010 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2011 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2012 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2013 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2014 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2015 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2016 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2017 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2018 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2019 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2020 "," SUB NENU 2006 "," SUB NENU 2006 " :' inktiv
'
FOR i = 100 TO 898 STEP 2
FOR j = 1 TO 3 :read TEXT_MENUE_01$(i,j) :next j
next i
' ******************************************************************************
' *** Variable für alle Formen erstellen ***************************************
DIM Screen_Nr%
DIM Screen_Beginn%
DIM Screen_End%
DIM FORM_NUMMER%
' *** LABEL FÜR FORMEN ERSTELLEN ***********************************************
LABEL SCREENSHOW
LABEL SCREENSHOW1
LABEL PROGRAMM_ENDE
LABEL CLIENTARENA :' Hier werden die EINGABE getätigt
'
LABEL SCREEN7400:LABEL FORM_SCHLIESSEN7400
LABEL SCREEN7420:LABEL FORM_SCHLIESSEN7420:LABEL SCREEN7436:LABEL SCREEN7437:LABEL SCREEN7438:LABEL SCREEN7439
LABEL SCREEN7440:LABEL FORM_SCHLIESSEN7440
LABEL SCREEN7460:LABEL FORM_SCHLIESSEN7460
LABEL SCREEN7480:LABEL FORM_SCHLIESSEN7480
'
LABEL SCREEN7760:LABEL FORM_SCHLIESSEN7760
'
LABEL BUTTON_SCHLIESSEN
LABEL BUTTON_ERSTELLT
LABEL BUTTON_WEITER
LABEL Menueschliessen
' *** VARIABLE FÜR BUTTON -- FORM SCHLIESSEN ***********************************
DIM BUTTON_TOP%
DIM BUTTEN_LEFT%
DIM BUTTEN_WIDTH%
DIM BUTTON_HEIGHT%
DIM BUTTON_NR%
'
BUTTON_TOP% = (SCREEN_Y - 181) - 30
BUTTEN_LEFT% = (SCREEN_X - 16) - 160
BUTTEN_WIDTH% = 120
BUTTON_HEIGHT% = 20
' *** VARIABLE für Dateien *****************************************************
DIM Datei_Name$
'
' *** VARIABLEN FORM 000 EIGENSCHAFTEN FÜR FORM.DLL ERSTELLEN ******************
DIM FORM_BUTTON_Off13 :' =dll_call1("SetCLOSEOff",handle(0)) Schließen deaktiviert
DIM FORM_BUTTON_Off14 :' =DLL_CALL2("SetMaximize",HANDLE(0),0)Vergrößern deaktiviert
DIM FORM_BUTTON_Off15 :' =DLL_CALL2("SetMinimize",HANDLE(0),0)Verkleinern deaktiviert
' *** FORM 0000 GRUNDFORM ERSTELLEN ********************************************
dll_on "form.dll"
FORM_BUTTON_Off13=dll_call1("SetCloseOff",handle(0))
FORM_BUTTON_Off14=DLL_CALL2("SetMaximize",HANDLE(0),0)
FORM_BUTTON_Off15=DLL_CALL2("SetMinimize",HANDLE(0),0)
dll_off
'
TITEL$(1,1) = " Multimomentstudien erstellen und auswerten "
TITEL$(1,2) = " Work sampling studies, and generate and evaluate "
TITEL$(1,3) = " Les travaux d'études d'échantillonnage, et de générer et d'évaluer "
' FORM 0000
TOP 0000,0
LEFT 0000,0
WIDTH 0000,SCREEN_X
HEIGHT 0000,SCREEN_Y-44
COLOR 0000,000,000,000
CAPTION 0000,TITEL$(1,SPRACHE%)
PARENTNUMMER2% = handle(0000) :' Grundform auf der alle Formen fixiert sind
' *** FORM 0090 ERSTELLEN ---> FUSSLEISTE **************************************
COMMAND_TARGET_IS 0000
FORM 0090
TOP 0090,SCREEN_Y-101
LEFT 0090,2
WIDTH 0090,SCREEN_X-12
HEIGHT 0090,28
COLOR 0090,231,238,240
BORDER_HIDE 0090
PARENTNUMMER1% = handle(0090)
GOSUB OBJEKT_AN
COMMAND_TARGET_IS 0090
' *** später durch Bild ersetzen
BUTTON 0091
TOP 0091,3
LEFT 0091,2
WIDTH 0091,22
HEIGHT 0091,22
CAPTION 0091,"ICON"
' FILE_LOAD 0091,Speicherplatz_Bild01$
' STRETCH_ON 0091
' SHOW 0091
edit 0092
TOP 0092,4
LEFT 0092,28
WIDTH 0092,40
HEIGHT 0092,24
FONT_COLOR 0092,255,000,000
TEXT 0092," 0090 "
Menuetext$ = TEXT$(0092)
print Menuetext$
'
edit 0093
TOP 0093,4
LEFT 0093,74
WIDTH 0093,370
HEIGHT 0093,24
'
TITEL$(2,1) = " Willkommen im Programm - Multimomentstudien "
TITEL$(2,2) = " Welcome to the program - work sampling studies "
TITEL$(2,3) = " Bienvenue dans le programme - les études d'échantillonnage de travail "
'
FONT_COLOR 0093,255,000,000
TEXT 0093,TITEL$(2,SPRACHE%)
Menuetext$ = TITEL$(2,SPRACHE%)
print Menuetext$
' *** FORM 0010 ERSTELLEN ---> Menüleiste **************************************
COMMAND_TARGET_IS 0000
FORM 0010
TOP 0010,2
LEFT 0010,2
WIDTH 0010,SCREEN_X-12
HEIGHT 0010,SCREEN_Y-106
COLOR 0010,000,000,000
BORDER_HIDE 0010
PARENTNUMMER1% = handle(0010)
GOSUB OBJEKT_AN
COMMAND_TARGET_IS 0010
' *** Hauptmenü erstellen ******************************************************
main_menu 0001
' *** Berechnung von Länge des Leermenue 18 ************************************
LEERLAENGE01% = TEXT_WIDTH(TEXT_MENUE_00$(01,SPRACHE%),0010)+8
LEERLAENGE02% = TEXT_WIDTH(TEXT_MENUE_00$(02,SPRACHE%),0010)+8
LEERLAENGE03% = TEXT_WIDTH(TEXT_MENUE_00$(03,SPRACHE%),0010)+8
LEERLAENGE04% = TEXT_WIDTH(TEXT_MENUE_00$(04,SPRACHE%),0010)+8
LEERLAENGE05% = TEXT_WIDTH(TEXT_MENUE_00$(05,SPRACHE%),0010)+8
LEERLAENGE06% = TEXT_WIDTH(TEXT_MENUE_00$(06,SPRACHE%),0010)+8
LEERLAENGE07% = TEXT_WIDTH(TEXT_MENUE_00$(07,SPRACHE%),0010)+8
LEERLAENGE08% = TEXT_WIDTH(TEXT_MENUE_00$(08,SPRACHE%),0010)+8
LEERLAENGE09% = TEXT_WIDTH(TEXT_MENUE_00$(09,SPRACHE%),0010)+8
LEERLAENGE10% = TEXT_WIDTH(TEXT_MENUE_00$(10,SPRACHE%),0010)+8
LEERLAENGE11% = TEXT_WIDTH(TEXT_MENUE_00$(11,SPRACHE%),0010)+8
LEERLAENGE12% = TEXT_WIDTH(TEXT_MENUE_00$(12,SPRACHE%),0010)+8
LEERLAENGE13% = TEXT_WIDTH(TEXT_MENUE_00$(13,SPRACHE%),0010)+8
LEERLAENGE14% = TEXT_WIDTH(TEXT_MENUE_00$(14,SPRACHE%),0010)+8
LEERLAENGE15% = TEXT_WIDTH(TEXT_MENUE_00$(15,SPRACHE%),0010)+8
LEERLAENGE16% = TEXT_WIDTH(TEXT_MENUE_00$(16,SPRACHE%),0010)+8
LEERLAENGE17% = TEXT_WIDTH(TEXT_MENUE_00$(17,SPRACHE%),0010)+8
LEERLAENGE18% = TEXT_WIDTH(TEXT_MENUE_00$(18,SPRACHE%),0010)+8
LEERLAENGE19% = TEXT_WIDTH(TEXT_MENUE_00$(19,SPRACHE%),0010)+8
LEERLAENGE20% = TEXT_WIDTH(TEXT_MENUE_00$(20,SPRACHE%),0010)+8
'
LEERSUMME1% = LEERLAENGE01% + LEERLAENGE02% + LEERLAENGE03%
LEERSUMME2% = LEERLAENGE04% + LEERLAENGE05% + LEERLAENGE06%
LEERSUMME3% = LEERLAENGE07% + LEERLAENGE08% + LEERLAENGE09%
LEERSUMME4% = LEERLAENGE10% + LEERLAENGE11% + LEERLAENGE12%
LEERSUMME5% = LEERLAENGE13% + LEERLAENGE14% + LEERLAENGE15%
LEERSUMME6% = LEERLAENGE16% + LEERLAENGE17%
LEERSUMME7% = LEERLAENGE19% + LEERLAENGE20%
'
LEERSUMME8% = LEERSUMME1% + LEERSUMME2% + LEERSUMME3% + LEERSUMME4%
LEERSUMME9% = LEERSUMME5% + LEERSUMME6% + LEERSUMME7%
LEERSUMME% = LEERSUMME8% + LEERSUMME9%
'
LEERLAENGE18% = SCREEN_X - 00 - LEERSUMME% -0 :' ???? 12
TEXT_MENUE_00$(18,SPRACHE%) = STRING$(INT(LEERLAENGE18%/7),CHR$(32))
' *** ERSTELLEN DES HAUPTMENÜ 9001 bis 9020 ************************************
sub_menu 9001:CAPTION 9001,TEXT_MENUE_00$(01,SPRACHE%):parent 9001,0001
sub_menu 9002:CAPTION 9002,TEXT_MENUE_00$(02,SPRACHE%):parent 9002,0001
sub_menu 9003:CAPTION 9003,TEXT_MENUE_00$(03,SPRACHE%):parent 9003,0001
sub_menu 9004:CAPTION 9004,TEXT_MENUE_00$(04,SPRACHE%):parent 9004,0001
sub_menu 9005:CAPTION 9005,TEXT_MENUE_00$(05,SPRACHE%):parent 9005,0001
sub_menu 9006:CAPTION 9006,TEXT_MENUE_00$(06,SPRACHE%):parent 9006,0001
sub_menu 9007:CAPTION 9007,TEXT_MENUE_00$(07,SPRACHE%):parent 9007,0001
sub_menu 9008:CAPTION 9008,TEXT_MENUE_00$(08,SPRACHE%):parent 9008,0001
sub_menu 9009:CAPTION 9009,TEXT_MENUE_00$(09,SPRACHE%):parent 9009,0001
sub_menu 9010:CAPTION 9010,TEXT_MENUE_00$(10,SPRACHE%):parent 9010,0001
sub_menu 9011:CAPTION 9011,TEXT_MENUE_00$(11,SPRACHE%):parent 9011,0001
sub_menu 9012:CAPTION 9012,TEXT_MENUE_00$(12,SPRACHE%):parent 9012,0001
sub_menu 9013:CAPTION 9013,TEXT_MENUE_00$(13,SPRACHE%):parent 9013,0001
sub_menu 9014:CAPTION 9014,TEXT_MENUE_00$(14,SPRACHE%):parent 9014,0001
sub_menu 9015:CAPTION 9015,TEXT_MENUE_00$(15,SPRACHE%):parent 9015,0001
sub_menu 9016:CAPTION 9016,TEXT_MENUE_00$(16,SPRACHE%):parent 9016,0001
sub_menu 9017:CAPTION 9017,TEXT_MENUE_00$(17,SPRACHE%):parent 9017,0001
sub_menu 9018:CAPTION 9018,TEXT_MENUE_00$(18,SPRACHE%):parent 9018,0001
sub_menu 9019:CAPTION 9019,TEXT_MENUE_00$(19,SPRACHE%):parent 9019,0001
sub_menu 9020:CAPTION 9020,TEXT_MENUE_00$(20,SPRACHE%):parent 9020,0001
inactive 9018
' *** Hauptmenue 1000 --- ERSTELLEN UNTERMENÜ 1001 bis 1019 *******************
FOR i = 100 TO 136 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9001:next i
inactive 108:inactive 134
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 140 TO 176 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9002:next i
' *** Hauptmenue 3000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 180 TO 216 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9003:next i
' *** Hauptmenue 4000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 220 TO 256 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9004:next i
' *** Hauptmenue 5000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 260 TO 296 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9005:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 300 TO 336 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9006:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 340 TO 376 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9007:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 380 TO 416 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9008:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 420 TO 456 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9009:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 460 TO 496 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9010:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 500 TO 536 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9011:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 540 TO 576 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9012:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 580 TO 616 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9013:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 620 TO 656 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9014:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 660 TO 696 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9015:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 700 TO 736 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9016:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 740 TO 776 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9017:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
' FOR i = 780 TO 816 STEP 2
' sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9018:' next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 820 TO 856 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9019:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 860 TO 896 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9020:next i
' *** FORM 0020 ERSTELLEN ---> Schaltflächenleiste *****************************
COMMAND_TARGET_IS 0010
FORM 0020
TOP 0020,1
LEFT 0020,0
WIDTH 0020,SCREEN_X-12
HEIGHT 0020,50
COLOR 0020,229,229,229
BORDER_HIDE 0020
PARENTNUMMER2% = handle(0010) :' Grundform auf der alle Formen fixiert sind
PARENTNUMMER1% = handle(0020)
GOSUB OBJEKT_AN
' *** BILDER AUF FORM 0020 ANZEIGEN ********************************************
COMMAND_TARGET_IS 0020
' *** später durch Bild ersetzen
BUTTON 0011 :' HIDE 101
TOP 0011,2 : REM HÖHE FENSTER
LEFT 0011,2 : REM BREITE FENSTER
WIDTH 0011,22 : REM ......BREITE 1680
HEIGHT 0011,22 : REM ......HÖHE 1050
CAPTION 0011,"|<--"
' FILE_LOAD 0011,Speicherplatz_Bild01$
' STRETCH_ON 0011 : REM
' SHOW 0011 : REM
' *** später durch Bild ersetzen
BUTTON 0012
TOP 0012,26
LEFT 0012,2
WIDTH 0012,22
HEIGHT 0012,22
CAPTION 0012,"-->"
' FILE_LOAD 0012,Speicherplatz_Bild01$
' STRETCH_ON 0012 : REM
' SHOW 0012 : REM
' *** später durch Bild ersetzen
BUTTON 0015 :' HIDE 101
TOP 0015,2 : REM HÖHE FENSTER
LEFT 0015,26 : REM BREITE FENSTER
WIDTH 0015,22 : REM ......BREITE 1680
HEIGHT 0015,22 : REM ......HÖHE 1050
CAPTION 0015,"<--"
' FILE_LOAD 0015,Speicherplatz_Bild01$
' STRETCH_ON 0015 : REM
' SHOW 0015 : REM
' *** später durch Bild ersetzen
BUTTON 0016 :' HIDE 101
TOP 0016,26 : REM HÖHE FENSTER
LEFT 0016,26 : REM BREITE FENSTER
WIDTH 0016,22 : REM ......BREITE 1680
HEIGHT 0016,22 : REM ......HÖHE 1050
CAPTION 0016,"-->|"
' FILE_LOAD 0016,Speicherplatz_Bild01$
' STRETCH_ON 0016 : REM
' SHOW 0016 : REM
' *** HILE ICON ERSTELLEN ******************************************************
' *** später durch Bild ersetzen
BUTTON 0080 :' HIDE 101
TOP 0080,4 : REM HÖHE FENSTER
LEFT 0080,SCREEN_X-110 : REM BREITE FENSTER
WIDTH 0080,44 : REM ......BREITE 1680
HEIGHT 0080,44 : REM ......HÖHE 1050
CAPTION 0080," HELP "
' FILE_LOAD 0080,Speicherplatz_Bild01$
' STRETCH_ON 0080 : REM
' SHOW 0080 : REM
parent 0080,0020
' *** INFO ICON ERSTELLEN ******************************************************
' *** später durch Bild ersetzen
BUTTON 0085 :' HIDE 101
TOP 0085,4 : REM HÖHE FENSTER
LEFT 0085,SCREEN_X-60 : REM BREITE FENSTER
WIDTH 0085,44 : REM ......BREITE 1680
HEIGHT 0085,44 : REM ......HÖHE 1050
CAPTION 0085," LOGO "
' FILE_LOAD 0085,Speicherplatz_Bild01$
' STRETCH_ON 0085 : REM
' SHOW 0085 : REM
parent 0085,0020
' Programm-Trennung, kann gelöscht werden
' Program separation, can be deleted
' Programme de séparation, peut être supprimé

TEIL 2

WAU WAU
So here is a revised version.
The following is, take note:

In the "Options" six sub-menus are functional.
1-5 and 19

When setting the language, there are two possibilities:
First In the program set.
Second In a INI_Datei that is created when language changes. IN "TEMP" to "C".

The program is documented in great detail in the CODE.
The code is very simple, so no progammier tricks.
Size nearly 2000 lines. The connecting block must be included yet.
Since I'm back next week on a business trip, the next version will take some time.
Let's wait and see what Jack has to offer in his exciting new version.
I understand that all texts are still in an INI file.

Criticism is negative or positive welcome. I ask for tests, because of errors.
If the lyrics are funny, please message. Gooooooogle

Nice and relaxing weekend
Severin

HP.
If I had I understood the encryption of Klaus, the INI_Datei should be encrypted.
Then, users can change them only about the program.

Code:: ' Programm-Trennung, kann gelöscht werden
' Program separation, can be deleted
' Programme de séparation, peut être supprimé
' *** Alle FORMEN ERSTELLEN ---> CLIENTARENA ***********************************
COMMAND_TARGET_IS 0000
Screen_Beginn% = 1000 :Screen_End% = 8980
FOR Screen_Nr% = Screen_Beginn% TO Screen_End% step 20
FORM Screen_Nr%
' *** FORMEN VERSTECKEN
HIDE Screen_Nr%
TOP Screen_Nr%,55
LEFT Screen_Nr%,2
WIDTH Screen_Nr%,SCREEN_X-16
HEIGHT Screen_Nr%,SCREEN_Y-181
COLOR Screen_Nr%,229,229,229
BORDER_HIDE Screen_Nr%
PARENTNUMMER1% = handle(Screen_Nr%)
GOSUB OBJEKT_AN
Next Screen_Nr%
' *** FORM 0095 ERSTELLEN ---> StartForm START *********************************
COMMAND_TARGET_IS 0010
FORM 0095
TOP 0095,54
LEFT 0095,0
WIDTH 0095,SCREEN_X-12
HEIGHT 0095,SCREEN_Y-169
COLOR 0095,000,000,000
BORDER_HIDE 0095
PARENTNUMMER2% = handle(0010)
PARENTNUMMER1% = handle(0095)
GOSUB OBJEKT_AN
' CLICK AUF MENÜ FORM 0010 *****************************************************
' 01
on_click 0100,SCREENSHOW
on_click 0102,SCREENSHOW
on_click 0104,SCREENSHOW
on_click 0106,SCREENSHOW
' on_click 0108,SCREENSHOW :' Teilungsstrich im Untermenü
on_click 0110,SCREENSHOW :on_click 0112,SCREENSHOW :on_click 0114,SCREENSHOW
on_click 0116,SCREENSHOW :on_click 0118,SCREENSHOW :on_click 0120,SCREENSHOW
on_click 0122,SCREENSHOW :on_click 0124,SCREENSHOW :on_click 0126,SCREENSHOW
on_click 0128,SCREENSHOW :on_click 0130,SCREENSHOW :on_click 0132,SCREENSHOW
' on_click 0134,SCREENSHOW :' Teilungsstrich im Untermenü
on_click 0136,PROGRAMM_ENDE
' 02
on_click 0140,SCREENSHOW :on_click 0142,SCREENSHOW :on_click 0144,SCREENSHOW
on_click 0146,SCREENSHOW :on_click 0148,SCREENSHOW :on_click 0150,SCREENSHOW
on_click 0152,SCREENSHOW :on_click 0154,SCREENSHOW :on_click 0156,SCREENSHOW
on_click 0158,SCREENSHOW :on_click 0160,SCREENSHOW :on_click 0162,SCREENSHOW
on_click 0164,SCREENSHOW :on_click 0166,SCREENSHOW :on_click 0168,SCREENSHOW
on_click 0170,SCREENSHOW :on_click 0172,SCREENSHOW :on_click 0174,SCREENSHOW
on_click 0176,SCREENSHOW
' 03
on_click 0180,SCREENSHOW :on_click 0182,SCREENSHOW :on_click 0184,SCREENSHOW
on_click 0186,SCREENSHOW :on_click 0188,SCREENSHOW :on_click 0190,SCREENSHOW
on_click 0192,SCREENSHOW :on_click 0194,SCREENSHOW :on_click 0196,SCREENSHOW
on_click 0198,SCREENSHOW :on_click 0200,SCREENSHOW :on_click 0202,SCREENSHOW
on_click 0204,SCREENSHOW :on_click 0206,SCREENSHOW :on_click 0208,SCREENSHOW
on_click 0210,SCREENSHOW :on_click 0212,SCREENSHOW :on_click 0214,SCREENSHOW
on_click 0216,SCREENSHOW
' 04
on_click 0220,SCREENSHOW :on_click 0222,SCREENSHOW :on_click 0224,SCREENSHOW
on_click 0226,SCREENSHOW :on_click 0228,SCREENSHOW :on_click 0230,SCREENSHOW
on_click 0232,SCREENSHOW :on_click 0234,SCREENSHOW :on_click 0236,SCREENSHOW
on_click 0238,SCREENSHOW :on_click 0240,SCREENSHOW :on_click 0242,SCREENSHOW
on_click 0244,SCREENSHOW :on_click 0246,SCREENSHOW :on_click 0248,SCREENSHOW
on_click 0250,SCREENSHOW :on_click 0252,SCREENSHOW :on_click 0254,SCREENSHOW
on_click 0256,SCREENSHOW
' 05
on_click 0260,SCREENSHOW :on_click 0262,SCREENSHOW :on_click 0264,SCREENSHOW
on_click 0266,SCREENSHOW :on_click 0268,SCREENSHOW :on_click 0270,SCREENSHOW
on_click 0272,SCREENSHOW :on_click 0274,SCREENSHOW :on_click 0276,SCREENSHOW
on_click 0278,SCREENSHOW :on_click 0280,SCREENSHOW :on_click 0282,SCREENSHOW
on_click 0284,SCREENSHOW :on_click 0286,SCREENSHOW :on_click 0288,SCREENSHOW
on_click 0290,SCREENSHOW :on_click 0292,SCREENSHOW :on_click 0294,SCREENSHOW
on_click 0296,SCREENSHOW
' 06
on_click 0300,SCREENSHOW :on_click 0302,SCREENSHOW :on_click 0304,SCREENSHOW
on_click 0306,SCREENSHOW :on_click 0308,SCREENSHOW :on_click 0310,SCREENSHOW
on_click 0312,SCREENSHOW :on_click 0314,SCREENSHOW :on_click 0316,SCREENSHOW
on_click 0318,SCREENSHOW :on_click 0320,SCREENSHOW :on_click 0322,SCREENSHOW
on_click 0324,SCREENSHOW :on_click 0326,SCREENSHOW :on_click 0328,SCREENSHOW
on_click 0330,SCREENSHOW :on_click 0332,SCREENSHOW :on_click 0334,SCREENSHOW
on_click 0336,SCREENSHOW
' 07
on_click 0340,SCREENSHOW :on_click 0342,SCREENSHOW :on_click 0344,SCREENSHOW
on_click 0346,SCREENSHOW :on_click 0348,SCREENSHOW :on_click 0350,SCREENSHOW
on_click 0352,SCREENSHOW :on_click 0354,SCREENSHOW :on_click 0356,SCREENSHOW
on_click 0358,SCREENSHOW :on_click 0360,SCREENSHOW :on_click 0362,SCREENSHOW
on_click 0364,SCREENSHOW :on_click 0366,SCREENSHOW :on_click 0368,SCREENSHOW
on_click 0370,SCREENSHOW :on_click 0372,SCREENSHOW :on_click 0374,SCREENSHOW
on_click 0376,SCREENSHOW
' 08
on_click 0380,SCREENSHOW :on_click 0382,SCREENSHOW :on_click 0384,SCREENSHOW
on_click 0386,SCREENSHOW :on_click 0388,SCREENSHOW :on_click 0390,SCREENSHOW
on_click 0392,SCREENSHOW :on_click 0394,SCREENSHOW :on_click 0396,SCREENSHOW
on_click 0398,SCREENSHOW :on_click 0400,SCREENSHOW :on_click 0402,SCREENSHOW
on_click 0404,SCREENSHOW :on_click 0406,SCREENSHOW :on_click 0408,SCREENSHOW
on_click 0410,SCREENSHOW :on_click 0412,SCREENSHOW :on_click 0414,SCREENSHOW
on_click 0416,SCREENSHOW
' 09
on_click 0420,SCREENSHOW :on_click 0422,SCREENSHOW :on_click 0424,SCREENSHOW
on_click 0426,SCREENSHOW :on_click 0428,SCREENSHOW :on_click 0430,SCREENSHOW
on_click 0432,SCREENSHOW :on_click 0434,SCREENSHOW :on_click 0436,SCREENSHOW
on_click 0438,SCREENSHOW :on_click 0440,SCREENSHOW :on_click 0442,SCREENSHOW
on_click 0444,SCREENSHOW :on_click 0446,SCREENSHOW :on_click 0448,SCREENSHOW
on_click 0450,SCREENSHOW :on_click 0452,SCREENSHOW :on_click 0454,SCREENSHOW
on_click 0456,SCREENSHOW
' 10
on_click 0460,SCREENSHOW :on_click 0462,SCREENSHOW :on_click 0464,SCREENSHOW
on_click 0466,SCREENSHOW :on_click 0468,SCREENSHOW :on_click 0470,SCREENSHOW
on_click 0472,SCREENSHOW :on_click 0474,SCREENSHOW :on_click 0476,SCREENSHOW
on_click 0478,SCREENSHOW :on_click 0480,SCREENSHOW :on_click 0482,SCREENSHOW
on_click 0484,SCREENSHOW :on_click 0486,SCREENSHOW :on_click 0488,SCREENSHOW
on_click 0490,SCREENSHOW :on_click 0492,SCREENSHOW :on_click 0494,SCREENSHOW
on_click 0496,SCREENSHOW
' 11
on_click 0500,SCREENSHOW :on_click 0502,SCREENSHOW :on_click 0504,SCREENSHOW
on_click 0506,SCREENSHOW :on_click 0508,SCREENSHOW :on_click 0510,SCREENSHOW
on_click 0512,SCREENSHOW :on_click 0514,SCREENSHOW :on_click 0516,SCREENSHOW
on_click 0518,SCREENSHOW :on_click 0520,SCREENSHOW :on_click 0522,SCREENSHOW
on_click 0524,SCREENSHOW :on_click 0526,SCREENSHOW :on_click 0528,SCREENSHOW
on_click 0530,SCREENSHOW :on_click 0532,SCREENSHOW :on_click 0534,SCREENSHOW
on_click 0536,SCREENSHOW
' 12
on_click 0540,SCREENSHOW :on_click 0542,SCREENSHOW :on_click 0544,SCREENSHOW
on_click 0546,SCREENSHOW :on_click 0548,SCREENSHOW :on_click 0550,SCREENSHOW
on_click 0552,SCREENSHOW :on_click 0554,SCREENSHOW :on_click 0556,SCREENSHOW
on_click 0558,SCREENSHOW :on_click 0560,SCREENSHOW :on_click 0562,SCREENSHOW
on_click 0564,SCREENSHOW :on_click 0566,SCREENSHOW :on_click 0568,SCREENSHOW
on_click 0570,SCREENSHOW :on_click 0572,SCREENSHOW :on_click 0574,SCREENSHOW
on_click 0576,SCREENSHOW
' 13
on_click 0580,SCREENSHOW :on_click 0582,SCREENSHOW :on_click 0584,SCREENSHOW
on_click 0586,SCREENSHOW :on_click 0588,SCREENSHOW :on_click 0590,SCREENSHOW
on_click 0592,SCREENSHOW :on_click 0594,SCREENSHOW :on_click 0596,SCREENSHOW
on_click 0598,SCREENSHOW :on_click 0600,SCREENSHOW :on_click 0602,SCREENSHOW
on_click 0604,SCREENSHOW :on_click 0606,SCREENSHOW :on_click 0608,SCREENSHOW
on_click 0610,SCREENSHOW :on_click 0612,SCREENSHOW :on_click 0614,SCREENSHOW
on_click 0616,SCREENSHOW
' 14
on_click 0620,SCREENSHOW :on_click 0622,SCREENSHOW :on_click 0624,SCREENSHOW
on_click 0626,SCREENSHOW :on_click 0628,SCREENSHOW :on_click 0630,SCREENSHOW
on_click 0632,SCREENSHOW :on_click 0634,SCREENSHOW :on_click 0636,SCREENSHOW
on_click 0638,SCREENSHOW :on_click 0640,SCREENSHOW :on_click 0642,SCREENSHOW
on_click 0644,SCREENSHOW :on_click 0646,SCREENSHOW :on_click 0648,SCREENSHOW
on_click 0650,SCREENSHOW :on_click 0652,SCREENSHOW :on_click 0654,SCREENSHOW
on_click 0656,SCREENSHOW
' 15
on_click 0660,SCREENSHOW :on_click 0662,SCREENSHOW :on_click 0664,SCREENSHOW
on_click 0666,SCREENSHOW :on_click 0668,SCREENSHOW :on_click 0670,SCREENSHOW
on_click 0672,SCREENSHOW :on_click 0674,SCREENSHOW :on_click 0676,SCREENSHOW
on_click 0678,SCREENSHOW :on_click 0680,SCREENSHOW :on_click 0682,SCREENSHOW
on_click 0684,SCREENSHOW :on_click 0686,SCREENSHOW :on_click 0688,SCREENSHOW
on_click 0690,SCREENSHOW :on_click 0692,SCREENSHOW :on_click 0694,SCREENSHOW
on_click 0696,SCREENSHOW
' 16
on_click 0700,SCREENSHOW :on_click 0702,SCREENSHOW :on_click 0704,SCREENSHOW
on_click 0706,SCREENSHOW :on_click 0708,SCREENSHOW :on_click 0710,SCREENSHOW
on_click 0712,SCREENSHOW :on_click 0714,SCREENSHOW :on_click 0716,SCREENSHOW
on_click 0718,SCREENSHOW :on_click 0720,SCREENSHOW :on_click 0722,SCREENSHOW
on_click 0724,SCREENSHOW :on_click 0726,SCREENSHOW :on_click 0728,SCREENSHOW
on_click 0730,SCREENSHOW :on_click 0732,SCREENSHOW :on_click 0734,SCREENSHOW
on_click 0736,SCREENSHOW
' 17
on_click 0740,SCREEN7400 :on_click 0742,SCREEN7420 :on_click 0744,SCREEN7440
on_click 0746,SCREEN7460 :on_click 0748,SCREEN7480 :on_click 0750,SCREENSHOW
on_click 0752,SCREENSHOW :on_click 0754,SCREENSHOW :on_click 0756,SCREENSHOW
on_click 0758,SCREENSHOW :on_click 0760,SCREENSHOW :on_click 0762,SCREENSHOW
on_click 0764,SCREENSHOW :on_click 0766,SCREENSHOW :on_click 0768,SCREENSHOW
on_click 0770,SCREENSHOW :on_click 0772,SCREENSHOW :on_click 0774,SCREENSHOW
on_click 0776,SCREEN7760
' 18 inaktiv
' on_click 0780,SCREENSHOW :on_click 0782,SCREENSHOW :on_click 0784,SCREENSHOW
' on_click 0786,SCREENSHOW :on_click 0788,SCREENSHOW :on_click 0790,SCREENSHOW
' on_click 0792,SCREENSHOW :on_click 0794,SCREENSHOW :on_click 0796,SCREENSHOW
' on_click 0798,SCREENSHOW :on_click 0800,SCREENSHOW :on_click 0802,SCREENSHOW
' on_click 0804,SCREENSHOW :on_click 0806,SCREENSHOW :on_click 0808,SCREENSHOW
' on_click 0810,SCREENSHOW :on_click 0812,SCREENSHOW :on_click 0814,SCREENSHOW
' on_click 0816,SCREENSHOW
' 19
on_click 0820,SCREENSHOW :on_click 0822,SCREENSHOW :on_click 0824,SCREENSHOW
on_click 0826,SCREENSHOW :on_click 0828,SCREENSHOW :on_click 0830,SCREENSHOW
on_click 0832,SCREENSHOW :on_click 0834,SCREENSHOW :on_click 0836,SCREENSHOW
on_click 0838,SCREENSHOW :on_click 0840,SCREENSHOW :on_click 0842,SCREENSHOW
on_click 0844,SCREENSHOW :on_click 0846,SCREENSHOW :on_click 0848,SCREENSHOW
on_click 0850,SCREENSHOW :on_click 0852,SCREENSHOW :on_click 0854,SCREENSHOW
on_click 0856,SCREENSHOW
' 20*
on_click 0860,SCREENSHOW :on_click 0862,SCREENSHOW :on_click 0864,SCREENSHOW
on_click 0866,SCREENSHOW :on_click 0868,SCREENSHOW :on_click 0870,SCREENSHOW
on_click 0872,SCREENSHOW :on_click 0874,SCREENSHOW :on_click 0876,SCREENSHOW
on_click 0878,SCREENSHOW :on_click 0880,SCREENSHOW :on_click 0882,SCREENSHOW
on_click 0884,SCREENSHOW :on_click 0886,SCREENSHOW :on_click 0888,SCREENSHOW
on_click 0890,SCREENSHOW :on_click 0892,SCREENSHOW :on_click 0894,SCREENSHOW
on_click 0896,SCREENSHOW
end
' *** DATEN DER AUSGEWÄHLTEN FORM IN FUSSLEISTE ANZEIGEN ***********************
SCREENSHOW:
FORM_NUMMER% = number_click
FORM_NUMMER% = FORM_NUMMER% * 10
FONT_COLOR 0092,000,000,255
TEXT 0092," "+Str$(FORM_NUMMER%)
Menuetext$ = TEXT$(0092)
FONT_COLOR 0093,000,000,255
if number_click > 099 then Text 0093,TEXT_MENUE_00$(01,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 139 then Text 0093,TEXT_MENUE_00$(02,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 179 then Text 0093,TEXT_MENUE_00$(03,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 219 then Text 0093,TEXT_MENUE_00$(04,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 259 then Text 0093,TEXT_MENUE_00$(05,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 299 then Text 0093,TEXT_MENUE_00$(06,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 339 then Text 0093,TEXT_MENUE_00$(07,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 379 then Text 0093,TEXT_MENUE_00$(08,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 419 then Text 0093,TEXT_MENUE_00$(09,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 459 then Text 0093,TEXT_MENUE_00$(10,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 499 then Text 0093,TEXT_MENUE_00$(11,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 539 then Text 0093,TEXT_MENUE_00$(12,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 579 then Text 0093,TEXT_MENUE_00$(13,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 619 then Text 0093,TEXT_MENUE_00$(14,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 659 then Text 0093,TEXT_MENUE_00$(15,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 699 then Text 0093,TEXT_MENUE_00$(16,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 739 then Text 0093,TEXT_MENUE_00$(17,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
' if number_click > 779 then Text 0093,TEXT_MENUE_00$(18,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 819 then Text 0093,TEXT_MENUE_00$(19,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 859 then Text 0093,TEXT_MENUE_00$(20,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
RETURN
' *** ANZEIGE STARTDATEN DER FORM 0090 IN FUSSLEISTE ANZEIGEN ******************
SCREENSHOW1:
FONT_COLOR 0092,255,000,000
TEXT 0092," 0090 "
Menuetext$ = TEXT$(0092)
print Menuetext$
FONT_COLOR 0093,255,000,000
TEXT 0093,TITEL$(2,SPRACHE%)
Menuetext$ = TITEL$(2,SPRACHE%)
print Menuetext$
RETURN
' *** CLIENTARENA FÜR ALLE FORMEN **********************************************
CLIENTARENA:
IF FORM_NUMMER% = 7420 THEN GOSUB SCREEN7420
SHOW FORM_NUMMER%
COMMAND_TARGET_IS FORM_NUMMER%
print_target_is FORM_NUMMER%
TITEL$(3,1) = " Hier ist die CLIENTARENA "
TITEL$(3,2) = " Here is the CLIENTARENA "
TITEL$(3,3) = " Voici le CLIENTARENA "
print TITEL$(3,SPRACHE%)+" ",FORM_NUMMER%
end
' *** PROGRAMM BEENDEN *********************************************************
PROGRAMM_ENDE:
terminate
end
' *** Objekt anhängen **********************************************************
OBJEKT_AN:
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",PARENTNUMMER1%,PARENTNUMMER2%,1)
dll_off
RETURN
' *** Objekt abhängen **********************************************************
detacher:
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",hnd20%,ancien%,0)
dll_off
RETURN
' *** 7400 MENÜ ÄNDERN *********************************************************
SCREEN7400:
GOSUB SCREENSHOW
SHOW FORM_NUMMER%
COMMAND_TARGET_IS FORM_NUMMER%
print_target_is FORM_NUMMER%
color FORM_NUMMER%,000,255,000
' HIER Programm-Teil
' HIER Programm-Teil
' BUTTON ZURÜCK ERSTELLEN ******************************************************
'
GOSUB BUTTON_SCHLIESSEN
RETURN
FORM_SCHLIESSEN7400:
gosub SCREENSHOW1
gosub Menueschliessen
RETURN
end
' *** 7420 MENÜ ÄNDERN *********************************************************
SCREEN7420:
BUTTON_TOP% = (SCREEN_Y - 181) - 30
BUTTEN_LEFT% = (SCREEN_X - 16) - 160
BUTTEN_WIDTH% = 120
BUTTON_HEIGHT% = 20
GOSUB SCREENSHOW
SHOW FORM_NUMMER%
COMMAND_TARGET_IS FORM_NUMMER%
print_target_is FORM_NUMMER%
color FORM_NUMMER%,000,255,000
TITEL$(4,1) = " Spracheinstellung ändern "
TITEL$(4,2) = " Changing the language setting "
TITEL$(4,3) = " Modification du réglage de la langue "
TITEL$(5,1) = " Auswahl übernehmen und sichern "
TITEL$(5,2) = " Make selection and save "
TITEL$(5,3) = " Effectuer une sélection et économisez "
TITEL$(6,1) = " Abbrechen und Auswahl behalten "
TITEL$(6,2) = " Cancel selection and retain "
TITEL$(6,3) = " Annuler la sélection et retenir "
TITEL$(7,1) = " Folgende Auswahl wurde getroffen: "
TITEL$(7,2) = " The following selections were made: "
TITEL$(7,3) = " Les sélections suivantes ont été faites: "
TITEL$(8,1) = " deutsch "
TITEL$(8,2) = " english "
TITEL$(8,3) = " français "
TITEL$(9,1) = " Auswahl ändern "
TITEL$(9,2) = " selection change "
TITEL$(9,3) = " changement de sélection "
TITEL$(10,1) = " Zur Übernahme der Einstellung, neu starten "
TITEL$(10,2) = " To accept the settings, restart "
TITEL$(10,3) = " Pour accepter les paramètres, redémarrez "
ON_ERROR_GOTO SCREEN7438
ALPHA 7421:hide 7421
BUTTON 7422:hide 7422
BUTTON 7423:hide 7423
BUTTON 7424:hide 7424
BUTTON 7425:hide 7425
BUTTON 7426:hide 7426
ALPHA 7427:hide 7427
BUTTON 7428:hide 7428
BUTTON 7429:hide 7429
' *** TEXT AUF FORM -- Spracheinstellung ändern ********************************
' ALPHA 7421
TOP 7421,10
LEFT 7421,SCREEN_X/6 - 40
SCHRIFTART = 7421
GOSUB Schriftart12F
CAPTION 7421,TITEL$(4,SPRACHE%)
SHOW 7421
parent 7421,7420
' *** FLAGGE DEUTSCHLAND ERSTELLEN *** 128 x 128 BIT ***************************
' *** später durch Bild ersetzen
' BUTTON 7422
TOP 7422,54
LEFT 7422,SCREEN_X/6
WIDTH 7422,128
HEIGHT 7422,128
SCHRIFTART = 7422
GOSUB Schriftart12F
CAPTION 7422," deutsch "
' FILE_LOAD 7422,Speicherplatz_Bild01$
' STRETCH_ON 7422
SHOW 7422
parent 7422,7420
' *** FLAGGE ENGLAND ERSTELLEN *** 128 x 128 BIT *******************************
' *** später durch Bild ersetzen
' BUTTON 7423
TOP 7423,204
LEFT 7423,SCREEN_X/6
WIDTH 7423,128
HEIGHT 7423,128
SCHRIFTART = 7423
GOSUB Schriftart12F
CAPTION 7423," english "
' FILE_LOAD 7423,Speicherplatz_Bild01$
' STRETCH_ON 7423
SHOW 7423
parent 7423,7420
' *** FLAGGE FRANKREICH ERSTELLEN *** 128 x 128 BIT ****************************
' *** später durch Bild ersetzen
' BUTTON 7424
TOP 7424,354
LEFT 7424,SCREEN_X/6
WIDTH 7424,128
HEIGHT 7424,128
SCHRIFTART = 7424
GOSUB Schriftart12F
CAPTION 7424," français "
' FILE_LOAD 7424,Speicherplatz_Bild01$
' STRETCH_ON 7424
SHOW 7424
parent 7424,7420
' *** TEXT AUF FORM -- Folgende Auswahl wurde getroffen: ***********************
' ALPHA 7427
TOP 7427,10
LEFT 7427,SCREEN_X/2
SCHRIFTART = 7427
GOSUB Schriftart12F
CAPTION 7427,TITEL$(7,SPRACHE%)
SHOW 7427
parent 7427,7420
' *** TEXT AUF FORM -- Einstellung - deutsch ********************************
' BUTTON 7428
TOP 7428,104
LEFT 7428,SCREEN_X/2 + 86
WIDTH 7428,128
HEIGHT 7428,128
SCHRIFTART = 7428
GOSUB Schriftart12F
CAPTION 7428,TITEL$(8,SPRACHE%)
' FILE_LOAD 7428,Speicherplatz_Bild01$
' STRETCH_ON 7428
SHOW 7428
parent 7428,7420
inactive 7428
' *** TASTE ÄNDERN ERSTELLEN ** Auswahl übernehmen und sichern *****************
' BUTTON 7425
TOP 7425,344
LEFT 7425,SCREEN_X/2
WIDTH 7425,300
HEIGHT 7425,30
SCHRIFTART = 7425
GOSUB Schriftart11N
CAPTION 7425,TITEL$(5,SPRACHE%)
SHOW 7425
parent 7425,7420
' *** TASTE ABBRECHEN ERSTELLEN **Abbrechen und Auswahl behalten ***************
BUTTON_TOP% = 388
BUTTEN_LEFT% = SCREEN_X/2
BUTTEN_WIDTH% = 300
BUTTON_HEIGHT% = 30
' BUTTON 7426
TOP 7426,388
LEFT 7426,SCREEN_X/2
WIDTH 7426,300
HEIGHT 7426,30
SCHRIFTART = 7426
GOSUB Schriftart11N
CAPTION 7426,TITEL$(6,SPRACHE%)
SHOW 7426
parent 7426,7420
' *** TASTE ABBRECHEN ERSTELLEN ************************************************
' BUTTON 7429
TOP 7429,432
LEFT 7429,SCREEN_X/2
WIDTH 7429,300
HEIGHT 7429,30
SCHRIFTART = 7429
GOSUB Schriftart11N
CAPTION 7429,TITEL$(10,SPRACHE%)
SHOW 7429
parent 7429,7420
inactive 7429
' *** Einsprung wenn ERROR - Routine *******************************************
SCREEN7438:
OFF_ERROR_GOTO
SCREEN7436:
on_click 7422,SCREEN7437
on_click 7423,SCREEN7437
on_click 7424,SCREEN7437
on_click 7425,INIDATEI_WRITE
on_click 7426,SCREEN7439
end
' *** Ausgewählte FLAGGE anzeigenN *** 128 x 128 BIT ***************************
' *** später durch Bild ersetzen
SCREEN7437:
if number_click = 7422 then SPRACHE% = 1
if number_click = 7423 then SPRACHE% = 2
if number_click = 7424 then SPRACHE% = 3
ACTIVE 7428
CAPTION 7428,TITEL$(8,SPRACHE%)
' FILE_LOAD 7428,Speicherplatz_Bild01$
' STRETCH_ON 7428
SHOW 7428
CAPTION 7421,TITEL$(4,SPRACHE%)
SHOW 7421
CAPTION 7427,TITEL$(7,SPRACHE%)
SHOW 7427
CAPTION 7425,TITEL$(5,SPRACHE%)
SHOW 7425
CAPTION 7426,TITEL$(6,SPRACHE%)
SHOW 7426
RETURN
' *** RÜCKSPRUNG WENN SPRACHE NICHT VERÄNDERT **********************************
SCREEN7439:
' BUTTON ZURÜCK ERSTELLEN ******************************************************
INACTIVE 7422
INACTIVE 7423
INACTIVE 7424
GOSUB BUTTON_SCHLIESSEN
RETURN
FORM_SCHLIESSEN7420:
gosub SCREENSHOW1
gosub Menueschliessen
RETURN
END
' *** INI-Datei anlegen ===> lesen <=== ändern *********************************
INIDATEI_WRITE:
INI_WERT$ = STR$(SPRACHE%)
' Spracheinstellung in Datei INI0_Text.TXT schreiben ***************************
FILE_OPEN_WRITE 1,INI_DATEI_WERTE0$
FILE_WRITELN 1,INI_WERT$
FILE_CLOSE 1
' *** TASTE ABBRECHEN ERSTELLEN ************************************************
INACTIVE 7422
INACTIVE 7423
INACTIVE 7424
INACTIVE 7425
INACTIVE 7426
INACTIVE 7428
TITEL$(8,1) = " Zur Übernahme der Einstellung, neu starten "
TITEL$(8,2) = " To accept the settings, restart "
TITEL$(8,3) = " Pour accepter les paramètres, redémarrez "
ACTIVE 7429
CAPTION 7429,TITEL$(8,SPRACHE%)
SHOW 7429
on_click 7429,PROGRAMM_ENDE
end
' *** 7440 MENÜ ÄNDERN *********************************************************
SCREEN7440:
BUTTON_TOP% = (SCREEN_Y - 181) - 30
BUTTEN_LEFT% = (SCREEN_X - 16) - 160
BUTTEN_WIDTH% = 120
BUTTON_HEIGHT% = 20
GOSUB SCREENSHOW
SHOW FORM_NUMMER%
COMMAND_TARGET_IS FORM_NUMMER%
print_target_is FORM_NUMMER%
color FORM_NUMMER%,000,255,000
' HIER Programm-Teil
' HIER Programm-Teil
' BUTTON ZURÜCK ERSTELLEN ******************************************************
GOSUB BUTTON_SCHLIESSEN
RETURN
FORM_SCHLIESSEN7440:
gosub SCREENSHOW1
gosub Menueschliessen
RETURN
end
' *** 7460 MENÜ ÄNDERN *********************************************************
SCREEN7460:
BUTTON_TOP% = (SCREEN_Y - 181) - 30
BUTTEN_LEFT% = (SCREEN_X - 16) - 160
BUTTEN_WIDTH% = 120
BUTTON_HEIGHT% = 20
GOSUB SCREENSHOW
SHOW FORM_NUMMER%
COMMAND_TARGET_IS FORM_NUMMER%
print_target_is FORM_NUMMER%
color FORM_NUMMER%,000,255,000
' HIER Programm-Teil
' HIER Programm-Teil
' BUTTON ZURÜCK ERSTELLEN ******************************************************
GOSUB BUTTON_SCHLIESSEN
RETURN
FORM_SCHLIESSEN7460:
gosub SCREENSHOW1
gosub Menueschliessen
RETURN
end
' *** 7480 MENÜ ÄNDERN *********************************************************
SCREEN7480:
BUTTON_TOP% = (SCREEN_Y - 181) - 30
BUTTEN_LEFT% = (SCREEN_X - 16) - 160
BUTTEN_WIDTH% = 120
BUTTON_HEIGHT% = 20
GOSUB SCREENSHOW
SHOW FORM_NUMMER%
COMMAND_TARGET_IS FORM_NUMMER%
print_target_is FORM_NUMMER%
color FORM_NUMMER%,000,255,000
' HIER Programm-Teil
' HIER Programm-Teil
' BUTTON ZURÜCK ERSTELLEN ******************************************************
GOSUB BUTTON_SCHLIESSEN
RETURN
FORM_SCHLIESSEN7480:
gosub SCREENSHOW1
gosub Menueschliessen
RETURN
end
' *** 7760 MENÜ ÄNDERN *********************************************************
SCREEN7760:
GOSUB SCREENSHOW
SHOW FORM_NUMMER%
COMMAND_TARGET_IS FORM_NUMMER%
print_target_is FORM_NUMMER%
color FORM_NUMMER%,000,255,000
' HIER Programm-Teil
' HIER Programm-Teil
' BUTTON ZURÜCK ERSTELLEN ******************************************************
GOSUB BUTTON_SCHLIESSEN
RETURN
FORM_SCHLIESSEN7760:
gosub SCREENSHOW1
gosub Menueschliessen
RETURN
end
' ******************************************************************************
Menueschliessen:
active 0010
HIDE FORM_NUMMER%
COMMAND_TARGET_IS 0010
RETURN
' *** Unterprogramm EINEN BUTTON AUF ALLEN FORMEN ERSTELLEN ********************
BUTTON_SCHLIESSEN:
COMMAND_TARGET_IS FORM_NUMMER%
BUTTON_NR% = FORM_NUMMER% + 39
ON_ERROR_GOTO BUTTON_ERSTELLT
BUTTON BUTTON_NR%
BUTTON_ERSTELLT:
OFF_ERROR_GOTO
COMMAND_TARGET_IS FORM_NUMMER%
TITEL$(99,1) = " FORM SCHLIESSEN "
TITEL$(99,2) = " FORM CLOSE "
TITEL$(99,3) = " Forme proche "
TOP BUTTON_NR%,BUTTON_TOP%
LEFT BUTTON_NR%,BUTTEN_LEFT%
WIDTH BUTTON_NR%,BUTTEN_WIDTH%
HEIGHT BUTTON_NR%,BUTTON_HEIGHT%
SCHRIFTART = BUTTON_NR%
GOSUB Schriftart08N
CAPTION BUTTON_NR%,TITEL$(99,SPRACHE%)
hint BUTTON_NR%,TITEL$(99,SPRACHE%)
SHOW BUTTON_NR%
on_click BUTTON_NR%,BUTTON_WEITER
RETURN
end
' RÜCKSPRUNG AUF FORM NACH KLICK AUF BUTTON 1 **********************************
BUTTON_WEITER:
select FORM_NUMMER%
' ******************************************************************************
case 7400:GOTO FORM_SCHLIESSEN7400
case 7420:GOTO FORM_SCHLIESSEN7420
case 7440:GOTO FORM_SCHLIESSEN7440
case 7460:GOTO FORM_SCHLIESSEN7460
case 7480:GOTO FORM_SCHLIESSEN7480
case 7760:GOTO FORM_SCHLIESSEN7760
' ******************************************************************************
end_select
end
' SUBPROGRAMME FÜR SCHRIFTARTEN ************************************************
' *** SCHRIFTART Terminal GRÖSSE 08 Normal Schwarz
Schriftartsymbolschwarz:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,08
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
RETURN
' *** SCHRIFTART Terminal GRÖSSE 12 Normal Schwarz
Schriftartsymbolschwarz12:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,12
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
RETURN
' *** SCHRIFTART Terminal GRÖSSE 08 Normal Rot
Schriftartsymbolrot:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,08
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,255,0,0
RETURN
' *** SCHRIFTART Terminal GRÖSSE 12 Normal Rot
Schriftartsymbolrot12:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,12
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,255,0,0
RETURN
' *** SCHRIFTART ARIAL 08 Normal Schwarz
Schriftart08N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,08
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
RETURN
' *** SCHRIFTART Courier New GRÖSSE 09 Normal
Schriftart09N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,09
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
RETURN
' *** SCHRIFTART Courier New GRÖSSE 09 Normal Rot
Schriftart09NR:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,09
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,225,0,0
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 10 Normal
Schriftart10N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,10
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
RETURN
' *** SCHRIFTART ARIAL GRÖSSE 11 Normal Schwarz
Schriftart11N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,11
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
RETURN
' *** SCHRIFTART ARIAL GRÖSSE 11 Normal Rot
Schriftart11NR:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,11
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,255,0,0
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 12 Normal
Schriftart12N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,12
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 15 Normal
Schriftart15N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,15
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 20 Normal
Schriftart20N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,20
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 08 Fett
Schriftart08F:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,08
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 09 Fett
Schriftart09F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,09
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 10 Fett
Schriftart10F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,10
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 11 Fett
Schriftart11F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,11
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 12 Fett
Schriftart12F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,12
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 15 Fett
Schriftart15F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,15
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 20 Fett
Schriftart20F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,20
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 08 Fett Unterstrichen
Schriftart08FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,08
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 09 Fett Unterstrichen
Schriftart09FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,09
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 10 Fett Unterstrichen
Schriftart10FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,10
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 11 Fett Unterstrichen
Schriftart11FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,11
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 12 Fett Unterstrichen
Schriftart12FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,12
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 15 Fett Unterstrichen
Schriftart15FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,15
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 20 Fett Unterstrichen
Schriftart20FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,20
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
RETURN

Jetzt habe ich ein Verständnisproblem.

Wenn ich in meinem Programm eine Unterform aufrufe, finde ich den Weg zurück zum Hauptmenü.
Wenn ich eine weiter Unterform aufrufe, erscheint diese auch korrekt.
Wenn ich jetzt schließen will, gibt es Probleme.

Was muss ich tun, damit das fuktioniert.

Eventuell kann Klaus dolmetschen ?

Danke Severin

Traduction:

Maintenant, j'ai un problème de compréhension.

Si j'appelle une FORM dépendante dans mon programme, je retrouve le chemin vers le menu principal. Si j'appele une autre FDORM dépendante, celle-ci apparaît aussi, correctement.
Maintenant, si je veux fermer, il y a des problèmes.

Que dois-je faire pour que cela marche ?

Peut-être Klaus peut-il traduire ?

Merci Severin

Note: ci-fait :

@Severin:
Die Beschreibung ist nicht exact genug. Gib uns bitte ein REDUZIERTES Programm, auf das eigentliche Problem beschränkt, die Bedienungsweise, um den Fehler zu provozieren, sowie die genaue Fehlermeldung. Dann wirst Du eine konkrete technische Antwort erhalte,

Severin:
La description n'est pas sufisamment exacte. Donne-nous stp on programme REDUIT, restraint au problème concret, le mode d'emploi pour provoquer l'erreur ainsi que le message d'erreur exact. Alors, tu recevras une réponse technique concrète.

Gebt mir 15 Minuten, für die Beschreibung.
Severin

Weiter oben ist das Programm akuell. STAND 5.5.2012 15:00 UHR

Wenn ich im Menü "Optionen" anklicke, und dann AKTIV 1705 anKlicke, bin ich auf Form 1705.
Mit einem Klick auf "Form schliessen" wir die Form verlassen.
DAS IST NORMAL. (Diesen Weg hattest du mir mal beigebracht, danke)

Wenn ich im Menü "Optionen" anklicke, und dann AKTIV 1705 anKlicke, bin ich auf Form 1705.
wenn ich jetzt im Menü "Optionen, AKTIV 1704 anklicke, bin ich auf Form 1704.
Wenn ich jetzt auf "Form schliessen" klicke, keine Reaktion.
Also keine Rückkehr und kein Verlassen. Irgend wie verliere ich den Return.

Form 0010 ist die Mutter.
Form 7460 ist die Tochter von 0010.
Form 7480 ist die Tochter von 0010.

Insgesamt hat Mutter 0010, 19 X 19 Töchter.

Das wäre wichtig, da ich innerhalb eines Haupmenü z.B. "OPTION" über die noch
inaktive SCHALTLEISTE von Unterform zu Unterform wechseln möchte.

Jedes Hauptmenü ist ein anderes Kapitel. Deshalb reicht es im Untermenü eine
Verbindung herzustellen.

Ich hoffe diese Erklärung ist verständlich.

Vielen Dank an alle Helfer im Voraus.

Severin

Ich schaffe es einfach nicht, das Programm zu starten:
- viele labels nicht definiert
- was ist FORM.DLL ?

In solchen Fällen versuche ich immer, das Programm auf das Wesentliche zu reduzieren: lege eine Kopie des Programmes an, lösche alle nicht notwendigen Zeilen wie die vielen Optionen, Forms usw, lasse nur die zwei betroffenen Optionen und die zwei dazugehörigen Forms. Ich denke auch, nach Studium Deines Programms, dass die DLL-Aufrufe nicht notwendig sind, um Dein Problem einzukreisen. Also lösche sie auch. Das Ziel ist, ein kurzes und knappes Programm zu erstellen, dessen einzige Aufgabe es ist, auf den Fehler zuzusteuern. Dann kann man ihn genau festnageln und korrigieren.

Hallo Klaus das Programm besteht aus 2 Teilen.
FORM.DLL ist von Nardo und entfernt die drei Button oben rechts.
Severin

Hello Klaus, the program consists of 2 parts.
FORM.DLL Nardo is removed and the three button upper right.
Severin

Bonjour Klaus, le programme se compose de 2 parties.
FORM.DLL Nardo est retiré et le droit à trois boutons supérieure.
Severin

Ich möchte gern helfen. Aber die zwei Teile, die ich im Forum laden kann, passen offensichtlich nict zusammen, da mehrere Variablen und Labels nicht definiert sind. Es ist klar, dass zum Testen Deines Problem die DLL nicht notwendig ist, das Programm lässt sich aber trotzdem nicht starten.

Was hast Du an meinem voriegn Post nicht verstanden ? Es kann doch nicht so schwer sein, eine Kopie des Programms auf das Wesentliche zu reduzieren. Du kannst einfach keine geziehlte technische Hilfe erwarten mit einem Quellprogramm diesen Ausmasses.

Hallo Klaus,
Ich verstehe nicht warum es nicht läuft.
Ich habe es gerade aus dem Forum geladen.
läuft.

Es ist nicht so einfach eine abgespeckt Version zu erstellen.
Irgend wie werde ich das Problem durch Versuch und Irrtum lösen.

Was mir mehr Sorge bereitet ist das es bei dir nicht läuft.
Wie ist es bei den anderen Panoramics ?

Bitte, bitte, Rückmeldung !!!

Die DLL -- Form ist nicht nötig.
Die DLL -- LoadProgramm ist wichtig, sonst kann man die Formen verschieben.

Nochmal vielen Dank
Severin

Bonjour Klaus,
Je ne comprends pas pourquoi il ne fonctionne pas.
Je viens de télécharger à partir du forum.
est exécuté.

Ce n'est pas seulement une version allégée de créer.
D'une certaine manière, je suis le problème par essais et erreurs à résoudre.

Qu'est-ce qui m'inquiète, c'est plus avec vous qu'il ne fonctionne pas.
Comme il est avec les autres Panoramiques?

S'il vous plaît, s'il vous plaît, répondez!

La DLL - forme n'est pas nécessaire.
La DLL - Charger le programme est important, sinon vous pouvez déplacer les formes.

Merci encore
Severin

Hier eine korrigierte Version. Meine Änderungen sind mit ' Start Klaus une ' End Klaus gekennzeichnet. Das Problem ? Beim zweiten geöffneten Fenster wurde das erste Fenster "vergessen" und liess sich also nicht mehr schliessen. Lösung: alle geöffneten Fensternummern in einen Stack eiintragen, und beim Löschen rückwärts sich durch den Stack surückarbeiten bis zurück zue Form 10.

Erster Teil:

Code:: ' *** Eltern kind mit DLL nach klaus *******************************************
' *** MIT DLL LoadProgram ******************************************************
' *** Mit DLL FORM nach Nardo **************************************************
' *** Dank an Klaus und Nardo für "LoadProgram.dll und Form.dll" ***************
'
' ******************************************************************************
' *** INI-Datei prüfen ob angelegt *********************************************
'
LABEL INIDATEI_YES :LABEL INIDATEI_NO : LABEL INIDATEI_WRITE
LABEL STARTPROGRAMM
'
DIM INI_WERT$
DIM SPRACHE%
DIM INI_DIR_A$ :INI_DIR_A$ = "c:\"
DIM INI_DATEI_WERTE0$ :INI_DATEI_WERTE0$ = INI_DIR_A$ + "temp\INI0_Text.TXT"
' Start Klaus
DIM n_forms%, forms%(20), iklaus%, jklaus%
' End Klaus
'
if file_exists(INI_DATEI_WERTE0$) = 0 then goto INIDATEI_NO
if file_exists(INI_DATEI_WERTE0$) = 1 then goto INIDATEI_YES
' ***INI-DATEI NICHT ANGELEGT, SPRACHE IST DEUTSCH *****************************
INIDATEI_NO:
'
SPRACHE% = 1 :' deutsch
' SPRACHE% = 2 :' englisch
' SPRACHE% = 3 :' französisch
GOTO STARTPROGRAMM
' ***INI-DATEI ANGELEGT, SPRACHE aus INI-DATEI ÜBERNEHMEN **********************
INIDATEI_YES:
'
FILE_OPEN_READ 1,INI_DATEI_WERTE0$
FILE_READLN 1,INI_WERT$
FILE_CLOSE 1
'
SPRACHE% = VAL(INI_WERT$)
'
PRINT "gelesen ",SPRACHE%
PRINT DIR_A$
'
GOTO STARTPROGRAMM
' ******************************************************************************
STARTPROGRAMM:
' ******************************************************************************
DIM SCHRIFTART
' *** LABEL FÜR SCHRIFTEN ANLEGEN **********************************************
LABEL SCHRIFTARTSYMBOLschwarz :LABEL SCHRIFTARTSYMBOLrot
LABEL SCHRIFTARTSYMBOLschwarz12:LABEL SCHRIFTARTSYMBOLrot12
' *** ARIAL NORMAL *************************************************
LABEL SCHRIFTART08N:LABEL SCHRIFTART09N:LABEL SCHRIFTART10N:LABEL SCHRIFTART11N
LABEL SCHRIFTART12N:LABEL SCHRIFTART15N:LABEL SCHRIFTART20N
' *** ARIAL FETT *************************************************
LABEL SCHRIFTART08F:LABEL SCHRIFTART09F:LABEL SCHRIFTART10F:LABEL SCHRIFTART11F
LABEL SCHRIFTART12F:LABEL SCHRIFTART15F:LABEL Schriftart20F
' *** ARIAL FETT UNTERSTRICHEN *************************************************
LABEL SCHRIFTART08FU:LABEL SCHRIFTART09FU:LABEL SCHRIFTART10FU:LABEL SCHRIFTART11FU
LABEL SCHRIFTART12FU:LABEL SCHRIFTART15FU:LABEL Schriftart20FU
' *** ARIAL NORMAL ROT *************************************************
LABEL Schriftart09NR:LABEL Schriftart11NR
' ******************************************************************************
' *** VARIABLE FÜR OBJEKTE anhängen und OBJEKTE abhängen LoadProgram.DLL *******
LABEL OBJEKT_AN :' Objekt anhängen
LABEL detacher :' Objekt abhängen
'
DIM PARENTNUMMER1%
DIM PARENTNUMMER2%
DIM ancien%
' ******************************************************************************
' *** Variablen für Menue von Form 100, um Längen zuberechnen ******************
DIM LEERZEICHEN01%: DIM LEERLAENGE01%: DIM LEERZEICHEN02$: DIM LEERLAENGE02%
DIM LEERZEICHEN03$: DIM LEERLAENGE03%: DIM LEERZEICHEN04%: DIM LEERLAENGE04%
DIM LEERZEICHEN05%: DIM LEERLAENGE05%: DIM LEERZEICHEN06%: DIM LEERLAENGE06%
DIM LEERZEICHEN07%: DIM LEERLAENGE07%: DIM LEERZEICHEN08%: DIM LEERLAENGE08%
DIM LEERZEICHEN09%: DIM LEERLAENGE09%: DIM LEERZEICHEN10%: DIM LEERLAENGE10%
DIM LEERZEICHEN11%: DIM LEERLAENGE11%: DIM LEERZEICHEN12%: DIM LEERLAENGE12%
DIM LEERZEICHEN13%: DIM LEERLAENGE13%: DIM LEERZEICHEN14%: DIM LEERLAENGE14%
DIM LEERZEICHEN15%: DIM LEERLAENGE15%: DIM LEERZEICHEN16%: DIM LEERLAENGE16%
DIM LEERZEICHEN17%: DIM LEERLAENGE17%: DIM LEERZEICHEN18%: DIM LEERLAENGE18%
DIM LEERZEICHEN19%: DIM LEERLAENGE19%: DIM LEERZEICHEN20%: DIM LEERLAENGE20%
'
DIM LEERSUMME% :DIM LEERSUMME1% :DIM LEERSUMME2% :DIM LEERSUMME3%
DIM LEERSUMME4% :DIM LEERSUMME5% :DIM LEERSUMME6% :DIM LEERSUMME7%
DIM LEERSUMME8% :DIM LEERSUMME9%
'
DIM Menuetext$
' *** VARIABLE FÜR MENÜS ERSTELLEN *********************************************
DIM TEXT_MENUE_00$(20,3) :DIM i :DIM j
DIM TITEL$(99,3)
' **** DEUTSCH *********,**** ENGLISCH *****,**** FRANZÖSISCH ******************
DATA " DATEI " ," FILE " ," DOSSIER "
DATA " MENUE 02 " ," MENU 02 " ," MENU 02 "
DATA " MENUE 03 " ," MENU 03 " ," MENU 03 "
DATA " MENUE 04 " ," MENU 04 " ," MENU 04 "
DATA " MENUE 05 " ," MENU 05 " ," MENU 05 "
DATA " MENUE 06 " ," MENU 06 " ," MENU 06 "
DATA " MENUE 07 " ," MENU 07 " ," MENU 07 "
DATA " MENUE 08 " ," MENU 08 " ," MENU 08 "
DATA " MENUE 09 " ," MENU 09 " ," MENU 09 "
DATA " MENUE 10 " ," MENU 10 " ," MENU 10 "
DATA " MENUE 11 " ," MENU 11 " ," MENU 11 "
DATA " MENUE 12 " ," MENU 12 " ," MENU 12 "
DATA " MENUE 13 " ," MENU 13 " ," MENU 13 "
DATA " MENUE 14 " ," MENU 14 " ," MENU 14 "
DATA " MENUE 15 " ," MENU 15 " ," MENU 15 "
DATA " Test-MENUE 16 " ," Test-MENU 16 " ," Test-MENU 16 "
DATA " OPTIONEN " ," OPTIONS " ," OPTIONS "
DATA " " ," " ," "
DATA " HILFE " ," HELP " ," AID "
DATA " INFO " ," INFO " ," INFO "
'
FOR i = 1 TO 20
FOR j = 1 TO 3
read TEXT_MENUE_00$(i,j)
next j
next i
' *** VARIABLE FÜR UNTERMENÜS ERSTELLEN ****************************************
DIM TEXT_MENUE_01$(9000,3)
' **** DEUTSCH *********,**** ENGLISCH *****,**** FRANZÖSISCH ******************
' 01
DATA " Neu "," New "," Nouveau "
DATA " Öffnen ... "," Open ... "," Ouvert ... "
DATA " Speichern "," Save "," Sauver "
DATA " Speichern unter "," Save under "," Enregistrer sous"
DATA "====================","====================","===================="
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0107 "," SUB NENU 0107 "
DATA " UNTERMENUE 0108 "," SUB NENU 0108 "," SUB NENU 0108 "
DATA " UNTERMENUE 0109 "," SUB NENU 0109 "," SUB NENU 0109 "
DATA " UNTERMENUE 0110 "," SUB NENU 0110 "," SUB NENU 0110 "
DATA " UNTERMENUE 0111 "," SUB NENU 0111 "," SUB NENU 0111 "
DATA " UNTERMENUE 0112 "," SUB NENU 0112 "," SUB NENU 0112 "
DATA " UNTERMENUE 0113 "," SUB NENU 0113 "," SUB NENU 0113 "
DATA " UNTERMENUE 0114 "," SUB NENU 0114 "," SUB NENU 0114 "
DATA " UNTERMENUE 0115 "," SUB NENU 0115 "," SUB NENU 0115 "
DATA " UNTERMENUE 0116 "," SUB NENU 0116 "," SUB NENU 0116 "
DATA " UNTERMENUE 0117 "," SUB NENU 0117 "," SUB NENU 0117 "
DATA "====================","====================","===================="
DATA " QUIT "," QUIT "," QUIT "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 02
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 03
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 04
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 05
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 06
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 07
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 08
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 09
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 10
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 11
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 12
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 13
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 14
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 15
DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inktiv
' 16
DATA " TEST-U-Menü 1601 "," TEST-SUB MENU 1601 "," TEST-SUB MENU 1601 "
DATA " TEST-U-Menü 1602 "," TEST-SUB MENU 1602 "," TEST-SUB MENU 1602 "
DATA " TEST-U-Menü 1603 "," TEST-SUB MENU 1603 "," TEST-SUB MENU 1603 "
DATA " TEST-U-Menü 1604 "," TEST-SUB MENU 1604 "," TEST-SUB MENU 1604 "
DATA " TEST-U-Menü 1605 "," TEST-SUB MENU 1605 "," TEST-SUB MENU 1605 "
DATA " TEST-U-Menü 1606 "," TEST-SUB MENU 1606 "," TEST-SUB MENU 1606 "
DATA " TEST-U-Menü 1607 "," TEST-SUB MENU 1607 "," TEST-SUB MENU 1607 "
DATA " TEST-U-Menü 1608 "," TEST-SUB MENU 1608 "," TEST-SUB MENU 1608 "
DATA " TEST-U-Menü 1609 "," TEST-SUB MENU 1609 "," TEST-SUB MENU 1609 "
DATA " TEST-U-Menü 1610 "," TEST-SUB MENU 1610 "," TEST-SUB MENU 1610 "
DATA " TEST-U-Menü 1611 "," TEST-SUB MENU 1611 "," TEST-SUB MENU 1611 "
DATA " TEST-U-Menü 1612 "," TEST-SUB MENU 1612 "," TEST-SUB MENU 1612 "
DATA " TEST-U-Menü 1613 "," TEST-SUB MENU 1613 "," TEST-SUB MENU 1613 "
DATA " TEST-U-Menü 1614 "," TEST-SUB MENU 1614 "," TEST-SUB MENU 1614 "
DATA " TEST-U-Menü 1615 "," TEST-SUB MENU 1615 "," TEST-SUB MENU 1615 "
DATA " TEST-U-Menü 1616 "," TEST-SUB MENU 1616 "," TEST-SUB MENU 1616 "
DATA " TEST-U-Menü 1617 "," TEST-SUB MENU 1617 "," TEST-SUB MENU 1617 "
DATA " TEST-U-Menü 1618 "," TEST-SUB MENU 1618 "," TEST-SUB MENU 1618 "
DATA " TEST-U-Menü 1619 "," TEST-SUB MENU 1619 "," TEST-SUB MENU 1619 "
DATA " TEST-U-Menü 1620 "," TEST-SUB MENU 1620 "," TEST-SUB MENU 1620 ":' inktiv
' 17
DATA " Einstellungen "," Settings "," Paramètres "
DATA " Sprache einstellen "," Language set "," Langue fixé "
DATA " ACTIV 1703 "," ACTIV 1703 "," ACTIV 1703 "
DATA " ACTIV 1704 "," ACTIV 1704 "," ACTIV 1704 "
DATA " ACTIV 1705 "," ACTIV 1705 "," ACTIV 1705 "
DATA " UNTERMENUE 1706 "," SUB NENU 1706 "," SUB NENU 1706 "
DATA " UNTERMENUE 1707 "," SUB NENU 1707 "," SUB NENU 1707 "
DATA " UNTERMENUE 1708 "," SUB NENU 1708 "," SUB NENU 1708 "
DATA " UNTERMENUE 1709 "," SUB NENU 1709 "," SUB NENU 1709 "
DATA " UNTERMENUE 1710 "," SUB NENU 1710 "," SUB NENU 1710 "
DATA " UNTERMENUE 1711 "," SUB NENU 1711 "," SUB NENU 1711 "
DATA " UNTERMENUE 1712 "," SUB NENU 1712 "," SUB NENU 1712 "
DATA " UNTERMENUE 1713 "," SUB NENU 1713 "," SUB NENU 1713 "
DATA " UNTERMENUE 1714 "," SUB NENU 1714 "," SUB NENU 1714 "
DATA " UNTERMENUE 1715 "," SUB NENU 1715 "," SUB NENU 1715 "
DATA " UNTERMENUE 1716 "," SUB NENU 1716 "," SUB NENU 1716 "
DATA " UNTERMENUE 1717 "," SUB NENU 1717 "," SUB NENU 1717 "
DATA " UNTERMENUE 1718 "," SUB NENU 1718 "," SUB NENU 1718 "
DATA " Menü ändern "," Menu change "," changement Menu "
DATA " UNTERMENUE 1720 "," SUB NENU 1720 "," SUB NENU 1720 " :' inktiv
' 18
DATA " UNTERMENUE 1801 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1802 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1803 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1804 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1805 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1806 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1807 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1808 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1809 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1810 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1811 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1812 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1813 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1814 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1815 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1816 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1817 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1818 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1819 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
DATA " UNTERMENUE 1820 "," SUB NENU 1806 "," SUB NENU 1806 " :' inktiv
' 19
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 "
DATA " HILFE 01 " ," HELP 01 " ," AID 01 " :' inktiv
' 20
DATA " über Programm "," about Program "," sur le Programme"
DATA " über Computer "," about Computer "," sur l'ordinateur"
DATA " über Netzwerk "," about Network "," sur le réseau "
DATA " UNTERMENUE 2004 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2005 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2006 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2007 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2008 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2009 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2010 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2011 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2012 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2013 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2014 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2015 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2016 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2017 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2018 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2019 "," SUB NENU 2006 "," SUB NENU 2006 "
DATA " UNTERMENUE 2020 "," SUB NENU 2006 "," SUB NENU 2006 " :' inktiv
'
FOR i = 100 TO 898 STEP 2
FOR j = 1 TO 3 :read TEXT_MENUE_01$(i,j) :next j
next i
' ******************************************************************************
' *** Variable für alle Formen erstellen ***************************************
DIM Screen_Nr%
DIM Screen_Beginn%
DIM Screen_End%
DIM FORM_NUMMER%
' *** LABEL FÜR FORMEN ERSTELLEN ***********************************************
LABEL SCREENSHOW
LABEL SCREENSHOW1
LABEL PROGRAMM_ENDE
LABEL CLIENTARENA :' Hier werden die EINGABE getätigt
'
LABEL SCREEN7400:LABEL FORM_SCHLIESSEN7400
LABEL SCREEN7420:LABEL FORM_SCHLIESSEN7420:LABEL SCREEN7436:LABEL SCREEN7437:LABEL SCREEN7438:LABEL SCREEN7439
LABEL SCREEN7440:LABEL FORM_SCHLIESSEN7440
LABEL SCREEN7460:LABEL FORM_SCHLIESSEN7460
LABEL SCREEN7480:LABEL FORM_SCHLIESSEN7480
'
LABEL SCREEN7760:LABEL FORM_SCHLIESSEN7760
'
LABEL BUTTON_SCHLIESSEN
LABEL BUTTON_ERSTELLT
LABEL BUTTON_WEITER
LABEL Menueschliessen
' *** VARIABLE FÜR BUTTON -- FORM SCHLIESSEN ***********************************
DIM BUTTON_TOP%
DIM BUTTEN_LEFT%
DIM BUTTEN_WIDTH%
DIM BUTTON_HEIGHT%
DIM BUTTON_NR%
'
BUTTON_TOP% = (SCREEN_Y - 181) - 30
BUTTEN_LEFT% = (SCREEN_X - 16) - 160
BUTTEN_WIDTH% = 120
BUTTON_HEIGHT% = 20
' *** VARIABLE für Dateien *****************************************************
DIM Datei_Name$
'
' *** VARIABLEN FORM 000 EIGENSCHAFTEN FÜR FORM.DLL ERSTELLEN ******************
DIM FORM_BUTTON_Off13 :' =dll_call1("SetCLOSEOff",handle(0)) Schließen deaktiviert
DIM FORM_BUTTON_Off14 :' =DLL_CALL2("SetMaximize",HANDLE(0),0)Vergrößern deaktiviert
DIM FORM_BUTTON_Off15 :' =DLL_CALL2("SetMinimize",HANDLE(0),0)Verkleinern deaktiviert
' *** FORM 0000 GRUNDFORM ERSTELLEN ********************************************
' dll_on "form.dll"
' FORM_BUTTON_Off13=dll_call1("SetCloseOff",handle(0))
' FORM_BUTTON_Off14=DLL_CALL2("SetMaximize",HANDLE(0),0)
' FORM_BUTTON_Off15=DLL_CALL2("SetMinimize",HANDLE(0),0)
' dll_off
'
TITEL$(1,1) = " Multimomentstudien erstellen und auswerten "
TITEL$(1,2) = " Work sampling studies, and generate and evaluate "
TITEL$(1,3) = " Les travaux d'études d'échantillonnage, et de générer et d'évaluer "
' FORM 0000
TOP 0000,0
LEFT 0000,0
WIDTH 0000,SCREEN_X
HEIGHT 0000,SCREEN_Y-44
COLOR 0000,000,000,000
CAPTION 0000,TITEL$(1,SPRACHE%)
PARENTNUMMER2% = handle(0000) :' Grundform auf der alle Formen fixiert sind
' *** FORM 0090 ERSTELLEN ---> FUSSLEISTE **************************************
COMMAND_TARGET_IS 0000
FORM 0090
TOP 0090,SCREEN_Y-101
LEFT 0090,2
WIDTH 0090,SCREEN_X-12
HEIGHT 0090,28
COLOR 0090,231,238,240
BORDER_HIDE 0090
PARENTNUMMER1% = handle(0090)
GOSUB OBJEKT_AN
COMMAND_TARGET_IS 0090
' *** später durch Bild ersetzen
BUTTON 0091
TOP 0091,3
LEFT 0091,2
WIDTH 0091,22
HEIGHT 0091,22
CAPTION 0091,"ICON"
' FILE_LOAD 0091,Speicherplatz_Bild01$
' STRETCH_ON 0091
' SHOW 0091
edit 0092
TOP 0092,4
LEFT 0092,28
WIDTH 0092,40
HEIGHT 0092,24
FONT_COLOR 0092,255,000,000
TEXT 0092," 0090 "
Menuetext$ = TEXT$(0092)
print Menuetext$
'
edit 0093
TOP 0093,4
LEFT 0093,74
WIDTH 0093,370
HEIGHT 0093,24
'
TITEL$(2,1) = " Willkommen im Programm - Multimomentstudien "
TITEL$(2,2) = " Welcome to the program - work sampling studies "
TITEL$(2,3) = " Bienvenue dans le programme - les études d'échantillonnage de travail "
'
FONT_COLOR 0093,255,000,000
TEXT 0093,TITEL$(2,SPRACHE%)
Menuetext$ = TITEL$(2,SPRACHE%)
print Menuetext$
' *** FORM 0010 ERSTELLEN ---> Menüleiste **************************************
COMMAND_TARGET_IS 0000
FORM 0010
TOP 0010,2
LEFT 0010,2
WIDTH 0010,SCREEN_X-12
HEIGHT 0010,SCREEN_Y-106
COLOR 0010,000,000,000
BORDER_HIDE 0010
PARENTNUMMER1% = handle(0010)
GOSUB OBJEKT_AN
COMMAND_TARGET_IS 0010
' *** Hauptmenü erstellen ******************************************************
main_menu 0001
' *** Berechnung von Länge des Leermenue 18 ************************************
LEERLAENGE01% = TEXT_WIDTH(TEXT_MENUE_00$(01,SPRACHE%),0010)+8
LEERLAENGE02% = TEXT_WIDTH(TEXT_MENUE_00$(02,SPRACHE%),0010)+8
LEERLAENGE03% = TEXT_WIDTH(TEXT_MENUE_00$(03,SPRACHE%),0010)+8
LEERLAENGE04% = TEXT_WIDTH(TEXT_MENUE_00$(04,SPRACHE%),0010)+8
LEERLAENGE05% = TEXT_WIDTH(TEXT_MENUE_00$(05,SPRACHE%),0010)+8
LEERLAENGE06% = TEXT_WIDTH(TEXT_MENUE_00$(06,SPRACHE%),0010)+8
LEERLAENGE07% = TEXT_WIDTH(TEXT_MENUE_00$(07,SPRACHE%),0010)+8
LEERLAENGE08% = TEXT_WIDTH(TEXT_MENUE_00$(08,SPRACHE%),0010)+8
LEERLAENGE09% = TEXT_WIDTH(TEXT_MENUE_00$(09,SPRACHE%),0010)+8
LEERLAENGE10% = TEXT_WIDTH(TEXT_MENUE_00$(10,SPRACHE%),0010)+8
LEERLAENGE11% = TEXT_WIDTH(TEXT_MENUE_00$(11,SPRACHE%),0010)+8
LEERLAENGE12% = TEXT_WIDTH(TEXT_MENUE_00$(12,SPRACHE%),0010)+8
LEERLAENGE13% = TEXT_WIDTH(TEXT_MENUE_00$(13,SPRACHE%),0010)+8
LEERLAENGE14% = TEXT_WIDTH(TEXT_MENUE_00$(14,SPRACHE%),0010)+8
LEERLAENGE15% = TEXT_WIDTH(TEXT_MENUE_00$(15,SPRACHE%),0010)+8
LEERLAENGE16% = TEXT_WIDTH(TEXT_MENUE_00$(16,SPRACHE%),0010)+8
LEERLAENGE17% = TEXT_WIDTH(TEXT_MENUE_00$(17,SPRACHE%),0010)+8
LEERLAENGE18% = TEXT_WIDTH(TEXT_MENUE_00$(18,SPRACHE%),0010)+8
LEERLAENGE19% = TEXT_WIDTH(TEXT_MENUE_00$(19,SPRACHE%),0010)+8
LEERLAENGE20% = TEXT_WIDTH(TEXT_MENUE_00$(20,SPRACHE%),0010)+8
'
LEERSUMME1% = LEERLAENGE01% + LEERLAENGE02% + LEERLAENGE03%
LEERSUMME2% = LEERLAENGE04% + LEERLAENGE05% + LEERLAENGE06%
LEERSUMME3% = LEERLAENGE07% + LEERLAENGE08% + LEERLAENGE09%
LEERSUMME4% = LEERLAENGE10% + LEERLAENGE11% + LEERLAENGE12%
LEERSUMME5% = LEERLAENGE13% + LEERLAENGE14% + LEERLAENGE15%
LEERSUMME6% = LEERLAENGE16% + LEERLAENGE17%
LEERSUMME7% = LEERLAENGE19% + LEERLAENGE20%
'
LEERSUMME8% = LEERSUMME1% + LEERSUMME2% + LEERSUMME3% + LEERSUMME4%
LEERSUMME9% = LEERSUMME5% + LEERSUMME6% + LEERSUMME7%
LEERSUMME% = LEERSUMME8% + LEERSUMME9%
'
LEERLAENGE18% = SCREEN_X - 00 - LEERSUMME% -0 :' ???? 12
TEXT_MENUE_00$(18,SPRACHE%) = STRING$(INT(LEERLAENGE18%/7),CHR$(32))
' *** ERSTELLEN DES HAUPTMENÜ 9001 bis 9020 ************************************
sub_menu 9001:CAPTION 9001,TEXT_MENUE_00$(01,SPRACHE%):parent 9001,0001
sub_menu 9002:CAPTION 9002,TEXT_MENUE_00$(02,SPRACHE%):parent 9002,0001
sub_menu 9003:CAPTION 9003,TEXT_MENUE_00$(03,SPRACHE%):parent 9003,0001
sub_menu 9004:CAPTION 9004,TEXT_MENUE_00$(04,SPRACHE%):parent 9004,0001
sub_menu 9005:CAPTION 9005,TEXT_MENUE_00$(05,SPRACHE%):parent 9005,0001
sub_menu 9006:CAPTION 9006,TEXT_MENUE_00$(06,SPRACHE%):parent 9006,0001
sub_menu 9007:CAPTION 9007,TEXT_MENUE_00$(07,SPRACHE%):parent 9007,0001
sub_menu 9008:CAPTION 9008,TEXT_MENUE_00$(08,SPRACHE%):parent 9008,0001
sub_menu 9009:CAPTION 9009,TEXT_MENUE_00$(09,SPRACHE%):parent 9009,0001
sub_menu 9010:CAPTION 9010,TEXT_MENUE_00$(10,SPRACHE%):parent 9010,0001
sub_menu 9011:CAPTION 9011,TEXT_MENUE_00$(11,SPRACHE%):parent 9011,0001
sub_menu 9012:CAPTION 9012,TEXT_MENUE_00$(12,SPRACHE%):parent 9012,0001
sub_menu 9013:CAPTION 9013,TEXT_MENUE_00$(13,SPRACHE%):parent 9013,0001
sub_menu 9014:CAPTION 9014,TEXT_MENUE_00$(14,SPRACHE%):parent 9014,0001
sub_menu 9015:CAPTION 9015,TEXT_MENUE_00$(15,SPRACHE%):parent 9015,0001
sub_menu 9016:CAPTION 9016,TEXT_MENUE_00$(16,SPRACHE%):parent 9016,0001
sub_menu 9017:CAPTION 9017,TEXT_MENUE_00$(17,SPRACHE%):parent 9017,0001
sub_menu 9018:CAPTION 9018,TEXT_MENUE_00$(18,SPRACHE%):parent 9018,0001
sub_menu 9019:CAPTION 9019,TEXT_MENUE_00$(19,SPRACHE%):parent 9019,0001
sub_menu 9020:CAPTION 9020,TEXT_MENUE_00$(20,SPRACHE%):parent 9020,0001
inactive 9018
' *** Hauptmenue 1000 --- ERSTELLEN UNTERMENÜ 1001 bis 1019 *******************
FOR i = 100 TO 136 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9001:next i
inactive 108:inactive 134
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 140 TO 176 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9002:next i
' *** Hauptmenue 3000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 180 TO 216 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9003:next i
' *** Hauptmenue 4000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 220 TO 256 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9004:next i
' *** Hauptmenue 5000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 260 TO 296 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9005:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 300 TO 336 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9006:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 340 TO 376 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9007:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 380 TO 416 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9008:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 420 TO 456 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9009:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 460 TO 496 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9010:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 500 TO 536 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9011:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 540 TO 576 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9012:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 580 TO 616 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9013:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 620 TO 656 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9014:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 660 TO 696 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9015:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 700 TO 736 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9016:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 740 TO 776 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9017:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
' FOR i = 780 TO 816 STEP 2
' sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9018:' next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 820 TO 856 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9019:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ 2001 bis 2019 *******************
FOR i = 860 TO 896 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9020:next i
' *** FORM 0020 ERSTELLEN ---> Schaltflächenleiste *****************************
COMMAND_TARGET_IS 0010
FORM 0020
TOP 0020,1
LEFT 0020,0
WIDTH 0020,SCREEN_X-12
HEIGHT 0020,50
COLOR 0020,229,229,229
BORDER_HIDE 0020
PARENTNUMMER2% = handle(0010) :' Grundform auf der alle Formen fixiert sind
PARENTNUMMER1% = handle(0020)
GOSUB OBJEKT_AN
' *** BILDER AUF FORM 0020 ANZEIGEN ********************************************
COMMAND_TARGET_IS 0020
' *** später durch Bild ersetzen
BUTTON 0011 :' HIDE 101
TOP 0011,2 : REM HÖHE FENSTER
LEFT 0011,2 : REM BREITE FENSTER
WIDTH 0011,22 : REM ......BREITE 1680
HEIGHT 0011,22 : REM ......HÖHE 1050
CAPTION 0011,"|<--"
' FILE_LOAD 0011,Speicherplatz_Bild01$
' STRETCH_ON 0011 : REM
' SHOW 0011 : REM
' *** später durch Bild ersetzen
BUTTON 0012
TOP 0012,26
LEFT 0012,2
WIDTH 0012,22
HEIGHT 0012,22
CAPTION 0012,"-->"
' FILE_LOAD 0012,Speicherplatz_Bild01$
' STRETCH_ON 0012 : REM
' SHOW 0012 : REM
' *** später durch Bild ersetzen
BUTTON 0015 :' HIDE 101
TOP 0015,2 : REM HÖHE FENSTER
LEFT 0015,26 : REM BREITE FENSTER
WIDTH 0015,22 : REM ......BREITE 1680
HEIGHT 0015,22 : REM ......HÖHE 1050
CAPTION 0015,"<--"
' FILE_LOAD 0015,Speicherplatz_Bild01$
' STRETCH_ON 0015 : REM
' SHOW 0015 : REM
' *** später durch Bild ersetzen
BUTTON 0016 :' HIDE 101
TOP 0016,26 : REM HÖHE FENSTER
LEFT 0016,26 : REM BREITE FENSTER
WIDTH 0016,22 : REM ......BREITE 1680
HEIGHT 0016,22 : REM ......HÖHE 1050
CAPTION 0016,"-->|"
' FILE_LOAD 0016,Speicherplatz_Bild01$
' STRETCH_ON 0016 : REM
' SHOW 0016 : REM
' *** HILE ICON ERSTELLEN ******************************************************
' *** später durch Bild ersetzen
BUTTON 0080 :' HIDE 101
TOP 0080,4 : REM HÖHE FENSTER
LEFT 0080,SCREEN_X-110 : REM BREITE FENSTER
WIDTH 0080,44 : REM ......BREITE 1680
HEIGHT 0080,44 : REM ......HÖHE 1050
CAPTION 0080," HELP "
' FILE_LOAD 0080,Speicherplatz_Bild01$
' STRETCH_ON 0080 : REM
' SHOW 0080 : REM
parent 0080,0020
' *** INFO ICON ERSTELLEN ******************************************************
' *** später durch Bild ersetzen
BUTTON 0085 :' HIDE 101
TOP 0085,4 : REM HÖHE FENSTER
LEFT 0085,SCREEN_X-60 : REM BREITE FENSTER
WIDTH 0085,44 : REM ......BREITE 1680
HEIGHT 0085,44 : REM ......HÖHE 1050
CAPTION 0085," LOGO "
' FILE_LOAD 0085,Speicherplatz_Bild01$
' STRETCH_ON 0085 : REM
' SHOW 0085 : REM
parent 0085,0020
' Programm-Trennung, kann gelöscht werden
' Program separation, can be deleted
' Programme de séparation, peut être supprimé

Zweiter Teil:

Code:: ' Programm-Trennung, kann gelöscht werden
' Program separation, can be deleted
' Programme de séparation, peut être supprimé
' *** Alle FORMEN ERSTELLEN ---> CLIENTARENA ***********************************
COMMAND_TARGET_IS 0000
Screen_Beginn% = 1000 :Screen_End% = 8980
FOR Screen_Nr% = Screen_Beginn% TO Screen_End% step 20
FORM Screen_Nr%
' *** FORMEN VERSTECKEN
HIDE Screen_Nr%
TOP Screen_Nr%,55
LEFT Screen_Nr%,2
WIDTH Screen_Nr%,SCREEN_X-16
HEIGHT Screen_Nr%,SCREEN_Y-181
COLOR Screen_Nr%,229,229,229
BORDER_HIDE Screen_Nr%
PARENTNUMMER1% = handle(Screen_Nr%)
GOSUB OBJEKT_AN
Next Screen_Nr%
' *** FORM 0095 ERSTELLEN ---> StartForm START *********************************
COMMAND_TARGET_IS 0010
FORM 0095
TOP 0095,54
LEFT 0095,0
WIDTH 0095,SCREEN_X-12
HEIGHT 0095,SCREEN_Y-169
COLOR 0095,000,000,000
BORDER_HIDE 0095
PARENTNUMMER2% = handle(0010)
PARENTNUMMER1% = handle(0095)
GOSUB OBJEKT_AN
' CLICK AUF MENÜ FORM 0010 *****************************************************
' 01
on_click 0100,SCREENSHOW
on_click 0102,SCREENSHOW
on_click 0104,SCREENSHOW
on_click 0106,SCREENSHOW
' on_click 0108,SCREENSHOW :' Teilungsstrich im Untermenü
on_click 0110,SCREENSHOW :on_click 0112,SCREENSHOW :on_click 0114,SCREENSHOW
on_click 0116,SCREENSHOW :on_click 0118,SCREENSHOW :on_click 0120,SCREENSHOW
on_click 0122,SCREENSHOW :on_click 0124,SCREENSHOW :on_click 0126,SCREENSHOW
on_click 0128,SCREENSHOW :on_click 0130,SCREENSHOW :on_click 0132,SCREENSHOW
' on_click 0134,SCREENSHOW :' Teilungsstrich im Untermenü
on_click 0136,PROGRAMM_ENDE
' 02
on_click 0140,SCREENSHOW :on_click 0142,SCREENSHOW :on_click 0144,SCREENSHOW
on_click 0146,SCREENSHOW :on_click 0148,SCREENSHOW :on_click 0150,SCREENSHOW
on_click 0152,SCREENSHOW :on_click 0154,SCREENSHOW :on_click 0156,SCREENSHOW
on_click 0158,SCREENSHOW :on_click 0160,SCREENSHOW :on_click 0162,SCREENSHOW
on_click 0164,SCREENSHOW :on_click 0166,SCREENSHOW :on_click 0168,SCREENSHOW
on_click 0170,SCREENSHOW :on_click 0172,SCREENSHOW :on_click 0174,SCREENSHOW
on_click 0176,SCREENSHOW
' 03
on_click 0180,SCREENSHOW :on_click 0182,SCREENSHOW :on_click 0184,SCREENSHOW
on_click 0186,SCREENSHOW :on_click 0188,SCREENSHOW :on_click 0190,SCREENSHOW
on_click 0192,SCREENSHOW :on_click 0194,SCREENSHOW :on_click 0196,SCREENSHOW
on_click 0198,SCREENSHOW :on_click 0200,SCREENSHOW :on_click 0202,SCREENSHOW
on_click 0204,SCREENSHOW :on_click 0206,SCREENSHOW :on_click 0208,SCREENSHOW
on_click 0210,SCREENSHOW :on_click 0212,SCREENSHOW :on_click 0214,SCREENSHOW
on_click 0216,SCREENSHOW
' 04
on_click 0220,SCREENSHOW :on_click 0222,SCREENSHOW :on_click 0224,SCREENSHOW
on_click 0226,SCREENSHOW :on_click 0228,SCREENSHOW :on_click 0230,SCREENSHOW
on_click 0232,SCREENSHOW :on_click 0234,SCREENSHOW :on_click 0236,SCREENSHOW
on_click 0238,SCREENSHOW :on_click 0240,SCREENSHOW :on_click 0242,SCREENSHOW
on_click 0244,SCREENSHOW :on_click 0246,SCREENSHOW :on_click 0248,SCREENSHOW
on_click 0250,SCREENSHOW :on_click 0252,SCREENSHOW :on_click 0254,SCREENSHOW
on_click 0256,SCREENSHOW
' 05
on_click 0260,SCREENSHOW :on_click 0262,SCREENSHOW :on_click 0264,SCREENSHOW
on_click 0266,SCREENSHOW :on_click 0268,SCREENSHOW :on_click 0270,SCREENSHOW
on_click 0272,SCREENSHOW :on_click 0274,SCREENSHOW :on_click 0276,SCREENSHOW
on_click 0278,SCREENSHOW :on_click 0280,SCREENSHOW :on_click 0282,SCREENSHOW
on_click 0284,SCREENSHOW :on_click 0286,SCREENSHOW :on_click 0288,SCREENSHOW
on_click 0290,SCREENSHOW :on_click 0292,SCREENSHOW :on_click 0294,SCREENSHOW
on_click 0296,SCREENSHOW
' 06
on_click 0300,SCREENSHOW :on_click 0302,SCREENSHOW :on_click 0304,SCREENSHOW
on_click 0306,SCREENSHOW :on_click 0308,SCREENSHOW :on_click 0310,SCREENSHOW
on_click 0312,SCREENSHOW :on_click 0314,SCREENSHOW :on_click 0316,SCREENSHOW
on_click 0318,SCREENSHOW :on_click 0320,SCREENSHOW :on_click 0322,SCREENSHOW
on_click 0324,SCREENSHOW :on_click 0326,SCREENSHOW :on_click 0328,SCREENSHOW
on_click 0330,SCREENSHOW :on_click 0332,SCREENSHOW :on_click 0334,SCREENSHOW
on_click 0336,SCREENSHOW
' 07
on_click 0340,SCREENSHOW :on_click 0342,SCREENSHOW :on_click 0344,SCREENSHOW
on_click 0346,SCREENSHOW :on_click 0348,SCREENSHOW :on_click 0350,SCREENSHOW
on_click 0352,SCREENSHOW :on_click 0354,SCREENSHOW :on_click 0356,SCREENSHOW
on_click 0358,SCREENSHOW :on_click 0360,SCREENSHOW :on_click 0362,SCREENSHOW
on_click 0364,SCREENSHOW :on_click 0366,SCREENSHOW :on_click 0368,SCREENSHOW
on_click 0370,SCREENSHOW :on_click 0372,SCREENSHOW :on_click 0374,SCREENSHOW
on_click 0376,SCREENSHOW
' 08
on_click 0380,SCREENSHOW :on_click 0382,SCREENSHOW :on_click 0384,SCREENSHOW
on_click 0386,SCREENSHOW :on_click 0388,SCREENSHOW :on_click 0390,SCREENSHOW
on_click 0392,SCREENSHOW :on_click 0394,SCREENSHOW :on_click 0396,SCREENSHOW
on_click 0398,SCREENSHOW :on_click 0400,SCREENSHOW :on_click 0402,SCREENSHOW
on_click 0404,SCREENSHOW :on_click 0406,SCREENSHOW :on_click 0408,SCREENSHOW
on_click 0410,SCREENSHOW :on_click 0412,SCREENSHOW :on_click 0414,SCREENSHOW
on_click 0416,SCREENSHOW
' 09
on_click 0420,SCREENSHOW :on_click 0422,SCREENSHOW :on_click 0424,SCREENSHOW
on_click 0426,SCREENSHOW :on_click 0428,SCREENSHOW :on_click 0430,SCREENSHOW
on_click 0432,SCREENSHOW :on_click 0434,SCREENSHOW :on_click 0436,SCREENSHOW
on_click 0438,SCREENSHOW :on_click 0440,SCREENSHOW :on_click 0442,SCREENSHOW
on_click 0444,SCREENSHOW :on_click 0446,SCREENSHOW :on_click 0448,SCREENSHOW
on_click 0450,SCREENSHOW :on_click 0452,SCREENSHOW :on_click 0454,SCREENSHOW
on_click 0456,SCREENSHOW
' 10
on_click 0460,SCREENSHOW :on_click 0462,SCREENSHOW :on_click 0464,SCREENSHOW
on_click 0466,SCREENSHOW :on_click 0468,SCREENSHOW :on_click 0470,SCREENSHOW
on_click 0472,SCREENSHOW :on_click 0474,SCREENSHOW :on_click 0476,SCREENSHOW
on_click 0478,SCREENSHOW :on_click 0480,SCREENSHOW :on_click 0482,SCREENSHOW
on_click 0484,SCREENSHOW :on_click 0486,SCREENSHOW :on_click 0488,SCREENSHOW
on_click 0490,SCREENSHOW :on_click 0492,SCREENSHOW :on_click 0494,SCREENSHOW
on_click 0496,SCREENSHOW
' 11
on_click 0500,SCREENSHOW :on_click 0502,SCREENSHOW :on_click 0504,SCREENSHOW
on_click 0506,SCREENSHOW :on_click 0508,SCREENSHOW :on_click 0510,SCREENSHOW
on_click 0512,SCREENSHOW :on_click 0514,SCREENSHOW :on_click 0516,SCREENSHOW
on_click 0518,SCREENSHOW :on_click 0520,SCREENSHOW :on_click 0522,SCREENSHOW
on_click 0524,SCREENSHOW :on_click 0526,SCREENSHOW :on_click 0528,SCREENSHOW
on_click 0530,SCREENSHOW :on_click 0532,SCREENSHOW :on_click 0534,SCREENSHOW
on_click 0536,SCREENSHOW
' 12
on_click 0540,SCREENSHOW :on_click 0542,SCREENSHOW :on_click 0544,SCREENSHOW
on_click 0546,SCREENSHOW :on_click 0548,SCREENSHOW :on_click 0550,SCREENSHOW
on_click 0552,SCREENSHOW :on_click 0554,SCREENSHOW :on_click 0556,SCREENSHOW
on_click 0558,SCREENSHOW :on_click 0560,SCREENSHOW :on_click 0562,SCREENSHOW
on_click 0564,SCREENSHOW :on_click 0566,SCREENSHOW :on_click 0568,SCREENSHOW
on_click 0570,SCREENSHOW :on_click 0572,SCREENSHOW :on_click 0574,SCREENSHOW
on_click 0576,SCREENSHOW
' 13
on_click 0580,SCREENSHOW :on_click 0582,SCREENSHOW :on_click 0584,SCREENSHOW
on_click 0586,SCREENSHOW :on_click 0588,SCREENSHOW :on_click 0590,SCREENSHOW
on_click 0592,SCREENSHOW :on_click 0594,SCREENSHOW :on_click 0596,SCREENSHOW
on_click 0598,SCREENSHOW :on_click 0600,SCREENSHOW :on_click 0602,SCREENSHOW
on_click 0604,SCREENSHOW :on_click 0606,SCREENSHOW :on_click 0608,SCREENSHOW
on_click 0610,SCREENSHOW :on_click 0612,SCREENSHOW :on_click 0614,SCREENSHOW
on_click 0616,SCREENSHOW
' 14
on_click 0620,SCREENSHOW :on_click 0622,SCREENSHOW :on_click 0624,SCREENSHOW
on_click 0626,SCREENSHOW :on_click 0628,SCREENSHOW :on_click 0630,SCREENSHOW
on_click 0632,SCREENSHOW :on_click 0634,SCREENSHOW :on_click 0636,SCREENSHOW
on_click 0638,SCREENSHOW :on_click 0640,SCREENSHOW :on_click 0642,SCREENSHOW
on_click 0644,SCREENSHOW :on_click 0646,SCREENSHOW :on_click 0648,SCREENSHOW
on_click 0650,SCREENSHOW :on_click 0652,SCREENSHOW :on_click 0654,SCREENSHOW
on_click 0656,SCREENSHOW
' 15
on_click 0660,SCREENSHOW :on_click 0662,SCREENSHOW :on_click 0664,SCREENSHOW
on_click 0666,SCREENSHOW :on_click 0668,SCREENSHOW :on_click 0670,SCREENSHOW
on_click 0672,SCREENSHOW :on_click 0674,SCREENSHOW :on_click 0676,SCREENSHOW
on_click 0678,SCREENSHOW :on_click 0680,SCREENSHOW :on_click 0682,SCREENSHOW
on_click 0684,SCREENSHOW :on_click 0686,SCREENSHOW :on_click 0688,SCREENSHOW
on_click 0690,SCREENSHOW :on_click 0692,SCREENSHOW :on_click 0694,SCREENSHOW
on_click 0696,SCREENSHOW
' 16
on_click 0700,SCREENSHOW :on_click 0702,SCREENSHOW :on_click 0704,SCREENSHOW
on_click 0706,SCREENSHOW :on_click 0708,SCREENSHOW :on_click 0710,SCREENSHOW
on_click 0712,SCREENSHOW :on_click 0714,SCREENSHOW :on_click 0716,SCREENSHOW
on_click 0718,SCREENSHOW :on_click 0720,SCREENSHOW :on_click 0722,SCREENSHOW
on_click 0724,SCREENSHOW :on_click 0726,SCREENSHOW :on_click 0728,SCREENSHOW
on_click 0730,SCREENSHOW :on_click 0732,SCREENSHOW :on_click 0734,SCREENSHOW
on_click 0736,SCREENSHOW
' 17
on_click 0740,SCREEN7400 :on_click 0742,SCREEN7420 :on_click 0744,SCREEN7440
on_click 0746,SCREEN7460 :on_click 0748,SCREEN7480 :on_click 0750,SCREENSHOW
on_click 0752,SCREENSHOW :on_click 0754,SCREENSHOW :on_click 0756,SCREENSHOW
on_click 0758,SCREENSHOW :on_click 0760,SCREENSHOW :on_click 0762,SCREENSHOW
on_click 0764,SCREENSHOW :on_click 0766,SCREENSHOW :on_click 0768,SCREENSHOW
on_click 0770,SCREENSHOW :on_click 0772,SCREENSHOW :on_click 0774,SCREENSHOW
on_click 0776,SCREEN7760
' 18 inaktiv
' on_click 0780,SCREENSHOW :on_click 0782,SCREENSHOW :on_click 0784,SCREENSHOW
' on_click 0786,SCREENSHOW :on_click 0788,SCREENSHOW :on_click 0790,SCREENSHOW
' on_click 0792,SCREENSHOW :on_click 0794,SCREENSHOW :on_click 0796,SCREENSHOW
' on_click 0798,SCREENSHOW :on_click 0800,SCREENSHOW :on_click 0802,SCREENSHOW
' on_click 0804,SCREENSHOW :on_click 0806,SCREENSHOW :on_click 0808,SCREENSHOW
' on_click 0810,SCREENSHOW :on_click 0812,SCREENSHOW :on_click 0814,SCREENSHOW
' on_click 0816,SCREENSHOW
' 19
on_click 0820,SCREENSHOW :on_click 0822,SCREENSHOW :on_click 0824,SCREENSHOW
on_click 0826,SCREENSHOW :on_click 0828,SCREENSHOW :on_click 0830,SCREENSHOW
on_click 0832,SCREENSHOW :on_click 0834,SCREENSHOW :on_click 0836,SCREENSHOW
on_click 0838,SCREENSHOW :on_click 0840,SCREENSHOW :on_click 0842,SCREENSHOW
on_click 0844,SCREENSHOW :on_click 0846,SCREENSHOW :on_click 0848,SCREENSHOW
on_click 0850,SCREENSHOW :on_click 0852,SCREENSHOW :on_click 0854,SCREENSHOW
on_click 0856,SCREENSHOW
' 20*
on_click 0860,SCREENSHOW :on_click 0862,SCREENSHOW :on_click 0864,SCREENSHOW
on_click 0866,SCREENSHOW :on_click 0868,SCREENSHOW :on_click 0870,SCREENSHOW
on_click 0872,SCREENSHOW :on_click 0874,SCREENSHOW :on_click 0876,SCREENSHOW
on_click 0878,SCREENSHOW :on_click 0880,SCREENSHOW :on_click 0882,SCREENSHOW
on_click 0884,SCREENSHOW :on_click 0886,SCREENSHOW :on_click 0888,SCREENSHOW
on_click 0890,SCREENSHOW :on_click 0892,SCREENSHOW :on_click 0894,SCREENSHOW
on_click 0896,SCREENSHOW
end
' *** DATEN DER AUSGEWÄHLTEN FORM IN FUSSLEISTE ANZEIGEN ***********************
SCREENSHOW:
FORM_NUMMER% = number_click
FORM_NUMMER% = FORM_NUMMER% * 10
' Start Klaus
jklaus% = 1
if n_forms%>0
for iklaus%=1 to n_forms%
if forms%(iklaus%)=form_nummer%
jklaus% = 0
exit_for
end_if
next iklaus%
end_if
if jklaus%=1
n_forms% = n_forms% + 1
forms%(n_forms%) = form_nummer%
end_if
' End Klaus
FONT_COLOR 0092,000,000,255
TEXT 0092," "+Str$(FORM_NUMMER%)
Menuetext$ = TEXT$(0092)
FONT_COLOR 0093,000,000,255
if number_click > 099 then Text 0093,TEXT_MENUE_00$(01,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 139 then Text 0093,TEXT_MENUE_00$(02,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 179 then Text 0093,TEXT_MENUE_00$(03,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 219 then Text 0093,TEXT_MENUE_00$(04,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 259 then Text 0093,TEXT_MENUE_00$(05,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 299 then Text 0093,TEXT_MENUE_00$(06,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 339 then Text 0093,TEXT_MENUE_00$(07,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 379 then Text 0093,TEXT_MENUE_00$(08,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 419 then Text 0093,TEXT_MENUE_00$(09,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 459 then Text 0093,TEXT_MENUE_00$(10,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 499 then Text 0093,TEXT_MENUE_00$(11,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 539 then Text 0093,TEXT_MENUE_00$(12,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 579 then Text 0093,TEXT_MENUE_00$(13,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 619 then Text 0093,TEXT_MENUE_00$(14,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 659 then Text 0093,TEXT_MENUE_00$(15,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 699 then Text 0093,TEXT_MENUE_00$(16,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 739 then Text 0093,TEXT_MENUE_00$(17,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
' if number_click > 779 then Text 0093,TEXT_MENUE_00$(18,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 819 then Text 0093,TEXT_MENUE_00$(19,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 859 then Text 0093,TEXT_MENUE_00$(20,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
RETURN
' *** ANZEIGE STARTDATEN DER FORM 0090 IN FUSSLEISTE ANZEIGEN ******************
SCREENSHOW1:
FONT_COLOR 0092,255,000,000
TEXT 0092," 0090 "
Menuetext$ = TEXT$(0092)
print Menuetext$
FONT_COLOR 0093,255,000,000
TEXT 0093,TITEL$(2,SPRACHE%)
Menuetext$ = TITEL$(2,SPRACHE%)
print Menuetext$
RETURN
' *** CLIENTARENA FÜR ALLE FORMEN **********************************************
CLIENTARENA:
IF FORM_NUMMER% = 7420 THEN GOSUB SCREEN7420
SHOW FORM_NUMMER%
COMMAND_TARGET_IS FORM_NUMMER%
print_target_is FORM_NUMMER%
TITEL$(3,1) = " Hier ist die CLIENTARENA "
TITEL$(3,2) = " Here is the CLIENTARENA "
TITEL$(3,3) = " Voici le CLIENTARENA "
print TITEL$(3,SPRACHE%)+" ",FORM_NUMMER%
end
' *** PROGRAMM BEENDEN *********************************************************
PROGRAMM_ENDE:
terminate
end
' *** Objekt anhängen **********************************************************
OBJEKT_AN:
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",PARENTNUMMER1%,PARENTNUMMER2%,1)
dll_off
RETURN
' *** Objekt abhängen **********************************************************
detacher:
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",hnd20%,ancien%,0)
dll_off
RETURN
' *** 7400 MENÜ ÄNDERN *********************************************************
SCREEN7400:
GOSUB SCREENSHOW
SHOW FORM_NUMMER%
COMMAND_TARGET_IS FORM_NUMMER%
print_target_is FORM_NUMMER%
color FORM_NUMMER%,000,255,000
' HIER Programm-Teil
' HIER Programm-Teil
' BUTTON ZURÜCK ERSTELLEN ******************************************************
'
GOSUB BUTTON_SCHLIESSEN
RETURN
FORM_SCHLIESSEN7400:
gosub SCREENSHOW1
gosub Menueschliessen
RETURN
end
' *** 7420 MENÜ ÄNDERN *********************************************************
SCREEN7420:
BUTTON_TOP% = (SCREEN_Y - 181) - 30
BUTTEN_LEFT% = (SCREEN_X - 16) - 160
BUTTEN_WIDTH% = 120
BUTTON_HEIGHT% = 20
GOSUB SCREENSHOW
SHOW FORM_NUMMER%
COMMAND_TARGET_IS FORM_NUMMER%
print_target_is FORM_NUMMER%
color FORM_NUMMER%,000,255,000
TITEL$(4,1) = " Spracheinstellung ändern "
TITEL$(4,2) = " Changing the language setting "
TITEL$(4,3) = " Modification du réglage de la langue "
TITEL$(5,1) = " Auswahl übernehmen und sichern "
TITEL$(5,2) = " Make selection and save "
TITEL$(5,3) = " Effectuer une sélection et économisez "
TITEL$(6,1) = " Abbrechen und Auswahl behalten "
TITEL$(6,2) = " Cancel selection and retain "
TITEL$(6,3) = " Annuler la sélection et retenir "
TITEL$(7,1) = " Folgende Auswahl wurde getroffen: "
TITEL$(7,2) = " The following selections were made: "
TITEL$(7,3) = " Les sélections suivantes ont été faites: "
TITEL$(8,1) = " deutsch "
TITEL$(8,2) = " english "
TITEL$(8,3) = " français "
TITEL$(9,1) = " Auswahl ändern "
TITEL$(9,2) = " selection change "
TITEL$(9,3) = " changement de sélection "
TITEL$(10,1) = " Zur Übernahme der Einstellung, neu starten "
TITEL$(10,2) = " To accept the settings, restart "
TITEL$(10,3) = " Pour accepter les paramètres, redémarrez "
ON_ERROR_GOTO SCREEN7438
ALPHA 7421:hide 7421
BUTTON 7422:hide 7422
BUTTON 7423:hide 7423
BUTTON 7424:hide 7424
BUTTON 7425:hide 7425
BUTTON 7426:hide 7426
ALPHA 7427:hide 7427
BUTTON 7428:hide 7428
BUTTON 7429:hide 7429
' *** TEXT AUF FORM -- Spracheinstellung ändern ********************************
' ALPHA 7421
TOP 7421,10
LEFT 7421,SCREEN_X/6 - 40
SCHRIFTART = 7421
GOSUB Schriftart12F
CAPTION 7421,TITEL$(4,SPRACHE%)
SHOW 7421
parent 7421,7420
' *** FLAGGE DEUTSCHLAND ERSTELLEN *** 128 x 128 BIT ***************************
' *** später durch Bild ersetzen
' BUTTON 7422
TOP 7422,54
LEFT 7422,SCREEN_X/6
WIDTH 7422,128
HEIGHT 7422,128
SCHRIFTART = 7422
GOSUB Schriftart12F
CAPTION 7422," deutsch "
' FILE_LOAD 7422,Speicherplatz_Bild01$
' STRETCH_ON 7422
SHOW 7422
parent 7422,7420
' *** FLAGGE ENGLAND ERSTELLEN *** 128 x 128 BIT *******************************
' *** später durch Bild ersetzen
' BUTTON 7423
TOP 7423,204
LEFT 7423,SCREEN_X/6
WIDTH 7423,128
HEIGHT 7423,128
SCHRIFTART = 7423
GOSUB Schriftart12F
CAPTION 7423," english "
' FILE_LOAD 7423,Speicherplatz_Bild01$
' STRETCH_ON 7423
SHOW 7423
parent 7423,7420
' *** FLAGGE FRANKREICH ERSTELLEN *** 128 x 128 BIT ****************************
' *** später durch Bild ersetzen
' BUTTON 7424
TOP 7424,354
LEFT 7424,SCREEN_X/6
WIDTH 7424,128
HEIGHT 7424,128
SCHRIFTART = 7424
GOSUB Schriftart12F
CAPTION 7424," français "
' FILE_LOAD 7424,Speicherplatz_Bild01$
' STRETCH_ON 7424
SHOW 7424
parent 7424,7420
' *** TEXT AUF FORM -- Folgende Auswahl wurde getroffen: ***********************
' ALPHA 7427
TOP 7427,10
LEFT 7427,SCREEN_X/2
SCHRIFTART = 7427
GOSUB Schriftart12F
CAPTION 7427,TITEL$(7,SPRACHE%)
SHOW 7427
parent 7427,7420
' *** TEXT AUF FORM -- Einstellung - deutsch ********************************
' BUTTON 7428
TOP 7428,104
LEFT 7428,SCREEN_X/2 + 86
WIDTH 7428,128
HEIGHT 7428,128
SCHRIFTART = 7428
GOSUB Schriftart12F
CAPTION 7428,TITEL$(8,SPRACHE%)
' FILE_LOAD 7428,Speicherplatz_Bild01$
' STRETCH_ON 7428
SHOW 7428
parent 7428,7420
inactive 7428
' *** TASTE ÄNDERN ERSTELLEN ** Auswahl übernehmen und sichern *****************
' BUTTON 7425
TOP 7425,344
LEFT 7425,SCREEN_X/2
WIDTH 7425,300
HEIGHT 7425,30
SCHRIFTART = 7425
GOSUB Schriftart11N
CAPTION 7425,TITEL$(5,SPRACHE%)
SHOW 7425
parent 7425,7420
' *** TASTE ABBRECHEN ERSTELLEN **Abbrechen und Auswahl behalten ***************
BUTTON_TOP% = 388
BUTTEN_LEFT% = SCREEN_X/2
BUTTEN_WIDTH% = 300
BUTTON_HEIGHT% = 30
' BUTTON 7426
TOP 7426,388
LEFT 7426,SCREEN_X/2
WIDTH 7426,300
HEIGHT 7426,30
SCHRIFTART = 7426
GOSUB Schriftart11N
CAPTION 7426,TITEL$(6,SPRACHE%)
SHOW 7426
parent 7426,7420
' *** TASTE ABBRECHEN ERSTELLEN ************************************************
' BUTTON 7429
TOP 7429,432
LEFT 7429,SCREEN_X/2
WIDTH 7429,300
HEIGHT 7429,30
SCHRIFTART = 7429
GOSUB Schriftart11N
CAPTION 7429,TITEL$(10,SPRACHE%)
SHOW 7429
parent 7429,7420
inactive 7429
' *** Einsprung wenn ERROR - Routine *******************************************
SCREEN7438:
OFF_ERROR_GOTO
SCREEN7436:
on_click 7422,SCREEN7437
on_click 7423,SCREEN7437
on_click 7424,SCREEN7437
on_click 7425,INIDATEI_WRITE
on_click 7426,SCREEN7439
end
' *** Ausgewählte FLAGGE anzeigenN *** 128 x 128 BIT ***************************
' *** später durch Bild ersetzen
SCREEN7437:
if number_click = 7422 then SPRACHE% = 1
if number_click = 7423 then SPRACHE% = 2
if number_click = 7424 then SPRACHE% = 3
ACTIVE 7428
CAPTION 7428,TITEL$(8,SPRACHE%)
' FILE_LOAD 7428,Speicherplatz_Bild01$
' STRETCH_ON 7428
SHOW 7428
CAPTION 7421,TITEL$(4,SPRACHE%)
SHOW 7421
CAPTION 7427,TITEL$(7,SPRACHE%)
SHOW 7427
CAPTION 7425,TITEL$(5,SPRACHE%)
SHOW 7425
CAPTION 7426,TITEL$(6,SPRACHE%)
SHOW 7426
RETURN
' *** RÜCKSPRUNG WENN SPRACHE NICHT VERÄNDERT **********************************
SCREEN7439:
' BUTTON ZURÜCK ERSTELLEN ******************************************************
INACTIVE 7422
INACTIVE 7423
INACTIVE 7424
GOSUB BUTTON_SCHLIESSEN
RETURN
FORM_SCHLIESSEN7420:
gosub SCREENSHOW1
gosub Menueschliessen
RETURN
END
' *** INI-Datei anlegen ===> lesen <=== ändern *********************************
INIDATEI_WRITE:
INI_WERT$ = STR$(SPRACHE%)
' Spracheinstellung in Datei INI0_Text.TXT schreiben ***************************
FILE_OPEN_WRITE 1,INI_DATEI_WERTE0$
FILE_WRITELN 1,INI_WERT$
FILE_CLOSE 1
' *** TASTE ABBRECHEN ERSTELLEN ************************************************
INACTIVE 7422
INACTIVE 7423
INACTIVE 7424
INACTIVE 7425
INACTIVE 7426
INACTIVE 7428
TITEL$(8,1) = " Zur Übernahme der Einstellung, neu starten "
TITEL$(8,2) = " To accept the settings, restart "
TITEL$(8,3) = " Pour accepter les paramètres, redémarrez "
ACTIVE 7429
CAPTION 7429,TITEL$(8,SPRACHE%)
SHOW 7429
on_click 7429,PROGRAMM_ENDE
end
' *** 7440 MENÜ ÄNDERN *********************************************************
SCREEN7440:
BUTTON_TOP% = (SCREEN_Y - 181) - 30
BUTTEN_LEFT% = (SCREEN_X - 16) - 160
BUTTEN_WIDTH% = 120
BUTTON_HEIGHT% = 20
GOSUB SCREENSHOW
SHOW FORM_NUMMER%
COMMAND_TARGET_IS FORM_NUMMER%
print_target_is FORM_NUMMER%
color FORM_NUMMER%,000,255,000
' HIER Programm-Teil
' HIER Programm-Teil
' BUTTON ZURÜCK ERSTELLEN ******************************************************
GOSUB BUTTON_SCHLIESSEN
RETURN
FORM_SCHLIESSEN7440:
gosub SCREENSHOW1
gosub Menueschliessen
RETURN
end
' *** 7460 MENÜ ÄNDERN *********************************************************
SCREEN7460:
BUTTON_TOP% = (SCREEN_Y - 181) - 30
BUTTEN_LEFT% = (SCREEN_X - 16) - 160
BUTTEN_WIDTH% = 120
BUTTON_HEIGHT% = 20
GOSUB SCREENSHOW
SHOW FORM_NUMMER%
COMMAND_TARGET_IS FORM_NUMMER%
print_target_is FORM_NUMMER%
color FORM_NUMMER%,000,255,000
' HIER Programm-Teil
' HIER Programm-Teil
' BUTTON ZURÜCK ERSTELLEN ******************************************************
GOSUB BUTTON_SCHLIESSEN
RETURN
FORM_SCHLIESSEN7460:
gosub SCREENSHOW1
gosub Menueschliessen
RETURN
end
' *** 7480 MENÜ ÄNDERN *********************************************************
SCREEN7480:
BUTTON_TOP% = (SCREEN_Y - 181) - 30
BUTTEN_LEFT% = (SCREEN_X - 16) - 160
BUTTEN_WIDTH% = 120
BUTTON_HEIGHT% = 20
GOSUB SCREENSHOW
SHOW FORM_NUMMER%
COMMAND_TARGET_IS FORM_NUMMER%
print_target_is FORM_NUMMER%
color FORM_NUMMER%,000,255,000
' HIER Programm-Teil
' HIER Programm-Teil
' BUTTON ZURÜCK ERSTELLEN ******************************************************
GOSUB BUTTON_SCHLIESSEN
RETURN
FORM_SCHLIESSEN7480:
gosub SCREENSHOW1
gosub Menueschliessen
RETURN
end
' *** 7760 MENÜ ÄNDERN *********************************************************
SCREEN7760:
GOSUB SCREENSHOW
SHOW FORM_NUMMER%
COMMAND_TARGET_IS FORM_NUMMER%
print_target_is FORM_NUMMER%
color FORM_NUMMER%,000,255,000
' HIER Programm-Teil
' HIER Programm-Teil
' BUTTON ZURÜCK ERSTELLEN ******************************************************
GOSUB BUTTON_SCHLIESSEN
RETURN
FORM_SCHLIESSEN7760:
gosub SCREENSHOW1
gosub Menueschliessen
RETURN
end
' ******************************************************************************
Menueschliessen:
' Start Klaus
if n_forms%>0
HIDE FORM_NUMMER%
n_forms% = n_forms% - 1
if n_forms%>0
form_nummer% = forms%(n_forms%)
command_target_is form_nummer%
show form_nummer%
else
active 0010
HIDE FORM_NUMMER%
COMMAND_TARGET_IS 0010
end_if
end_if
' End Klaus
' active 0010
' HIDE FORM_NUMMER%
' COMMAND_TARGET_IS 0010
RETURN
' *** Unterprogramm EINEN BUTTON AUF ALLEN FORMEN ERSTELLEN ********************
BUTTON_SCHLIESSEN:
COMMAND_TARGET_IS FORM_NUMMER%
BUTTON_NR% = FORM_NUMMER% + 39
ON_ERROR_GOTO BUTTON_ERSTELLT
BUTTON BUTTON_NR%
BUTTON_ERSTELLT:
OFF_ERROR_GOTO
COMMAND_TARGET_IS FORM_NUMMER%
TITEL$(99,1) = " FORM SCHLIESSEN "
TITEL$(99,2) = " FORM CLOSE "
TITEL$(99,3) = " Forme proche "
TOP BUTTON_NR%,BUTTON_TOP%
LEFT BUTTON_NR%,BUTTEN_LEFT%
WIDTH BUTTON_NR%,BUTTEN_WIDTH%
HEIGHT BUTTON_NR%,BUTTON_HEIGHT%
SCHRIFTART = BUTTON_NR%
GOSUB Schriftart08N
CAPTION BUTTON_NR%,TITEL$(99,SPRACHE%)
hint BUTTON_NR%,TITEL$(99,SPRACHE%)
SHOW BUTTON_NR%
on_click BUTTON_NR%,BUTTON_WEITER
RETURN
end
' RÜCKSPRUNG AUF FORM NACH KLICK AUF BUTTON 1 **********************************
BUTTON_WEITER:
select FORM_NUMMER%
' ******************************************************************************
case 7400:GOTO FORM_SCHLIESSEN7400
case 7420:GOTO FORM_SCHLIESSEN7420
case 7440:GOTO FORM_SCHLIESSEN7440
case 7460:GOTO FORM_SCHLIESSEN7460
case 7480:GOTO FORM_SCHLIESSEN7480
case 7760:GOTO FORM_SCHLIESSEN7760
' ******************************************************************************
end_select
end
' SUBPROGRAMME FÜR SCHRIFTARTEN ************************************************
' *** SCHRIFTART Terminal GRÖSSE 08 Normal Schwarz
Schriftartsymbolschwarz:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,08
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
RETURN
' *** SCHRIFTART Terminal GRÖSSE 12 Normal Schwarz
Schriftartsymbolschwarz12:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,12
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
RETURN
' *** SCHRIFTART Terminal GRÖSSE 08 Normal Rot
Schriftartsymbolrot:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,08
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,255,0,0
RETURN
' *** SCHRIFTART Terminal GRÖSSE 12 Normal Rot
Schriftartsymbolrot12:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,12
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,255,0,0
RETURN
' *** SCHRIFTART ARIAL 08 Normal Schwarz
Schriftart08N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,08
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
RETURN
' *** SCHRIFTART Courier New GRÖSSE 09 Normal
Schriftart09N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,09
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
RETURN
' *** SCHRIFTART Courier New GRÖSSE 09 Normal Rot
Schriftart09NR:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,09
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,225,0,0
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 10 Normal
Schriftart10N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,10
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
RETURN
' *** SCHRIFTART ARIAL GRÖSSE 11 Normal Schwarz
Schriftart11N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,11
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
RETURN
' *** SCHRIFTART ARIAL GRÖSSE 11 Normal Rot
Schriftart11NR:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,11
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,255,0,0
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 12 Normal
Schriftart12N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,12
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 15 Normal
Schriftart15N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,15
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 20 Normal
Schriftart20N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,20
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 08 Fett
Schriftart08F:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,08
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 09 Fett
Schriftart09F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,09
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 10 Fett
Schriftart10F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,10
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 11 Fett
Schriftart11F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,11
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 12 Fett
Schriftart12F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,12
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 15 Fett
Schriftart15F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,15
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 20 Fett
Schriftart20F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,20
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 08 Fett Unterstrichen
Schriftart08FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,08
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 09 Fett Unterstrichen
Schriftart09FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,09
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 10 Fett Unterstrichen
Schriftart10FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,10
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 11 Fett Unterstrichen
Schriftart11FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,11
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 12 Fett Unterstrichen
Schriftart12FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,12
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 15 Fett Unterstrichen
Schriftart15FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,15
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 20 Fett Unterstrichen
Schriftart20FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,20
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
RETURN

Wie habe ich es gefunden ? An stratégischen Stellen, durch Trial and Error gefunden, wurden MESSAGE Kommandos eingefügt, um Durchgangsmeldungen zu erhalten, in Verbund mit der Anzeige des Werte verschiedener Variablen (FURM_NUMMER%, etc). Die Diagnose führte dann zur Lösungsidee.

Es wäre schneller gegangen, wenn Du ALLE Forms geloscht hättest bis auf das Hauptform und die beiden Unter-Forms 7489 und 7460. Alls Andere, wie Du wohl wusstest, xar belanglos, hat aber das Testen beträchtlich verlängert wegen des grossen Quellkodevolumens.

Meine Lösung korrigiert nur das von Dir beschriebene Problem. Bei anderer Inanspruchnahme des Routinen SCREENSHOW und Menueschliessen kann ich das nicht garantieren - dann muss ein dem Sinn entsprechender ähnlicher Mechanismus eingebaut werden.

Pour tous les autres Panoramiciens:

Pardon pour cette discussion exclusivement en allemand. C'était trop volumineux pour être traduit intégralement en français, à chaque étape. Mais je vous livre ici le descriptif du problème, le diagnostic et la solution proposée.

Le problème:
dans son programme, Severin permet, via des lignes dans un menu "options", d'ouvrir sélectivement des fenêtres. Elles sont toutes construites sur le même modèle et contiennent un bouton de fermeture. Or, il n'utilise pas de dispositif pour forcer l'ouverture en mode modal, et ces fenêtres sont donc en mode non-modal, défaut en Panoramic. Tant qu'il ouvre une fenêtre, puis la ferme, puis ouvre une autre etc, tout marche bien. Mais dès qu'il ouvre deux fenêtres successivement, il peut fermer la deuxième, la première apparaît bien mais in ne peut plus la fermer.

Le diagnostic: sa variable contenant le numéro de la form active ne contient plus que le numéro de la deuxième form.

La solution: créer une pile avec les numéros de forms ouverts successivement. A la fermeture, fermer la form en cours et reprendre le numéro de la form précédente de la pile. Lorsque la pile est vide, repasser sur la form initiale, celle qui doit s'afficher lorsque aucune form auxiliaire n'est ouverte.

DANKE, DANKE KLAUS

Hatte schon gedacht das der Rücksprung vergessen wird.
Hatte aber keine Lösung.

Wenn ich nichts übersehen habe sind es drei neue Teile von Dir.
Jetzt weisst du, wofür ich die Clientarena brauch.

Letzte Frage für dieses Programm.
Den für das Forum wirds zulang.

Wenn ich den Stack erhöhe, kann ich dann auch andere
Hauptmen punkt in die Stackliste aufnehmen.

Egal werde es morgen im Hotel ausprobieren.
04:00 Uhr gehts auf Dienstreise.

Nochmals vielen Dank.
MERCI, MERCI KLAUS

Avait pensé que le retour ne sera oublié.
Mais n'avait pas de solution.

Si j'ai raté quelque chose, il ya trois nouvelles pièces de vous-même
Maintenant, vous savez ce dont j'ai besoin sur la scène du client.

Dernière question pour ce programme.
Le forum sera là pour trop longtemps.

Si j'augmente la pile, je peux alors aussi d'autres
Le point du menu principal d'inclure dans la liste de la pile.

Peu importe, il va essayer demain à l'hôtel.
04:00 horloge allons en mission.

Merci encore.
Severin der Sonntagsprogrammierer

Richtig. Die Stack-Tiefe habe ich willkürlich festgelegt - Du kannst sie selbstverständlich Deinem Programm anpassen und allgemein für alle Fenster verwenden. Ich habe nur ein Lösungsprinzip vorgeschlagen.

Hallo Panoramics,
wenn ihr die weitere Entwicklung haben wollt,
bitte Nachfrage.
Severin

Hello Panoramics,
if you want the development,
Please demand.
Severin

Bonjour Panoramiques,
si vous voulez le développement,
S'il vous plaît la demande.
Severin

Traduction:
Hallo, Panoramiciens,
Si vous êtes intéressés par la suite du développement, faites-le-moi savoir...

» Base pour un programme de gestion
» fermer le programme qui lance un autre programme
» ce fut mon 2ème programme en panoramic! (mauvais programme)
» Les programmes de papydall
» Reprise du développement