FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» KGF_dll - nouvelles versions
par Klaus Aujourd'hui à 13:26

» Compilateur FBPano
par Ouf_ca_passe Aujourd'hui à 12:25

» mise a jour calculatrice
par papydall Aujourd'hui à 2:01

» double guillemets "" dans un EDIT
par Marc Hier à 23:43

» Documentation de KGF
par Klaus Lun 20 Nov 2017 - 22:52

» Zoom sur une portion d'écran
par JL35 Lun 20 Nov 2017 - 21:51

» Recherche d'une expression dans un source
par Marc Lun 20 Nov 2017 - 13:08

» Tracer une grille n'importe où sur l'écran
par JL35 Dim 19 Nov 2017 - 22:14

» TourD Version 2
par Klaus Sam 18 Nov 2017 - 23:58

» La métamatière et le peuple
par JL35 Ven 17 Nov 2017 - 21:18

» Capture d'une zone de l'écran total
par JL35 Ven 17 Nov 2017 - 18:41

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Ven 17 Nov 2017 - 11:49

» qui peut résoudre mon prb
par pascal10000 Jeu 16 Nov 2017 - 17:30

» évènements et objets système : listage automatique
par Jean Claude Jeu 16 Nov 2017 - 11:15

» Panoramic et la reconnaissance vocale.
par papydall Jeu 16 Nov 2017 - 3:45

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Novembre 2017
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
27282930   
CalendrierCalendrier

Partagez | 
 

 Klaus bitte Hilfe gelöst

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Klaus bitte Hilfe gelöst   Jeu 7 Juin 2012 - 22:25

@ Klaus

Klaus ich habe folgende Fragen:

Wie kann ich dir mein Programm zu kommen lassen ?
Es ist für das Forum zu gross. Als E-Mail Anhang ?

Ich habe eine Abdeckung für das Verschieben programmiert. Ist nicht der gute Weg.
Jetzt fällt mir ein du hattest eine DLL die ein Loch in einer Form ermöglicht.
Daher meine Idee wenn ich eine Form mit Loch auf eine Form befestige, kann doch ein verschieben
elegant aussehen.
Leider gelingt mir das nicht. ich kann die zweite Form nicht in die Tabelle der Area eintragen.

Ich bitte um deine Hilfe.

Da Jack für mehrere Wochen nicht weiter macht, will ich trotzdem mein Programm voran bringen.

Mit freundlichen Grüssen
Severin

Wenn es gewünscht wird stelle ich das programm natürlich hier ein.

Klaus J'ai les questions suivantes:
Comment puis-je vous permettent de venir à mon programme?
Il est trop grand pour le forum. Comme une pièce jointe par e-mail?
J'ai écrit un couvercle pour le déménagement. N'est-ce pas la bonne voie.
Maintenant, je me souviens que vous aviez un trou dans une DLL qui permet dans un formulaire.
Donc, mon idée quand je joindre un formulaire avec un trou sur un formulaire, ne peut pas déplacer un look élégant.
Malheureusement, je ne peux pas. Je ne peux pas entrer dans la seconde forme de la surface de la table.
Je demande votre aide.
Parce que Jack ne se poursuit pas pendant plusieurs semaines, je vais apporter mon programme encore à venir.
Cordialement,
Severin
Si vous le souhaitez, bien sûr, je mets le programme ici.


Dernière édition par Severin le Dim 10 Juin 2012 - 17:47, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10128
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Klaus bitte Hilfe gelöst   Jeu 7 Juin 2012 - 23:54

Um ein grosses Programm zu senden, musst Du es in einen Upload-Service geben. Du kannst dann die entsprechende URL-Adresse in Deinen Post einschliessen, und so haben alle Zugang.

Die Sache mit dem Loch in der Form habe ich leider nicht ganz verstanden. Eine Form mit Loch lässe einfach alles sichtbar, was unter dem Loch ist - eine andere Form, das Desktop usw.

Afin d'envoyer un gros programme, tu dois l'envoyer dans un service d'hébergement. Tu peux alors inclure l'adresse URL correspondante dans ton post, et ainsi, tous ont accès à ça.

Je n'ai pas bien compris l'affaire avec la form trouée. Une form avec un trou laisse tout simplement voir tout ce qui se trouve en-dessous- une autre form, le bureau etc.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: Klaus bitte Hilfe gelöst   Ven 8 Juin 2012 - 14:32

@ Klaus

Entschuldige ich habe mich sehr unverständlich ausgedrückt.
Jetzt in ganz kleinen Schritten.

Ich habe den Container durch eine FormXXX ersetzt.
Diese FormXXX mit deiner DLL an Form004 angehängt.
Auf der FormXXX ein Grid01 erstellt, das verschiebbar ist, vertikal und horizontal.
Dann ein einzeiliges Grid02 erstellt, das nur vertikal verschiebbar ist, genau auf die erste Zeile des Grid01.
Dann ein einspaltiges Grid03 erstellt, das nur horizontal verschiebbar ist, genau auf die erste Spalte des Grid01.
Jetzt kann ich das Grid 01 verschieben, die Zeilen und Spalten bleiben durch Grid02 und Grid03 genau definiert.
Bis hier ist alle ok.
Um beim verschieben den verschobenen Teil von Grid01 unsichtbar zu machen, habe ich oben und links je einen
Button fixiert. Ist auch ok und funktioniert.
Warum Button ? Test mit Picture klappt nicht. Und nun kommt die Idee.

Zitat von dir:
Ich habe eine neue Funktion, die in KGF.dll Bohren eines Loches in der Form einer Ellipse in irgendeiner Form erlaubt!
Fortsetzung folgt: Bohrlöcher und rechteckige Formen von Rechtecken und Ellipsen, und die Erstellung von Formularen
mit Formen von Rechtecken und Ellipsen bestehen, und sogar Teile nicht zusammenhängend komponiert!

Hier ist der Aufruf:

% I = dll_call6 ("WindowEllipticHole" Griff (nform), m, x1, y1, x2, y2)

Statt einen Button zum abdecken, dachte ich an deine DLL. Jedoch eine weiter Form an FormXXX anzuhängen,
klappt nicht.
Da ich kein Parent in die Liste eintragen kann.

Hier der Auszug aus dem Programm:


Code:
' ******************************************************************************
' *** client area # 18 *********************************************************
COMMAND_TARGET_IS 0004
' *** variable for client area # 18 ********************************************
max_height%          = 30000
max_width%          = 2000
' put 1 into following option to hide objects disappearing to the left
option_left_hide%(1) =    0
option_top_hide%(1)  =    0
' ******************************************************************************
' *** client area # 18 initialize **********************************************
COMMAND_TARGET_IS 0004
no% =          no% + 180
Form            no%
hide            no%
gosub add_client_area
top            no%,0
left            no%,0
width          no%,SCREEN_X-12
height          no%,SCREEN_Y-177
FONT_NAME      no%,"Courier NEW"
FONT_SIZE      no%,06
COLOR          no%,222,222,222
PARENTNUMMER1% = HANDLE(no%)    :' Form XXXX auf Form 0004 befestigen
PARENTNUMMER2% = HANDLE(0004)
GOSUB OBJEKT_AN
BORDER_HIDE  no%
' *** Programm - Teil beginn *** Tabelle erstellen *****************************
Zeilennummer$  = "0000"
Spaltennummer$ = "0000"
Spalte%        = 00030
Zeile%        = 01410
' ******************************************************************************
no% =      no% + 1
grid                  no%
parent    no%,client_area%(n_client_area%)
hide                  no%
'
top                  no%,050                :' Anzahl Pixel von oben
left                  no%,049              :' Anzahl der Pixel von links
width                no%,1542              :' Tabellen Breite
height                no%,max_height%-250    :' Tabellen Höhe
'
FONT_NAME            no%,"Courier NEW"
FONT_SIZE            no%,08
'
grid_column          no%,Spalte%  :' Anzahl Spalten
grid_row              no%,Zeile%  :' Anzahl Zeilen
grid_column_width    no%,50      :' Breite Spalten
grid_row_height      no%,20      :' Höhe Spalten
grid_column_fixed    no%,1        :' Anzahl fixierter Spalten
grid_row_fixed        no%,1        :' Anzahl fixierter Zeilen
' grid_fixed_color      no%,255,0,0  :' Farbe der fixierten Spalten/Zeilen
grid_one_column_width no%,1,50    :' Erste Spalte mit xx Pixel
grid_one_row_height  no%,1,20    :' Erste Zeile mit xx Pixel
' grid_column_sizing_on no%        :' Spalten sind mit der Maus verschiebbar
grid_column_sizing_off no%          :' Spalten sind mit der Maus nicht verschiebbar
' grid_row_sizing_on no%          :' Zeilen sind mit der Maus verschiebbar
grid_row_sizing_off no%            :' Zeilen sind mit der Maus nicht verschiebbar
'
' ******************************************************************************
'
show no%
grid_write no%,1,1,"SEVERIN19"                :' schreiben in Spalte 1, Zeile 1
' ******************************************************************************
'
gosub add_object      : ' allow vertical scrolling
gosub add_hor_object  : ' allow horizontal scrolling
' *** Programm - Tabelle 1. Spalte  erstellen **********************************
Zeilennummer$  = "0000"
Spaltennummer$ = "0000"
Spalte%        = 00001
Zeile%        = 01410
' ******************************************************************************
no% =      no% + 1
grid                  no%
parent    no%,client_area%(n_client_area%)
hide                  no%
'
top                  no%,050                :' Anzahl Pixel von oben
left                  no%,049                :' Anzahl der Pixel von links
width                no%,51              :' Tabellen Breite
height                no%,max_height%-250    :' Tabellen Höhe
'
FONT_NAME            no%,"Courier NEW"
FONT_SIZE            no%,08
'
grid_column          no%,Spalte%  :' Anzahl Spalten
grid_row              no%,Zeile%  :' Anzahl Zeilen
grid_column_width    no%,50      :' Breite Spalten
grid_row_height      no%,20      :' Höhe Spalten
' grid_column_fixed    no%,1        :' Anzahl fixierter Spalten
' grid_row_fixed        no%,1        :' Anzahl fixierter Zeilen
' grid_fixed_color      no%,255,0,0  :' Farbe der fixierten Spalten/Zeilen
grid_one_column_width no%,1,50    :' Erste Spalte mit xx Pixel
grid_one_row_height  no%,1,20    :' Erste Zeile mit xx Pixel
' grid_column_sizing_on no%        :' Spalten sind mit der Maus verschiebbar
grid_column_sizing_off no%          :' Spalten sind mit der Maus nicht verschiebbar
' grid_row_sizing_on no%          :' Zeilen sind mit der Maus verschiebbar
grid_row_sizing_off no%            :' Zeilen sind mit der Maus nicht verschiebbar
show no%

' *** Beschriftung der 2. bis X. Zeile  ****************************************
'
show no%
For i% = 1 to Zeile%
Zeilennummer$ = "0000"
Zeilennummer$ = Zeilennummer$+STR$(i%)
Zeilennummer$ = Right$(Zeilennummer$,4)
Zeilennummer$ = " " + Zeilennummer$
grid_write no%,i%+1,1,Zeilennummer$      :' schreiben ab 2. Zeile, 1. Spalte
next i%
'
 gosub add_object      : ' allow vertical scrolling
' gosub add_hor_object  : ' allow horizontal scrolling
'
' ******************************************************************************
' *** Programm - Tabellenkopf erstellen ****************************************
'
Zeilennummer$  = "0000"
Spaltennummer$ = "0000"
Spalte%        = 00030
Zeile%        = 00001
'
' ******************************************************************************
no% =      no% + 1
grid                  no%
parent    no%,client_area%(n_client_area%)
hide                  no%
'
top                  no%,050                :' Anzahl Pixel von oben
left                  no%,048                :' Anzahl der Pixel von links
width                no%,1542              :' Tabellen Breite
height                no%,22                :' Tabellen Höhe
'
FONT_NAME            no%,"Courier NEW"
FONT_SIZE            no%,08
'
grid_column          no%,Spalte%  :' Anzahl Spalten
grid_row              no%,Zeile%  :' Anzahl Zeilen
grid_column_width    no%,50      :' Breite Spalten
grid_row_height      no%,22      :' Höhe Spalten
grid_one_column_width no%,1,51    :' Erste Spalte mit xx Pixel
grid_one_row_height  no%,1,20    :' Erste Zeile mit xx Pixel
' grid_column_sizing_on no%        :' Spalten sind mit der Maus verschiebbar
grid_column_sizing_off no%          :' Spalten sind mit der Maus nicht verschiebbar
' grid_row_sizing_on no%          :' Zeilen sind mit der Maus verschiebbar
grid_row_sizing_off no%            :' Zeilen sind mit der Maus nicht verschiebbar
'
show no%
For i% = 1 to Spalte%
Spaltennummer$ = "0000"
Spaltennummer$ = Spaltennummer$+STR$(i%)
Spaltennummer$ = Right$(Spaltennummer$,4)
Spaltennummer$ = " " + Spaltennummer$
grid_write no%,1,i%+1,Spaltennummer$      :' schreiben ab 2. Spalte, 1. Zeile
next i%
'
inactive no%
' gosub add_object      : ' allow vertical scrolling
gosub add_hor_object  : ' allow horizontal scrolling
'
' *** Abdeckung über Spaltenkopf **********************************************
no% =      no% + 1
Button  no%
parent    no%,client_area%(n_client_area%)
hide                  no%
'
top                  no%,000              :' Anzahl Pixel von oben
left                  no%,050                :' Anzahl der Pixel von links
width                no%,1542              :' Tabellen Breite
height                no%,50    :' Tabellen Höhe
show                  no%
inactive              no%
'
' gosub add_object      : ' allow vertical scrolling
gosub add_hor_object  : ' allow horizontal scrolling
'
' *** Abdeckung über Spalte links **********************************************
no% =      no% + 1
Button  no%
parent    no%,client_area%(n_client_area%)
hide                  no%
'
top                  no%,00              :' Anzahl Pixel von oben
left                  no%,000                :' Anzahl der Pixel von links
width                no%,49              :' Tabellen Breite
height                no%,max_height%-150    :' Tabellen Höhe
show                  no%
inactive              no%
'
gosub add_object      : ' allow vertical scrolling
' gosub add_hor_object  : ' allow horizontal scrolling
'
gosub BAR_HORIZONTAL_H  :' Bar Horizontal auf AREA erstellen
gosub BAR_VERTICAL_V    :' Bar Vertical auf AREA erstellen
'
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: Klaus bitte Hilfe gelöst   Ven 8 Juin 2012 - 15:53

Habe Programm verkürzt.
Bekomme eine komischen Fehler.
Ich glaube ich sollte aufhören und andere Sprache verwenden, schade um die Zeit.
Severin

ALTE WEISHEIT: ÄNDERE NIE EIN PROGRAMM DAS LÄUFT !!!!
Fehler beseitigt

Code:

label labels
gosub labels
gosub constantes
gosub variables
gosub INIDATEI0            :' Spracheinstellung prüfen
gosub form0000              :' Grundform
gosub form0001              :' Fussform
gosub Hauptmenue            :' Data für Hauptmenü einlesen
gosub Untermenue            :' DATA für Untermenüs
gosub form0002              :' Menueform
gosub form0003              :' Symbolform  für die Zukunft
gosub form0004              :' Clientform fix
gosub CLIENTFORM            :' Clientform variabel
gosub main
' CLICK AUF MENÜ FORM 0010 *****************************************************
ON_CLICK 9100,area00
ON_CLICK 9118,PROGRAMM_ENDE
end
labels:
label form0000  :' Grundform
label form0001  :' Fussform
label form0002  :' Menueform
label form0003  :' Symbolform  für die Zukunft
label form0004  :' Clientform fix
' *** VARIABLEN 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%
label Hauptmenue
label Untermenue
label PROGRAMM_ENDE
' ***LABEL FÜR CLIENT AREA *****************************************************
label constantes
label variables
label CLIENTFORM
' label initialisations
label main
label BAR_HORIZONTAL_H
label BAR_VERTICAL_V
label add_object
label add_hor_object
label scroll_vertical
label scroll_horizontal, add_client_area
label area00
' *** Label und Dimensionierung für INI-DATEI **********************************
LABEL INIDATEI0
LABEL INIDATEI_YES
LABEL INIDATEI_NO
' LABEL INIDATEI_WRITE
LABEL STARTPROGRAMM
DIM INI_WERT$
DIM SPRACHE%
DIM INI_DIR_A$
DIM INI_DATEI_WERTE0$
return
constantes:
dim max_client_area%
    max_client_area% =  4
' dim max_height%        : max_height%      = (SCREEN_Y-190) * 7
 dim max_height%        : max_height%      = 30000
' dim max_width%            : max_width%      = SCREEN_X +20 :' muß immer > SCREEN_X
dim max_width%          : max_width%      = 4000
dim option_left_hide%(max_client_area%)
dim option_top_hide%(max_client_area%)
return
variables:
dim no%
dim n_client_area%
dim client_area%(max_client_area%)
dim no_name%
dim no_memo%
dim scroll_bar%(max_client_area%)
dim scroll_bar_horizontal%(max_client_area%)
dim scroll_pos%(max_client_area%)
dim scroll_pos_horizontal%(max_client_area%)
dim n_obj%(max_client_area%)
dim scroll_bar_vertical%(max_client_area%)
dim separator%(max_client_area%)
dim tab_hor_obj%(20,max_client_area%)
dim n_hor_obj%(max_client_area%)
dim tab_obj%(20,max_client_area%)
dim SEITE%
dim i%
DIM j%
dim n%
dim x_client_area%
' *** VARIABLE FÜR TABELLEN ERSTELLEN ******************************************
DIM Zeilennummer$
DIM Spaltennummer$
DIM Spalte%
DIM Zeile%
' DIM TABWERTE%(Zeile%,Spalte%)
DIM TABTEXTE$(Zeile%,Spalte%)
DIM a
DIM b
' *** VARIABLE FÜR MENÜS ERSTELLEN *********************************************
DIM Menuetext$
DIM TEXT_MENUE_00$(20,3)
DIM TEXT_MENUE_01$(9000,3)
DIM TITEL$(99,3)
return
' *** PROGRAMM BEENDEN *********************************************************
PROGRAMM_ENDE:
terminate
END
' ********** Grundform 0000 ****************************************************
form0000:
TOP          0000,0
LEFT          0000,0
width        0000,SCREEN_X
height        0000,SCREEN_Y-44
caption      0000,"REFA - Programme"
color        0000,000,000,000        :' schwarz / black
PARENTNUMMER2% = HANDLE(0000)        :' Form 0000
Return
' ********** Fussform 0001 *****************************************************
form0001:
COMMAND_TARGET_IS 0000
FORM          0001
TOP            0001,SCREEN_Y-101
LEFT          0001,2
WIDTH          0001,SCREEN_X-12
HEIGHT        0001,28
FONT_NAME      0001,"Courier NEW"
FONT_SIZE      0001,08
COLOR          0001,000,255,000      :' grün / green
BORDER_HIDE    0001
PARENTNUMMER1% = HANDLE(0001)        :' Form 0001 auf Form 0000
PARENTNUMMER2% = HANDLE(0000)        :' Form 0000
GOSUB OBJEKT_AN
return
' ********** Menueform 0002 ****************************************************
form0002:
COMMAND_TARGET_IS 0000
FORM          0002
TOP          0002,2
LEFT          0002,2
WIDTH        0002,SCREEN_X-12
HEIGHT        0002,0                  :' SCREEN_Y-106
FONT_NAME    0002,"Courier NEW"
FONT_SIZE    0002,04
Color        0002,000,000,000        :' schwarz / black
BORDER_HIDE  0002
PARENTNUMMER1% = HANDLE(0002)        :' Form 0002 auf Form 0000
PARENTNUMMER2% = HANDLE(0000)        :' Form 0002
GOSUB OBJEKT_AN
' *** ERSTELLEN DES HAUPTMENÜ 9001 bis 9020 ************************************
COMMAND_TARGET_IS 0002
main_menu 0009
sub_menu 9001:CAPTION 9001,TEXT_MENUE_00$(01,SPRACHE%):parent 9001,0009
sub_menu 9002:CAPTION 9002,TEXT_MENUE_00$(02,SPRACHE%):parent 9002,0009
sub_menu 9003:CAPTION 9003,TEXT_MENUE_00$(03,SPRACHE%):parent 9003,0009
sub_menu 9004:CAPTION 9004,TEXT_MENUE_00$(04,SPRACHE%):parent 9004,0009
sub_menu 9005:CAPTION 9005,TEXT_MENUE_00$(05,SPRACHE%):parent 9005,0009
sub_menu 9006:CAPTION 9006,TEXT_MENUE_00$(06,SPRACHE%):parent 9006,0009
sub_menu 9007:CAPTION 9007,TEXT_MENUE_00$(07,SPRACHE%):parent 9007,0009
sub_menu 9008:CAPTION 9008,TEXT_MENUE_00$(08,SPRACHE%):parent 9008,0009
sub_menu 9009:CAPTION 9009,TEXT_MENUE_00$(09,SPRACHE%):parent 9009,0009
sub_menu 9010:CAPTION 9010,TEXT_MENUE_00$(10,SPRACHE%):parent 9010,0009
sub_menu 9011:CAPTION 9011,TEXT_MENUE_00$(11,SPRACHE%):parent 9011,0009
sub_menu 9012:CAPTION 9012,TEXT_MENUE_00$(12,SPRACHE%):parent 9012,0009
sub_menu 9013:CAPTION 9013,TEXT_MENUE_00$(13,SPRACHE%):parent 9013,0009
sub_menu 9014:CAPTION 9014,TEXT_MENUE_00$(14,SPRACHE%):parent 9014,0009
sub_menu 9015:CAPTION 9015,TEXT_MENUE_00$(15,SPRACHE%):parent 9015,0009
sub_menu 9016:CAPTION 9016,TEXT_MENUE_00$(16,SPRACHE%):parent 9016,0009
sub_menu 9017:CAPTION 9017,TEXT_MENUE_00$(17,SPRACHE%):parent 9017,0009
sub_menu 9018:CAPTION 9018,TEXT_MENUE_00$(18,SPRACHE%):parent 9018,0009
sub_menu 9019:CAPTION 9019,TEXT_MENUE_00$(19,SPRACHE%):parent 9019,0009
sub_menu 9020:CAPTION 9020,TEXT_MENUE_00$(20,SPRACHE%):parent 9020,0009
INACTIVE 9018
FOR i% = 9100 TO 9118
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9001:NEXT i%
INACTIVE 9104:INACTIVE 9117:' Teilstriche im Submenü
FOR i% = 9120 TO 9138
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9002:NEXT i%
FOR i% = 9140 TO 9158
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9003:NEXT i%
FOR i% = 9160 TO 9178
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9004:NEXT i%
FOR i% = 9180 TO 9198
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9005:NEXT i%
FOR i% = 9200 TO 9218
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9006:NEXT i%
FOR i% = 9220 TO 9238
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9007:NEXT i%
FOR i% = 9240 TO 9258
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9008:NEXT i%
FOR i% = 9260 TO 9278
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9009:NEXT i%
FOR i% = 9280 TO 9298
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9010:NEXT i%
FOR i% = 9300 TO 9318
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9011:NEXT i%
FOR i% = 9320 TO 9338
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9012:NEXT i%
FOR i% = 9340 TO 9358
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9013:NEXT i%
FOR i% = 9360 TO 9378
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9014:NEXT i%
FOR i% = 9380 TO 9398
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9015:NEXT i%
FOR i% = 9400 TO 9418
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9016:NEXT i%
FOR i% = 9420 TO 9438
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9017:NEXT i%
FOR i% = 9460 TO 9478
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9019:NEXT i%
FOR i% = 9480 TO 9498
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9020:NEXT i%
return
' ********** Symbolform 0003 für die Zukunft ***********************************
form0003:
COMMAND_TARGET_IS 0000
FORM          0003
TOP          0003,22
LEFT          0003,2
WIDTH        0003,SCREEN_X-12
HEIGHT        0003,50
FONT_NAME    0003,"Courier NEW"
FONT_SIZE    0003,06
COLOR        0003,255,000,000    :' rot / red
PARENTNUMMER1% = HANDLE(0003)    :' Form 0003 auf Form 0000
PARENTNUMMER2% = HANDLE(0000)    :' Form 0003
GOSUB OBJEKT_AN
BORDER_HIDE  0003
return
' *** Clientform fix 0004 für variablen Clientformen erstellen *****************
form0004:
COMMAND_TARGET_IS 0000
FORM          0004
TOP          0004,74
LEFT          0004,2
WIDTH        0004,SCREEN_X-12
HEIGHT        0004,SCREEN_Y-177
FONT_NAME    0004,"Courier NEW"
FONT_SIZE    0004,06
COLOR        0004,000,000,255    :' blau / blue
PARENTNUMMER1% = HANDLE(0004)    :' Form 0004 auf Form 0000
PARENTNUMMER2% = HANDLE(0000)    :' Form 0004
GOSUB OBJEKT_AN
BORDER_HIDE  0004
return
' *** Clientformen variabel die auf Clientform fix 0004 erstellt werden ********
CLIENTFORM:
' *** client area # 18 initialize **********************************************
COMMAND_TARGET_IS 0004
no% =          no% + 10
Form            no%
hide            no%
gosub add_client_area
top            no%,0
left            no%,0
width          no%,SCREEN_X-12
height          no%,SCREEN_Y-177
FONT_NAME      no%,"Courier NEW"
FONT_SIZE      no%,06
COLOR          no%,222,222,222
PARENTNUMMER1% = HANDLE(no%)    :' Form XXXX auf Form 0004 befestigen
PARENTNUMMER2% = HANDLE(0004)
GOSUB OBJEKT_AN
BORDER_HIDE  no%
' *** Programm - Teil beginn *** Tabelle erstellen *****************************
Zeilennummer$  = "0000"
Spaltennummer$ = "0000"
Spalte%        = 00030
Zeile%        = 01410
no% =      no% + 1
grid                  no%
parent    no%,client_area%(n_client_area%)
hide                  no%
top                  no%,050                :' Anzahl Pixel von oben
left                  no%,049              :' Anzahl der Pixel von links
width                no%,1542              :' Tabellen Breite
height                no%,max_height%-250    :' Tabellen Höhe
FONT_NAME            no%,"Courier NEW"
FONT_SIZE            no%,08
grid_column          no%,Spalte%  :' Anzahl Spalten
grid_row              no%,Zeile%  :' Anzahl Zeilen
grid_column_width    no%,50      :' Breite Spalten
grid_row_height      no%,20      :' Höhe Spalten
grid_column_fixed    no%,1        :' Anzahl fixierter Spalten
grid_row_fixed        no%,1        :' Anzahl fixierter Zeilen
grid_one_column_width no%,1,50    :' Erste Spalte mit xx Pixel
grid_one_row_height  no%,1,20    :' Erste Zeile mit xx Pixel
grid_column_sizing_off no%          :' Spalten sind mit der Maus nicht verschiebbar
grid_row_sizing_off no%            :' Zeilen sind mit der Maus nicht verschiebbar
show no%
grid_write no%,1,1,"SEVERIN19"                :' schreiben in Spalte 1, Zeile 1
gosub add_object      : ' allow vertical scrolling
gosub add_hor_object  : ' allow horizontal scrolling
' *** Programm - Tabelle 1. Spalte  erstellen **********************************
Zeilennummer$  = "0000"
Spaltennummer$ = "0000"
Spalte%        = 00001
Zeile%        = 01410
no% =      no% + 1
grid                  no%
parent    no%,client_area%(n_client_area%)
hide                  no%
top                  no%,050                :' Anzahl Pixel von oben
left                  no%,049                :' Anzahl der Pixel von links
width                no%,51              :' Tabellen Breite
height                no%,max_height%-250    :' Tabellen Höhe
FONT_NAME            no%,"Courier NEW"
FONT_SIZE            no%,08
grid_column          no%,Spalte%  :' Anzahl Spalten
grid_row              no%,Zeile%  :' Anzahl Zeilen
grid_column_width    no%,50      :' Breite Spalten
grid_row_height      no%,20      :' Höhe Spalten
grid_one_column_width no%,1,50    :' Erste Spalte mit xx Pixel
grid_one_row_height  no%,1,20    :' Erste Zeile mit xx Pixel
grid_column_sizing_off no%          :' Spalten sind mit der Maus nicht verschiebbar
grid_row_sizing_off no%            :' Zeilen sind mit der Maus nicht verschiebbar
show no%
' *** Beschriftung der 2. bis X. Zeile  ****************************************
show no%
For i% = 1 to Zeile%
Zeilennummer$ = "0000"
Zeilennummer$ = Zeilennummer$+STR$(i%)
Zeilennummer$ = Right$(Zeilennummer$,4)
Zeilennummer$ = " " + Zeilennummer$
grid_write no%,i%+1,1,Zeilennummer$      :' schreiben ab 2. Zeile, 1. Spalte
next i%
 gosub add_object      : ' allow vertical scrolling
' gosub add_hor_object  : ' allow horizontal scrolling
' *** Programm - Tabellenkopf erstellen ****************************************
Zeilennummer$  = "0000"
Spaltennummer$ = "0000"
Spalte%        = 00030
Zeile%        = 00001
no% =      no% + 1
grid                  no%
parent    no%,client_area%(n_client_area%)
hide                  no%
top                  no%,050                :' Anzahl Pixel von oben
left                  no%,048                :' Anzahl der Pixel von links
width                no%,1542              :' Tabellen Breite
height                no%,22                :' Tabellen Höhe
FONT_NAME            no%,"Courier NEW"
FONT_SIZE            no%,08
grid_column          no%,Spalte%  :' Anzahl Spalten
grid_row              no%,Zeile%  :' Anzahl Zeilen
grid_column_width    no%,50      :' Breite Spalten
grid_row_height      no%,22      :' Höhe Spalten
grid_one_column_width no%,1,51    :' Erste Spalte mit xx Pixel
grid_one_row_height  no%,1,20    :' Erste Zeile mit xx Pixel
grid_column_sizing_off no%          :' Spalten sind mit der Maus nicht verschiebbar
grid_row_sizing_off no%            :' Zeilen sind mit der Maus nicht verschiebbar
show no%
For i% = 1 to Spalte%
Spaltennummer$ = "0000"
Spaltennummer$ = Spaltennummer$+STR$(i%)
Spaltennummer$ = Right$(Spaltennummer$,4)
Spaltennummer$ = " " + Spaltennummer$
grid_write no%,1,i%+1,Spaltennummer$      :' schreiben ab 2. Spalte, 1. Zeile
next i%
inactive no%
gosub add_hor_object  : ' allow horizontal scrolling
' *** Abdeckung über Spaltenkopf **********************************************
no% =      no% + 1
Button  no%
parent    no%,client_area%(n_client_area%)
hide                  no%
top                  no%,000              :' Anzahl Pixel von oben
left                  no%,050                :' Anzahl der Pixel von links
width                no%,1542              :' Tabellen Breite
height                no%,50    :' Tabellen Höhe
show                  no%
inactive              no%
' gosub add_object      : ' allow vertical scrolling
gosub add_hor_object  : ' allow horizontal scrolling
' *** Abdeckung über Spalte links **********************************************
no% =      no% + 1
Button  no%
parent    no%,client_area%(n_client_area%)
hide                  no%
top                  no%,00              :' Anzahl Pixel von oben
left                  no%,000                :' Anzahl der Pixel von links
width                no%,49              :' Tabellen Breite
height                no%,max_height%-150    :' Tabellen Höhe
show                  no%
inactive              no%
gosub add_object      : ' allow vertical scrolling
' gosub add_hor_object  : ' allow horizontal scrolling
gosub BAR_HORIZONTAL_H  :' Bar Horizontal auf AREA erstellen
gosub BAR_VERTICAL_V    :' Bar Vertical auf AREA erstellen
Return
' *** SCROLL BAR VERTICAL ******************************************************
BAR_VERTICAL_V:
no% =      no% + 1
scroll_bar no%
scroll_bar_vertical%(n_client_area%) = no%
parent    no%,client_area%(n_client_area%)
vertical  no%
top        no%,0
left      no%,SCREEN_X-30
height    no%,SCREEN_Y-195
min        no%,0
max        no%, max_height% - height(client_area%(n_client_area%))-20
on_change  no%,scroll_vertical
Return
' *** SCROLL BAR HORIZONTAL ****************************************************
BAR_HORIZONTAL_H:
no% =      no% + 1
scroll_bar no%
scroll_bar_horizontal%(n_client_area%) = no%
parent    no%,client_area%(n_client_area%)
horizontal no%
top        no%,SCREEN_Y-194
left      no%,0
width      no%,SCREEN_X-29
min        no%,0
max        no%, max_width% - width(client_area%(n_client_area%))-20
on_change  no%,scroll_horizontal
return
add_object:
  n_obj%(n_client_area%) = n_obj%(n_client_area%) + 1
  tab_obj%(n_obj%(n_client_area%),n_client_area%) = no%
  return
add_hor_object:
  n_hor_obj%(n_client_area%) = n_hor_obj%(n_client_area%) + 1
  tab_hor_obj%(n_hor_obj%(n_client_area%),n_client_area%) = no%
  return
add_client_area:
  n_client_area% = n_client_area% + 1
  client_area%(n_client_area%) = no%
  return
scroll_vertical:
  n% = number_change
  for i%=1 to n_client_area%
    if scroll_bar_vertical%(i%)=n%
      x_client_area% = i%
      exit_for
    end_if
  next i%
  if n_obj%(x_client_area%)=0 then return
  n% = position(scroll_bar_vertical%(x_client_area%)) - scroll_pos%(x_client_area%)
  scroll_pos%(x_client_area%) = position(scroll_bar_vertical%(x_client_area%))
  if x_client_area%<>1
    caption separator%(x_client_area%),"Client area "+str$(x_client_area%)+" Page "+str$(int(scroll_pos%(x_client_area%)/560)+1)
  end_if
  for i%=1 to n_obj%(x_client_area%)
    top tab_obj%(i%,x_client_area%),top(tab_obj%(i%,x_client_area%)) - n%
    if option_top_hide%(x_client_area%)=1
      if top(tab_obj%(i%,x_client_area%))<10
        hide tab_obj%(i%,x_client_area%)
      else
        show tab_obj%(i%,x_client_area%)
      end_if
    end_if
  next i%
  return
scroll_horizontal:
  n% = number_change
  for i%=1 to n_client_area%
    if scroll_bar_horizontal%(i%)=n%
      x_client_area% = i%
      exit_for
    end_if
  next i%
  if n_hor_obj%(x_client_area%)=0 then return
  n% = position(scroll_bar_horizontal%(x_client_area%)) - scroll_pos_horizontal%(x_client_area%)
  scroll_pos_horizontal%(x_client_area%) = position(scroll_bar_horizontal%(x_client_area%))
  for i%=1 to n_hor_obj%(x_client_area%)
    left tab_hor_obj%(i%,x_client_area%),left(tab_hor_obj%(i%,x_client_area%)) - n%
    if option_left_hide%(x_client_area%)=1
      if left(tab_hor_obj%(i%,x_client_area%))<10
        hide tab_hor_obj%(i%,x_client_area%)
      else
        show tab_hor_obj%(i%,x_client_area%)
      end_if
    end_if
  next i%
  return
area00:
  hide client_area%(x_client_area%)
  x_client_area% = 1
  show client_area%(x_client_area%)
'  caption separator%(x_client_area%),"Client area "+str$(x_client_area%)+" Page "+str$(int(scroll_pos%(x_client_area%)/560)+1)
  return
main:
  x_client_area% = 1
  gosub area00
  return
' *** 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
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 "MULTIMOMENTSTUDIE" ,"MULTI-DEGREE MOMENT " ,"PLUSIEURS DEGRÉS MOMENT "
DATA "MENUE 11"          ,"MENU 11 "            ,"MENU 11 "
DATA "FORMELBILDUNG"    ,"EDUCATION FORMULA "  ,"ÉDUCATION FORMULE "
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 "EINSTELLUNG"      ,"SETTING "            ," MISE EN "
DATA " "                ," "                    ," "
DATA "HILFE"            ,"HELP"                ,"AID"
DATA "INFO"              ,"INFO"                ,"INFO"
Hauptmenue:
FOR i% = 1 TO 20 :FOR j% = 1 TO 3
READ  TEXT_MENUE_00$(i%,j%)
NEXT j%  :NEXT i%
RETURN
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 " :' INAKTIV
' 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 " :' INAKTIV
' 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 "  :' INAKTIV
' 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 " :' INAKTIV
' 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 "  :' INAKTIV
' 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 " :' INAKTIV
' 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 "  :' INAKTIV
' 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 "  :' INAKTIV
' 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 "  :' INAKTIV
' 10 MULTIMOMENTSTUDIE *********************************************************
DATA " MM -- 0101 "," MM --  0101 "," MM --  0101 "
DATA " MM -- 0102 "," MM --  0102 "," MM --  0102 "
DATA " MM -- 0103 "," MM --  0103 "," MM --  0103 "
DATA " MM -- 0104 "," MM --  0104 "," MM --  0104 "
DATA " MM -- 0105 "," MM --  0105 "," MM --  0105 "
DATA " MM -- 0106 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0107 "," MM --  0107 "," MM --  0107 "
DATA " MM -- 0108 "," MM --  0108 "," MM --  0108 "
DATA " MM -- 0109 "," MM --  0109 "," MM --  0109 "
DATA " MM -- 0110 "," MM --  0110 "," MM --  0110 "
DATA " MM -- 0111 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0112 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0113 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0114 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0115 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0116 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0117 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0118 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0119 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0120 "," MM --  0106 "," MM --  0106 "  :' INAKTIV
' 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 "  :' INAKTIV
' 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 "  :' INAKTIV
' 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 " :' INAKTIV
' 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 "  :' inaktiv
' 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 "  :' INAKTIV
' 16
DATA " area1 1601 "," area1 1601 "," area1 1601 "
DATA " area2 1602 "," TEST-SUB MENU 1602 "," TEST-SUB MENU 1602 "
DATA " area3 1603 "," TEST-SUB MENU 1603 "," TEST-SUB MENU 1603 "
DATA " area4 1604 "," TEST-SUB MENU 1604 "," TEST-SUB MENU 1604 "
DATA " area4 1605 "," TEST-SUB MENU 1605 "," TEST-SUB MENU 1605 "
DATA " area4 1606 "," TEST-SUB MENU 1606 "," TEST-SUB MENU 1606 "
DATA " area4 1607 "," TEST-SUB MENU 1607 "," TEST-SUB MENU 1607 "
DATA " area4 1608 "," TEST-SUB MENU 1608 "," TEST-SUB MENU 1608 "
DATA " area4 1609 "," TEST-SUB MENU 1609 "," TEST-SUB MENU 1609 "
DATA " area4 1610 "," TEST-SUB MENU 1610 "," TEST-SUB MENU 1610 "
DATA " area4 1611 "," TEST-SUB MENU 1611 "," TEST-SUB MENU 1611 "
DATA " area4 1612 "," TEST-SUB MENU 1612 "," TEST-SUB MENU 1612 "
DATA " area4 1613 "," TEST-SUB MENU 1613 "," TEST-SUB MENU 1613 "
DATA " area4 1614 "," TEST-SUB MENU 1614 "," TEST-SUB MENU 1614 "
DATA " area4 1615 "," TEST-SUB MENU 1615 "," TEST-SUB MENU 1615 "
DATA " area4 1616 "," TEST-SUB MENU 1616 "," TEST-SUB MENU 1616 "
DATA " area4 1617 "," TEST-SUB MENU 1617 "," TEST-SUB MENU 1617 "
DATA " area4 1618 "," TEST-SUB MENU 1618 "," TEST-SUB MENU 1618 "
DATA " area4 1619 "," TEST-SUB MENU 1619 "," TEST-SUB MENU 1619 "
DATA " TEST-U-Menü 1620 "," TEST-SUB MENU 1620 "," TEST-SUB MENU 1620 ":' INAKTIV
' 17 EINSTELLUNGEN *************************************************************
DATA "Einstellungen"                    ," Settings                          "," Paramètres                                      "
DATA "Sprache einstellen"              ," Language set                      "," Langue fixé                                    "
DATA "Verzeichnis einstellen"          ,"directory Settings"                ,"les paramètres du répertoire                                    "
DATA "ACTIV 1704                      "," ACTIV  1704                      "," ACTIV  1704                                    "
DATA "ACTIV 1705                      "," ACTIV  1705                      "," ACTIV  1705                                    "
DATA "ACTIV 1706                      "," ACTIV  1706                      "," ACTIV  1706                                    "
DATA "ACTIV 1707                      "," ACTIV  1707                      "," ACTIV  1707                                    "
DATA "ACTIV 1708                      "," ACTIV  1708                      "," ACTIV  1708                                    "
DATA "ACTIV 1709                      "," ACTIV  1709                      "," ACTIV  1709                                    "
DATA "Daten aus Excel-Tabelle einlesen ","Reading data from Excel spreadsheet","La lecture des données de feuille de calcul Excel"
DATA "Daten als Excel-Tabelle speichern","Data as an Excel spreadsheet store ","Données d'un magasin feuille de calcul Excel    "
DATA "ACTIV 1712                      "," ACTIV  1712                      "," ACTIV  1712                                    "
DATA "ACTIV 1713                      "," ACTIV  1713                      "," ACTIV  1713                                    "
DATA "ACTIV 1714                      "," ACTIV  1714                      "," ACTIV  1714                                    "
DATA "ACTIV 1715                      "," ACTIV  1715                      "," ACTIV  1715                                    "
DATA "ACTIV 1716                      "," ACTIV  1716                      "," ACTIV  1716                                    "
DATA "ACTIV 1717                      "," ACTIV  1717                      "," ACTIV  1717                                    "
DATA "Programmierer INFO              ","Programmierer INFO                ","Programmierer INFO                              "
DATA "Menü ändern                      "," Menu change                      "," changement Menu                                "
DATA "INACTIV 1720"," INACTIV 1720 "," INACTIV 1720 "  :' INAKTIV
' 18
DATA " UNTERMENUE 1801 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1802 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1803 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1804 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1805 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1806 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1807 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1808 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1809 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1810 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1811 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1812 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1813 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1814 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1815 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1816 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1817 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1818 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1819 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1820 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA "DATEI"                ,"FILE"                ,"DOSSIER"
DATA " HILFE 02 "          ," HELP 02 "            ," AID 02 "
DATA " HILFE 03 "          ," HELP 03 "            ," AID 03 "
DATA " HILFE 04 "          ," HELP 04 "            ," AID 04 "
DATA " HILFE 05 "          ," HELP 05 "            ," AID 05 "
DATA " HILFE 06 "          ," HELP 06 "            ," AID 06 "
DATA " HILFE 07 "          ," HELP 07 "            ," AID 07 "
DATA " HILFE 08 "          ," HELP 08 "            ," AID 08 "
DATA " HILFE 09 "          ," HELP 09 "            ," AID 09 "
DATA "zur Multimomentstudie","zur Multimomentstudie","zur Multimomentstudie"
DATA "HILFE 11"            ," HELP 11 "            ," AID 11 "
DATA "zur Formelbildung"    ,"zur Formelbildung"    ,"zur Formelbildung"
DATA " HILFE 13 "          ," HELP 13 "            ," AID 13 "
DATA " HILFE 14 "          ," HELP 14 "            ," AID 14 "
DATA " HILFE 15 "          ," HELP 15 "            ," AID 15 "
DATA " HILFE 16 "          ," HELP 16 "            ," AID 16 "
DATA "zu Einstellungen"    ,"zu Einstellungen"    ,"zu Einstellungen"
DATA " "," "," "  :' INAKTIV
DATA " "," "," "  :' INAKTIV
DATA " "," "," "  :' INAKTIV
' 20 INFORMATIONEN *************************************************************
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  2004 "," SUB NENU  2006 "
DATA " UNTERMENUE 2005 "," SUB NENU  2004 "," SUB NENU  2006 "
DATA " UNTERMENUE 2006 "," SUB NENU  2005 "," SUB NENU  2006 "
DATA " UNTERMENUE 2007 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2008 "," SUB NENU  2007 "," SUB NENU  2006 "
DATA " UNTERMENUE 2009 "," SUB NENU  2008 "," SUB NENU  2006 "
DATA " UNTERMENUE 2010 "," SUB NENU  2009 "," SUB NENU  2006 "
DATA " UNTERMENUE 2011 "," SUB NENU  2010 "," SUB NENU  2006 "
DATA " UNTERMENUE 2012 "," SUB NENU  2011 "," SUB NENU  2006 "
DATA " UNTERMENUE 2013 "," SUB NENU  2012 "," SUB NENU  2006 "
DATA " UNTERMENUE 2014 "," SUB NENU  2013 "," SUB NENU  2006 "
DATA " UNTERMENUE 2015 "," SUB NENU  2014 "," SUB NENU  2006 "
DATA " UNTERMENUE 2016 "," SUB NENU  2015 "," SUB NENU  2006 "
DATA " UNTERMENUE 2017 "," SUB NENU  2017 "," SUB NENU  2006 "
DATA " UNTERMENUE 2018 "," SUB NENU  2018 "," SUB NENU  2006 "
DATA " Kalender "      ," Calendar "      ," calendrier "
DATA " "," "," " :' INAKTIV
'
' *** UNTERMENÜ-TEXTE IN VARIABLEN EINLESEN ************************************
Untermenue:
FOR i% = 1 TO 400  :FOR j% = 1 TO 3
READ  TEXT_MENUE_01$(i%,j%)
NEXT j% :NEXT i%
Return
' *** INI-Datei prüfen ob angelegt *********************************************
INIDATEI0:
INI_DIR_A$ = "c:\"
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$)
' *** nur für testen
' PRINT "gelesen ",SPRACHE%
' PRINT DIR_A$
' END
'
GOTO STARTPROGRAMM
' ******************************************************************************
STARTPROGRAMM:
return


Dernière édition par Severin le Ven 8 Juin 2012 - 21:04, édité 2 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10128
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Klaus bitte Hilfe gelöst   Ven 8 Juin 2012 - 20:07

Ich habe EINE Zeile eingefügt:
Code:
' *** SCROLL BAR VERTICAL ******************************************************
BAR_VERTICAL_V:
no% =      no% + 1
scroll_bar no%
scroll_bar_vertical%(n_client_area%) = no%
parent    no%,client_area%(n_client_area%)
vertical  no%
top        no%,0
left      no%,SCREEN_X-30
height    no%,SCREEN_Y-195
min        no%,0
message "vert:"+str$(max_height% - height(client_area%(n_client_area%))-20) : ' KLAUS
max        no%, max_height% - height(client_area%(n_client_area%))-20
on_change  no%,scroll_vertical
Return

Und man sieht, dass beim ersten Aufruf das Resultat -643 ist ! Offensichtlich unmöglich, daher die Fehlermeldung.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: Klaus bitte Hilfe gelöst   Ven 8 Juin 2012 - 20:45

@ Klaus

Das ist der Grund warum ich nicht gern Programme die Laufen abspecke.
Aber der Fehler war nicht die Frage.


Frage wie bekomme ich eine Form mit Fenster auf eine Form fixiert.
Habe als Abdeckung alle Objekte getestet. Aber irgend wie haben alle einen Nachteil.
Deshalb die Frage nach deiner DLL.

Gruss
Severin

Fehler beseitigt !!!!


Dernière édition par Severin le Ven 8 Juin 2012 - 21:07, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10128
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Klaus bitte Hilfe gelöst   Ven 8 Juin 2012 - 21:00

Das werde ich mir heute abend ansehen.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: Klaus bitte Hilfe gelöst   Ven 8 Juin 2012 - 23:31

Fehler behoben
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: Klaus bitte Hilfe gelöst   Sam 9 Juin 2012 - 0:55

@Klaus

Hier mein erster Test. Klappt prima.
Voici mon premier test. Fonctionne bien.
Severin

Code:
label trouer, boucher
dim i%
' *** VARIABLEN 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%






' Form000
TOP          0000,0
LEFT          0000,0
width        0000,SCREEN_X
height        0000,SCREEN_Y-44
caption      0000,"REFA - Programme"
color        0000,000,000,000        :' schwarz / black
PARENTNUMMER2% = HANDLE(0000)        :' Form 0000




' form0004:
COMMAND_TARGET_IS 0000
FORM          0004
TOP          0004,74
LEFT          0004,2
WIDTH        0004,SCREEN_X-12
HEIGHT        0004,SCREEN_Y-177
FONT_NAME    0004,"Courier NEW"
FONT_SIZE    0004,06
COLOR        0004,000,000,255    :' blau / blue
PARENTNUMMER1% = HANDLE(0004)    :' Form 0004 auf Form 0000
PARENTNUMMER2% = HANDLE(0000)    :' Form 0004
GOSUB OBJEKT_AN
BORDER_HIDE  0004



button 2
parent 2,004
top 2,10
left 2,10
caption 2,"Trouer"
on_click 2,trouer





button 3
parent 3,004
top    3,10
left  3,120
caption 3,"Boucher"
on_click 3,boucher

dll_on "KGF.dll"
end

trouer:
i% = dll_call6("WindowEllipticHole",handle(4),1,50,60,300,200)
return

boucher:
i% = dll_call6("WindowEllipticHole",handle(4),0,30,60,300,200)
return

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10128
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Klaus bitte Hilfe gelöst   Sam 9 Juin 2012 - 1:12

Genau ! So geht es !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: Klaus bitte Hilfe gelöst   Sam 9 Juin 2012 - 1:23

JA, aber.

Ich kann die zweite form nicht auf der Client verankern.
Der Befehl "Parent" ist nicht zulässig.
Die zwei Button gehen mit Parent.
Die zweite Form ? Die die zwei Button ersetzen soll.

Severin
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10128
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Klaus bitte Hilfe gelöst   Sam 9 Juin 2012 - 2:43

Du musst folgende Funktion verwenden:
Citation :
res% = dll_call2("AttachWindowToWindow",hndchild%,hndparent%)
hndchild%: le handle de fa form à attacher
hndparent% : le handle de la form à laquelle la form hndchild% doit être attachée
hndparent%=0 : la form hndchild% est détachée

Cette fonction attache n’importe quelle fenêtre à n’importe quelle autre fenêtre ou container

Sie ist in der SetWindowButtons.dll. Diese Funktion ersetzt das PARENT Kommando, wenn das Child Objekt eine Form ist. Das Parent Window muss eine Form oder ein Container sein.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: Klaus bitte Hilfe gelöst   Sam 9 Juin 2012 - 15:36

@ Klaus
Ich stelle das Testprogramm nochmal ein.
Bis Zeile 382, wenn end gesetzt ist, ok.
Ohne end verlieren wir die Deckform.
Würdest du bitt nochmal schauen.
Severin

Nachtrag:
Was ist der Unterschied ?

"LoadProgram.dll" oder "KGF.dll"
Natürlich nur auf die Handle-Funktion.
Severin


Code:
' *** Achtung die  "LoadProgram.dll" von Klaus wird benötigt
' *** Note the "LoadProgram.dll" Klaus is needed
' *** Notez le "LoadProgram.dll" Klaus est nécessaire
label labels
gosub labels
' ***
gosub constantes
gosub variables
gosub form0000              :' Grundform
gosub form0001              :' Fussform
gosub Hauptmenue            :' Data für Hauptmenü einlesen
gosub Untermenue            :' DATA für Untermenüs
gosub form0002              :' Menueform
gosub form0003              :' Symbolform  für die Zukunft
gosub form0004              :' Clientform fix
gosub CLIENTFORM            :' Clientform variabel
gosub main
' CLICK AUF MENÜ FORM 0010 *****************************************************
' 01
ON_CLICK 9100,area00
ON_CLICK 9118,PROGRAMM_ENDE
end
' ******************************************************************************
labels:
label form0000  :' Grundform
label form0001  :' Fussform
label form0002  :' Menueform
label form0003  :' Symbolform  für die Zukunft
label form0004  :' Clientform fix
LABEL OBJEKT_AN              :' Objekt anhängen
LABEL detacher                :' Objekt abhängen
DIM PARENTNUMMER1%
DIM PARENTNUMMER2%
DIM ancien%
label Hauptmenue
label Untermenue
label PROGRAMM_ENDE
label constantes
label variables
label CLIENTFORM
label main
label BAR_HORIZONTAL_H
label BAR_VERTICAL_V
label add_object
label add_hor_object
label scroll_vertical
label scroll_horizontal, add_client_area
label area00
DIM INI_WERT$
DIM SPRACHE%
DIM INI_DIR_A$
DIM INI_DATEI_WERTE0$
return
' ******************************************************************************
constantes:
dim max_client_area%
    max_client_area% =  4
dim max_height%          : max_height%      = 30000
dim max_width%          : max_width%      = 4000
dim option_left_hide%(max_client_area%)
dim option_top_hide%(max_client_area%)
return
' ******************************************************************************
variables:
dim no%
dim n_client_area%
dim client_area%(max_client_area%)
dim no_name%
dim no_memo%
dim scroll_bar%(max_client_area%)
dim scroll_bar_horizontal%(max_client_area%)
dim scroll_pos%(max_client_area%)
dim scroll_pos_horizontal%(max_client_area%)
dim n_obj%(max_client_area%)
dim scroll_bar_vertical%(max_client_area%)
dim separator%(max_client_area%)
dim tab_hor_obj%(40,max_client_area%)
dim n_hor_obj%(max_client_area%)
dim tab_obj%(40,max_client_area%)
dim SEITE%
dim i%, j%, n%
dim x_client_area%
dim Form_nr%
' *** VARIABLE FÜR TABELLEN ERSTELLEN ******************************************
DIM Zeilennummer$
DIM Spaltennummer$
DIM Spalte%
DIM Zeile%
' DIM TABWERTE%(Zeile%,Spalte%)
DIM TABTEXTE$(Zeile%,Spalte%)
DIM a, b
' *** VARIABLE FÜR MENÜS ERSTELLEN *********************************************
DIM Menuetext$
DIM TEXT_MENUE_00$(20,3)
DIM TEXT_MENUE_01$(9000,3)
DIM TITEL$(99,3)
return
' *** PROGRAMM BEENDEN *********************************************************
PROGRAMM_ENDE:
terminate
END
' ********** Grundform 0000 ****************************************************
form0000:
TOP          0000,0
LEFT          0000,0
width        0000,SCREEN_X
height        0000,SCREEN_Y-44
caption      0000,"REFA - Programme"
color        0000,000,000,000        :' schwarz / black
PARENTNUMMER2% = HANDLE(0000)        :' Form 0000
Return
' ********** Fussform 0001 *****************************************************
form0001:
COMMAND_TARGET_IS 0000
FORM          0001
TOP            0001,SCREEN_Y-101
LEFT          0001,2
WIDTH          0001,SCREEN_X-12
HEIGHT        0001,28
FONT_NAME      0001,"Courier NEW"
FONT_SIZE      0001,08
COLOR          0001,000,255,000      :' grün / green
BORDER_HIDE    0001
PARENTNUMMER1% = HANDLE(0001)        :' Form 0001 auf Form 0000
PARENTNUMMER2% = HANDLE(0000)        :' Form 0000
GOSUB OBJEKT_AN
return
' ********** Menueform 0002 ****************************************************
form0002:
COMMAND_TARGET_IS 0000
FORM          0002
TOP          0002,2
LEFT          0002,2
WIDTH        0002,SCREEN_X-12
HEIGHT        0002,0                  :' SCREEN_Y-106
FONT_NAME    0002,"Courier NEW"
FONT_SIZE    0002,04
Color        0002,000,000,000        :' schwarz / black
BORDER_HIDE  0002
PARENTNUMMER1% = HANDLE(0002)        :' Form 0002 auf Form 0000
PARENTNUMMER2% = HANDLE(0000)        :' Form 0002
GOSUB OBJEKT_AN
' *** ERSTELLEN DES HAUPTMENÜ 9001 bis 9020 ************************************
COMMAND_TARGET_IS 0002
main_menu 0009
sub_menu 9001:CAPTION 9001,TEXT_MENUE_00$(01,SPRACHE%):parent 9001,0009
sub_menu 9002:CAPTION 9002,TEXT_MENUE_00$(02,SPRACHE%):parent 9002,0009
sub_menu 9003:CAPTION 9003,TEXT_MENUE_00$(03,SPRACHE%):parent 9003,0009
sub_menu 9004:CAPTION 9004,TEXT_MENUE_00$(04,SPRACHE%):parent 9004,0009
sub_menu 9005:CAPTION 9005,TEXT_MENUE_00$(05,SPRACHE%):parent 9005,0009
sub_menu 9006:CAPTION 9006,TEXT_MENUE_00$(06,SPRACHE%):parent 9006,0009
sub_menu 9007:CAPTION 9007,TEXT_MENUE_00$(07,SPRACHE%):parent 9007,0009
sub_menu 9008:CAPTION 9008,TEXT_MENUE_00$(08,SPRACHE%):parent 9008,0009
sub_menu 9009:CAPTION 9009,TEXT_MENUE_00$(09,SPRACHE%):parent 9009,0009
sub_menu 9010:CAPTION 9010,TEXT_MENUE_00$(10,SPRACHE%):parent 9010,0009
sub_menu 9011:CAPTION 9011,TEXT_MENUE_00$(11,SPRACHE%):parent 9011,0009
sub_menu 9012:CAPTION 9012,TEXT_MENUE_00$(12,SPRACHE%):parent 9012,0009
sub_menu 9013:CAPTION 9013,TEXT_MENUE_00$(13,SPRACHE%):parent 9013,0009
sub_menu 9014:CAPTION 9014,TEXT_MENUE_00$(14,SPRACHE%):parent 9014,0009
sub_menu 9015:CAPTION 9015,TEXT_MENUE_00$(15,SPRACHE%):parent 9015,0009
sub_menu 9016:CAPTION 9016,TEXT_MENUE_00$(16,SPRACHE%):parent 9016,0009
sub_menu 9017:CAPTION 9017,TEXT_MENUE_00$(17,SPRACHE%):parent 9017,0009
sub_menu 9018:CAPTION 9018,TEXT_MENUE_00$(18,SPRACHE%):parent 9018,0009
sub_menu 9019:CAPTION 9019,TEXT_MENUE_00$(19,SPRACHE%):parent 9019,0009
sub_menu 9020:CAPTION 9020,TEXT_MENUE_00$(20,SPRACHE%):parent 9020,0009
INACTIVE 9018
FOR i% = 9100 TO 9118
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9001:NEXT i%
INACTIVE 9104:INACTIVE 9117:' Teilstriche im Submenü
FOR i% = 9120 TO 9138
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9002:NEXT i%
FOR i% = 9140 TO 9158
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9003:NEXT i%
FOR i% = 9160 TO 9178
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9004:NEXT i%
FOR i% = 9180 TO 9198
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9005:NEXT i%
FOR i% = 9200 TO 9218
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9006:NEXT i%
FOR i% = 9220 TO 9238
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9007:NEXT i%
FOR i% = 9240 TO 9258
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9008:NEXT i%
FOR i% = 9260 TO 9278
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9009:NEXT i%
FOR i% = 9280 TO 9298
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9010:NEXT i%
FOR i% = 9300 TO 9318
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9011:NEXT i%
FOR i% = 9320 TO 9338
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9012:NEXT i%
FOR i% = 9340 TO 9358
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9013:NEXT i%
FOR i% = 9360 TO 9378
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9014:NEXT i%
FOR i% = 9380 TO 9398
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9015:NEXT i%
FOR i% = 9400 TO 9418
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9016:NEXT i%
FOR i% = 9420 TO 9438
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9017:NEXT i%
FOR i% = 9460 TO 9478
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9019:NEXT i%
FOR i% = 9480 TO 9498
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9020:NEXT i%
return
' ********** Symbolform 0003 für die Zukunft ***********************************
form0003:
COMMAND_TARGET_IS 0000
FORM          0003
TOP          0003,22
LEFT          0003,2
WIDTH        0003,SCREEN_X-12
HEIGHT        0003,50
FONT_NAME    0003,"Courier NEW"
FONT_SIZE    0003,06
COLOR        0003,255,000,000  :' rot / red
PARENTNUMMER1% = HANDLE(0003)    :' Form 0003 auf Form 0000
PARENTNUMMER2% = HANDLE(0000)    :' Form 0003
GOSUB OBJEKT_AN
BORDER_HIDE  0003
return
' *** Clientform fix 0004 für variablen Clientformen erstellen *****************
form0004:
COMMAND_TARGET_IS 0000
FORM          0004
TOP          0004,74
LEFT          0004,2
WIDTH        0004,SCREEN_X-12
HEIGHT        0004,SCREEN_Y-177
FONT_NAME    0004,"Courier NEW"
FONT_SIZE    0004,06
COLOR        0004,000,000,255  :' blau / blue
PARENTNUMMER1% = HANDLE(0004)    :' Form 0004 auf Form 0000
PARENTNUMMER2% = HANDLE(0000)    :' Form 0004
GOSUB OBJEKT_AN
BORDER_HIDE  0004
return
' *** Clientformen variabel die auf Clientform fix 0004 erstellt werden ********
CLIENTFORM:
COMMAND_TARGET_IS 0004
no%      =      no% + 10
Form_nr% =      no%
Form            no%
hide            no%
gosub add_client_area
top            no%,0
left            no%,0
width          no%,SCREEN_X-12
height          no%,SCREEN_Y-177
FONT_NAME      no%,"Courier NEW"
FONT_SIZE      no%,06
COLOR          no%,222,222,222
PARENTNUMMER1% = HANDLE(no%)    :' Form XXXX auf Form 0004 befestigen
PARENTNUMMER2% = HANDLE(0004)
GOSUB OBJEKT_AN
BORDER_HIDE  no%
show no%
' *** FORM MIT FENSTER *********************************************************
COMMAND_TARGET_IS Form_nr%
no%      =      no% + 1
Form            no%
hide            no%
' gosub add_client_area
top            no%,0
left            no%,0
width          no%,SCREEN_X-12 -50
height          no%,40              :' SCREEN_Y-177 -50
FONT_NAME      no%,"Courier NEW"
FONT_SIZE      no%,06
COLOR          no%,000,222,000
PARENTNUMMER1% = HANDLE(no%)    :' Form XXXX auf Form 0004 befestigen
PARENTNUMMER2% = HANDLE(Form_nr%)
GOSUB OBJEKT_AN
BORDER_HIDE  no%
show no%
gosub add_object      : ' allow vertical scrolling
gosub add_hor_object  : ' allow horizontal scrolling
'
COMMAND_TARGET_IS 0004
' *** Programm - Teil beginn *** Tabelle erstellen *****************************
Zeilennummer$  = "0000"
Spaltennummer$ = "0000"
Spalte%        = 00030
Zeile%        = 01410
' ***
no% =      no% + 1
grid                  no%
parent    no%,client_area%(n_client_area%)
hide                  no%
top                  no%,050                :' Anzahl Pixel von oben
left                  no%,049              :' Anzahl der Pixel von links
width                no%,1542              :' Tabellen Breite
height                no%,max_height%-250    :' Tabellen Höhe
FONT_NAME            no%,"Courier NEW"
FONT_SIZE            no%,08
grid_column          no%,Spalte%  :' Anzahl Spalten
grid_row              no%,Zeile%  :' Anzahl Zeilen
grid_column_width    no%,50      :' Breite Spalten
grid_row_height      no%,20      :' Höhe Spalten
grid_column_fixed    no%,1        :' Anzahl fixierter Spalten
grid_row_fixed        no%,1        :' Anzahl fixierter Zeilen
grid_one_column_width no%,1,50    :' Erste Spalte mit xx Pixel
grid_one_row_height  no%,1,20    :' Erste Zeile mit xx Pixel
grid_column_sizing_off no%          :' Spalten sind mit der Maus nicht verschiebbar
grid_row_sizing_off no%            :' Zeilen sind mit der Maus nicht verschiebbar
show no%
' ******************************************************************************
gosub add_object      : ' allow vertical scrolling
gosub add_hor_object  : ' allow horizontal scrolling
' *** Programm - Tabelle 1. Spalte  erstellen **********************************
Zeilennummer$  = "0000"
Spaltennummer$ = "0000"
Spalte%        = 00001
Zeile%        = 01410
' ***
no% =      no% + 1
grid                  no%
parent    no%,client_area%(n_client_area%)
hide                  no%
top                  no%,050                :' Anzahl Pixel von oben
left                  no%,049                :' Anzahl der Pixel von links
width                no%,51              :' Tabellen Breite
height                no%,max_height%-250    :' Tabellen Höhe
FONT_NAME            no%,"Courier NEW"
FONT_SIZE            no%,08
grid_column          no%,Spalte%  :' Anzahl Spalten
grid_row              no%,Zeile%  :' Anzahl Zeilen
grid_column_width    no%,50      :' Breite Spalten
grid_row_height      no%,20      :' Höhe Spalten
grid_one_column_width no%,1,50    :' Erste Spalte mit xx Pixel
grid_one_row_height  no%,1,20    :' Erste Zeile mit xx Pixel
grid_column_sizing_off no%          :' Spalten sind mit der Maus nicht verschiebbar
grid_row_sizing_off no%            :' Zeilen sind mit der Maus nicht verschiebbar
show no%
' *** Beschriftung der 2. bis X. Zeile  ****************************************
show no%
For i% = 1 to Zeile%
Zeilennummer$ = "0000"
Zeilennummer$ = Zeilennummer$+STR$(i%)
Zeilennummer$ = Right$(Zeilennummer$,4)
Zeilennummer$ = " " + Zeilennummer$
grid_write no%,i%+1,1,Zeilennummer$      :' schreiben ab 2. Zeile, 1. Spalte
next i%
 gosub add_object      : ' allow vertical scrolling
' gosub add_hor_object  : ' allow horizontal scrolling
' *** Programm - Tabellenkopf erstellen ****************************************
Zeilennummer$  = "0000"
Spaltennummer$ = "0000"
Spalte%        = 00030
Zeile%        = 00001
' ******************************************************************************
no% =      no% + 1
grid                  no%
parent    no%,client_area%(n_client_area%)
hide                  no%
top                  no%,050                :' Anzahl Pixel von oben
left                  no%,048                :' Anzahl der Pixel von links
width                no%,1542              :' Tabellen Breite
height                no%,22                :' Tabellen Höhe
FONT_NAME            no%,"Courier NEW"
FONT_SIZE            no%,08
grid_column          no%,Spalte%  :' Anzahl Spalten
grid_row              no%,Zeile%  :' Anzahl Zeilen
grid_column_width    no%,50      :' Breite Spalten
grid_row_height      no%,22      :' Höhe Spalten
grid_one_column_width no%,1,51    :' Erste Spalte mit xx Pixel
grid_one_row_height  no%,1,20    :' Erste Zeile mit xx Pixel
grid_column_sizing_off no%        :' Spalten sind mit der Maus nicht verschiebbar
grid_row_sizing_off no%            :' Zeilen sind mit der Maus nicht verschiebbar
show no%
For i% = 1 to Spalte%
Spaltennummer$ = "0000"
Spaltennummer$ = Spaltennummer$+STR$(i%)
Spaltennummer$ = Right$(Spaltennummer$,4)
Spaltennummer$ = " " + Spaltennummer$
grid_write no%,1,i%+1,Spaltennummer$      :' schreiben ab 2. Spalte, 1. Zeile
next i%
inactive no%
gosub add_hor_object  : ' allow horizontal scrolling
'
' end  :'  <----------------------------------
'
gosub BAR_HORIZONTAL_H  :' Bar Horizontal auf AREA erstellen
gosub BAR_VERTICAL_V    :' Bar Vertical auf AREA erstellen
Return
' *** SCROLL BAR VERTICAL ******************************************************
BAR_VERTICAL_V:
no% =      no% + 1
scroll_bar no%
scroll_bar_vertical%(n_client_area%) = no%
parent    no%,client_area%(n_client_area%)
vertical  no%
top        no%,0
left      no%,SCREEN_X-30
height    no%,SCREEN_Y-195
min        no%,0
max        no%, max_height% - height(client_area%(n_client_area%))-20
on_change  no%,scroll_vertical
Return
' *** SCROLL BAR HORIZONTAL ****************************************************
BAR_HORIZONTAL_H:
no% =      no% + 1
scroll_bar no%
scroll_bar_horizontal%(n_client_area%) = no%
parent    no%,client_area%(n_client_area%)
horizontal no%
top        no%,SCREEN_Y-194
left      no%,0
width      no%,SCREEN_X-29
min        no%,0
max        no%, max_width% - width(client_area%(n_client_area%))-20
on_change  no%,scroll_horizontal
return
' ***
add_object:
  n_obj%(n_client_area%) = n_obj%(n_client_area%) + 1
  tab_obj%(n_obj%(n_client_area%),n_client_area%) = no%
  return
' ***
add_hor_object:
  n_hor_obj%(n_client_area%) = n_hor_obj%(n_client_area%) + 1
  tab_hor_obj%(n_hor_obj%(n_client_area%),n_client_area%) = no%
  return
' ***
add_client_area:
  n_client_area% = n_client_area% + 1
  client_area%(n_client_area%) = no%
  return
' ***
scroll_vertical:
  n% = number_change
  for i%=1 to n_client_area%
    if scroll_bar_vertical%(i%)=n%
      x_client_area% = i%
      exit_for
    end_if
  next i%
  if n_obj%(x_client_area%)=0 then return
  n% = position(scroll_bar_vertical%(x_client_area%)) - scroll_pos%(x_client_area%)
  scroll_pos%(x_client_area%) = position(scroll_bar_vertical%(x_client_area%))
  if x_client_area%<>1
    caption separator%(x_client_area%),"Client area "+str$(x_client_area%)+" Page "+str$(int(scroll_pos%(x_client_area%)/560)+1)
  end_if
  for i%=1 to n_obj%(x_client_area%)
    top tab_obj%(i%,x_client_area%),top(tab_obj%(i%,x_client_area%)) - n%
    if option_top_hide%(x_client_area%)=1
      if top(tab_obj%(i%,x_client_area%))<10
        hide tab_obj%(i%,x_client_area%)
      else
        show tab_obj%(i%,x_client_area%)
      end_if
    end_if
  next i%
  return
' ***
scroll_horizontal:
  n% = number_change
  for i%=1 to n_client_area%
    if scroll_bar_horizontal%(i%)=n%
      x_client_area% = i%
      exit_for
    end_if
  next i%
  if n_hor_obj%(x_client_area%)=0 then return
  n% = position(scroll_bar_horizontal%(x_client_area%)) - scroll_pos_horizontal%(x_client_area%)
  scroll_pos_horizontal%(x_client_area%) = position(scroll_bar_horizontal%(x_client_area%))
  for i%=1 to n_hor_obj%(x_client_area%)
    left tab_hor_obj%(i%,x_client_area%),left(tab_hor_obj%(i%,x_client_area%)) - n%
    if option_left_hide%(x_client_area%)=1
      if left(tab_hor_obj%(i%,x_client_area%))<10
        hide tab_hor_obj%(i%,x_client_area%)
      else
        show tab_hor_obj%(i%,x_client_area%)
      end_if
    end_if
  next i%
  return
' ***
area00:
  hide client_area%(x_client_area%)
  x_client_area% = 1
  show client_area%(x_client_area%)
'  caption separator%(x_client_area%),"Client area "+str$(x_client_area%)+" Page "+str$(int(scroll_pos%(x_client_area%)/560)+1)
  return
' ***
main:
  x_client_area% = 1
  gosub area00
  return
' *** 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
' *** TEXT FÜR HAUPTMENÜ IN DATA ZELLEN ERSTELLEN ******************************
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 "MULTIMOMENTSTUDIE" ,"MULTI-DEGREE MOMENT " ,"PLUSIEURS DEGRÉS MOMENT "
DATA "MENUE 11"          ,"MENU 11 "            ,"MENU 11 "
DATA "FORMELBILDUNG"    ,"EDUCATION FORMULA "  ,"ÉDUCATION FORMULE "
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 "EINSTELLUNG"      ,"SETTING "            ," MISE EN "
DATA " "                ," "                    ," "
DATA "HILFE"            ,"HELP"                ,"AID"
DATA "INFO"              ,"INFO"                ,"INFO"
' ***
Hauptmenue:
FOR i% = 1 TO 20 :FOR j% = 1 TO 3
READ  TEXT_MENUE_00$(i%,j%)
NEXT j%  :NEXT i%
RETURN
' ***
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 " :' INAKTIV
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 " :' INAKTIV
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 "  :' INAKTIV
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 " :' INAKTIV
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 "  :' INAKTIV
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 " :' INAKTIV
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 "  :' INAKTIV
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 "  :' INAKTIV
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 "  :' INAKTIV
DATA " MM -- 0101 "," MM --  0101 "," MM --  0101 "
DATA " MM -- 0102 "," MM --  0102 "," MM --  0102 "
DATA " MM -- 0103 "," MM --  0103 "," MM --  0103 "
DATA " MM -- 0104 "," MM --  0104 "," MM --  0104 "
DATA " MM -- 0105 "," MM --  0105 "," MM --  0105 "
DATA " MM -- 0106 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0107 "," MM --  0107 "," MM --  0107 "
DATA " MM -- 0108 "," MM --  0108 "," MM --  0108 "
DATA " MM -- 0109 "," MM --  0109 "," MM --  0109 "
DATA " MM -- 0110 "," MM --  0110 "," MM --  0110 "
DATA " MM -- 0111 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0112 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0113 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0114 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0115 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0116 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0117 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0118 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0119 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0120 "," MM --  0106 "," MM --  0106 "  :' INAKTIV
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 "  :' INAKTIV
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 "  :' INAKTIV
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 " :' INAKTIV
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 "  :' inaktiv
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 "  :' INAKTIV
DATA " area1 1601 "," area1 1601 "," area1 1601 "
DATA " area2 1602 "," TEST-SUB MENU 1602 "," TEST-SUB MENU 1602 "
DATA " area3 1603 "," TEST-SUB MENU 1603 "," TEST-SUB MENU 1603 "
DATA " area4 1604 "," TEST-SUB MENU 1604 "," TEST-SUB MENU 1604 "
DATA " area4 1605 "," TEST-SUB MENU 1605 "," TEST-SUB MENU 1605 "
DATA " area4 1606 "," TEST-SUB MENU 1606 "," TEST-SUB MENU 1606 "
DATA " area4 1607 "," TEST-SUB MENU 1607 "," TEST-SUB MENU 1607 "
DATA " area4 1608 "," TEST-SUB MENU 1608 "," TEST-SUB MENU 1608 "
DATA " area4 1609 "," TEST-SUB MENU 1609 "," TEST-SUB MENU 1609 "
DATA " area4 1610 "," TEST-SUB MENU 1610 "," TEST-SUB MENU 1610 "
DATA " area4 1611 "," TEST-SUB MENU 1611 "," TEST-SUB MENU 1611 "
DATA " area4 1612 "," TEST-SUB MENU 1612 "," TEST-SUB MENU 1612 "
DATA " area4 1613 "," TEST-SUB MENU 1613 "," TEST-SUB MENU 1613 "
DATA " area4 1614 "," TEST-SUB MENU 1614 "," TEST-SUB MENU 1614 "
DATA " area4 1615 "," TEST-SUB MENU 1615 "," TEST-SUB MENU 1615 "
DATA " area4 1616 "," TEST-SUB MENU 1616 "," TEST-SUB MENU 1616 "
DATA " area4 1617 "," TEST-SUB MENU 1617 "," TEST-SUB MENU 1617 "
DATA " area4 1618 "," TEST-SUB MENU 1618 "," TEST-SUB MENU 1618 "
DATA " area4 1619 "," TEST-SUB MENU 1619 "," TEST-SUB MENU 1619 "
DATA " TEST-U-Menü 1620 "," TEST-SUB MENU 1620 "," TEST-SUB MENU 1620 ":' INAKTIV
DATA "Einstellungen"                    ," Settings                          "," Paramètres                                      "
DATA "Sprache einstellen"              ," Language set                      "," Langue fixé                                    "
DATA "Verzeichnis einstellen"          ,"directory Settings"                ,"les paramètres du répertoire                                    "
DATA "ACTIV 1704                      "," ACTIV  1704                      "," ACTIV  1704                                    "
DATA "ACTIV 1705                      "," ACTIV  1705                      "," ACTIV  1705                                    "
DATA "ACTIV 1706                      "," ACTIV  1706                      "," ACTIV  1706                                    "
DATA "ACTIV 1707                      "," ACTIV  1707                      "," ACTIV  1707                                    "
DATA "ACTIV 1708                      "," ACTIV  1708                      "," ACTIV  1708                                    "
DATA "ACTIV 1709                      "," ACTIV  1709                      "," ACTIV  1709                                    "
DATA "Daten aus Excel-Tabelle einlesen ","Reading data from Excel spreadsheet","La lecture des données de feuille de calcul Excel"
DATA "Daten als Excel-Tabelle speichern","Data as an Excel spreadsheet store ","Données d'un magasin feuille de calcul Excel    "
DATA "ACTIV 1712                      "," ACTIV  1712                      "," ACTIV  1712                                    "
DATA "ACTIV 1713                      "," ACTIV  1713                      "," ACTIV  1713                                    "
DATA "ACTIV 1714                      "," ACTIV  1714                      "," ACTIV  1714                                    "
DATA "ACTIV 1715                      "," ACTIV  1715                      "," ACTIV  1715                                    "
DATA "ACTIV 1716                      "," ACTIV  1716                      "," ACTIV  1716                                    "
DATA "ACTIV 1717                      "," ACTIV  1717                      "," ACTIV  1717                                    "
DATA "Programmierer INFO              ","Programmierer INFO                ","Programmierer INFO                              "
DATA "Menü ändern                      "," Menu change                      "," changement Menu                                "
DATA "INACTIV 1720"," INACTIV 1720 "," INACTIV 1720 "  :' INAKTIV
DATA " UNTERMENUE 1801 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1802 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1803 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1804 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1805 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1806 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1807 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1808 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1809 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1810 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1811 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1812 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1813 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1814 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1815 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1816 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1817 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1818 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1819 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1820 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA "DATEI"                ,"FILE"                ,"DOSSIER"
DATA " HILFE 02 "          ," HELP 02 "            ," AID 02 "
DATA " HILFE 03 "          ," HELP 03 "            ," AID 03 "
DATA " HILFE 04 "          ," HELP 04 "            ," AID 04 "
DATA " HILFE 05 "          ," HELP 05 "            ," AID 05 "
DATA " HILFE 06 "          ," HELP 06 "            ," AID 06 "
DATA " HILFE 07 "          ," HELP 07 "            ," AID 07 "
DATA " HILFE 08 "          ," HELP 08 "            ," AID 08 "
DATA " HILFE 09 "          ," HELP 09 "            ," AID 09 "
DATA "zur Multimomentstudie","zur Multimomentstudie","zur Multimomentstudie"
DATA "HILFE 11"            ," HELP 11 "            ," AID 11 "
DATA "zur Formelbildung"    ,"zur Formelbildung"    ,"zur Formelbildung"
DATA " HILFE 13 "          ," HELP 13 "            ," AID 13 "
DATA " HILFE 14 "          ," HELP 14 "            ," AID 14 "
DATA " HILFE 15 "          ," HELP 15 "            ," AID 15 "
DATA " HILFE 16 "          ," HELP 16 "            ," AID 16 "
DATA "zu Einstellungen"    ,"zu Einstellungen"    ,"zu Einstellungen"
DATA " "," "," "  :' INAKTIV
DATA " "," "," "  :' INAKTIV
DATA " "," "," "  :' INAKTIV
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  2004 "," SUB NENU  2006 "
DATA " UNTERMENUE 2005 "," SUB NENU  2004 "," SUB NENU  2006 "
DATA " UNTERMENUE 2006 "," SUB NENU  2005 "," SUB NENU  2006 "
DATA " UNTERMENUE 2007 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2008 "," SUB NENU  2007 "," SUB NENU  2006 "
DATA " UNTERMENUE 2009 "," SUB NENU  2008 "," SUB NENU  2006 "
DATA " UNTERMENUE 2010 "," SUB NENU  2009 "," SUB NENU  2006 "
DATA " UNTERMENUE 2011 "," SUB NENU  2010 "," SUB NENU  2006 "
DATA " UNTERMENUE 2012 "," SUB NENU  2011 "," SUB NENU  2006 "
DATA " UNTERMENUE 2013 "," SUB NENU  2012 "," SUB NENU  2006 "
DATA " UNTERMENUE 2014 "," SUB NENU  2013 "," SUB NENU  2006 "
DATA " UNTERMENUE 2015 "," SUB NENU  2014 "," SUB NENU  2006 "
DATA " UNTERMENUE 2016 "," SUB NENU  2015 "," SUB NENU  2006 "
DATA " UNTERMENUE 2017 "," SUB NENU  2017 "," SUB NENU  2006 "
DATA " UNTERMENUE 2018 "," SUB NENU  2018 "," SUB NENU  2006 "
DATA " Kalender "      ," Calendar "      ," calendrier "
DATA " "," "," " :' INAKTIV
' *** UNTERMENÜ-TEXTE IN VARIABLEN EINLESEN
Untermenue:
FOR i% = 1 TO 400  :FOR j% = 1 TO 3
READ  TEXT_MENUE_01$(i%,j%)
NEXT j% :NEXT i%
Return
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10128
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Klaus bitte Hilfe gelöst   Sam 9 Juin 2012 - 23:50

Du hattest den Aufruf von gosub add_client_area durch OBJEKT_AN ersetzt. Aber in Deiner neuen Routine wurde die entsprechende Form nicht in die Tabelle des Client Areas eingetragen.

Ich habe also den Aufruf in Deine Routine eingesetzt. Es werden dann allerdings mehr als Deine 4 vorgesehenen Client Areas. So habe ich die Anzahl auf 20 hochgesetzt.

Da Du die ersten 4 Forms ohne den no%=no%+1 Mechanismus erstellst, habe ich no%=1/2/3/4 vor dem OBJEKT_AN Aufruf einsetzen müssen.

Nun geht alles glatt, aber es zeigt wohl nicht das an, was Du Dir wünschst. Da musst Du jetzt genauer nachsehen, was wo verbleibt. Das Prinzip ist jetzt in Ordnung.

Code:
' *** Achtung die  "LoadProgram.dll" von Klaus wird benötigt
' *** Note the "LoadProgram.dll" Klaus is needed
' *** Notez le "LoadProgram.dll" Klaus est nécessaire
label labels
gosub labels
' ***
gosub constantes
gosub variables
gosub form0000              :' Grundform
gosub form0001              :' Fussform
gosub Hauptmenue            :' Data für Hauptmenü einlesen
gosub Untermenue            :' DATA für Untermenüs
gosub form0002              :' Menueform
gosub form0003              :' Symbolform  für die Zukunft
gosub form0004              :' Clientform fix
gosub CLIENTFORM            :' Clientform variabel
gosub main
' CLICK AUF MENÜ FORM 0010 *****************************************************
' 01
ON_CLICK 9100,area00
ON_CLICK 9118,PROGRAMM_ENDE
end
' ******************************************************************************
labels:
label form0000  :' Grundform
label form0001  :' Fussform
label form0002  :' Menueform
label form0003  :' Symbolform  für die Zukunft
label form0004  :' Clientform fix
LABEL OBJEKT_AN              :' Objekt anhängen
LABEL detacher                :' Objekt abhängen
DIM PARENTNUMMER1%
DIM PARENTNUMMER2%
DIM ancien%
label Hauptmenue
label Untermenue
label PROGRAMM_ENDE
label constantes
label variables
label CLIENTFORM
label main
label BAR_HORIZONTAL_H
label BAR_VERTICAL_V
label add_object
label add_hor_object
label scroll_vertical
label scroll_horizontal, add_client_area
label area00
DIM INI_WERT$
DIM SPRACHE%
DIM INI_DIR_A$
DIM INI_DATEI_WERTE0$
return
' ******************************************************************************
constantes:
dim max_client_area%
    max_client_area% =  20
dim max_height%          : max_height%      = 30000
dim max_width%          : max_width%      = 4000
dim option_left_hide%(max_client_area%)
dim option_top_hide%(max_client_area%)
return
' ******************************************************************************
variables:
dim no%
dim n_client_area%
dim client_area%(max_client_area%)
dim no_name%
dim no_memo%
dim scroll_bar%(max_client_area%)
dim scroll_bar_horizontal%(max_client_area%)
dim scroll_pos%(max_client_area%)
dim scroll_pos_horizontal%(max_client_area%)
dim n_obj%(max_client_area%)
dim scroll_bar_vertical%(max_client_area%)
dim separator%(max_client_area%)
dim tab_hor_obj%(40,max_client_area%)
dim n_hor_obj%(max_client_area%)
dim tab_obj%(40,max_client_area%)
dim SEITE%
dim i%, j%, n%
dim x_client_area%
dim Form_nr%
' *** VARIABLE FÜR TABELLEN ERSTELLEN ******************************************
DIM Zeilennummer$
DIM Spaltennummer$
DIM Spalte%
DIM Zeile%
' DIM TABWERTE%(Zeile%,Spalte%)
DIM TABTEXTE$(Zeile%,Spalte%)
DIM a, b
' *** VARIABLE FÜR MENÜS ERSTELLEN *********************************************
DIM Menuetext$
DIM TEXT_MENUE_00$(20,3)
DIM TEXT_MENUE_01$(9000,3)
DIM TITEL$(99,3)
return
' *** PROGRAMM BEENDEN *********************************************************
PROGRAMM_ENDE:
terminate
END
' ********** Grundform 0000 ****************************************************
form0000:
TOP          0000,0
LEFT          0000,0
width        0000,SCREEN_X
height        0000,SCREEN_Y-44
caption      0000,"REFA - Programme"
color        0000,000,000,000        :' schwarz / black
PARENTNUMMER2% = HANDLE(0000)        :' Form 0000
Return
' ********** Fussform 0001 *****************************************************
form0001:
COMMAND_TARGET_IS 0000
FORM          0001
TOP            0001,SCREEN_Y-101
LEFT          0001,2
WIDTH          0001,SCREEN_X-12
HEIGHT        0001,28
FONT_NAME      0001,"Courier NEW"
FONT_SIZE      0001,08
COLOR          0001,000,255,000      :' grün / green
BORDER_HIDE    0001
PARENTNUMMER1% = HANDLE(0001)        :' Form 0001 auf Form 0000
PARENTNUMMER2% = HANDLE(0000)        :' Form 0000
no% = 1
GOSUB OBJEKT_AN
return
' ********** Menueform 0002 ****************************************************
form0002:
COMMAND_TARGET_IS 0000
FORM          0002
TOP          0002,2
LEFT          0002,2
WIDTH        0002,SCREEN_X-12
HEIGHT        0002,0                  :' SCREEN_Y-106
FONT_NAME    0002,"Courier NEW"
FONT_SIZE    0002,04
Color        0002,000,000,000        :' schwarz / black
BORDER_HIDE  0002
PARENTNUMMER1% = HANDLE(0002)        :' Form 0002 auf Form 0000
PARENTNUMMER2% = HANDLE(0000)        :' Form 0002
no% = 2
GOSUB OBJEKT_AN
' *** ERSTELLEN DES HAUPTMENÜ 9001 bis 9020 ************************************
COMMAND_TARGET_IS 0002
main_menu 0009
sub_menu 9001:CAPTION 9001,TEXT_MENUE_00$(01,SPRACHE%):parent 9001,0009
sub_menu 9002:CAPTION 9002,TEXT_MENUE_00$(02,SPRACHE%):parent 9002,0009
sub_menu 9003:CAPTION 9003,TEXT_MENUE_00$(03,SPRACHE%):parent 9003,0009
sub_menu 9004:CAPTION 9004,TEXT_MENUE_00$(04,SPRACHE%):parent 9004,0009
sub_menu 9005:CAPTION 9005,TEXT_MENUE_00$(05,SPRACHE%):parent 9005,0009
sub_menu 9006:CAPTION 9006,TEXT_MENUE_00$(06,SPRACHE%):parent 9006,0009
sub_menu 9007:CAPTION 9007,TEXT_MENUE_00$(07,SPRACHE%):parent 9007,0009
sub_menu 9008:CAPTION 9008,TEXT_MENUE_00$(08,SPRACHE%):parent 9008,0009
sub_menu 9009:CAPTION 9009,TEXT_MENUE_00$(09,SPRACHE%):parent 9009,0009
sub_menu 9010:CAPTION 9010,TEXT_MENUE_00$(10,SPRACHE%):parent 9010,0009
sub_menu 9011:CAPTION 9011,TEXT_MENUE_00$(11,SPRACHE%):parent 9011,0009
sub_menu 9012:CAPTION 9012,TEXT_MENUE_00$(12,SPRACHE%):parent 9012,0009
sub_menu 9013:CAPTION 9013,TEXT_MENUE_00$(13,SPRACHE%):parent 9013,0009
sub_menu 9014:CAPTION 9014,TEXT_MENUE_00$(14,SPRACHE%):parent 9014,0009
sub_menu 9015:CAPTION 9015,TEXT_MENUE_00$(15,SPRACHE%):parent 9015,0009
sub_menu 9016:CAPTION 9016,TEXT_MENUE_00$(16,SPRACHE%):parent 9016,0009
sub_menu 9017:CAPTION 9017,TEXT_MENUE_00$(17,SPRACHE%):parent 9017,0009
sub_menu 9018:CAPTION 9018,TEXT_MENUE_00$(18,SPRACHE%):parent 9018,0009
sub_menu 9019:CAPTION 9019,TEXT_MENUE_00$(19,SPRACHE%):parent 9019,0009
sub_menu 9020:CAPTION 9020,TEXT_MENUE_00$(20,SPRACHE%):parent 9020,0009
INACTIVE 9018
FOR i% = 9100 TO 9118
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9001:NEXT i%
INACTIVE 9104:INACTIVE 9117:' Teilstriche im Submenü
FOR i% = 9120 TO 9138
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9002:NEXT i%
FOR i% = 9140 TO 9158
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9003:NEXT i%
FOR i% = 9160 TO 9178
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9004:NEXT i%
FOR i% = 9180 TO 9198
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9005:NEXT i%
FOR i% = 9200 TO 9218
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9006:NEXT i%
FOR i% = 9220 TO 9238
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9007:NEXT i%
FOR i% = 9240 TO 9258
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9008:NEXT i%
FOR i% = 9260 TO 9278
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9009:NEXT i%
FOR i% = 9280 TO 9298
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9010:NEXT i%
FOR i% = 9300 TO 9318
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9011:NEXT i%
FOR i% = 9320 TO 9338
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9012:NEXT i%
FOR i% = 9340 TO 9358
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9013:NEXT i%
FOR i% = 9360 TO 9378
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9014:NEXT i%
FOR i% = 9380 TO 9398
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9015:NEXT i%
FOR i% = 9400 TO 9418
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9016:NEXT i%
FOR i% = 9420 TO 9438
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9017:NEXT i%
FOR i% = 9460 TO 9478
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9019:NEXT i%
FOR i% = 9480 TO 9498
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9020:NEXT i%
return
' ********** Symbolform 0003 für die Zukunft ***********************************
form0003:
COMMAND_TARGET_IS 0000
FORM          0003
TOP          0003,22
LEFT          0003,2
WIDTH        0003,SCREEN_X-12
HEIGHT        0003,50
FONT_NAME    0003,"Courier NEW"
FONT_SIZE    0003,06
COLOR        0003,255,000,000  :' rot / red
PARENTNUMMER1% = HANDLE(0003)    :' Form 0003 auf Form 0000
PARENTNUMMER2% = HANDLE(0000)    :' Form 0003
no% = 3
GOSUB OBJEKT_AN
BORDER_HIDE  0003
return
' *** Clientform fix 0004 für variablen Clientformen erstellen *****************
form0004:
COMMAND_TARGET_IS 0000
FORM          0004
TOP          0004,74
LEFT          0004,2
WIDTH        0004,SCREEN_X-12
HEIGHT        0004,SCREEN_Y-177
FONT_NAME    0004,"Courier NEW"
FONT_SIZE    0004,06
COLOR        0004,000,000,255  :' blau / blue
PARENTNUMMER1% = HANDLE(0004)    :' Form 0004 auf Form 0000
PARENTNUMMER2% = HANDLE(0000)    :' Form 0004
no% = 4
GOSUB OBJEKT_AN
BORDER_HIDE  0004
return
' *** Clientformen variabel die auf Clientform fix 0004 erstellt werden ********
CLIENTFORM:
COMMAND_TARGET_IS 0004
no%      =      no% + 10
Form_nr% =      no%
Form            no%
hide            no%
gosub add_client_area
top            no%,0
left            no%,0
width          no%,SCREEN_X-12
height          no%,SCREEN_Y-177
FONT_NAME      no%,"Courier NEW"
FONT_SIZE      no%,06
COLOR          no%,222,222,222
PARENTNUMMER1% = HANDLE(no%)    :' Form XXXX auf Form 0004 befestigen
PARENTNUMMER2% = HANDLE(0004)
GOSUB OBJEKT_AN
BORDER_HIDE  no%
show no%
' *** FORM MIT FENSTER *********************************************************
COMMAND_TARGET_IS Form_nr%
no%      =      no% + 1
Form            no%
hide            no%
' gosub add_client_area
top            no%,0
left            no%,0
width          no%,SCREEN_X-12 -50
height          no%,40              :' SCREEN_Y-177 -50
FONT_NAME      no%,"Courier NEW"
FONT_SIZE      no%,06
COLOR          no%,000,222,000
PARENTNUMMER1% = HANDLE(no%)    :' Form XXXX auf Form 0004 befestigen
PARENTNUMMER2% = HANDLE(Form_nr%)
GOSUB OBJEKT_AN
BORDER_HIDE  no%
show no%
gosub add_object      : ' allow vertical scrolling
gosub add_hor_object  : ' allow horizontal scrolling
'
COMMAND_TARGET_IS 0004
' *** Programm - Teil beginn *** Tabelle erstellen *****************************
Zeilennummer$  = "0000"
Spaltennummer$ = "0000"
Spalte%        = 00030
Zeile%        = 01410
' ***
no% =      no% + 1
grid                  no%
parent    no%,client_area%(n_client_area%)
hide                  no%
top                  no%,050                :' Anzahl Pixel von oben
left                  no%,049              :' Anzahl der Pixel von links
width                no%,1542              :' Tabellen Breite
height                no%,max_height%-250    :' Tabellen Höhe
FONT_NAME            no%,"Courier NEW"
FONT_SIZE            no%,08
grid_column          no%,Spalte%  :' Anzahl Spalten
grid_row              no%,Zeile%  :' Anzahl Zeilen
grid_column_width    no%,50      :' Breite Spalten
grid_row_height      no%,20      :' Höhe Spalten
grid_column_fixed    no%,1        :' Anzahl fixierter Spalten
grid_row_fixed        no%,1        :' Anzahl fixierter Zeilen
grid_one_column_width no%,1,50    :' Erste Spalte mit xx Pixel
grid_one_row_height  no%,1,20    :' Erste Zeile mit xx Pixel
grid_column_sizing_off no%          :' Spalten sind mit der Maus nicht verschiebbar
grid_row_sizing_off no%            :' Zeilen sind mit der Maus nicht verschiebbar
show no%
' ******************************************************************************
gosub add_object      : ' allow vertical scrolling
gosub add_hor_object  : ' allow horizontal scrolling
' *** Programm - Tabelle 1. Spalte  erstellen **********************************
Zeilennummer$  = "0000"
Spaltennummer$ = "0000"
Spalte%        = 00001
Zeile%        = 01410
' ***
no% =      no% + 1
grid                  no%
parent    no%,client_area%(n_client_area%)
hide                  no%
top                  no%,050                :' Anzahl Pixel von oben
left                  no%,049                :' Anzahl der Pixel von links
width                no%,51              :' Tabellen Breite
height                no%,max_height%-250    :' Tabellen Höhe
FONT_NAME            no%,"Courier NEW"
FONT_SIZE            no%,08
grid_column          no%,Spalte%  :' Anzahl Spalten
grid_row              no%,Zeile%  :' Anzahl Zeilen
grid_column_width    no%,50      :' Breite Spalten
grid_row_height      no%,20      :' Höhe Spalten
grid_one_column_width no%,1,50    :' Erste Spalte mit xx Pixel
grid_one_row_height  no%,1,20    :' Erste Zeile mit xx Pixel
grid_column_sizing_off no%          :' Spalten sind mit der Maus nicht verschiebbar
grid_row_sizing_off no%            :' Zeilen sind mit der Maus nicht verschiebbar
show no%
' *** Beschriftung der 2. bis X. Zeile  ****************************************
show no%
For i% = 1 to Zeile%
Zeilennummer$ = "0000"
Zeilennummer$ = Zeilennummer$+STR$(i%)
Zeilennummer$ = Right$(Zeilennummer$,4)
Zeilennummer$ = " " + Zeilennummer$
grid_write no%,i%+1,1,Zeilennummer$      :' schreiben ab 2. Zeile, 1. Spalte
next i%
 gosub add_object      : ' allow vertical scrolling
' gosub add_hor_object  : ' allow horizontal scrolling
' *** Programm - Tabellenkopf erstellen ****************************************
Zeilennummer$  = "0000"
Spaltennummer$ = "0000"
Spalte%        = 00030
Zeile%        = 00001
' ******************************************************************************
no% =      no% + 1
grid                  no%
parent    no%,client_area%(n_client_area%)
hide                  no%
top                  no%,050                :' Anzahl Pixel von oben
left                  no%,048                :' Anzahl der Pixel von links
width                no%,1542              :' Tabellen Breite
height                no%,22                :' Tabellen Höhe
FONT_NAME            no%,"Courier NEW"
FONT_SIZE            no%,08
grid_column          no%,Spalte%  :' Anzahl Spalten
grid_row              no%,Zeile%  :' Anzahl Zeilen
grid_column_width    no%,50      :' Breite Spalten
grid_row_height      no%,22      :' Höhe Spalten
grid_one_column_width no%,1,51    :' Erste Spalte mit xx Pixel
grid_one_row_height  no%,1,20    :' Erste Zeile mit xx Pixel
grid_column_sizing_off no%        :' Spalten sind mit der Maus nicht verschiebbar
grid_row_sizing_off no%            :' Zeilen sind mit der Maus nicht verschiebbar
show no%
For i% = 1 to Spalte%
Spaltennummer$ = "0000"
Spaltennummer$ = Spaltennummer$+STR$(i%)
Spaltennummer$ = Right$(Spaltennummer$,4)
Spaltennummer$ = " " + Spaltennummer$
grid_write no%,1,i%+1,Spaltennummer$      :' schreiben ab 2. Spalte, 1. Zeile
next i%
inactive no%
gosub add_hor_object  : ' allow horizontal scrolling
'
 end  :'  <----------------------------------
'
gosub BAR_HORIZONTAL_H  :' Bar Horizontal auf AREA erstellen
gosub BAR_VERTICAL_V    :' Bar Vertical auf AREA erstellen
Return
' *** SCROLL BAR VERTICAL ******************************************************
BAR_VERTICAL_V:
no% =      no% + 1
scroll_bar no%
scroll_bar_vertical%(n_client_area%) = no%
parent    no%,client_area%(n_client_area%)
vertical  no%
top        no%,0
left      no%,SCREEN_X-30
height    no%,SCREEN_Y-195
min        no%,0
max        no%, max_height% - height(client_area%(n_client_area%))-20
on_change  no%,scroll_vertical
Return
' *** SCROLL BAR HORIZONTAL ****************************************************
BAR_HORIZONTAL_H:
no% =      no% + 1
scroll_bar no%
scroll_bar_horizontal%(n_client_area%) = no%
parent    no%,client_area%(n_client_area%)
horizontal no%
top        no%,SCREEN_Y-194
left      no%,0
width      no%,SCREEN_X-29
min        no%,0
max        no%, max_width% - width(client_area%(n_client_area%))-20
on_change  no%,scroll_horizontal
return
' ***
add_object:
  n_obj%(n_client_area%) = n_obj%(n_client_area%) + 1
  tab_obj%(n_obj%(n_client_area%),n_client_area%) = no%
  return
' ***
add_hor_object:
  n_hor_obj%(n_client_area%) = n_hor_obj%(n_client_area%) + 1
  tab_hor_obj%(n_hor_obj%(n_client_area%),n_client_area%) = no%
  return
' ***
add_client_area:
  n_client_area% = n_client_area% + 1
  client_area%(n_client_area%) = no%
  return
' ***
scroll_vertical:
  n% = number_change
  for i%=1 to n_client_area%
    if scroll_bar_vertical%(i%)=n%
      x_client_area% = i%
      exit_for
    end_if
  next i%
  if n_obj%(x_client_area%)=0 then return
  n% = position(scroll_bar_vertical%(x_client_area%)) - scroll_pos%(x_client_area%)
  scroll_pos%(x_client_area%) = position(scroll_bar_vertical%(x_client_area%))
  if x_client_area%<>1
    caption separator%(x_client_area%),"Client area "+str$(x_client_area%)+" Page "+str$(int(scroll_pos%(x_client_area%)/560)+1)
  end_if
  for i%=1 to n_obj%(x_client_area%)
    top tab_obj%(i%,x_client_area%),top(tab_obj%(i%,x_client_area%)) - n%
    if option_top_hide%(x_client_area%)=1
      if top(tab_obj%(i%,x_client_area%))<10
        hide tab_obj%(i%,x_client_area%)
      else
        show tab_obj%(i%,x_client_area%)
      end_if
    end_if
  next i%
  return
' ***
scroll_horizontal:
  n% = number_change
  for i%=1 to n_client_area%
    if scroll_bar_horizontal%(i%)=n%
      x_client_area% = i%
      exit_for
    end_if
  next i%
  if n_hor_obj%(x_client_area%)=0 then return
  n% = position(scroll_bar_horizontal%(x_client_area%)) - scroll_pos_horizontal%(x_client_area%)
  scroll_pos_horizontal%(x_client_area%) = position(scroll_bar_horizontal%(x_client_area%))
  for i%=1 to n_hor_obj%(x_client_area%)
    left tab_hor_obj%(i%,x_client_area%),left(tab_hor_obj%(i%,x_client_area%)) - n%
    if option_left_hide%(x_client_area%)=1
      if left(tab_hor_obj%(i%,x_client_area%))<10
        hide tab_hor_obj%(i%,x_client_area%)
      else
        show tab_hor_obj%(i%,x_client_area%)
      end_if
    end_if
  next i%
  return
' ***
area00:
  hide client_area%(x_client_area%)
  x_client_area% = 1
  show client_area%(x_client_area%)
'  caption separator%(x_client_area%),"Client area "+str$(x_client_area%)+" Page "+str$(int(scroll_pos%(x_client_area%)/560)+1)
  return
' ***
main:
  x_client_area% = 1
  gosub area00
  return
' *** Objekt anhängen
OBJEKT_AN:
gosub add_client_area
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
' *** TEXT FÜR HAUPTMENÜ IN DATA ZELLEN ERSTELLEN ******************************
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 "MULTIMOMENTSTUDIE" ,"MULTI-DEGREE MOMENT " ,"PLUSIEURS DEGRÉS MOMENT "
DATA "MENUE 11"          ,"MENU 11 "            ,"MENU 11 "
DATA "FORMELBILDUNG"    ,"EDUCATION FORMULA "  ,"ÉDUCATION FORMULE "
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 "EINSTELLUNG"      ,"SETTING "            ," MISE EN "
DATA " "                ," "                    ," "
DATA "HILFE"            ,"HELP"                ,"AID"
DATA "INFO"              ,"INFO"                ,"INFO"
' ***
Hauptmenue:
FOR i% = 1 TO 20 :FOR j% = 1 TO 3
READ  TEXT_MENUE_00$(i%,j%)
NEXT j%  :NEXT i%
RETURN
' ***
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 " :' INAKTIV
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 " :' INAKTIV
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 "  :' INAKTIV
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 " :' INAKTIV
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 "  :' INAKTIV
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 " :' INAKTIV
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 "  :' INAKTIV
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 "  :' INAKTIV
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 "  :' INAKTIV
DATA " MM -- 0101 "," MM --  0101 "," MM --  0101 "
DATA " MM -- 0102 "," MM --  0102 "," MM --  0102 "
DATA " MM -- 0103 "," MM --  0103 "," MM --  0103 "
DATA " MM -- 0104 "," MM --  0104 "," MM --  0104 "
DATA " MM -- 0105 "," MM --  0105 "," MM --  0105 "
DATA " MM -- 0106 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0107 "," MM --  0107 "," MM --  0107 "
DATA " MM -- 0108 "," MM --  0108 "," MM --  0108 "
DATA " MM -- 0109 "," MM --  0109 "," MM --  0109 "
DATA " MM -- 0110 "," MM --  0110 "," MM --  0110 "
DATA " MM -- 0111 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0112 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0113 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0114 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0115 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0116 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0117 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0118 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0119 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0120 "," MM --  0106 "," MM --  0106 "  :' INAKTIV
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 "  :' INAKTIV
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 "  :' INAKTIV
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 " :' INAKTIV
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 "  :' inaktiv
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 "  :' INAKTIV
DATA " area1 1601 "," area1 1601 "," area1 1601 "
DATA " area2 1602 "," TEST-SUB MENU 1602 "," TEST-SUB MENU 1602 "
DATA " area3 1603 "," TEST-SUB MENU 1603 "," TEST-SUB MENU 1603 "
DATA " area4 1604 "," TEST-SUB MENU 1604 "," TEST-SUB MENU 1604 "
DATA " area4 1605 "," TEST-SUB MENU 1605 "," TEST-SUB MENU 1605 "
DATA " area4 1606 "," TEST-SUB MENU 1606 "," TEST-SUB MENU 1606 "
DATA " area4 1607 "," TEST-SUB MENU 1607 "," TEST-SUB MENU 1607 "
DATA " area4 1608 "," TEST-SUB MENU 1608 "," TEST-SUB MENU 1608 "
DATA " area4 1609 "," TEST-SUB MENU 1609 "," TEST-SUB MENU 1609 "
DATA " area4 1610 "," TEST-SUB MENU 1610 "," TEST-SUB MENU 1610 "
DATA " area4 1611 "," TEST-SUB MENU 1611 "," TEST-SUB MENU 1611 "
DATA " area4 1612 "," TEST-SUB MENU 1612 "," TEST-SUB MENU 1612 "
DATA " area4 1613 "," TEST-SUB MENU 1613 "," TEST-SUB MENU 1613 "
DATA " area4 1614 "," TEST-SUB MENU 1614 "," TEST-SUB MENU 1614 "
DATA " area4 1615 "," TEST-SUB MENU 1615 "," TEST-SUB MENU 1615 "
DATA " area4 1616 "," TEST-SUB MENU 1616 "," TEST-SUB MENU 1616 "
DATA " area4 1617 "," TEST-SUB MENU 1617 "," TEST-SUB MENU 1617 "
DATA " area4 1618 "," TEST-SUB MENU 1618 "," TEST-SUB MENU 1618 "
DATA " area4 1619 "," TEST-SUB MENU 1619 "," TEST-SUB MENU 1619 "
DATA " TEST-U-Menü 1620 "," TEST-SUB MENU 1620 "," TEST-SUB MENU 1620 ":' INAKTIV
DATA "Einstellungen"                    ," Settings                          "," Paramètres                                      "
DATA "Sprache einstellen"              ," Language set                      "," Langue fixé                                    "
DATA "Verzeichnis einstellen"          ,"directory Settings"                ,"les paramètres du répertoire                                    "
DATA "ACTIV 1704                      "," ACTIV  1704                      "," ACTIV  1704                                    "
DATA "ACTIV 1705                      "," ACTIV  1705                      "," ACTIV  1705                                    "
DATA "ACTIV 1706                      "," ACTIV  1706                      "," ACTIV  1706                                    "
DATA "ACTIV 1707                      "," ACTIV  1707                      "," ACTIV  1707                                    "
DATA "ACTIV 1708                      "," ACTIV  1708                      "," ACTIV  1708                                    "
DATA "ACTIV 1709                      "," ACTIV  1709                      "," ACTIV  1709                                    "
DATA "Daten aus Excel-Tabelle einlesen ","Reading data from Excel spreadsheet","La lecture des données de feuille de calcul Excel"
DATA "Daten als Excel-Tabelle speichern","Data as an Excel spreadsheet store ","Données d'un magasin feuille de calcul Excel    "
DATA "ACTIV 1712                      "," ACTIV  1712                      "," ACTIV  1712                                    "
DATA "ACTIV 1713                      "," ACTIV  1713                      "," ACTIV  1713                                    "
DATA "ACTIV 1714                      "," ACTIV  1714                      "," ACTIV  1714                                    "
DATA "ACTIV 1715                      "," ACTIV  1715                      "," ACTIV  1715                                    "
DATA "ACTIV 1716                      "," ACTIV  1716                      "," ACTIV  1716                                    "
DATA "ACTIV 1717                      "," ACTIV  1717                      "," ACTIV  1717                                    "
DATA "Programmierer INFO              ","Programmierer INFO                ","Programmierer INFO                              "
DATA "Menü ändern                      "," Menu change                      "," changement Menu                                "
DATA "INACTIV 1720"," INACTIV 1720 "," INACTIV 1720 "  :' INAKTIV
DATA " UNTERMENUE 1801 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1802 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1803 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1804 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1805 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1806 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1807 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1808 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1809 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1810 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1811 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1812 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1813 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1814 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1815 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1816 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1817 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1818 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1819 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1820 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA "DATEI"                ,"FILE"                ,"DOSSIER"
DATA " HILFE 02 "          ," HELP 02 "            ," AID 02 "
DATA " HILFE 03 "          ," HELP 03 "            ," AID 03 "
DATA " HILFE 04 "          ," HELP 04 "            ," AID 04 "
DATA " HILFE 05 "          ," HELP 05 "            ," AID 05 "
DATA " HILFE 06 "          ," HELP 06 "            ," AID 06 "
DATA " HILFE 07 "          ," HELP 07 "            ," AID 07 "
DATA " HILFE 08 "          ," HELP 08 "            ," AID 08 "
DATA " HILFE 09 "          ," HELP 09 "            ," AID 09 "
DATA "zur Multimomentstudie","zur Multimomentstudie","zur Multimomentstudie"
DATA "HILFE 11"            ," HELP 11 "            ," AID 11 "
DATA "zur Formelbildung"    ,"zur Formelbildung"    ,"zur Formelbildung"
DATA " HILFE 13 "          ," HELP 13 "            ," AID 13 "
DATA " HILFE 14 "          ," HELP 14 "            ," AID 14 "
DATA " HILFE 15 "          ," HELP 15 "            ," AID 15 "
DATA " HILFE 16 "          ," HELP 16 "            ," AID 16 "
DATA "zu Einstellungen"    ,"zu Einstellungen"    ,"zu Einstellungen"
DATA " "," "," "  :' INAKTIV
DATA " "," "," "  :' INAKTIV
DATA " "," "," "  :' INAKTIV
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  2004 "," SUB NENU  2006 "
DATA " UNTERMENUE 2005 "," SUB NENU  2004 "," SUB NENU  2006 "
DATA " UNTERMENUE 2006 "," SUB NENU  2005 "," SUB NENU  2006 "
DATA " UNTERMENUE 2007 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2008 "," SUB NENU  2007 "," SUB NENU  2006 "
DATA " UNTERMENUE 2009 "," SUB NENU  2008 "," SUB NENU  2006 "
DATA " UNTERMENUE 2010 "," SUB NENU  2009 "," SUB NENU  2006 "
DATA " UNTERMENUE 2011 "," SUB NENU  2010 "," SUB NENU  2006 "
DATA " UNTERMENUE 2012 "," SUB NENU  2011 "," SUB NENU  2006 "
DATA " UNTERMENUE 2013 "," SUB NENU  2012 "," SUB NENU  2006 "
DATA " UNTERMENUE 2014 "," SUB NENU  2013 "," SUB NENU  2006 "
DATA " UNTERMENUE 2015 "," SUB NENU  2014 "," SUB NENU  2006 "
DATA " UNTERMENUE 2016 "," SUB NENU  2015 "," SUB NENU  2006 "
DATA " UNTERMENUE 2017 "," SUB NENU  2017 "," SUB NENU  2006 "
DATA " UNTERMENUE 2018 "," SUB NENU  2018 "," SUB NENU  2006 "
DATA " Kalender "      ," Calendar "      ," calendrier "
DATA " "," "," " :' INAKTIV
' *** UNTERMENÜ-TEXTE IN VARIABLEN EINLESEN
Untermenue:
FOR i% = 1 TO 400  :FOR j% = 1 TO 3
READ  TEXT_MENUE_01$(i%,j%)
NEXT j% :NEXT i%
Return
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: Klaus bitte Hilfe gelöst   Dim 10 Juin 2012 - 3:19

Jetzt zweifle ich an meinem Verstand.
Was ist hier falsch ? Question

Maintenant, je n'ai aucun doute dans mon esprit.
Quel est le problème ici? Question

Severin Sad

Ich bearbeite dein Programmvorschlag noch, dauert. Sonntagsprogramierer affraid


Code:
label trouer, boucher
dim i%
' *** VARIABLEN 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%
dim  x1, y1, x2, y2
'
' Form000
TOP          0000,0
LEFT          0000,0
width        0000,SCREEN_X
height        0000,SCREEN_Y-44
caption      0000,"REFA - Programme"
color        0000,000,000,000        :' schwarz / black
PARENTNUMMER2% = HANDLE(0000)        :' Form 0000
'
' form0004:
COMMAND_TARGET_IS 0000
FORM          0004
TOP          0004,74
LEFT          0004,2
WIDTH        0004,SCREEN_X-12
HEIGHT        0004,SCREEN_Y-177
FONT_NAME    0004,"Courier NEW"
FONT_SIZE    0004,06
COLOR        0004,000,000,255    :' blau / blue
BORDER_HIDE  0004
PARENTNUMMER1% = HANDLE(0004)    :' Form 0004 auf Form 0000
PARENTNUMMER2% = HANDLE(0000)    :' Form 0004
GOSUB OBJEKT_AN
'
button  2
parent  2,004
top      2,10
left    2,10
caption  2,"Trouer"
on_click 2,trouer
'
button  3
parent  3,004
top      3,10
left    3,120
caption  3,"Boucher"
on_click 3,boucher
'
dll_on "KGF.dll"
end
'
' ******************************************************************************
trouer:
i% = dll_call6("WindowEllipticHole",handle(4),1,50,60,300,200)
return
'
boucher:
i% = dll_call6("WindowEllipticHole",handle(4),0,30,60,300,200)
return
'
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




Code:
label trouer, boucher
dim i%
' *** VARIABLEN 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%
dim  x1, y1, x2, y2
'
' Form000
TOP          0000,0
LEFT          0000,0
width        0000,SCREEN_X
height        0000,SCREEN_Y-44
caption      0000,"REFA - Programme"
color        0000,000,000,000        :' schwarz / black
PARENTNUMMER2% = HANDLE(0000)        :' Form 0000
'
' form0004:
COMMAND_TARGET_IS 0000
FORM          0004
TOP          0004,74
LEFT          0004,2
WIDTH        0004,SCREEN_X-12
HEIGHT        0004,SCREEN_Y-177
FONT_NAME    0004,"Courier NEW"
FONT_SIZE    0004,06
COLOR        0004,000,000,255    :' blau / blue
BORDER_HIDE  0004
PARENTNUMMER1% = HANDLE(0004)    :' Form 0004 auf Form 0000
PARENTNUMMER2% = HANDLE(0000)    :' Form 0004
GOSUB OBJEKT_AN
'
button  2
parent  2,004
top      2,10
left    2,10
caption  2,"Trouer"
on_click 2,trouer
'
button  3
parent  3,004
top      3,10
left    3,120
caption  3,"Boucher"
on_click 3,boucher
'
dll_on "KGF.dll"
end
'
trouer:
' mode%,top%,left%,width%,height%
x1 = 400
y1 = 100
x2 = 300
y2 = 300
i% = dll_call6("WindowRectangleHole",handle(4),1,x1,y1,x2,y2)
return
'
boucher:
i% = dll_call6("WindowRectangleHole",handle(4),0,0,0,0,0)
return
' ******************************************************************************
' ''' 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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: Klaus bitte Hilfe gelöst   Dim 10 Juin 2012 - 7:03

@ KLAUS

Das Programm läuft. Wenn ich deinen Kommentar zum obigen Problem habe,
werde ich es noch einsetzen.

Der Versuch das Grid oben und links mit separaten Formen abzudecken,
brachte eine komische Sache zum Vorschein.

Die Grösse von Formen ist nicht nur auf 30.000 Pixel beschränkt.
Die Breite ist begrenzt. Ich komme nicht unter 100 Pixel.
Selbst bei 1 Pixel Breite werden mindestens 100 Pixel angezeigt.
Ich muss noch prüfen, welche mindest Breite nicht unterschritten
werden kann.

Severin

Diese Frage sollte uns Jack beantworten.
Ich will nicht von BUG sprechen, sonst springt
Jack noch vor Schreck ins Rote Meer.

Aber in Werte währen schon wichtig.

Le programme est exécuté.
Si je avoir vos commentaires sur le problème ci-dessus,
Je vais l'utiliser encore. La tentative de camoufler et à
gauche de la grille avec des formes distinctes, mis en
lumière une drôle de chose.
La taille des formes n'est pas seulement limité à 30.000 pixels.
La largeur est limitée. Je ne suis pas 100 pixels.
Même à 1 pixel de largeur d'au moins 100 pixels.
J'ai encore besoin de vérifier qu'aucune largeur minimale ci-dessous peut être.
Severin

Cette question devrait nous répondre à Jack.
Je ne veux pas parler de BUG, ou les sauts Jack encore
surprendre la mer Rouge.
Mais Währen valeurs joué un rôle important.

@Jack

Form Minimal Sitze WIDTH = ???, HEIGHT = ???
Form Standard Sitze WIDTH = 320, HEIGHT = 240
Form Maximal Sitze WIDTH = ???, HEIGHT = 30.000



Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10128
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Klaus bitte Hilfe gelöst   Dim 10 Juin 2012 - 11:57

Da war ein bug in KGF.dll mit dem Rechteck-Loch ! Schwer in KGF.dll zo korrigieren. Ich habe eine neue DLL in mein WebDav gelegt: sie heisst region.dll (im DLLs Ordner). Sie hat folgende Funktionen:
WindowEllipticHole, WindowRectangleHole,
WindowAddEllipticRegion,WindowAddRectangleRegion,
WindowRegionHole, WindowRegionAsWindow
(Auszug aus KGF.dll).
Und damit geht"s:
Code:
label trouer, boucher
dim i%
' *** VARIABLEN 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%
dim  x1, y1, x2, y2
'
' Form000
TOP          0000,0
LEFT          0000,0
width        0000,SCREEN_X
height        0000,SCREEN_Y-44
caption      0000,"REFA - Programme"
color        0000,000,000,000        :' schwarz / black
PARENTNUMMER2% = HANDLE(0000)        :' Form 0000
'
' form0004:
COMMAND_TARGET_IS 0000
FORM          0004
TOP          0004,74
LEFT          0004,2
WIDTH        0004,SCREEN_X-12
HEIGHT        0004,SCREEN_Y-177
FONT_NAME    0004,"Courier NEW"
FONT_SIZE    0004,06
COLOR        0004,000,000,255    :' blau / blue
caption      0004,"Form 4"
' BORDER_HIDE  0004
PARENTNUMMER1% = HANDLE(0004)    :' Form 0004 auf Form 0000
PARENTNUMMER2% = HANDLE(0000)    :' Form 0004
GOSUB OBJEKT_AN
'
button  2
parent  2,004
top      2,10
left    2,10
caption  2,"Trouer"
on_click 2,trouer
'
button  3
parent  3,004
top      3,10
left    3,120
caption  3,"Boucher"
on_click 3,boucher
'
dll_on "region.dll"
end
'
trouer:
' mode%,top%,left%,width%,height%
x1 = 400
y1 = 100
x2 = 300
y2 = 300
i% = dll_call6("WindowRectangleHole",handle(4),1,x1,y1,x2,y2)
return
'
boucher:
 i% = dll_call6("WindowRectangleHole",handle(4),0,0,0,0,0)
return
' ******************************************************************************
' ''' 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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: Klaus bitte Hilfe gelöst   Dim 10 Juin 2012 - 17:34

So, jetzt sieht es ganz brauchbar aus.
Hier die neuest Entwicklung.
Dank an klaus.

Bitte alle panoramic's um Test, ob noch Fehler vorhanden sind.
Severin


Alors maintenant, il semble tout à fait utile.
Voici les derniers développements.
Merci à Klaus.
S'il vous plaît panoramique tous les tests de l'ordre, s'il ya des erreurs.
Severin


Code:
' *** Achtung die  "LoadProgram.dll" von Klaus wird benötigt
' *** Note the "region.dll" Klaus is needed
label labels
gosub labels
' ***
gosub constantes
gosub variables
gosub form0000              :' Grundform
gosub form0001              :' Fussform
gosub Hauptmenue            :' Data für Hauptmenü einlesen
gosub Untermenue            :' DATA für Untermenüs
gosub form0002              :' Menueform
gosub form0003              :' Symbolform  für die Zukunft
gosub form0004              :' Clientform fix
gosub CLIENTFORM            :' Clientform variabel
gosub main
' CLICK AUF MENÜ FORM 0010 *****************************************************
' 01
ON_CLICK 9100,area00
ON_CLICK 9118,PROGRAMM_ENDE
end
' ******************************************************************************
labels:
label form0000  :' Grundform
label form0001  :' Fussform
label form0002  :' Menueform
label form0003  :' Symbolform  für die Zukunft
label form0004  :' Clientform fix
LABEL OBJEKT_AN              :' Objekt anhängen
LABEL detacher                :' Objekt abhängen
LABEL FENSTER_AUF
LABEL FENSTER_ZU
DIM FENSTER%
DIM FENSTER_x1
DIM FENSTER_y1
DIM FENSTER_x2
DIM FENSTER_y2
DIM PARENTNUMMER1%
DIM PARENTNUMMER2%
DIM ancien%
label Hauptmenue
label Untermenue
label PROGRAMM_ENDE
label constantes
label variables
label CLIENTFORM
label main
label BAR_HORIZONTAL_H
label BAR_VERTICAL_V
label add_object
label add_hor_object
label scroll_vertical
label scroll_horizontal, add_client_area
label area00
DIM INI_WERT$
DIM SPRACHE%
    SPRACHE% = 1 :' Sprachauswahl
DIM INI_DIR_A$
DIM INI_DATEI_WERTE0$
return
' ******************************************************************************
constantes:
dim max_client_area%
    max_client_area% =  99
dim max_height%          : max_height%      = 30000
dim max_width%          : max_width%      = 4000
dim option_left_hide%(max_client_area%)
dim option_top_hide%(max_client_area%)
return
' ******************************************************************************
variables:
dim no%
dim n_client_area%
dim client_area%(max_client_area%)
dim no_name%
dim no_memo%
dim scroll_bar%(max_client_area%)
dim scroll_bar_horizontal%(max_client_area%)
dim scroll_pos%(max_client_area%)
dim scroll_pos_horizontal%(max_client_area%)
dim n_obj%(max_client_area%)
dim scroll_bar_vertical%(max_client_area%)
dim separator%(max_client_area%)
dim tab_hor_obj%(40,max_client_area%)
dim n_hor_obj%(max_client_area%)
dim tab_obj%(40,max_client_area%)
dim SEITE%
dim i%, j%, n%
dim x_client_area%
dim Form_nr%
' *** VARIABLE FÜR TABELLEN ERSTELLEN ******************************************
DIM Zeilennummer$
DIM Spaltennummer$
DIM Spalte%
DIM Zeile%
' DIM TABWERTE%(Zeile%,Spalte%)
DIM TABTEXTE$(Zeile%,Spalte%)
DIM a, b
' *** VARIABLE FÜR MENÜS ERSTELLEN *********************************************
DIM Menuetext$
DIM TEXT_MENUE_00$(20,3)
DIM TEXT_MENUE_01$(9000,3)
DIM TITEL$(99,3)
return
' *** PROGRAMM BEENDEN *********************************************************
PROGRAMM_ENDE:
terminate
END
' *** Grundform 0000 ***********************************************************
form0000:
TOP              0000,0
LEFT            0000,0
width            0000,SCREEN_X
height          0000,SCREEN_Y-44
caption          0000,"REFA - Programme"
color            0000,000,000,000        :' schwarz / black
PARENTNUMMER2% = HANDLE(0000)        :' Form 0000
Return
' ********** Fussform 0001 *****************************************************
form0001:
COMMAND_TARGET_IS 0000
FORM              0001
TOP              0001,SCREEN_Y-101
LEFT              0001,2
WIDTH            0001,SCREEN_X-12
HEIGHT            0001,28
FONT_NAME        0001,"Courier NEW"
FONT_SIZE        0001,08
COLOR            0001,000,255,000      :' grün / green
BORDER_HIDE      0001
PARENTNUMMER1% = HANDLE(0001)        :' Form 0001 auf Form 0000
PARENTNUMMER2% = HANDLE(0000)        :' Form 0000
no% = 1
GOSUB OBJEKT_AN
return
' ********** Menueform 0002 ****************************************************
form0002:
COMMAND_TARGET_IS 0000
FORM              0002
TOP              0002,2
LEFT              0002,2
WIDTH            0002,SCREEN_X-12
HEIGHT            0002,0                  :' SCREEN_Y-106
FONT_NAME        0002,"Courier NEW"
FONT_SIZE        0002,04
Color            0002,000,000,000        :' schwarz / black
BORDER_HIDE      0002
PARENTNUMMER1% = HANDLE(0002)        :' Form 0002 auf Form 0000
PARENTNUMMER2% = HANDLE(0000)        :' Form 0000
no% = 2
GOSUB OBJEKT_AN
' *** ERSTELLEN DES HAUPTMENÜ 9001 bis 9020 ************************************
COMMAND_TARGET_IS 0002
main_menu 0009
sub_menu 9001:CAPTION 9001,TEXT_MENUE_00$(01,SPRACHE%):parent 9001,0009
sub_menu 9002:CAPTION 9002,TEXT_MENUE_00$(02,SPRACHE%):parent 9002,0009
sub_menu 9003:CAPTION 9003,TEXT_MENUE_00$(03,SPRACHE%):parent 9003,0009
sub_menu 9004:CAPTION 9004,TEXT_MENUE_00$(04,SPRACHE%):parent 9004,0009
sub_menu 9005:CAPTION 9005,TEXT_MENUE_00$(05,SPRACHE%):parent 9005,0009
sub_menu 9006:CAPTION 9006,TEXT_MENUE_00$(06,SPRACHE%):parent 9006,0009
sub_menu 9007:CAPTION 9007,TEXT_MENUE_00$(07,SPRACHE%):parent 9007,0009
sub_menu 9008:CAPTION 9008,TEXT_MENUE_00$(08,SPRACHE%):parent 9008,0009
sub_menu 9009:CAPTION 9009,TEXT_MENUE_00$(09,SPRACHE%):parent 9009,0009
sub_menu 9010:CAPTION 9010,TEXT_MENUE_00$(10,SPRACHE%):parent 9010,0009
sub_menu 9011:CAPTION 9011,TEXT_MENUE_00$(11,SPRACHE%):parent 9011,0009
sub_menu 9012:CAPTION 9012,TEXT_MENUE_00$(12,SPRACHE%):parent 9012,0009
sub_menu 9013:CAPTION 9013,TEXT_MENUE_00$(13,SPRACHE%):parent 9013,0009
sub_menu 9014:CAPTION 9014,TEXT_MENUE_00$(14,SPRACHE%):parent 9014,0009
sub_menu 9015:CAPTION 9015,TEXT_MENUE_00$(15,SPRACHE%):parent 9015,0009
sub_menu 9016:CAPTION 9016,TEXT_MENUE_00$(16,SPRACHE%):parent 9016,0009
sub_menu 9017:CAPTION 9017,TEXT_MENUE_00$(17,SPRACHE%):parent 9017,0009
sub_menu 9018:CAPTION 9018,TEXT_MENUE_00$(18,SPRACHE%):parent 9018,0009
sub_menu 9019:CAPTION 9019,TEXT_MENUE_00$(19,SPRACHE%):parent 9019,0009
sub_menu 9020:CAPTION 9020,TEXT_MENUE_00$(20,SPRACHE%):parent 9020,0009
INACTIVE 9018
FOR i% = 9100 TO 9118
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9001:NEXT i%
INACTIVE 9104:INACTIVE 9117:' Teilstriche im Submenü
FOR i% = 9120 TO 9138
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9002:NEXT i%
FOR i% = 9140 TO 9158
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9003:NEXT i%
FOR i% = 9160 TO 9178
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9004:NEXT i%
FOR i% = 9180 TO 9198
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9005:NEXT i%
FOR i% = 9200 TO 9218
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9006:NEXT i%
FOR i% = 9220 TO 9238
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9007:NEXT i%
FOR i% = 9240 TO 9258
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9008:NEXT i%
FOR i% = 9260 TO 9278
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9009:NEXT i%
FOR i% = 9280 TO 9298
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9010:NEXT i%
FOR i% = 9300 TO 9318
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9011:NEXT i%
FOR i% = 9320 TO 9338
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9012:NEXT i%
FOR i% = 9340 TO 9358
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9013:NEXT i%
FOR i% = 9360 TO 9378
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9014:NEXT i%
FOR i% = 9380 TO 9398
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9015:NEXT i%
FOR i% = 9400 TO 9418
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9016:NEXT i%
FOR i% = 9420 TO 9438
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9017:NEXT i%
FOR i% = 9460 TO 9478
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9019:NEXT i%
FOR i% = 9480 TO 9498
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9020:NEXT i%
return
' ********** Symbolform 0003 für die Zukunft ***********************************
form0003:
COMMAND_TARGET_IS 0000
FORM              0003
TOP              0003,22
LEFT              0003,2
WIDTH            0003,SCREEN_X-12
HEIGHT            0003,50
FONT_NAME        0003,"Courier NEW"
FONT_SIZE        0003,06
COLOR            0003,255,000,000  :' rot / red
BORDER_HIDE      0003
PARENTNUMMER1% = HANDLE(0003)    :' Form 0003 auf Form 0000
PARENTNUMMER2% = HANDLE(0000)    :' Form 0000
no% = 3
GOSUB OBJEKT_AN
return
' *** Clientform fix 0004 für variablen Clientformen erstellen *****************
form0004:
COMMAND_TARGET_IS 0000
FORM              0004
TOP              0004,74
LEFT              0004,2
WIDTH            0004,SCREEN_X-12
HEIGHT            0004,SCREEN_Y-177
FONT_NAME        0004,"Courier NEW"
FONT_SIZE        0004,06
COLOR            0004,000,000,255  :' blau / blue
BORDER_HIDE      0004
PARENTNUMMER1% = HANDLE(0004)    :' Form 0004 auf Form 0000
PARENTNUMMER2% = HANDLE(0000)    :' Form 0000
no% = 4
GOSUB OBJEKT_AN
return
' *** Clientformen variabel die auf Clientform fix 0004 erstellt werden ********
CLIENTFORM:
COMMAND_TARGET_IS 0004
no%      =      0010
Form_nr% =      no%
Form            no%
hide            no%
gosub add_client_area
top              no%,0
left            no%,0
width            no%,SCREEN_X-12
height          no%,SCREEN_Y-177
FONT_NAME        no%,"Courier NEW"
FONT_SIZE        no%,06
COLOR            no%,222,222,222
BORDER_HIDE      no%
PARENTNUMMER1% = HANDLE(0010)    :' Clientform 0010 auf Form 0004 befestigen
PARENTNUMMER2% = HANDLE(0004)
'
GOSUB OBJEKT_AN
show no%
' ******************************************************************************
Zeilennummer$  = "0000"
Spaltennummer$ = "0000"
Spalte%        = 00030
Zeile%        = 01410
' ***
no% =                  no% + 1
grid                  no%
parent    no%,client_area%(n_client_area%)
hide                  no%
top                    no%,050                :' Anzahl Pixel von oben
left                  no%,049              :' Anzahl der Pixel von links
width                  no%,1542              :' Tabellen Breite
height                no%,max_height%-250    :' Tabellen Höhe
FONT_NAME              no%,"Courier NEW"
FONT_SIZE              no%,08
grid_column            no%,Spalte%  :' Anzahl Spalten
grid_row              no%,Zeile%  :' Anzahl Zeilen
grid_column_width      no%,50      :' Breite Spalten
grid_row_height        no%,20      :' Höhe Spalten
grid_column_fixed      no%,1        :' Anzahl fixierter Spalten
grid_row_fixed        no%,1        :' Anzahl fixierter Zeilen
grid_one_column_width  no%,1,50    :' Erste Spalte mit xx Pixel
grid_one_row_height    no%,1,20    :' Erste Zeile mit xx Pixel
grid_column_sizing_off no%          :' Spalten sind mit der Maus nicht verschiebbar
grid_row_sizing_off    no%            :' Zeilen sind mit der Maus nicht verschiebbar
show no%
' ***
gosub add_object      : ' allow vertical scrolling
gosub add_hor_object  : ' allow horizontal scrolling
' *** Programm - Tabelle 1. Spalte  erstellen **********************************
Zeilennummer$  = "0000"
Spaltennummer$ = "0000"
Spalte%        = 00001
Zeile%        = 01410
' ***
no% =      no% + 1
grid                  no%
parent    no%,client_area%(n_client_area%)
hide                  no%
top                  no%,050                :' Anzahl Pixel von oben
left                  no%,049                :' Anzahl der Pixel von links
width                no%,51              :' Tabellen Breite
height                no%,max_height%-250    :' Tabellen Höhe
FONT_NAME            no%,"Courier NEW"
FONT_SIZE            no%,08
grid_column          no%,Spalte%  :' Anzahl Spalten
grid_row              no%,Zeile%  :' Anzahl Zeilen
grid_column_width    no%,50      :' Breite Spalten
grid_row_height      no%,20      :' Höhe Spalten
grid_one_column_width no%,1,50    :' Erste Spalte mit xx Pixel
grid_one_row_height  no%,1,20    :' Erste Zeile mit xx Pixel
grid_column_sizing_off no%          :' Spalten sind mit der Maus nicht verschiebbar
grid_row_sizing_off no%            :' Zeilen sind mit der Maus nicht verschiebbar
show no%
' *** Beschriftung der 2. bis X. Zeile  ****************************************
show no%
For i% = 1 to Zeile%
Zeilennummer$ = "0000"
Zeilennummer$ = Zeilennummer$+STR$(i%)
Zeilennummer$ = Right$(Zeilennummer$,4)
Zeilennummer$ = " " + Zeilennummer$
grid_write no%,i%+1,1,Zeilennummer$      :' schreiben ab 2. Zeile, 1. Spalte
next i%
 gosub add_object      : ' allow vertical scrolling
' gosub add_hor_object  : ' allow horizontal scrolling
' *** Programm - Tabellenkopf erstellen ****************************************
Zeilennummer$  = "0000"
Spaltennummer$ = "0000"
Spalte%        = 00030
Zeile%        = 00001
' ******************************************************************************
no% =      no% + 1
grid                  no%
parent    no%,client_area%(n_client_area%)
hide                  no%
top                  no%,050                :' Anzahl Pixel von oben
left                  no%,048                :' Anzahl der Pixel von links
width                no%,1542              :' Tabellen Breite
height                no%,22                :' Tabellen Höhe
FONT_NAME            no%,"Courier NEW"
FONT_SIZE            no%,08
grid_column          no%,Spalte%  :' Anzahl Spalten
grid_row              no%,Zeile%  :' Anzahl Zeilen
grid_column_width    no%,50      :' Breite Spalten
grid_row_height      no%,22      :' Höhe Spalten
grid_one_column_width no%,1,51    :' Erste Spalte mit xx Pixel
grid_one_row_height  no%,1,20    :' Erste Zeile mit xx Pixel
grid_column_sizing_off no%        :' Spalten sind mit der Maus nicht verschiebbar
grid_row_sizing_off no%            :' Zeilen sind mit der Maus nicht verschiebbar
show no%
For i% = 1 to Spalte%
Spaltennummer$ = "0000"
Spaltennummer$ = Spaltennummer$+STR$(i%)
Spaltennummer$ = Right$(Spaltennummer$,4)
Spaltennummer$ = " " + Spaltennummer$
grid_write no%,1,i%+1,Spaltennummer$      :' schreiben ab 2. Spalte, 1. Zeile
next i%
inactive no%
gosub add_hor_object  : ' allow horizontal scrolling
'
gosub BAR_HORIZONTAL_H  :' Bar Horizontal auf AREA erstellen
gosub BAR_VERTICAL_V    :' Bar Vertical auf AREA erstellen

' *** FORM MIT FENSTER 1 *******************************************************
COMMAND_TARGET_IS 0010
no%      =      0016
Form            no%
hide            no%
' gosub add_client_area
top              no%,0
left            no%,0
width            no%,SCREEN_X-30
height          no%,SCREEN_Y-177-17
FONT_NAME        no%,"Courier NEW"
FONT_SIZE        no%,06
COLOR            no%,222,222,100
BORDER_HIDE      no%
PARENTNUMMER1% = HANDLE(0016)    :' Form XXXX auf Form 0004 befestigen
PARENTNUMMER2% = HANDLE(0010)
GOSUB OBJEKT_AN
' *** Fenster erstellen ********************************************************
' Form,mode%,top%,left%,width%,height%
FENSTER_x1 = 50
FENSTER_y1 = 50
FENSTER_x2 = SCREEN_X-30
FENSTER_y2 = SCREEN_Y-177
Gosub FENSTER_auf
show no%
' gosub add_object      : ' allow vertical scrolling
' gosub add_hor_object  : ' allow horizontal scrolling
'
no% =      no% + 1
alpha      no%
parent    no%,client_area%(n_client_area%)
font_size  no%,20
font_color no%,255,0,0
top        no%,10
left      no%,100
font_bold  no%
caption    no%,"My Tabelle"
gosub add_object
Return
' ******************************************************************************
' *** SCROLL BAR VERTICAL ******************************************************
BAR_VERTICAL_V:
no% =      no% + 1
scroll_bar no%
scroll_bar_vertical%(n_client_area%) = no%
parent    no%,client_area%(n_client_area%)
vertical  no%
top        no%,0
left      no%,SCREEN_X-30
height    no%,SCREEN_Y-195
min        no%,0
max        no%, max_height% - height(client_area%(n_client_area%))-20
on_change  no%,scroll_vertical
Return
' *** SCROLL BAR HORIZONTAL ****************************************************
BAR_HORIZONTAL_H:
no% =      no% + 1
scroll_bar no%
scroll_bar_horizontal%(n_client_area%) = no%
parent    no%,client_area%(n_client_area%)
horizontal no%
top        no%,SCREEN_Y-194
left      no%,0
width      no%,SCREEN_X-29
min        no%,0
max        no%, max_width% - width(client_area%(n_client_area%))-20
on_change  no%,scroll_horizontal
return
' ***
add_object:
  n_obj%(n_client_area%) = n_obj%(n_client_area%) + 1
  tab_obj%(n_obj%(n_client_area%),n_client_area%) = no%
  return
' ***
add_hor_object:
  n_hor_obj%(n_client_area%) = n_hor_obj%(n_client_area%) + 1
  tab_hor_obj%(n_hor_obj%(n_client_area%),n_client_area%) = no%
  return
' ***
add_client_area:
  n_client_area% = n_client_area% + 1
  client_area%(n_client_area%) = no%
  return
' ***
scroll_vertical:
  n% = number_change
  for i%=1 to n_client_area%
    if scroll_bar_vertical%(i%)=n%
      x_client_area% = i%
      exit_for
    end_if
  next i%
  if n_obj%(x_client_area%)=0 then return
  n% = position(scroll_bar_vertical%(x_client_area%)) - scroll_pos%(x_client_area%)
  scroll_pos%(x_client_area%) = position(scroll_bar_vertical%(x_client_area%))
  if x_client_area%<>1
    caption separator%(x_client_area%),"Client area "+str$(x_client_area%)+" Page "+str$(int(scroll_pos%(x_client_area%)/560)+1)
  end_if
  for i%=1 to n_obj%(x_client_area%)
    top tab_obj%(i%,x_client_area%),top(tab_obj%(i%,x_client_area%)) - n%
    if option_top_hide%(x_client_area%)=1
      if top(tab_obj%(i%,x_client_area%))<10
        hide tab_obj%(i%,x_client_area%)
      else
        show tab_obj%(i%,x_client_area%)
      end_if
    end_if
  next i%
  return
' ***
scroll_horizontal:
  n% = number_change
  for i%=1 to n_client_area%
    if scroll_bar_horizontal%(i%)=n%
      x_client_area% = i%
      exit_for
    end_if
  next i%
  if n_hor_obj%(x_client_area%)=0 then return
  n% = position(scroll_bar_horizontal%(x_client_area%)) - scroll_pos_horizontal%(x_client_area%)
  scroll_pos_horizontal%(x_client_area%) = position(scroll_bar_horizontal%(x_client_area%))
  for i%=1 to n_hor_obj%(x_client_area%)
    left tab_hor_obj%(i%,x_client_area%),left(tab_hor_obj%(i%,x_client_area%)) - n%
    if option_left_hide%(x_client_area%)=1
      if left(tab_hor_obj%(i%,x_client_area%))<10
        hide tab_hor_obj%(i%,x_client_area%)
      else
        show tab_hor_obj%(i%,x_client_area%)
      end_if
    end_if
  next i%
  return
' ***
area00:
  hide client_area%(x_client_area%)
  x_client_area% = 1
  show client_area%(x_client_area%)
'  caption separator%(x_client_area%),"Client area "+str$(x_client_area%)+" Page "+str$(int(scroll_pos%(x_client_area%)/560)+1)
  return
' ***
main:
  x_client_area% = 1
  gosub area00
  return
' *** Objekt anhängen **********************************************************
OBJEKT_AN:
gosub add_client_area
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
' *** Fenster in Form erstellen ************************************************
FENSTER_AUF:
dll_on "region.dll"
' mode%,top%,left%,width%,height%
FENSTER% = dll_call6("WindowRectangleHole",handle(16),1,FENSTER_x1,FENSTER_y1,FENSTER_x2,FENSTER_y2)
dll_off
return
' **** Fenster in Form schliessen **********************************************
FENSTER_ZU:
dll_on "region.dll"
FENSTER% = dll_call6("WindowRectangleHole",handle(4),0,0,0,0,0)
dll_off
return
' *** TEXT FÜR HAUPTMENÜ IN DATA ZELLEN ERSTELLEN ******************************
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 "MULTIMOMENTSTUDIE" ,"MULTI-DEGREE MOMENT " ,"PLUSIEURS DEGRÉS MOMENT "
DATA "MENUE 11"          ,"MENU 11 "            ,"MENU 11 "
DATA "FORMELBILDUNG"    ,"EDUCATION FORMULA "  ,"ÉDUCATION FORMULE "
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 "EINSTELLUNG"      ,"SETTING "            ," MISE EN "
DATA " "                ," "                    ," "
DATA "HILFE"            ,"HELP"                ,"AID"
DATA "INFO"              ,"INFO"                ,"INFO"
' ***
Hauptmenue:
FOR i% = 1 TO 20 :FOR j% = 1 TO 3
READ  TEXT_MENUE_00$(i%,j%)
NEXT j%  :NEXT i%
RETURN
' ***
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 " :' INAKTIV
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 " :' INAKTIV
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 "  :' INAKTIV
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 " :' INAKTIV
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 "  :' INAKTIV
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 " :' INAKTIV
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 "  :' INAKTIV
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 "  :' INAKTIV
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 "  :' INAKTIV
DATA " MM -- 0101 "," MM --  0101 "," MM --  0101 "
DATA " MM -- 0102 "," MM --  0102 "," MM --  0102 "
DATA " MM -- 0103 "," MM --  0103 "," MM --  0103 "
DATA " MM -- 0104 "," MM --  0104 "," MM --  0104 "
DATA " MM -- 0105 "," MM --  0105 "," MM --  0105 "
DATA " MM -- 0106 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0107 "," MM --  0107 "," MM --  0107 "
DATA " MM -- 0108 "," MM --  0108 "," MM --  0108 "
DATA " MM -- 0109 "," MM --  0109 "," MM --  0109 "
DATA " MM -- 0110 "," MM --  0110 "," MM --  0110 "
DATA " MM -- 0111 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0112 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0113 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0114 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0115 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0116 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0117 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0118 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0119 "," MM --  0106 "," MM --  0106 "
DATA " MM -- 0120 "," MM --  0106 "," MM --  0106 "  :' INAKTIV
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 "  :' INAKTIV
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 "  :' INAKTIV
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 " :' INAKTIV
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 "  :' inaktiv
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 "  :' INAKTIV
DATA " area1 1601 "," area1 1601 "," area1 1601 "
DATA " area2 1602 "," TEST-SUB MENU 1602 "," TEST-SUB MENU 1602 "
DATA " area3 1603 "," TEST-SUB MENU 1603 "," TEST-SUB MENU 1603 "
DATA " area4 1604 "," TEST-SUB MENU 1604 "," TEST-SUB MENU 1604 "
DATA " area4 1605 "," TEST-SUB MENU 1605 "," TEST-SUB MENU 1605 "
DATA " area4 1606 "," TEST-SUB MENU 1606 "," TEST-SUB MENU 1606 "
DATA " area4 1607 "," TEST-SUB MENU 1607 "," TEST-SUB MENU 1607 "
DATA " area4 1608 "," TEST-SUB MENU 1608 "," TEST-SUB MENU 1608 "
DATA " area4 1609 "," TEST-SUB MENU 1609 "," TEST-SUB MENU 1609 "
DATA " area4 1610 "," TEST-SUB MENU 1610 "," TEST-SUB MENU 1610 "
DATA " area4 1611 "," TEST-SUB MENU 1611 "," TEST-SUB MENU 1611 "
DATA " area4 1612 "," TEST-SUB MENU 1612 "," TEST-SUB MENU 1612 "
DATA " area4 1613 "," TEST-SUB MENU 1613 "," TEST-SUB MENU 1613 "
DATA " area4 1614 "," TEST-SUB MENU 1614 "," TEST-SUB MENU 1614 "
DATA " area4 1615 "," TEST-SUB MENU 1615 "," TEST-SUB MENU 1615 "
DATA " area4 1616 "," TEST-SUB MENU 1616 "," TEST-SUB MENU 1616 "
DATA " area4 1617 "," TEST-SUB MENU 1617 "," TEST-SUB MENU 1617 "
DATA " area4 1618 "," TEST-SUB MENU 1618 "," TEST-SUB MENU 1618 "
DATA " area4 1619 "," TEST-SUB MENU 1619 "," TEST-SUB MENU 1619 "
DATA " TEST-U-Menü 1620 "," TEST-SUB MENU 1620 "," TEST-SUB MENU 1620 ":' INAKTIV
DATA "Einstellungen"                    ," Settings                          "," Paramètres                                      "
DATA "Sprache einstellen"              ," Language set                      "," Langue fixé                                    "
DATA "Verzeichnis einstellen"          ,"directory Settings"                ,"les paramètres du répertoire                                    "
DATA "ACTIV 1704                      "," ACTIV  1704                      "," ACTIV  1704                                    "
DATA "ACTIV 1705                      "," ACTIV  1705                      "," ACTIV  1705                                    "
DATA "ACTIV 1706                      "," ACTIV  1706                      "," ACTIV  1706                                    "
DATA "ACTIV 1707                      "," ACTIV  1707                      "," ACTIV  1707                                    "
DATA "ACTIV 1708                      "," ACTIV  1708                      "," ACTIV  1708                                    "
DATA "ACTIV 1709                      "," ACTIV  1709                      "," ACTIV  1709                                    "
DATA "Daten aus Excel-Tabelle einlesen ","Reading data from Excel spreadsheet","La lecture des données de feuille de calcul Excel"
DATA "Daten als Excel-Tabelle speichern","Data as an Excel spreadsheet store ","Données d'un magasin feuille de calcul Excel    "
DATA "ACTIV 1712                      "," ACTIV  1712                      "," ACTIV  1712                                    "
DATA "ACTIV 1713                      "," ACTIV  1713                      "," ACTIV  1713                                    "
DATA "ACTIV 1714                      "," ACTIV  1714                      "," ACTIV  1714                                    "
DATA "ACTIV 1715                      "," ACTIV  1715                      "," ACTIV  1715                                    "
DATA "ACTIV 1716                      "," ACTIV  1716                      "," ACTIV  1716                                    "
DATA "ACTIV 1717                      "," ACTIV  1717                      "," ACTIV  1717                                    "
DATA "Programmierer INFO              ","Programmierer INFO                ","Programmierer INFO                              "
DATA "Menü ändern                      "," Menu change                      "," changement Menu                                "
DATA "INACTIV 1720"," INACTIV 1720 "," INACTIV 1720 "  :' INAKTIV
DATA " UNTERMENUE 1801 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1802 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1803 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1804 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1805 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1806 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1807 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1808 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1809 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1810 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1811 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1812 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1813 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1814 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1815 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1816 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1817 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1818 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1819 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA " UNTERMENUE 1820 "," SUB NENU  1806 "," SUB NENU  1806 " :' INAKTIV
DATA "DATEI"                ,"FILE"                ,"DOSSIER"
DATA " HILFE 02 "          ," HELP 02 "            ," AID 02 "
DATA " HILFE 03 "          ," HELP 03 "            ," AID 03 "
DATA " HILFE 04 "          ," HELP 04 "            ," AID 04 "
DATA " HILFE 05 "          ," HELP 05 "            ," AID 05 "
DATA " HILFE 06 "          ," HELP 06 "            ," AID 06 "
DATA " HILFE 07 "          ," HELP 07 "            ," AID 07 "
DATA " HILFE 08 "          ," HELP 08 "            ," AID 08 "
DATA " HILFE 09 "          ," HELP 09 "            ," AID 09 "
DATA "zur Multimomentstudie","zur Multimomentstudie","zur Multimomentstudie"
DATA "HILFE 11"            ," HELP 11 "            ," AID 11 "
DATA "zur Formelbildung"    ,"zur Formelbildung"    ,"zur Formelbildung"
DATA " HILFE 13 "          ," HELP 13 "            ," AID 13 "
DATA " HILFE 14 "          ," HELP 14 "            ," AID 14 "
DATA " HILFE 15 "          ," HELP 15 "            ," AID 15 "
DATA " HILFE 16 "          ," HELP 16 "            ," AID 16 "
DATA "zu Einstellungen"    ,"zu Einstellungen"    ,"zu Einstellungen"
DATA " "," "," "  :' INAKTIV
DATA " "," "," "  :' INAKTIV
DATA " "," "," "  :' INAKTIV
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  2004 "," SUB NENU  2006 "
DATA " UNTERMENUE 2005 "," SUB NENU  2004 "," SUB NENU  2006 "
DATA " UNTERMENUE 2006 "," SUB NENU  2005 "," SUB NENU  2006 "
DATA " UNTERMENUE 2007 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2008 "," SUB NENU  2007 "," SUB NENU  2006 "
DATA " UNTERMENUE 2009 "," SUB NENU  2008 "," SUB NENU  2006 "
DATA " UNTERMENUE 2010 "," SUB NENU  2009 "," SUB NENU  2006 "
DATA " UNTERMENUE 2011 "," SUB NENU  2010 "," SUB NENU  2006 "
DATA " UNTERMENUE 2012 "," SUB NENU  2011 "," SUB NENU  2006 "
DATA " UNTERMENUE 2013 "," SUB NENU  2012 "," SUB NENU  2006 "
DATA " UNTERMENUE 2014 "," SUB NENU  2013 "," SUB NENU  2006 "
DATA " UNTERMENUE 2015 "," SUB NENU  2014 "," SUB NENU  2006 "
DATA " UNTERMENUE 2016 "," SUB NENU  2015 "," SUB NENU  2006 "
DATA " UNTERMENUE 2017 "," SUB NENU  2017 "," SUB NENU  2006 "
DATA " UNTERMENUE 2018 "," SUB NENU  2018 "," SUB NENU  2006 "
DATA " Kalender "      ," Calendar "      ," calendrier "
DATA " "," "," " :' INAKTIV
' *** UNTERMENÜ-TEXTE IN VARIABLEN EINLESEN
Untermenue:
FOR i% = 1 TO 400  :FOR j% = 1 TO 3
READ  TEXT_MENUE_01$(i%,j%)
NEXT j% :NEXT i%
Return
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10128
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Klaus bitte Hilfe gelöst   Dim 10 Juin 2012 - 18:06

Bravo ! Sieht sehr sauber aus !

Eine kleine Bemerkung: wenn Du direkt nach dem Erscheinen des Bildfeldes horizontal nach links schiebst, bleibt die Spaltentitelzeile sichtbar bis zum farbigen Bildrand. Vorschlag: die linke feste Kolonne mit den Zeilennummern nach oben mit einem Leerfeld verlängern - dann sieht es sicher noch besser aus !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Contenu sponsorisé




MessageSujet: Re: Klaus bitte Hilfe gelöst   

Revenir en haut Aller en bas
 
Klaus bitte Hilfe gelöst
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» J. is here!
» Série TV - The Vampire Diaries
» Au sujet de mydrive
» Mise à jour des modules Klaus
» doryphore, au canada, ça se dit bibite à patate...

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: Activité des sites créés par les Panoramiciens. :: Le site de Klaus-
Sauter vers: