DLL: Form

Sujet: Re: DLL: Form Jeu 27 Oct 2011 - 20:59

Nardo,
sehe nur das Startbild von meinem Testprogramm an.
Da siehst du das die linke ober Ecke fehlt.
Reden wir estmal nur über diese Ecke. OK.
Wenn das gelöst ist, über die anderen Fehler.

Ich hoffe du bist nicht beleidigt.
Ich möchte aber dieses Problem lösen.
Severin

Nardo, regarde(croit) seulement l'image de départ de mon programme de test.
Là tu le vois les coins gauches au dessus il manque.
Si nous parlons estmal seulement de ces coins. OK.
Si est résolu, sur les autres erreurs.

J'espère tu n'es pas offensé.
Cependant je voudrais résoudre ce problème.

Nardo, looks only at the start picture of my test program.
There you see the left highly corner is absent(lacking).
If we talk estmal only about this corner. OK.
If is solved, about the other mistakes.

I hope you are not offended.
However, I would like to solve this problem.

Sujet: Re: DLL: Form Ven 28 Oct 2011 - 8:31

Hallo Severin,

It's hard to read your code but :
your ALPHAs 9925 and 9935 are in front of ALPHA 9910...

Surprised

Sujet: Re: DLL: Form Ven 28 Oct 2011 - 9:17

it's not my problem, but i would just say that you can try to debug a few too Severin...
Nardo done the DLL and we are all here to help others, not to track all the bug of a program then you can find it with a good analys of your code. Sometimes you don't find even it's easy but i think it's not good to ask too quick, it's take time to others to debug the code and they will not do others thing since they do.
It's my minds, first have a look on the code, write some quick notes about that you do and what you would, search errors (bad variables), copy paste not modified, asw... and if you really don't find ask help to others. Else when you 'll have a real problem, the others risks to be busy doing what they couldn't done before because they was busy.

Sorry about my poor english level and i hope you'll understand what i would say...

Good luck Severin and thanks Nardo for the time and help Smile

Sujet: Re: DLL: Form Ven 28 Oct 2011 - 10:11

@Severin:
These examples can be help you:

Code:: ' Protection
LABEL EndProg
ON_CLOSE 0,EndProg
ON_ERROR_GOTO EndProg

LABEL Redraw

PICTURE 1:FULL_SPACE 1
2D_TARGET_IS 1: COLOR 1,255,235,217
2D_FILL_COLOR 238,235,217
DIM border_size : border_size=WIDTH(0)-WIDTH(1)
DIM caption_size: caption_size = HEIGHT(0)-HEIGHT(1)
DIM Form_H, Form_W

ALPHA 3:CAPTION 3,"Test": LEFT 3,20:TOP 3,20
TIMER 2:TIMER_INTERVAL 2,50: ON_TIMER 2,Redraw:TIMER_ON 2
END

Redraw:
' if dimensions of FORM 0 has changed :
IF (Form_W <> WIDTH(0)) OR (Form_H <> HEIGHT(0))
Form_H = HEIGHT(0) : Form_W = WIDTH(0) : ' memo
FULL_SPACE 1 :2D_CLEAR : COLOR 1,228,234,221 : ' clear picture 1
' draw box :
2D_RECTANGLE 10,10,Form_W-border_size-10,Form_H-caption_size-10
2D_RECTANGLE 12,12,Form_W-border_size-12,Form_H-caption_size-12
' display new dimensions :
CAPTION 0,"Width(0):"+str$(WIDTH(0))+" - Width(1):"+STR$(WIDTH(1))+" H:"+str$(HEIGHT(0))+"-"+str$(HEIGHT(1))
END_IF
RETURN

EndProg:
IF LEN(TRIM$(error_type$))<>0
MESSAGE error_type$+" Line:"+STR$(error_line)
END_IF
TIMER_OFF_ALL
TERMINATE

' See variable name -> it's more easy to read ?! no ? Wink

Code:: ' Protection
LABEL EndProg
ON_CLOSE 0,EndProg
ON_ERROR_GOTO EndProg

' Load the DLL :
DLL_ON "form.dll"
DIM dll_ok : ' Flag : DLL is loading
DIM dll_return

LABEL Redraw : ' Procedure : Refresh the box inside the form

' ---------------------------------------
' FORM 0 : DEFINITION
' ---------------------------------------
CAPTION 0,"FORM 0": WIDTH 0,SCREEN_X/2
' background
PICTURE 01:FULL_SPACE 01 : 2D_TARGET_IS 01 :2D_FILL_COLOR 238,235,217
' Text
ALPHA 03: LEFT 03,20:TOP 03,20

' ---------------------------------------
' FORM 10 : DEFINITION
' ---------------------------------------
FORM 10:COMMAND_TARGET_IS 10:CAPTION 10,"FORM 10"
TOP 10,TOP(0)+HEIGHT(0)+10 : WIDTH 10,SCREEN_X/2
ON_CLOSE 10,EndProg

' background
PICTURE 11:FULL_SPACE 11: 2D_TARGET_IS 11
2D_FILL_COLOR 238,235,217
' Text
ALPHA 13:LEFT 13,20:TOP 13,20

' ---------------------------------------
' REDRAW
' ---------------------------------------
DIM border_size : border_size=WIDTH(0)-WIDTH(1)
DIM caption_size: caption_size = HEIGHT(00)-HEIGHT(01)
DIM Form_H(2), Form_W(2) : ' MEMO : Form dimensions
DIM Form_Active : ' Id number of the form active
DIM Form_Id : ' index of Form_#( )

GOSUB Redraw : ' Redraw Form 10

' Set FORM 0 active
dll_return = DLL_CALL1("SetFormActive",HANDLE(0))
GOSUB Redraw : ' Redraw Form 0

' Start timer
TIMER 200:TIMER_INTERVAL 200,50
ON_TIMER 200,Redraw:TIMER_ON 200

END

Redraw:
IF OBJECT_EXISTS(200)=1 THEN TIMER_OFF 200
Form_Active = DLL_CALL1("GetFormActive",handle(10))*10 : ' Form_Active = 0 or 10
CAPTION Form_Active+3,"is Active"
CAPTION BIN_XOR(Form_Active,10)+3,"is Inactive" : ' BIN_XOR : Change 0 <-> 10 (see documentation)

Form_Id = Form_Active/10 : ' calc index for Form_#( ) --> 0 or 1
' if dimensions of FORM_Active has changed :
IF (Form_W(Form_Id) <> WIDTH(Form_Active)) OR (Form_H(Form_Id) <> HEIGHT(Form_Active))
Form_H(Form_Id) = HEIGHT(Form_Active) : Form_W(Form_Id) = WIDTH(Form_Active) : ' memo
2D_TARGET_IS Form_Active+1 : ' before drawing the box, change the 2D_TARGET...
FULL_SPACE Form_Active+1 :2D_CLEAR : COLOR Form_Active+1,228,234,221 : ' clear the picture
' and draw box :
2D_RECTANGLE 10,10,Form_W(Form_Id)-border_size-10,Form_H(Form_Id)-caption_size-10
2D_RECTANGLE 12,12,Form_W(Form_Id)-border_size-12,Form_H(Form_Id)-caption_size-12
END_IF
IF OBJECT_EXISTS(200)=1 THEN TIMER_ON 200
RETURN

EndProg:
IF LEN(TRIM$(error_type$))<>0
MESSAGE error_type$+" Line:"+STR$(error_line)
END_IF
if VARIABLE("dll_ok")=1 then DLL_OFF
if OBJECT_EXISTS(200)=1 then TIMER_OFF 200
TERMINATE

@Jicehel : tu côze mieux l'english que moi en tout cas... Very Happy

EDIT (15:00): Debug 2nd example...

Sujet: Re: DLL: Form Dim 30 Oct 2011 - 20:01

Hallo an alle, hallo Nardo,
hier meine Idee als Programm.
Ich bitte um Verbesserungsvorschläge.
Bitte nicht den Programmstiel beachten.
Ich habe einfach programmiert um das lesen zu erleichtern.
Severin bounce

Hello to all, hello Nardo, here my idea as a program.
I ask for suggestions for improvement.
Please, do not pay attention to the program handle.
I have simply programmed around this read to ease.

A tous, Nardo, ici mon idée comme le programme.
Je demande des propositions d'amélioration.
S'il vous plaît, ne font pas attention au manche de programme.
J'ai programmé simplement autour de cela lisent de soulager.

Code:: ' ************************************************************************************
DIM Form_Button_On01 :' ...Form_Button_On01=dll_call2("SetSize",handle(0),1)
DIM Form_Button_On02 :' ...Form_Button_On02= DLL_CALL2("SetCaption",HANDLE(0),1)
DIm Form_Button_On03 :' ...Form_Button_On03= xxxxxx
DIM Form_Button_On04 :' ...Form_Button_On04=DLL_CALL2("SetMaximize",HANDLE(0),1)
DIM Form_Button_On05 :' ...Form_Button_On05= DLL_CALL2("SetMinimize", HANDLE(0),1)
DIM Form_Button_On06 :' ...Form_Button_On06=
DIM Form_Button_On07 :' ...Form_Button_On07=
DIM Form_Button_On08 :' ...Form_Button_On08=
DIM Form_Button_On09 :' ...Form_Button_On09= dll_call1("SetFormActive",handle(0))
' ******************************************************************************
DIM Form_Button_Off11 :' ...Form_Button_Off11=dll_call2("SetSize",handle(0),0)
DIM Form_Button_Off12 :' ...Form_Button_Off12= DLL_CALL2("SetCaption",HANDLE(0),0)
DIM Form_Button_Off13 :' ...Form_Button_Off13=dll_call1("SetCloseOff",handle(0))
DIM Form_Button_Off14 :' ...Form_Button_Off14=DLL_CALL2("SetMaximize",HANDLE(0),0)
DIM Form_Button_Off15 :' ...Form_Button_Off15=DLL_CALL2("SetMinimize",HANDLE(0),0)
DIM Form_Button_Off16 :' ...Form_Button_Off16=dll_call1(
DIM Form_Button_Off17 :' ...Form_Button_Off17=dll_call1(
DIM Form_Button_Off18 :' ...Form_Button_Off18=dll_call1(
DIM Form_Button_Off19 :' ...Form_Button_Off19=dll_call1(
' ******************************************************************************
DIM Form_Button_Off99 :' ...Form_Button_Off99=dll_call1("SetTopMost",handle(0))
'
Label INAKTIVE_FORM
'
Label Schriftartsymbolschwarz
Label SchriftartArial08
'
Label Rahmenaufform_0000
DIM RAHMENAUFFORMOBEN$
DIM RAHMENAUFFORNUNTEN$
DIM RAHMENAUFFORMRECHTS$
DIM RAHMENAUFFORMLINKS$
'
Alpha 9910:hide 9910
'
Alpha 9920:hide 9920
Alpha 9921:hide 9921
Alpha 9922:hide 9922
Alpha 9923:hide 9923
Alpha 9924:hide 9924
Alpha 9925:hide 9925
'
Alpha 9930:hide 9930
Alpha 9931:hide 9931
Alpha 9932:hide 9932
Alpha 9933:hide 9933
Alpha 9934:hide 9934
Alpha 9935:hide 9935
'
Alpha 9940:hide 9940
'
DIM i
DIM SCHRIFTART
'
' *** LABEL FÜR UNTERTMENÜ'S DEFINIEREN ****************************************
'
Label Zahl0000 :' Einsprung für Unterprogramm - 00
Label Zahl0010 :' Einsprung für Unterprogramm - 10
Label Zahl0020 :' Einsprung für Unterprogramm - 20
Label Zahl0030 :' Einsprung für Unterprogramm - 30
Label Zahl0040 :' Einsprung für Unterprogramm - 40
Label Zahl0050 :' Einsprung für Unterprogramm - 50
Label Zahl0060 :' Einsprung für Unterprogramm - 60
Label Zahl0070 :' Einsprung für Unterprogramm - 70
Label Zahl0080 :' Einsprung für Unterprogramm - 80
Label Zahl0090 :' Einsprung für Unterprogramm - 90
'
' *** LABEL FÜR UNTERTMENÜ'S DEFINIEREN ****************************************
'
Label Zahl9998 :' Einsprung für Unterprogramm - Form 000 aktivieren
Label Zahl9999 :' Einsprung für Unterprogramm - Programm beenden
'
DIM Form_Nr%
'
Label Menue_11:Label WEITER11
Label Menue_21:Label WEITER21
Label Menue_31:Label WEITER31
Label Menue_41:Label WEITER41
Label Menue_51:Label WEITER51
Label Menue_61:Label WEITER61
Label Menue_71:Label WEITER71
Label Menue_81:Label WEITER81
Label Menue_91:Label WEITER91
'
' *** Variabele für Menü erstellen und füllen **********************************
'
Dim FORM_TEXT$(200) :' Text auf Menü in Englisch
'
FORM_TEXT$(000) = " Form setting "
FORM_TEXT$(001) = " show Form 10 - green "
FORM_TEXT$(002) = " show Form 20 - blue "
FORM_TEXT$(003) = " show Form 30 - yellow "
FORM_TEXT$(004) = " show Form 40 - red "
FORM_TEXT$(005) = " show Form 50 - hellgrün"
FORM_TEXT$(006) = " show Form 60 - hellblau"
FORM_TEXT$(007) = " show Form 70 - hellgelb"
FORM_TEXT$(008) = " show Form 80 - hellgelb"
FORM_TEXT$(009) = " show Form 90 - dunkelblau"
'
FORM_TEXT$(010) = " show Form 10 - green "
'
FORM_TEXT$(020) = " show Form 20 - blue "
'
FORM_TEXT$(030) = " show Form 30 - yellow "
'
FORM_TEXT$(040) = " show Form 40 - red "
'
FORM_TEXT$(050) = " show Form 50 - hellgrün"
'
FORM_TEXT$(060) = " show Form 60 - hellblau"
'
FORM_TEXT$(070) = " show Form 70 - hellgelb"
'
FORM_TEXT$(080) = " show Form 80 - hellgelb"
'
FORM_TEXT$(090) = " show Form 90 - dunkelblau "
'
FORM_TEXT$(180) = " RETOUR Form 0"
FORM_TEXT$(199) = "--------------------------------"
FORM_TEXT$(200) = " Quit "
' ******************************************************************************
' *** Form 0 erstellen *********************************************************
'
top 0000,0000
left 0000,0000
width 0000,SCREEN_X
height 0000,0100 :' Bildschirmhöhe - Leiste Windows
color 0000,255,000,000
Caption 0000," FORM 0 "
border_normal 0000
'
dll_on "form.dll"
Form_Button_On02 =DLL_CALL2("SetCaption",HANDLE(0),1) :' Formtitel aktiviert
Form_Button_Off13=dll_call1("SetCloseOff",handle(0)) :' Schließen deaktiviert
Form_Button_Off14=DLL_CALL2("SetMaximize",HANDLE(0),0) :' Vergrößern deaktiviert
Form_Button_Off15=DLL_CALL2("SetMinimize",HANDLE(0),0):' Verkleinern deaktiviert
dll_off
'
Command_Target_is 0000
'
' *** Hauptmenü erstellen ******************************************************
main_menu 0001
'
' *** ERSTELLEN DES HAUPTMENÜ 1000 bis 9000 ************************************
sub_menu 0002:caption 0002,FORM_TEXT$(000):parent 0002,0001
'
' *** ERSTELLEN UNTERMENÜ 1100 bis 1900 ***************************************
sub_menu 0100:caption 0100,FORM_TEXT$(001):parent 0100,0002
sub_menu 0200:caption 0200,FORM_TEXT$(002):parent 0200,0002
sub_menu 0300:caption 0300,FORM_TEXT$(003):parent 0300,0002
sub_menu 0400:caption 0400,FORM_TEXT$(004):parent 0400,0002
sub_menu 0500:caption 0500,FORM_TEXT$(005):parent 0500,0002
sub_menu 0600:caption 0600,FORM_TEXT$(006):parent 0600,0002
sub_menu 0700:caption 0700,FORM_TEXT$(007):parent 0700,0002
sub_menu 0800:caption 0800,FORM_TEXT$(008):parent 0800,0002
sub_menu 0900:caption 0900,FORM_TEXT$(009):parent 0900,0002
sub_menu 9950:caption 9950,FORM_TEXT$(199):parent 9950,0002
sub_menu 9951:caption 9951,FORM_TEXT$(200):parent 9951,0002
'
' ******************************************************************************
' Formen erstellen 5, 10 bis 90 ************************************************
' ******************************************************************************
' *** ALLE UNTERFORMEN ERSTELLEN UND VERSTECKEN ********************************
'
Form 5
hide 5
top 5,INT(SCREEN_Y/2-200)
left 5,INT(SCREEN_X/2-200)
width 5,1
height 5,1
border_hide 5
'
for i = 10 to 90 step 10
'
Form i
hide i
top i,INT(SCREEN_Y/2-200)
left i,INT(SCREEN_X/2-200)
width i,1
height i,1
border_hide i
'
next i
'
' Formen erstellen 5 ***********************************************************
Form_Nr% = 5
'
top Form_Nr%,0099
left Form_Nr%,0000
width Form_Nr%,SCREEN_X
height Form_Nr%,SCREEN_Y-120 :' Bildschirmhöhe - Leiste Windows
color Form_Nr%,205,206,202
Caption Form_Nr%," "
border_normal Form_Nr%
'
dll_on "form.dll"
Form_Button_Off12=DLL_CALL2("SetCaption",HANDLE(Form_Nr%),0) :' Formtitel deaktiviert
Form_Button_Off13=dll_call1("SetCloseOff",handle(Form_Nr%)) :' Schließen deaktiviert
Form_Button_Off14=DLL_CALL2("SetMaximize",HANDLE(Form_Nr%),0) :' Vergrößern deaktiviert
Form_Button_Off15=DLL_CALL2("SetMinimize",HANDLE(Form_Nr%),0):' Verkleinern deaktiviert
dll_off
'
show Form_Nr%
' ******************************************************************************
' *** Rahmen auf Form 0000 erstellen
GOSUB Rahmenaufform_0000
'
inactive 5
active 0000
'
Zahl0000:
dll_on "form.dll"
Form_Button_On09= dll_call1("SetFormActive",handle(0))
dll_off
'
' *** Jump nach on_click - Form 0000 *******************************************
on_click 0100,Zahl0010
on_click 0200,Zahl0020
on_click 0300,Zahl0030
on_click 0400,Zahl0040
on_click 0500,Zahl0050
on_click 0600,Zahl0060
on_click 0700,Zahl0070
on_click 0800,Zahl0080
on_click 0900,Zahl0090
on_click 9951,Zahl9999
END
' ******************************************************************************
' *** Form 10 green erstellen **************************************************
Zahl0010:
Form_Nr% = 10
Command_Target_is Form_Nr%
'
top Form_Nr%,0099
left Form_Nr%,0000
width Form_Nr%,SCREEN_X
height Form_Nr%,SCREEN_Y-120 :' Bildschirmhöhe - Leiste Windows
color Form_Nr%,000,255,000
Caption Form_Nr%," FORM 10 "
border_normal Form_Nr%
show Form_Nr%
'
dll_on "form.dll"
Form_Button_Off12=DLL_CALL2("SetCaption",HANDLE(Form_Nr%),0) :' Formtitel deaktiviert
dll_off
'
Command_Target_is Form_Nr%
GOSUB INAKTIVE_FORM
GOSUB Menue_11
'
' ******************************************************************************
' *** Hauptprogramm auf Form 10 ************************************************
'
Command_Target_is Form_Nr%
'
'
Alpha 9010:hide 9010
'
show 9010
top 9010,030
left 9010,030
SCHRIFTART = 9010
Gosub SchriftartArial08
caption 9010,"Hauptprogramm aufForm 10"
'
' ******************************************************************************
' *** Jump nach on_click - Form 0010 *******************************************
on_click 1100,Zahl0010
on_click 1200,Zahl0020
on_click 1300,Zahl0030
on_click 1400,Zahl0040
on_click 1500,Zahl0050
on_click 1600,Zahl0060
on_click 1700,Zahl0070
on_click 1800,Zahl0080
on_click 1900,Zahl0090
on_click 9953,Zahl9998
end
' ******************************************************************************
' *** Form 20 erstellen *********************************************************
Zahl0020:
Form_Nr% = 20
Command_Target_is Form_Nr%
'
top Form_Nr%,0099
left Form_Nr%,0000
width Form_Nr%,SCREEN_X
height Form_Nr%,SCREEN_Y-120 :' Bildschirmhöhe - Leiste Windows
color Form_Nr%,116,212,238
Caption Form_Nr%," FORM 20 "
border_normal Form_Nr%
show Form_Nr%
'
dll_on "form.dll"
Form_Button_Off12=DLL_CALL2("SetCaption",HANDLE(Form_Nr%),0):' Formtitel deaktiviert
dll_off
'
Command_Target_is Form_Nr%
GOSUB INAKTIVE_FORM
GOSUB Menue_21
'
' ******************************************************************************
' *** Hauptprogramm auf Form 20 ************************************************
'
Command_Target_is Form_Nr%
'
'
Alpha 9020:hide 9020
'
show 9020
top 9020,030
left 9020,030
SCHRIFTART = 9020
Gosub SchriftartArial08
caption 9020,"Hauptprogramm aufForm 20"
'
' ******************************************************************************
' *** Sprun nach on_click ******************************************************
on_click 2100,Zahl0010
on_click 2200,Zahl0020
on_click 2300,Zahl0030
on_click 2400,Zahl0040
on_click 2500,Zahl0050
on_click 2600,Zahl0060
on_click 2700,Zahl0070
on_click 2800,Zahl0080
on_click 2900,Zahl0090
on_click 9955,Zahl9998
END
' ******************************************************************************
' *** Form 30 erstellen *********************************************************
Zahl0030:
Form_Nr% = 30
Command_Target_is Form_Nr%
'
top Form_Nr%,0099
left Form_Nr%,0000
width Form_Nr%,SCREEN_X
height Form_Nr%,SCREEN_Y-120 :' Bildschirmhöhe - Leiste Windows
color Form_Nr%,218,235,024
Caption Form_Nr%," FORM 30 "
border_normal Form_Nr%
show Form_Nr%
'
dll_on "form.dll"
Form_Button_Off12=DLL_CALL2("SetCaption",HANDLE(Form_Nr%),0):' Formtitel deaktiviert
dll_off
'
Command_Target_is Form_Nr%
GOSUB INAKTIVE_FORM
GOSUB Menue_31
'
' ******************************************************************************
' *** Hauptprogramm auf Form 30 ************************************************
'
Command_Target_is Form_Nr%
'
'
Alpha 9030:hide 9030
'
show 9030
top 9030,030
left 9030,030
SCHRIFTART = 9030
Gosub SchriftartArial08
caption 9030,"Hauptprogramm aufForm 30"
'
' *** Sprun nach on_click ******************************************************
on_click 3100,Zahl0010
on_click 3200,Zahl0020
on_click 3300,Zahl0030
on_click 3400,Zahl0040
on_click 3500,Zahl0050
on_click 3600,Zahl0060
on_click 3700,Zahl0070
on_click 3800,Zahl0080
on_click 3900,Zahl0090
on_click 9957,Zahl9998
END
' ******************************************************************************
' *** Form 40 erstellen *********************************************************
Zahl0040:
Form_Nr% = 40
Command_Target_is Form_Nr%
'
top Form_Nr%,0099
left Form_Nr%,0000
width Form_Nr%,SCREEN_X
height Form_Nr%,SCREEN_Y-120 :' Bildschirmhöhe - Leiste Windows
color Form_Nr%,214,042,209
Caption Form_Nr%," FORM 40 "
border_normal Form_Nr%
show Form_Nr%
'
dll_on "form.dll"
Form_Button_Off12=DLL_CALL2("SetCaption",HANDLE(Form_Nr%),0):' Formtitel deaktiviert
dll_off
'
Command_Target_is Form_Nr%
GOSUB INAKTIVE_FORM
GOSUB Menue_41
' ******************************************************************************
' *** Hauptprogramm auf Form 40 ************************************************
'
Command_Target_is Form_Nr%
'
'
Alpha 9040:hide 9040
'
show 9040
top 9040,030
left 9040,030
SCHRIFTART = 9040
Gosub SchriftartArial08
caption 9040,"Hauptprogramm aufForm 40"
'
' *** Sprun nach on_click ******************************************************
on_click 4100,Zahl0010
on_click 4200,Zahl0020
on_click 4300,Zahl0030
on_click 4400,Zahl0040
on_click 4500,Zahl0050
on_click 4600,Zahl0060
on_click 4700,Zahl0070
on_click 4800,Zahl0080
on_click 4900,Zahl0090
on_click 9959,Zahl9998
END
' ******************************************************************************
' *** Form 50 erstellen ********************************************************
Zahl0050:
Form_Nr% = 50
Command_Target_is Form_Nr%
'
top Form_Nr%,0099
left Form_Nr%,0000
width Form_Nr%,SCREEN_X
height Form_Nr%,SCREEN_Y-120 :' Bildschirmhöhe - Leiste Windows
color Form_Nr%,190,237,016
Caption Form_Nr%," FORM 50 "
border_normal Form_Nr%
show Form_Nr%
'
dll_on "form.dll"
Form_Button_Off12=DLL_CALL2("SetCaption",HANDLE(Form_Nr%),0):' Formtitel deaktiviert
dll_off
'
Command_Target_is Form_Nr%
GOSUB INAKTIVE_FORM
GOSUB Menue_51
' ******************************************************************************
' *** Hauptprogramm auf Form 50 ************************************************
'
Command_Target_is Form_Nr%
'
'
Alpha 9050:hide 9050
'
show 9050
top 9050,030
left 9050,030
SCHRIFTART = 9050
Gosub SchriftartArial08
caption 9050,"Hauptprogramm aufForm 50"
'
' *** Sprun nach on_click ******************************************************
on_click 5100,Zahl0010
on_click 5200,Zahl0020
on_click 5300,Zahl0030
on_click 5400,Zahl0040
on_click 5500,Zahl0050
on_click 5600,Zahl0060
on_click 5700,Zahl0070
on_click 5800,Zahl0080
on_click 5900,Zahl0090
on_click 9961,Zahl9998
END
' ******************************************************************************
' *** Form 60 erstellen ********************************************************
Zahl0060:
Form_Nr% = 60
Command_Target_is Form_Nr%
'
top Form_Nr%,0099
left Form_Nr%,0000
width Form_Nr%,SCREEN_X
height Form_Nr%,SCREEN_Y-120 :' Bildschirmhöhe - Leiste Windows
color Form_Nr%,137,223,242
Caption Form_Nr%," FORM 60 "
border_normal Form_Nr%
show Form_Nr%
'
dll_on "form.dll"
Form_Button_Off12=DLL_CALL2("SetCaption",HANDLE(Form_Nr%),0):' Formtitel deaktiviert
dll_off
'
Command_Target_is Form_Nr%
GOSUB INAKTIVE_FORM
GOSUB Menue_61
' ******************************************************************************
' *** Hauptprogramm auf Form 60 ************************************************
'
Command_Target_is Form_Nr%
'
'
Alpha 9060:hide 9060
'
show 9060
top 9060,030
left 9060,030
SCHRIFTART = 9060
Gosub SchriftartArial08
caption 9060,"Hauptprogramm aufForm 60"
'
' *** Sprun nach on_click ******************************************************
on_click 6100,Zahl0010
on_click 6200,Zahl0020
on_click 6300,Zahl0030
on_click 6400,Zahl0040
on_click 6500,Zahl0050
on_click 6600,Zahl0060
on_click 6700,Zahl0070
on_click 6800,Zahl0080
on_click 6900,Zahl0090
on_click 9963,Zahl9998
END
' ******************************************************************************
' *** Form 70 erstellen ********************************************************
Zahl0070:
Form_Nr% = 70
Command_Target_is Form_Nr%
'
top Form_Nr%,0099
left Form_Nr%,0000
width Form_Nr%,SCREEN_X
height Form_Nr%,SCREEN_Y-120 :' Bildschirmhöhe - Leiste Windows
color Form_Nr%,224,242,085
Caption Form_Nr%," FORM 70 "
border_normal Form_Nr%
show Form_Nr%
'
dll_on "form.dll"
Form_Button_Off12=DLL_CALL2("SetCaption",HANDLE(Form_Nr%),0):' Formtitel deaktiviert
dll_off
'
Command_Target_is Form_Nr%
GOSUB INAKTIVE_FORM
GOSUB Menue_71
' ******************************************************************************
' *** Hauptprogramm auf Form 70 ************************************************
'
Command_Target_is Form_Nr%
'
'
Alpha 9070:hide 9070
'
show 9070
top 9070,030
left 9070,030
SCHRIFTART = 9070
Gosub SchriftartArial08
caption 9070,"Hauptprogramm aufForm 70"
'
' *** Sprun nach on_click ******************************************************
on_click 7100,Zahl0010
on_click 7200,Zahl0020
on_click 7300,Zahl0030
on_click 7400,Zahl0040
on_click 7500,Zahl0050
on_click 7600,Zahl0060
on_click 7700,Zahl0070
on_click 7800,Zahl0080
on_click 7900,Zahl0090
on_click 9965,Zahl9998
END
' ******************************************************************************
' *** Form 80 erstellen ********************************************************
Zahl0080:
Form_Nr% = 80
Command_Target_is Form_Nr%
'
top Form_Nr%,0099
left Form_Nr%,0000
width Form_Nr%,SCREEN_X
height Form_Nr%,SCREEN_Y-120 :' Bildschirmhöhe - Leiste Windows
color Form_Nr%,239,164,025
Caption Form_Nr%," FORM 80 "
border_normal Form_Nr%
show Form_Nr%
'
dll_on "form.dll"
Form_Button_Off12=DLL_CALL2("SetCaption",HANDLE(Form_Nr%),0):' Formtitel deaktiviert
dll_off
'
Command_Target_is Form_Nr%
GOSUB INAKTIVE_FORM
GOSUB Menue_81
' ******************************************************************************
' *** Hauptprogramm auf Form 80 ************************************************
'
Command_Target_is Form_Nr%
'
'
Alpha 9080:hide 9080
'
show 9080
top 9080,030
left 9080,030
SCHRIFTART = 9080
Gosub SchriftartArial08
caption 9080,"Hauptprogramm aufForm 80"
'
' *** Sprun nach on_click ******************************************************
on_click 8100,Zahl0010
on_click 8200,Zahl0020
on_click 8300,Zahl0030
on_click 8400,Zahl0040
on_click 8500,Zahl0050
on_click 8600,Zahl0060
on_click 8700,Zahl0070
on_click 8800,Zahl0080
on_click 8900,Zahl0090
on_click 9967,Zahl9998
END
' ******************************************************************************
' *** Form 90 erstellen ********************************************************
Zahl0090:
Form_Nr% = 90
Command_Target_is Form_Nr%
'
top Form_Nr%,0099
left Form_Nr%,0000
width Form_Nr%,SCREEN_X
height Form_Nr%,SCREEN_Y-120 :' Bildschirmhöhe - Leiste Windows
color Form_Nr%,061,023,113
Caption Form_Nr%," FORM 90 "
border_normal Form_Nr%
show Form_Nr%
'
dll_on "form.dll"
Form_Button_Off12=DLL_CALL2("SetCaption",HANDLE(Form_Nr%),0):' Formtitel deaktiviert
dll_off
'
Command_Target_is Form_Nr%
GOSUB INAKTIVE_FORM
GOSUB Menue_91
' ******************************************************************************
' *** Hauptprogramm auf Form 80 ************************************************
'
Command_Target_is Form_Nr%
'
'
Alpha 9090:hide 9090
'
show 9090
top 9090,030
left 9090,030
SCHRIFTART = 9090
Gosub SchriftartArial08
caption 9090,"Hauptprogramm aufForm 90"
'
' *** Sprun nach on_click ******************************************************
on_click 9100,Zahl0010
on_click 9200,Zahl0020
on_click 9300,Zahl0030
on_click 9400,Zahl0040
on_click 9500,Zahl0050
on_click 9600,Zahl0060
on_click 9700,Zahl0070
on_click 9800,Zahl0080
on_click 9900,Zahl0090
on_click 9969,Zahl9998
END
' ******************************************************************************
' *** Rücksprung auf Form 000 und aktivieren ***********************************
Zahl9998:
'
inactive Form_Nr%
active 0000
'
dll_on "form.dll"
Form_Button_On09= dll_call1("SetFormActive",handle(0))
dll_off
'
Gosub Zahl0000
'
return
' ******************************************************************************
' Programm beenden *************************************************************
Zahl9999:
'
terminate
END
' ******************************************************************************
' ******************************************************************************
Rahmenaufform_0000:
Command_Target_is 0000
'
RAHMENAUFFORMOBEN$ = CHR$(201) + STRING$(274,CHR$(205)) + CHR$(187)
RAHMENAUFFORNUNTEN$ = CHR$(200) + STRING$(274,CHR$(205)) + CHR$(188)
RAHMENAUFFORMRECHTS$ = CHR$(186)
RAHMENAUFFORMLINKS$ = CHR$(186)
'
show 9910
top 9910,001 :' INT(SCREEN_Y-SCREEN_Y + INT(SCREEN_Y/37)*19)
left 9910,000 :' INT(SCREEN_X-SCREEN_X)+80
SCHRIFTART = 9910
Gosub Schriftartsymbolschwarz
caption 9910,RAHMENAUFFORMOBEN$
'
' *** Links RAHMEM ZEICHNEN ****************************************************
'
show 9920
top 9920,009 :' INT(SCREEN_Y-SCREEN_Y + INT(SCREEN_Y/37)*19)
left 9920,000 :' INT(SCREEN_X-SCREEN_X)+80
SCHRIFTART = 9920
Gosub Schriftartsymbolschwarz
caption 9920,RAHMENAUFFORMLINKS$
'
show 9921
top 9921,016 :' INT(SCREEN_Y-SCREEN_Y + INT(SCREEN_Y/37)*19)
left 9921,000 :' INT(SCREEN_X-SCREEN_X)+80
SCHRIFTART = 9921
Gosub Schriftartsymbolschwarz
caption 9921,RAHMENAUFFORMLINKS$
'
show 9922
top 9922,023 :' INT(SCREEN_Y-SCREEN_Y + INT(SCREEN_Y/37)*19)
left 9922,000 :' INT(SCREEN_X-SCREEN_X)+80
SCHRIFTART = 9922
Gosub Schriftartsymbolschwarz
caption 9922,RAHMENAUFFORMLINKS$
'
show 9923
top 9923,031 :' INT(SCREEN_Y-SCREEN_Y + INT(SCREEN_Y/37)*19)
left 9923,000 :' INT(SCREEN_X-SCREEN_X)+80
SCHRIFTART = 9923
Gosub Schriftartsymbolschwarz
caption 9923,RAHMENAUFFORMLINKS$
'
show 9924
top 9924,039 :' INT(SCREEN_Y-SCREEN_Y + INT(SCREEN_Y/37)*19)
left 9924,000 :' INT(SCREEN_X-SCREEN_X)+80
SCHRIFTART = 9924
Gosub Schriftartsymbolschwarz
caption 9924,RAHMENAUFFORMLINKS$
'
' *** Rechts RAHMEM ZEICHNEN ****************************************************
'
show 9930
top 9930,0009 :' INT(SCREEN_Y-SCREEN_Y + INT(SCREEN_Y/37)*19)
left 9930,1650 :' INT(SCREEN_X-SCREEN_X)+80
SCHRIFTART = 9930
Gosub Schriftartsymbolschwarz
caption 9930,RAHMENAUFFORMRECHTS$
'
show 9931
top 9931,0016 :' INT(SCREEN_Y-SCREEN_Y + INT(SCREEN_Y/37)*19)
left 9931,1650 :' INT(SCREEN_X-SCREEN_X)+80
SCHRIFTART = 9931
Gosub Schriftartsymbolschwarz
caption 9931,RAHMENAUFFORMRECHTS$
'
show 9932
top 9932,0023 :' INT(SCREEN_Y-SCREEN_Y + INT(SCREEN_Y/37)*19)
left 9932,1650 :' INT(SCREEN_X-SCREEN_X)+80
SCHRIFTART = 9932
Gosub Schriftartsymbolschwarz
caption 9932,RAHMENAUFFORMRECHTS$
'
show 9933
top 9933,0031 :' INT(SCREEN_Y-SCREEN_Y + INT(SCREEN_Y/37)*19)
left 9933,1650 :' INT(SCREEN_X-SCREEN_X)+80
SCHRIFTART = 9933
Gosub Schriftartsymbolschwarz
caption 9933,RAHMENAUFFORMRECHTS$
'
show 9934
top 9934,0039 :' INT(SCREEN_Y-SCREEN_Y + INT(SCREEN_Y/37)*19)
left 9934,1650 :' INT(SCREEN_X-SCREEN_X)+80
SCHRIFTART = 9934
Gosub Schriftartsymbolschwarz
caption 9934,RAHMENAUFFORMRECHTS$
'
' *** LINIE UNTEN **************************************************************
'
show 9940
top 9940,046 :' INT(SCREEN_Y-SCREEN_Y + INT(SCREEN_Y/37)*19)
left 9940,000 :' INT(SCREEN_X-SCREEN_X)+80
SCHRIFTART = 9940
Gosub Schriftartsymbolschwarz
caption 9940,RAHMENAUFFORNUNTEN$
'
return
end
' ******************************************************************************
' *** SCHRIFTART Terminal GRÖSSE 08 Normal Schwarz *****************************
Schriftartsymbolschwarz:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,08
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' *** SCHRIFTART ARIALl GRÖSSE 08 Normal Schwarz *****************************
SchriftartArial08:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,08
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' ******************************************************************************
INAKTIVE_FORM:
'
inactive Form_Nr%
inactive 0000
dll_on "form.dll"
Form_Button_On09= dll_call1("SetFormActive",handle(Form_Nr%))
dll_off
'
RETURN
' ******************************************************************************
' *** MENÜ 11 ******************************************************************
Menue_11:
Command_Target_is Form_Nr%
'
on_error_goto WEITER11
' *** Hauptmenü erstellen ******************************************************
main_menu 0011
' *** ERSTELLEN DES HAUPTMENÜ 1000 bis 1900 ************************************
sub_menu 1000:caption 1000,FORM_TEXT$(010):parent 1000,0011
' *** ERSTELLEN UNTERMENÜ 1100 bis 1900 ***************************************
sub_menu 1100:caption 1100,FORM_TEXT$(001):parent 1100,1000
sub_menu 1200:caption 1200,FORM_TEXT$(002):parent 1200,1000
sub_menu 1300:caption 1300,FORM_TEXT$(003):parent 1300,1000
sub_menu 1400:caption 1400,FORM_TEXT$(004):parent 1400,1000
sub_menu 1500:caption 1500,FORM_TEXT$(005):parent 1500,1000
sub_menu 1600:caption 1600,FORM_TEXT$(006):parent 1600,1000
sub_menu 1700:caption 1700,FORM_TEXT$(007):parent 1700,1000
sub_menu 1800:caption 1800,FORM_TEXT$(008):parent 1800,1000
sub_menu 1900:caption 1900,FORM_TEXT$(009):parent 1900,1000
sub_menu 9952:caption 9952,FORM_TEXT$(199):parent 9952,1000
sub_menu 9953:caption 9953,FORM_TEXT$(180):parent 9953,1000
'
WEITER11:
active Form_Nr%
inactive 0000
dll_on "form.dll"
Form_Button_On09= dll_call1("SetFormActive",handle(Form_Nr%))
dll_off
'
RETURN
' *** MENÜ 21 ******************************************************************
Menue_21:
Command_Target_is Form_Nr%
'
on_error_goto WEITER21
' *** Hauptmenü erstellen ******************************************************
main_menu 0021
' *** ERSTELLEN DES HAUPTMENÜ 2000 bis 2900 ************************************
sub_menu 2000:caption 2000,FORM_TEXT$(020):parent 2000,0021
' *** ERSTELLEN UNTERMENÜ 1100 bis 1900 ***************************************
sub_menu 2100:caption 2100,FORM_TEXT$(001):parent 2100,2000
sub_menu 2200:caption 2200,FORM_TEXT$(002):parent 2200,2000
sub_menu 2300:caption 2300,FORM_TEXT$(003):parent 2300,2000
sub_menu 2400:caption 2400,FORM_TEXT$(004):parent 2400,2000
sub_menu 2500:caption 2500,FORM_TEXT$(005):parent 2500,2000
sub_menu 2600:caption 2600,FORM_TEXT$(006):parent 2600,2000
sub_menu 2700:caption 2700,FORM_TEXT$(007):parent 2700,2000
sub_menu 2800:caption 2800,FORM_TEXT$(008):parent 2800,2000
sub_menu 2900:caption 2900,FORM_TEXT$(009):parent 2900,2000
sub_menu 9954:caption 9954,FORM_TEXT$(199):parent 9954,2000
sub_menu 9955:caption 9955,FORM_TEXT$(180):parent 9955,2000
'
WEITER21:
active Form_Nr%
inactive 0000
dll_on "form.dll"
Form_Button_On09= dll_call1("SetFormActive",handle(Form_Nr%))
dll_off
'
RETURN
' *** MENÜ 31 ******************************************************************
Menue_31:
Command_Target_is Form_Nr%
'
on_error_goto WEITER31
' *** Hauptmenü erstellen ******************************************************
main_menu 0031
' *** ERSTELLEN DES HAUPTMENÜ 2000 bis 2900 ************************************
sub_menu 3000:caption 3000,FORM_TEXT$(030):parent 3000,0031
' *** ERSTELLEN UNTERMENÜ 1100 bis 1900 ***************************************
sub_menu 3100:caption 3100,FORM_TEXT$(001):parent 3100,3000
sub_menu 3200:caption 3200,FORM_TEXT$(002):parent 3200,3000
sub_menu 3300:caption 3300,FORM_TEXT$(003):parent 3300,3000
sub_menu 3400:caption 3400,FORM_TEXT$(004):parent 3400,3000
sub_menu 3500:caption 3500,FORM_TEXT$(005):parent 3500,3000
sub_menu 3600:caption 3600,FORM_TEXT$(006):parent 3600,3000
sub_menu 3700:caption 3700,FORM_TEXT$(007):parent 3700,3000
sub_menu 3800:caption 3800,FORM_TEXT$(008):parent 3800,3000
sub_menu 3900:caption 3900,FORM_TEXT$(009):parent 3900,3000
sub_menu 9956:caption 9956,FORM_TEXT$(199):parent 9956,3000
sub_menu 9957:caption 9957,FORM_TEXT$(180):parent 9957,3000
'
WEITER31:
active Form_Nr%
inactive 0000
dll_on "form.dll"
Form_Button_On09= dll_call1("SetFormActive",handle(Form_Nr%))
dll_off
'
RETURN
' *** MENÜ 41 ******************************************************************
Menue_41:
Command_Target_is Form_Nr%
'
on_error_goto WEITER41
Main_menu 0041
' *** ERSTELLEN DES HAUPTMENÜ 1000 bis 9000 ************************************
sub_menu 4000:caption 4000,FORM_TEXT$(040):parent 4000,0041
' *** ERSTELLEN UNTERMENÜ 1100 bis 1900 ***************************************
sub_menu 4100:caption 4100,FORM_TEXT$(001):parent 4100,4000
sub_menu 4200:caption 4200,FORM_TEXT$(002):parent 4200,4000
sub_menu 4300:caption 4300,FORM_TEXT$(003):parent 4300,4000
sub_menu 4400:caption 4400,FORM_TEXT$(004):parent 4400,4000
sub_menu 4500:caption 4500,FORM_TEXT$(005):parent 4500,4000
sub_menu 4600:caption 4600,FORM_TEXT$(006):parent 4600,4000
sub_menu 4700:caption 4700,FORM_TEXT$(007):parent 4700,4000
sub_menu 4800:caption 4800,FORM_TEXT$(008):parent 4800,4000
sub_menu 4900:caption 4900,FORM_TEXT$(009):parent 4900,4000
sub_menu 9958:caption 9958,FORM_TEXT$(199):parent 9958,4000
sub_menu 9959:caption 9959,FORM_TEXT$(180):parent 9959,4000
'
WEITER41:
active Form_Nr%
inactive 0000
dll_on "form.dll"
Form_Button_On09= dll_call1("SetFormActive",handle(Form_Nr%))
dll_off
'
RETURN
' *** MENÜ 51 ******************************************************************
Menue_51:
Command_Target_is Form_Nr%
'
on_error_goto WEITER51
Main_menu 0051
' *** ERSTELLEN DES HAUPTMENÜ 1000 bis 9000 ************************************
sub_menu 5000:caption 5000,FORM_TEXT$(050):parent 5000,0051
' *** ERSTELLEN UNTERMENÜ 1100 bis 1900 ***************************************
sub_menu 5100:caption 5100,FORM_TEXT$(001):parent 5100,5000
sub_menu 5200:caption 5200,FORM_TEXT$(002):parent 5200,5000
sub_menu 5300:caption 5300,FORM_TEXT$(003):parent 5300,5000
sub_menu 5400:caption 5400,FORM_TEXT$(004):parent 5400,5000
sub_menu 5500:caption 5500,FORM_TEXT$(005):parent 5500,5000
sub_menu 5600:caption 5600,FORM_TEXT$(006):parent 5600,5000
sub_menu 5700:caption 5700,FORM_TEXT$(007):parent 5700,5000
sub_menu 5800:caption 5800,FORM_TEXT$(008):parent 5800,5000
sub_menu 5900:caption 5900,FORM_TEXT$(009):parent 5900,5000
sub_menu 9960:caption 9960,FORM_TEXT$(199):parent 9960,5000
sub_menu 9961:caption 9961,FORM_TEXT$(180):parent 9961,5000
'
WEITER51:
active Form_Nr%
inactive 0000
dll_on "form.dll"
Form_Button_On09= dll_call1("SetFormActive",handle(Form_Nr%))
dll_off
'
RETURN
' *** MENÜ 61 ******************************************************************
Menue_61:
Command_Target_is Form_Nr%
'
on_error_goto WEITER61
Main_menu 0061
' *** ERSTELLEN DES HAUPTMENÜ 1000 bis 9000 ************************************
sub_menu 6000:caption 6000,FORM_TEXT$(060):parent 6000,0061
' *** ERSTELLEN UNTERMENÜ 1100 bis 1900 ***************************************
sub_menu 6100:caption 6100,FORM_TEXT$(001):parent 6100,6000
sub_menu 6200:caption 6200,FORM_TEXT$(002):parent 6200,6000
sub_menu 6300:caption 6300,FORM_TEXT$(003):parent 6300,6000
sub_menu 6400:caption 6400,FORM_TEXT$(004):parent 6400,6000
sub_menu 6500:caption 6500,FORM_TEXT$(005):parent 6500,6000
sub_menu 6600:caption 6600,FORM_TEXT$(006):parent 6600,6000
sub_menu 6700:caption 6700,FORM_TEXT$(007):parent 6700,6000
sub_menu 6800:caption 6800,FORM_TEXT$(008):parent 6800,6000
sub_menu 6900:caption 6900,FORM_TEXT$(009):parent 6900,6000
sub_menu 9962:caption 9962,FORM_TEXT$(199):parent 9962,6000
sub_menu 9963:caption 9963,FORM_TEXT$(180):parent 9963,6000
'
WEITER61:
active Form_Nr%
inactive 0000
dll_on "form.dll"
Form_Button_On09= dll_call1("SetFormActive",handle(Form_Nr%))
dll_off
'
RETURN
' *** MENÜ 71 ******************************************************************
Menue_71:
Command_Target_is Form_Nr%
'
on_error_goto WEITER71
Main_menu 0071
' *** ERSTELLEN DES HAUPTMENÜ 1000 bis 9000 ************************************
sub_menu 7000:caption 7000,FORM_TEXT$(070):parent 7000,0071
' *** ERSTELLEN UNTERMENÜ 1100 bis 1900 ***************************************
sub_menu 7100:caption 7100,FORM_TEXT$(001):parent 7100,7000
sub_menu 7200:caption 7200,FORM_TEXT$(002):parent 7200,7000
sub_menu 7300:caption 7300,FORM_TEXT$(003):parent 7300,7000
sub_menu 7400:caption 7400,FORM_TEXT$(004):parent 7400,7000
sub_menu 7500:caption 7500,FORM_TEXT$(005):parent 7500,7000
sub_menu 7600:caption 7600,FORM_TEXT$(006):parent 7600,7000
sub_menu 7700:caption 7700,FORM_TEXT$(007):parent 7700,7000
sub_menu 7800:caption 7800,FORM_TEXT$(008):parent 7800,7000
sub_menu 7900:caption 7900,FORM_TEXT$(009):parent 7900,7000
sub_menu 9964:caption 9964,FORM_TEXT$(199):parent 9964,7000
sub_menu 9965:caption 9965,FORM_TEXT$(180):parent 9965,7000
'
WEITER71:
active Form_Nr%
inactive 0000
dll_on "form.dll"
Form_Button_On09= dll_call1("SetFormActive",handle(Form_Nr%))
dll_off
'
RETURN
' *** MENÜ 81 ******************************************************************
Menue_81:
Command_Target_is Form_Nr%
'
on_error_goto WEITER81
Main_menu 0081
' *** ERSTELLEN DES HAUPTMENÜ 1000 bis 9000 ************************************
sub_menu 8000:caption 8000,FORM_TEXT$(080):parent 8000,0081
' *** ERSTELLEN UNTERMENÜ 1100 bis 1900 ***************************************
sub_menu 8100:caption 8100,FORM_TEXT$(001):parent 8100,8000
sub_menu 8200:caption 8200,FORM_TEXT$(002):parent 8200,8000
sub_menu 8300:caption 8300,FORM_TEXT$(003):parent 8300,8000
sub_menu 8400:caption 8400,FORM_TEXT$(004):parent 8400,8000
sub_menu 8500:caption 8500,FORM_TEXT$(005):parent 8500,8000
sub_menu 8600:caption 8600,FORM_TEXT$(006):parent 8600,8000
sub_menu 8700:caption 8700,FORM_TEXT$(007):parent 8700,8000
sub_menu 8800:caption 8800,FORM_TEXT$(008):parent 8800,8000
sub_menu 8900:caption 8900,FORM_TEXT$(009):parent 8900,8000
sub_menu 9966:caption 9966,FORM_TEXT$(199):parent 9966,8000
sub_menu 9967:caption 9967,FORM_TEXT$(180):parent 9967,8000
'
WEITER81:
active Form_Nr%
inactive 0000
dll_on "form.dll"
Form_Button_On09= dll_call1("SetFormActive",handle(Form_Nr%))
dll_off
'
RETURN
' *** MENÜ 91 ******************************************************************
Menue_91:
Command_Target_is Form_Nr%
'
on_error_goto WEITER91
Main_menu 0091
' *** ERSTELLEN DES HAUPTMENÜ 1000 bis 9000 ************************************
sub_menu 9000:caption 9000,FORM_TEXT$(090):parent 9000,0091
' *** ERSTELLEN UNTERMENÜ 1100 bis 1900 ***************************************
sub_menu 9100:caption 9100,FORM_TEXT$(001):parent 9100,9000
sub_menu 9200:caption 9200,FORM_TEXT$(002):parent 9200,9000
sub_menu 9300:caption 9300,FORM_TEXT$(003):parent 9300,9000
sub_menu 9400:caption 9400,FORM_TEXT$(004):parent 9400,9000
sub_menu 9500:caption 9500,FORM_TEXT$(005):parent 9500,9000
sub_menu 9600:caption 9600,FORM_TEXT$(006):parent 9600,9000
sub_menu 9700:caption 9700,FORM_TEXT$(007):parent 9700,9000
sub_menu 9800:caption 9800,FORM_TEXT$(008):parent 9800,9000
sub_menu 9900:caption 9900,FORM_TEXT$(009):parent 9900,9000
sub_menu 9968:caption 9968,FORM_TEXT$(199):parent 9968,9000
sub_menu 9969:caption 9969,FORM_TEXT$(180):parent 9969,9000
'
WEITER91:
active Form_Nr%
inactive 0000
dll_on "form.dll"
Form_Button_On09= dll_call1("SetFormActive",handle(Form_Nr%))
dll_off
'
RETURN

Sujet: Re: DLL: Form Lun 31 Oct 2011 - 18:18

Verion 31.10.2011
Severin

Code:: ' ************************************************************************************
DIM Form_Button_On01 :' ...Form_Button_On01=dll_call2("SetSize",handle(0),1)
DIM Form_Button_On02 :' ...Form_Button_On02= DLL_CALL2("SetCaption",HANDLE(0),1)
DIm Form_Button_On03 :' ...Form_Button_On03= xxxxxx
DIM Form_Button_On04 :' ...Form_Button_On04=DLL_CALL2("SetMaximize",HANDLE(0),1)
DIM Form_Button_On05 :' ...Form_Button_On05= DLL_CALL2("SetMinimize", HANDLE(0),1)
DIM Form_Button_On06 :' ...Form_Button_On06=
DIM Form_Button_On07 :' ...Form_Button_On07=
DIM Form_Button_On08 :' ...Form_Button_On08=
DIM Form_Button_On09 :' ...Form_Button_On09= dll_call1("SetFormActive",handle(0))
' ******************************************************************************
DIM Form_Button_Off11 :' ...Form_Button_Off11=dll_call2("SetSize",handle(0),0)
DIM Form_Button_Off12 :' ...Form_Button_Off12= DLL_CALL2("SetCaption",HANDLE(0),0)
DIM Form_Button_Off13 :' ...Form_Button_Off13=dll_call1("SetCloseOff",handle(0))
DIM Form_Button_Off14 :' ...Form_Button_Off14=DLL_CALL2("SetMaximize",HANDLE(0),0)
DIM Form_Button_Off15 :' ...Form_Button_Off15=DLL_CALL2("SetMinimize",HANDLE(0),0)
DIM Form_Button_Off16 :' ...Form_Button_Off16=dll_call1(
DIM Form_Button_Off17 :' ...Form_Button_Off17=dll_call1(
DIM Form_Button_Off18 :' ...Form_Button_Off18=dll_call1(
DIM Form_Button_Off19 :' ...Form_Button_Off19=dll_call1(
' ******************************************************************************
DIM Form_Button_Off99 :' ...Form_Button_Off99=dll_call1("SetTopMost",handle(0))
'
Label INAKTIVE_FORM
'
Label Schriftartsymbolschwarz
Label SchriftartArial08
'
Label Rahmenaufform_0000
DIM RAHMENAUFFORMOBEN$
DIM RAHMENAUFFORNUNTEN$
DIM RAHMENAUFFORMRECHTS$
DIM RAHMENAUFFORMLINKS$
'
Alpha 9001:hide 9001
Alpha 9910:hide 9910
'
Alpha 9920:hide 9920
Alpha 9921:hide 9921
Alpha 9922:hide 9922
Alpha 9923:hide 9923
Alpha 9924:hide 9924
Alpha 9925:hide 9925
'
Alpha 9930:hide 9930
Alpha 9931:hide 9931
Alpha 9932:hide 9932
Alpha 9933:hide 9933
Alpha 9934:hide 9934
Alpha 9935:hide 9935
'
Alpha 9940:hide 9940
'
DIM i
DIM SCHRIFTART
'
' *** Zeichensatz Dimensionieren für Abmessung Länge und Breite ****************
'
DIM screenX1 :screenX1 = Screen_x - 20
DIM screenX2 :screenX2 = Screen_x - 16
DIM screenY1 :screenY1 = Screen_x - 20
Label Rahmenbreite
DIM ZA2$
DIM ZB2%
DIM ZZ2%
DIM ZR2%
DIM ZH2%
'
' *** LABEL FÜR UNTERTMENÜ'S DEFINIEREN ****************************************
'
Label Zahl0000 :' Einsprung für Unterprogramm - 00
Label Zahl0010 :' Einsprung für Unterprogramm - 10
Label Zahl0020 :' Einsprung für Unterprogramm - 20
Label Zahl0030 :' Einsprung für Unterprogramm - 30
Label Zahl0040 :' Einsprung für Unterprogramm - 40
Label Zahl0050 :' Einsprung für Unterprogramm - 50
Label Zahl0060 :' Einsprung für Unterprogramm - 60
Label Zahl0070 :' Einsprung für Unterprogramm - 70
Label Zahl0080 :' Einsprung für Unterprogramm - 80
Label Zahl0090 :' Einsprung für Unterprogramm - 90
'
' *** LABEL FÜR UNTERTMENÜ'S DEFINIEREN ****************************************
'
Label Zahl9998 :' Einsprung für Unterprogramm - Form 000 aktivieren
Label Zahl9999 :' Einsprung für Unterprogramm - Programm beenden
'
DIM Form_Nr%
'
Label Menue_11:Label WEITER11
Label Menue_21:Label WEITER21
Label Menue_31:Label WEITER31
Label Menue_41:Label WEITER41
Label Menue_51:Label WEITER51
Label Menue_61:Label WEITER61
Label Menue_71:Label WEITER71
Label Menue_81:Label WEITER81
Label Menue_91:Label WEITER91
'
' *** Variabele für Menü erstellen und füllen **********************************
'
Dim FORM_TEXT$(200) :' Text auf Menü in Englisch
'
FORM_TEXT$(000) = " Form setting "
FORM_TEXT$(001) = " show Form 10 - green "
FORM_TEXT$(002) = " show Form 20 - blue "
FORM_TEXT$(003) = " show Form 30 - yellow "
FORM_TEXT$(004) = " show Form 40 - red "
FORM_TEXT$(005) = " show Form 50 - hellgrün "
FORM_TEXT$(006) = " show Form 60 - hellblau "
FORM_TEXT$(007) = " show Form 70 - hellgelb "
FORM_TEXT$(008) = " show Form 80 - hellgelb "
FORM_TEXT$(009) = " show Form 90 - dunkelblau"
'
FORM_TEXT$(010) = " show Form 10 - green "
FORM_TEXT$(020) = " show Form 20 - blue "
FORM_TEXT$(030) = " show Form 30 - yellow "
FORM_TEXT$(040) = " show Form 40 - red "
FORM_TEXT$(050) = " show Form 50 - hellgrün "
FORM_TEXT$(060) = " show Form 60 - hellblau "
FORM_TEXT$(070) = " show Form 70 - hellgelb "
FORM_TEXT$(080) = " show Form 80 - hellgelb "
FORM_TEXT$(090) = " show Form 90 - dunkelblau"
'
FORM_TEXT$(180) = " RETOUR Form 0"
FORM_TEXT$(199) = "--------------------------------"
FORM_TEXT$(200) = " Quit "
' ******************************************************************************
' *** Höhe der Formen einstellen ***********************************************
'
DIM FormHoehe1% :FormHoehe1% = 103
DIM FormHoehe2% :FormHoehe2% = 102
'
' *** Form 0 erstellen *********************************************************
'
top 0000,0000
left 0000,0000
width 0000,SCREEN_X
height 0000,FormHoehe1% :' Bildschirmhöhe - Leiste Windows
color 0000,255,000,000
Caption 0000," FORM 0 "
border_normal 0000
'
dll_on "form.dll"
Form_Button_On02 =DLL_CALL2("SetCaption",HANDLE(0),1) :' Formtitel aktiviert
Form_Button_Off13=dll_call1("SetCloseOff",handle(0)) :' Schließen deaktiviert
Form_Button_Off14=DLL_CALL2("SetMaximize",HANDLE(0),0) :' Vergrößern deaktiviert
Form_Button_Off15=DLL_CALL2("SetMinimize",HANDLE(0),0):' Verkleinern deaktiviert
dll_off
'
Command_Target_is 0000
'
' *** Hauptmenü erstellen ******************************************************
main_menu 0001
'
' *** ERSTELLEN DES HAUPTMENÜ 1000 bis 9000 ************************************
sub_menu 0002:caption 0002,FORM_TEXT$(000):parent 0002,0001
'
' *** ERSTELLEN UNTERMENÜ 1100 bis 1900 ***************************************
sub_menu 0100:caption 0100,FORM_TEXT$(001):parent 0100,0002
sub_menu 0200:caption 0200,FORM_TEXT$(002):parent 0200,0002
sub_menu 0300:caption 0300,FORM_TEXT$(003):parent 0300,0002
sub_menu 0400:caption 0400,FORM_TEXT$(004):parent 0400,0002
sub_menu 0500:caption 0500,FORM_TEXT$(005):parent 0500,0002
sub_menu 0600:caption 0600,FORM_TEXT$(006):parent 0600,0002
sub_menu 0700:caption 0700,FORM_TEXT$(007):parent 0700,0002
sub_menu 0800:caption 0800,FORM_TEXT$(008):parent 0800,0002
sub_menu 0900:caption 0900,FORM_TEXT$(009):parent 0900,0002
sub_menu 9950:caption 9950,FORM_TEXT$(199):parent 9950,0002
sub_menu 9951:caption 9951,FORM_TEXT$(200):parent 9951,0002
'
' ******************************************************************************
' Formen erstellen 5, 10 bis 90 ************************************************
' ******************************************************************************
' *** ALLE UNTERFORMEN ERSTELLEN UND VERSTECKEN ********************************
'
Form 5
hide 5
top 5,INT(SCREEN_Y/2-200)
left 5,INT(SCREEN_X/2-200)
width 5,1
height 5,1
border_hide 5
'
for i = 10 to 90 step 10
'
Form i
hide i
top i,INT(SCREEN_Y/2-200)
left i,INT(SCREEN_X/2-200)
width i,1
height i,1
border_hide i
'
next i
'
' Formen erstellen 5 ***********************************************************
Form_Nr% = 5
'
top Form_Nr%,FormHoehe2%
left Form_Nr%,0000
width Form_Nr%,SCREEN_X
height Form_Nr%,SCREEN_Y-120 :' Bildschirmhöhe - Leiste Windows
color Form_Nr%,205,206,202
Caption Form_Nr%," "
border_normal Form_Nr%
'
dll_on "form.dll"
Form_Button_Off12=DLL_CALL2("SetCaption",HANDLE(Form_Nr%),0) :' Formtitel deaktiviert
Form_Button_Off13=dll_call1("SetCloseOff",handle(Form_Nr%)) :' Schließen deaktiviert
Form_Button_Off14=DLL_CALL2("SetMaximize",HANDLE(Form_Nr%),0) :' Vergrößern deaktiviert
Form_Button_Off15=DLL_CALL2("SetMinimize",HANDLE(Form_Nr%),0):' Verkleinern deaktiviert
dll_off
'
show Form_Nr%
' ******************************************************************************
' *** Rahmen auf Form 0000 erstellen
GOSUB Rahmenaufform_0000
'
inactive 5
active 0000
'
Zahl0000:
dll_on "form.dll"
Form_Button_On09= dll_call1("SetFormActive",handle(0))
dll_off
'
' *** Jump nach on_click - Form 0000 *******************************************
on_click 0100,Zahl0010
on_click 0200,Zahl0020
on_click 0300,Zahl0030
on_click 0400,Zahl0040
on_click 0500,Zahl0050
on_click 0600,Zahl0060
on_click 0700,Zahl0070
on_click 0800,Zahl0080
on_click 0900,Zahl0090
on_click 9951,Zahl9999
END
' ******************************************************************************
' *** Form 10 green erstellen **************************************************
Zahl0010:
Form_Nr% = 10
Command_Target_is Form_Nr%
'
top Form_Nr%,FormHoehe2%
left Form_Nr%,0000
width Form_Nr%,SCREEN_X
height Form_Nr%,SCREEN_Y-120 :' Bildschirmhöhe - Leiste Windows
color Form_Nr%,000,255,000
Caption Form_Nr%," FORM 10 "
border_normal Form_Nr%
show Form_Nr%
'
dll_on "form.dll"
Form_Button_Off12=DLL_CALL2("SetCaption",HANDLE(Form_Nr%),0) :' Formtitel deaktiviert
dll_off
'
Command_Target_is Form_Nr%
GOSUB INAKTIVE_FORM
GOSUB Menue_11
'
' ******************************************************************************
' *** Hauptprogramm auf Form 10 ************************************************
'
Command_Target_is Form_Nr%
'
'
Alpha 9010:hide 9010
'
show 9010
top 9010,030
left 9010,030
SCHRIFTART = 9010
Gosub SchriftartArial08
caption 9010,"Hauptprogramm aufForm 10"
'
' ******************************************************************************
' *** Jump nach on_click - Form 0010 *******************************************
' on_click 1100,Zahl0010
on_click 1200,Zahl0020
on_click 1300,Zahl0030
on_click 1400,Zahl0040
on_click 1500,Zahl0050
on_click 1600,Zahl0060
on_click 1700,Zahl0070
on_click 1800,Zahl0080
on_click 1900,Zahl0090
on_click 9953,Zahl9998
end
' ******************************************************************************
' *** Form 20 erstellen *********************************************************
Zahl0020:
Form_Nr% = 20
Command_Target_is Form_Nr%
'
top Form_Nr%,FormHoehe2%
left Form_Nr%,0000
width Form_Nr%,SCREEN_X
height Form_Nr%,SCREEN_Y-120 :' Bildschirmhöhe - Leiste Windows
color Form_Nr%,116,212,238
Caption Form_Nr%," FORM 20 "
border_normal Form_Nr%
show Form_Nr%
'
dll_on "form.dll"
Form_Button_Off12=DLL_CALL2("SetCaption",HANDLE(Form_Nr%),0):' Formtitel deaktiviert
dll_off
'
Command_Target_is Form_Nr%
GOSUB INAKTIVE_FORM
GOSUB Menue_21
'
' ******************************************************************************
' *** Hauptprogramm auf Form 20 ************************************************
'
Command_Target_is Form_Nr%
'
'
Alpha 9020:hide 9020
'
show 9020
top 9020,030
left 9020,030
SCHRIFTART = 9020
Gosub SchriftartArial08
caption 9020,"Hauptprogramm aufForm 20"
'
' ******************************************************************************
' *** Sprun nach on_click ******************************************************
on_click 2100,Zahl0010
' on_click 2200,Zahl0020
on_click 2300,Zahl0030
on_click 2400,Zahl0040
on_click 2500,Zahl0050
on_click 2600,Zahl0060
on_click 2700,Zahl0070
on_click 2800,Zahl0080
on_click 2900,Zahl0090
on_click 9955,Zahl9998
END
' ******************************************************************************
' *** Form 30 erstellen *********************************************************
Zahl0030:
Form_Nr% = 30
Command_Target_is Form_Nr%
'
top Form_Nr%,FormHoehe2%
left Form_Nr%,0000
width Form_Nr%,SCREEN_X
height Form_Nr%,SCREEN_Y-120 :' Bildschirmhöhe - Leiste Windows
color Form_Nr%,218,235,024
Caption Form_Nr%," FORM 30 "
border_normal Form_Nr%
show Form_Nr%
'
dll_on "form.dll"
Form_Button_Off12=DLL_CALL2("SetCaption",HANDLE(Form_Nr%),0):' Formtitel deaktiviert
dll_off
'
Command_Target_is Form_Nr%
GOSUB INAKTIVE_FORM
GOSUB Menue_31
'
' ******************************************************************************
' *** Hauptprogramm auf Form 30 ************************************************
'
Command_Target_is Form_Nr%
'
'
Alpha 9030:hide 9030
'
show 9030
top 9030,030
left 9030,030
SCHRIFTART = 9030
Gosub SchriftartArial08
caption 9030,"Hauptprogramm aufForm 30"
'
' *** Sprun nach on_click ******************************************************
on_click 3100,Zahl0010
on_click 3200,Zahl0020
' on_click 3300,Zahl0030
on_click 3400,Zahl0040
on_click 3500,Zahl0050
on_click 3600,Zahl0060
on_click 3700,Zahl0070
on_click 3800,Zahl0080
on_click 3900,Zahl0090
on_click 9957,Zahl9998
END
' ******************************************************************************
' *** Form 40 erstellen *********************************************************
Zahl0040:
Form_Nr% = 40
Command_Target_is Form_Nr%
'
top Form_Nr%,FormHoehe2%
left Form_Nr%,0000
width Form_Nr%,SCREEN_X
height Form_Nr%,SCREEN_Y-120 :' Bildschirmhöhe - Leiste Windows
color Form_Nr%,214,042,209
Caption Form_Nr%," FORM 40 "
border_normal Form_Nr%
show Form_Nr%
'
dll_on "form.dll"
Form_Button_Off12=DLL_CALL2("SetCaption",HANDLE(Form_Nr%),0):' Formtitel deaktiviert
dll_off
'
Command_Target_is Form_Nr%
GOSUB INAKTIVE_FORM
GOSUB Menue_41
' ******************************************************************************
' *** Hauptprogramm auf Form 40 ************************************************
'
Command_Target_is Form_Nr%
'
'
Alpha 9040:hide 9040
'
show 9040
top 9040,030
left 9040,030
SCHRIFTART = 9040
Gosub SchriftartArial08
caption 9040,"Hauptprogramm aufForm 40"
'
' *** Sprun nach on_click ******************************************************
on_click 4100,Zahl0010
on_click 4200,Zahl0020
on_click 4300,Zahl0030
' on_click 4400,Zahl0040
on_click 4500,Zahl0050
on_click 4600,Zahl0060
on_click 4700,Zahl0070
on_click 4800,Zahl0080
on_click 4900,Zahl0090
on_click 9959,Zahl9998
END
' ******************************************************************************
' *** Form 50 erstellen ********************************************************
Zahl0050:
Form_Nr% = 50
Command_Target_is Form_Nr%
'
top Form_Nr%,FormHoehe2%
left Form_Nr%,0000
width Form_Nr%,SCREEN_X
height Form_Nr%,SCREEN_Y-120 :' Bildschirmhöhe - Leiste Windows
color Form_Nr%,190,237,016
Caption Form_Nr%," FORM 50 "
border_normal Form_Nr%
show Form_Nr%
'
dll_on "form.dll"
Form_Button_Off12=DLL_CALL2("SetCaption",HANDLE(Form_Nr%),0):' Formtitel deaktiviert
dll_off
'
Command_Target_is Form_Nr%
GOSUB INAKTIVE_FORM
GOSUB Menue_51
' ******************************************************************************
' *** Hauptprogramm auf Form 50 ************************************************
'
Command_Target_is Form_Nr%
'
'
Alpha 9050:hide 9050
'
show 9050
top 9050,030
left 9050,030
SCHRIFTART = 9050
Gosub SchriftartArial08
caption 9050,"Hauptprogramm aufForm 50"
'
' *** Sprun nach on_click ******************************************************
on_click 5100,Zahl0010
on_click 5200,Zahl0020
on_click 5300,Zahl0030
on_click 5400,Zahl0040
' on_click 5500,Zahl0050
on_click 5600,Zahl0060
on_click 5700,Zahl0070
on_click 5800,Zahl0080
on_click 5900,Zahl0090
on_click 9961,Zahl9998
END
' ******************************************************************************
' *** Form 60 erstellen ********************************************************
Zahl0060:
Form_Nr% = 60
Command_Target_is Form_Nr%
'
top Form_Nr%,FormHoehe2%
left Form_Nr%,0000
width Form_Nr%,SCREEN_X
height Form_Nr%,SCREEN_Y-120 :' Bildschirmhöhe - Leiste Windows
color Form_Nr%,137,223,242
Caption Form_Nr%," FORM 60 "
border_normal Form_Nr%
show Form_Nr%
'
dll_on "form.dll"
Form_Button_Off12=DLL_CALL2("SetCaption",HANDLE(Form_Nr%),0):' Formtitel deaktiviert
dll_off
'
Command_Target_is Form_Nr%
GOSUB INAKTIVE_FORM
GOSUB Menue_61
' ******************************************************************************
' *** Hauptprogramm auf Form 60 ************************************************
'
Command_Target_is Form_Nr%
'
'
Alpha 9060:hide 9060
'
show 9060
top 9060,030
left 9060,030
SCHRIFTART = 9060
Gosub SchriftartArial08
caption 9060,"Hauptprogramm aufForm 60"
'
' *** Sprun nach on_click ******************************************************
on_click 6100,Zahl0010
on_click 6200,Zahl0020
on_click 6300,Zahl0030
on_click 6400,Zahl0040
on_click 6500,Zahl0050
' on_click 6600,Zahl0060
on_click 6700,Zahl0070
on_click 6800,Zahl0080
on_click 6900,Zahl0090
on_click 9963,Zahl9998
END
' ******************************************************************************
' *** Form 70 erstellen ********************************************************
Zahl0070:
Form_Nr% = 70
Command_Target_is Form_Nr%
'
top Form_Nr%,FormHoehe2%
left Form_Nr%,0000
width Form_Nr%,SCREEN_X
height Form_Nr%,SCREEN_Y-120 :' Bildschirmhöhe - Leiste Windows
color Form_Nr%,224,242,085
Caption Form_Nr%," FORM 70 "
border_normal Form_Nr%
show Form_Nr%
'
dll_on "form.dll"
Form_Button_Off12=DLL_CALL2("SetCaption",HANDLE(Form_Nr%),0):' Formtitel deaktiviert
dll_off
'
Command_Target_is Form_Nr%
GOSUB INAKTIVE_FORM
GOSUB Menue_71
' ******************************************************************************
' *** Hauptprogramm auf Form 70 ************************************************
'
Command_Target_is Form_Nr%
'
'
Alpha 9070:hide 9070
'
show 9070
top 9070,030
left 9070,030
SCHRIFTART = 9070
Gosub SchriftartArial08
caption 9070,"Hauptprogramm aufForm 70"
'
' *** Sprun nach on_click ******************************************************
on_click 7100,Zahl0010
on_click 7200,Zahl0020
on_click 7300,Zahl0030
on_click 7400,Zahl0040
on_click 7500,Zahl0050
on_click 7600,Zahl0060
' on_click 7700,Zahl0070
on_click 7800,Zahl0080
on_click 7900,Zahl0090
on_click 9965,Zahl9998
END
' ******************************************************************************
' *** Form 80 erstellen ********************************************************
Zahl0080:
Form_Nr% = 80
Command_Target_is Form_Nr%
'
top Form_Nr%,FormHoehe2%
left Form_Nr%,0000
width Form_Nr%,SCREEN_X
height Form_Nr%,SCREEN_Y-120 :' Bildschirmhöhe - Leiste Windows
color Form_Nr%,239,164,025
Caption Form_Nr%," FORM 80 "
border_normal Form_Nr%
show Form_Nr%
'
dll_on "form.dll"
Form_Button_Off12=DLL_CALL2("SetCaption",HANDLE(Form_Nr%),0):' Formtitel deaktiviert
dll_off
'
Command_Target_is Form_Nr%
GOSUB INAKTIVE_FORM
GOSUB Menue_81
' ******************************************************************************
' *** Hauptprogramm auf Form 80 ************************************************
'
Command_Target_is Form_Nr%
'
'
Alpha 9080:hide 9080
'
show 9080
top 9080,030
left 9080,030
SCHRIFTART = 9080
Gosub SchriftartArial08
caption 9080,"Hauptprogramm aufForm 80"
'
' *** Sprun nach on_click ******************************************************
on_click 8100,Zahl0010
on_click 8200,Zahl0020
on_click 8300,Zahl0030
on_click 8400,Zahl0040
on_click 8500,Zahl0050
on_click 8600,Zahl0060
on_click 8700,Zahl0070
' on_click 8800,Zahl0080
on_click 8900,Zahl0090
on_click 9967,Zahl9998
END
' ******************************************************************************
' *** Form 90 erstellen ********************************************************
Zahl0090:
Form_Nr% = 90
Command_Target_is Form_Nr%
'
top Form_Nr%,FormHoehe2%
left Form_Nr%,0000
width Form_Nr%,SCREEN_X
height Form_Nr%,SCREEN_Y-120 :' Bildschirmhöhe - Leiste Windows
color Form_Nr%,061,023,113
Caption Form_Nr%," FORM 90 "
border_normal Form_Nr%
show Form_Nr%
'
dll_on "form.dll"
Form_Button_Off12=DLL_CALL2("SetCaption",HANDLE(Form_Nr%),0):' Formtitel deaktiviert
dll_off
'
Command_Target_is Form_Nr%
GOSUB INAKTIVE_FORM
GOSUB Menue_91
' ******************************************************************************
' *** Hauptprogramm auf Form 80 ************************************************
'
Command_Target_is Form_Nr%
'
'
Alpha 9090:hide 9090
'
show 9090
top 9090,030
left 9090,030
SCHRIFTART = 9090
Gosub SchriftartArial08
caption 9090,"Hauptprogramm aufForm 90"
'
' *** Sprun nach on_click ******************************************************
on_click 9100,Zahl0010
on_click 9200,Zahl0020
on_click 9300,Zahl0030
on_click 9400,Zahl0040
on_click 9500,Zahl0050
on_click 9600,Zahl0060
on_click 9700,Zahl0070
on_click 9800,Zahl0080
' on_click 9900,Zahl0090
on_click 9969,Zahl9998
END
' ******************************************************************************
' *** Rücksprung auf Form 000 und aktivieren ***********************************
Zahl9998:
'
inactive Form_Nr%
active 0000
'
dll_on "form.dll"
Form_Button_On09= dll_call1("SetFormActive",handle(0))
dll_off
'
Gosub Zahl0000
'
return
' ******************************************************************************
' Programm beenden *************************************************************
Zahl9999:
'
terminate
END
' ******************************************************************************
' Zeichenmaße ermitteln für Rahmen - Breite und Höhe ***************************
Rahmenbreite:
'
' show 9001
' top 9001,040 :' INT(SCREEN_Y-SCREEN_Y + INT(SCREEN_Y/37)*19)
' left 9001,040 :' INT(SCREEN_X-SCREEN_X)+80
SCHRIFTART = 9001
Gosub Schriftartsymbolschwarz
caption 9001,ZA2$
'
ZA2$ = CHR$(201)
ZB2% = TEXT_WIDTH(ZA2$,9001)
ZZ2% = ScreenX1 / ZB2%
ZZ2% = ZZ2% - 2
'
RAHMENAUFFORMOBEN$ = CHR$(201) + STRING$(ZZ2%,CHR$(205)) + CHR$(187)
RAHMENAUFFORNUNTEN$ = CHR$(200) + STRING$(ZZ2%,CHR$(205)) + CHR$(188)
RAHMENAUFFORMRECHTS$ = CHR$(186)
RAHMENAUFFORMLINKS$ = CHR$(186)
'
' *** Bildschirmmaß rechte Seite ***********************************************
'
ZA2$ = CHR$(201)
ZB2% = TEXT_WIDTH(ZA2$,9001)
ZR2% = ScreenX2 - ((ZB2% )-4)
'
' *** Bildschirmmaß Höhe******** ***********************************************
'
ZA2$ = CHR$(201)
ZB2% = TEXT_HEIGHT(ZA2$,9001)
ZH2% = ZB2%
'
return
' ******************************************************************************
Rahmenaufform_0000:
'
Gosub Rahmenbreite
'
Command_Target_is 0000
'
show 9910
top 9910,001
left 9910,006
SCHRIFTART = 9910
Gosub Schriftartsymbolschwarz
caption 9910,RAHMENAUFFORMOBEN$
'
' *** Links RAHMEM ZEICHNEN ****************************************************
'
show 9920
top 9920,ZH2%*1
left 9920,006
SCHRIFTART = 9920
Gosub Schriftartsymbolschwarz
caption 9920,RAHMENAUFFORMLINKS$
'
show 9921
top 9921,ZH2%*2
left 9921,006
SCHRIFTART = 9921
Gosub Schriftartsymbolschwarz
caption 9921,RAHMENAUFFORMLINKS$
'
show 9922
top 9922,ZH2%*3
left 9922,006
SCHRIFTART = 9922
Gosub Schriftartsymbolschwarz
caption 9922,RAHMENAUFFORMLINKS$
'
show 9923
top 9923,ZH2%*4
left 9923,006
SCHRIFTART = 9923
Gosub Schriftartsymbolschwarz
caption 9923,RAHMENAUFFORMLINKS$
'
show 9924
top 9924,ZH2%*5
left 9924,006
SCHRIFTART = 9924
Gosub Schriftartsymbolschwarz
caption 9924,RAHMENAUFFORMLINKS$
'
' *** Rechts RAHMEM ZEICHNEN ****************************************************
'
show 9930
top 9930,ZH2%*1
left 9930,ZR2%
SCHRIFTART = 9930
Gosub Schriftartsymbolschwarz
caption 9930,RAHMENAUFFORMRECHTS$
'
show 9931
top 9931,ZH2%*2
left 9931,ZR2%
SCHRIFTART = 9931
Gosub Schriftartsymbolschwarz
caption 9931,RAHMENAUFFORMRECHTS$
'
show 9932
top 9932,ZH2%*3
left 9932,ZR2%
SCHRIFTART = 9932
Gosub Schriftartsymbolschwarz
caption 9932,RAHMENAUFFORMRECHTS$
'
show 9933
top 9933,ZH2%*4
left 9933,ZR2%
SCHRIFTART = 9933
Gosub Schriftartsymbolschwarz
caption 9933,RAHMENAUFFORMRECHTS$
'
show 9934
top 9934,ZH2%*5
left 9934,ZR2%
SCHRIFTART = 9934
Gosub Schriftartsymbolschwarz
caption 9934,RAHMENAUFFORMRECHTS$
'
' *** LINIE UNTEN **************************************************************
'
show 9940
top 9940,ZH2%*6
left 9940,006
SCHRIFTART = 9940
Gosub Schriftartsymbolschwarz
caption 9940,RAHMENAUFFORNUNTEN$
'
return
end
' ******************************************************************************
' *** SCHRIFTART Terminal GRÖSSE 08 Normal Schwarz *****************************
Schriftartsymbolschwarz:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,08
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' *** SCHRIFTART ARIALl GRÖSSE 08 Normal Schwarz *****************************
SchriftartArial08:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,08
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' ******************************************************************************
INAKTIVE_FORM:
'
inactive Form_Nr%
inactive 0000
dll_on "form.dll"
Form_Button_On09= dll_call1("SetFormActive",handle(Form_Nr%))
dll_off
'
RETURN
' ******************************************************************************
' *** MENÜ 11 ******************************************************************
Menue_11:
Command_Target_is Form_Nr%
'
on_error_goto WEITER11
' *** Hauptmenü erstellen ******************************************************
main_menu 0011
' *** ERSTELLEN DES HAUPTMENÜ 1000 bis 1900 ************************************
' sub_menu 1000:caption 1000,FORM_TEXT$(010):parent 1000,0011
' sub_menu 1100:caption 1100,FORM_TEXT$(001):parent 1100,0011
sub_menu 1200:caption 1200,FORM_TEXT$(002):parent 1200,0011
sub_menu 1300:caption 1300,FORM_TEXT$(003):parent 1300,0011
sub_menu 1400:caption 1400,FORM_TEXT$(004):parent 1400,0011
sub_menu 1500:caption 1500,FORM_TEXT$(005):parent 1500,0011
sub_menu 1600:caption 1600,FORM_TEXT$(006):parent 1600,0011
sub_menu 1700:caption 1700,FORM_TEXT$(007):parent 1700,0011
sub_menu 1800:caption 1800,FORM_TEXT$(008):parent 1800,0011
sub_menu 1900:caption 1900,FORM_TEXT$(009):parent 1900,0011
' sub_menu 9952:caption 9952,FORM_TEXT$(199):parent 9952,1000
sub_menu 9953:caption 9953,FORM_TEXT$(180):parent 9953,0011
'
WEITER11:
active Form_Nr%
inactive 0000
dll_on "form.dll"
Form_Button_On09= dll_call1("SetFormActive",handle(Form_Nr%))
dll_off
'
RETURN
' *** MENÜ 21 ******************************************************************
Menue_21:
Command_Target_is Form_Nr%
'
on_error_goto WEITER21
' *** Hauptmenü erstellen ******************************************************
main_menu 0021
' *** ERSTELLEN DES HAUPTMENÜ 2000 bis 2900 ************************************
' sub_menu 2000:caption 2000,FORM_TEXT$(020):parent 2000,0021
' *** ERSTELLEN UNTERMENÜ 1100 bis 1900 ***************************************
sub_menu 2100:caption 2100,FORM_TEXT$(001):parent 2100,0021
' sub_menu 2200:caption 2200,FORM_TEXT$(002):parent 2200,0021
sub_menu 2300:caption 2300,FORM_TEXT$(003):parent 2300,0021
sub_menu 2400:caption 2400,FORM_TEXT$(004):parent 2400,0021
sub_menu 2500:caption 2500,FORM_TEXT$(005):parent 2500,0021
sub_menu 2600:caption 2600,FORM_TEXT$(006):parent 2600,0021
sub_menu 2700:caption 2700,FORM_TEXT$(007):parent 2700,0021
sub_menu 2800:caption 2800,FORM_TEXT$(008):parent 2800,0021
sub_menu 2900:caption 2900,FORM_TEXT$(009):parent 2900,0021
' sub_menu 9954:caption 9954,FORM_TEXT$(199):parent 9954,0021
sub_menu 9955:caption 9955,FORM_TEXT$(180):parent 9955,0021
'
WEITER21:
active Form_Nr%
inactive 0000
dll_on "form.dll"
Form_Button_On09= dll_call1("SetFormActive",handle(Form_Nr%))
dll_off
'
RETURN
' *** MENÜ 31 ******************************************************************
Menue_31:
Command_Target_is Form_Nr%
'
on_error_goto WEITER31
' *** Hauptmenü erstellen ******************************************************
main_menu 0031
' *** ERSTELLEN DES HAUPTMENÜ 2000 bis 2900 ************************************
' sub_menu 3000:caption 3000,FORM_TEXT$(030):parent 3000,0031
' *** ERSTELLEN UNTERMENÜ 1100 bis 1900 ***************************************
sub_menu 3100:caption 3100,FORM_TEXT$(001):parent 3100,3031
sub_menu 3200:caption 3200,FORM_TEXT$(002):parent 3200,3031
' sub_menu 3300:caption 3300,FORM_TEXT$(003):parent 3300,3031
sub_menu 3400:caption 3400,FORM_TEXT$(004):parent 3400,3031
sub_menu 3500:caption 3500,FORM_TEXT$(005):parent 3500,3031
sub_menu 3600:caption 3600,FORM_TEXT$(006):parent 3600,3031
sub_menu 3700:caption 3700,FORM_TEXT$(007):parent 3700,3031
sub_menu 3800:caption 3800,FORM_TEXT$(008):parent 3800,3031
sub_menu 3900:caption 3900,FORM_TEXT$(009):parent 3900,3031
' sub_menu 9956:caption 9956,FORM_TEXT$(199):parent 9956,3031
sub_menu 9957:caption 9957,FORM_TEXT$(180):parent 9957,3031
'
WEITER31:
active Form_Nr%
inactive 0000
dll_on "form.dll"
Form_Button_On09= dll_call1("SetFormActive",handle(Form_Nr%))
dll_off
'
RETURN
' *** MENÜ 41 ******************************************************************
Menue_41:
Command_Target_is Form_Nr%
'
on_error_goto WEITER41
Main_menu 0041
' *** ERSTELLEN DES HAUPTMENÜ 1000 bis 9000 ************************************
' sub_menu 4000:caption 4000,FORM_TEXT$(040):parent 4000,0041
' *** ERSTELLEN UNTERMENÜ 1100 bis 1900 ***************************************
sub_menu 4100:caption 4100,FORM_TEXT$(001):parent 4100,0041
sub_menu 4200:caption 4200,FORM_TEXT$(002):parent 4200,0041
sub_menu 4300:caption 4300,FORM_TEXT$(003):parent 4300,0041
' sub_menu 4400:caption 4400,FORM_TEXT$(004):parent 4400,0041
sub_menu 4500:caption 4500,FORM_TEXT$(005):parent 4500,0041
sub_menu 4600:caption 4600,FORM_TEXT$(006):parent 4600,0041
sub_menu 4700:caption 4700,FORM_TEXT$(007):parent 4700,0041
sub_menu 4800:caption 4800,FORM_TEXT$(008):parent 4800,0041
sub_menu 4900:caption 4900,FORM_TEXT$(009):parent 4900,0041
' sub_menu 9958:caption 9958,FORM_TEXT$(199):parent 9958,0041
sub_menu 9959:caption 9959,FORM_TEXT$(180):parent 9959,0041
'
WEITER41:
active Form_Nr%
inactive 0000
dll_on "form.dll"
Form_Button_On09= dll_call1("SetFormActive",handle(Form_Nr%))
dll_off
'
RETURN
' *** MENÜ 51 ******************************************************************
Menue_51:
Command_Target_is Form_Nr%
'
on_error_goto WEITER51
Main_menu 0051
' *** ERSTELLEN DES HAUPTMENÜ 1000 bis 9000 ************************************
' sub_menu 5000:caption 5000,FORM_TEXT$(050):parent 5000,0051
' *** ERSTELLEN UNTERMENÜ 1100 bis 1900 ***************************************
sub_menu 5100:caption 5100,FORM_TEXT$(001):parent 5100,0051
sub_menu 5200:caption 5200,FORM_TEXT$(002):parent 5200,0051
sub_menu 5300:caption 5300,FORM_TEXT$(003):parent 5300,0051
sub_menu 5400:caption 5400,FORM_TEXT$(004):parent 5400,0051
' sub_menu 5500:caption 5500,FORM_TEXT$(005):parent 5500,0051
sub_menu 5600:caption 5600,FORM_TEXT$(006):parent 5600,0051
sub_menu 5700:caption 5700,FORM_TEXT$(007):parent 5700,0051
sub_menu 5800:caption 5800,FORM_TEXT$(008):parent 5800,0051
sub_menu 5900:caption 5900,FORM_TEXT$(009):parent 5900,0051
' sub_menu 9960:caption 9960,FORM_TEXT$(199):parent 9960,0051
sub_menu 9961:caption 9961,FORM_TEXT$(180):parent 9961,0051
'
WEITER51:
active Form_Nr%
inactive 0000
dll_on "form.dll"
Form_Button_On09= dll_call1("SetFormActive",handle(Form_Nr%))
dll_off
'
RETURN
' *** MENÜ 61 ******************************************************************
Menue_61:
Command_Target_is Form_Nr%
'
on_error_goto WEITER61
Main_menu 0061
' *** ERSTELLEN DES HAUPTMENÜ 1000 bis 9000 ************************************
' sub_menu 6000:caption 6000,FORM_TEXT$(060):parent 6000,0061
' *** ERSTELLEN UNTERMENÜ 1100 bis 1900 ***************************************
sub_menu 6100:caption 6100,FORM_TEXT$(001):parent 6100,0061
sub_menu 6200:caption 6200,FORM_TEXT$(002):parent 6200,0061
sub_menu 6300:caption 6300,FORM_TEXT$(003):parent 6300,0061
sub_menu 6400:caption 6400,FORM_TEXT$(004):parent 6400,0061
sub_menu 6500:caption 6500,FORM_TEXT$(005):parent 6500,0061
' sub_menu 6600:caption 6600,FORM_TEXT$(006):parent 6600,0061
sub_menu 6700:caption 6700,FORM_TEXT$(007):parent 6700,0061
sub_menu 6800:caption 6800,FORM_TEXT$(008):parent 6800,0061
sub_menu 6900:caption 6900,FORM_TEXT$(009):parent 6900,0061
' sub_menu 9962:caption 9962,FORM_TEXT$(199):parent 9962,0061
sub_menu 9963:caption 9963,FORM_TEXT$(180):parent 9963,0061
'
WEITER61:
active Form_Nr%
inactive 0000
dll_on "form.dll"
Form_Button_On09= dll_call1("SetFormActive",handle(Form_Nr%))
dll_off
'
RETURN
' *** MENÜ 71 ******************************************************************
Menue_71:
Command_Target_is Form_Nr%
'
on_error_goto WEITER71
Main_menu 0071
' *** ERSTELLEN DES HAUPTMENÜ 1000 bis 9000 ************************************
' sub_menu 7000:caption 7000,FORM_TEXT$(070):parent 7000,0071
' *** ERSTELLEN UNTERMENÜ 1100 bis 1900 ***************************************
sub_menu 7100:caption 7100,FORM_TEXT$(001):parent 7100,0071
sub_menu 7200:caption 7200,FORM_TEXT$(002):parent 7200,0071
sub_menu 7300:caption 7300,FORM_TEXT$(003):parent 7300,0071
sub_menu 7400:caption 7400,FORM_TEXT$(004):parent 7400,0071
sub_menu 7500:caption 7500,FORM_TEXT$(005):parent 7500,0071
sub_menu 7600:caption 7600,FORM_TEXT$(006):parent 7600,0071
' sub_menu 7700:caption 7700,FORM_TEXT$(007):parent 7700,0071
sub_menu 7800:caption 7800,FORM_TEXT$(008):parent 7800,0071
sub_menu 7900:caption 7900,FORM_TEXT$(009):parent 7900,0071
' sub_menu 9964:caption 9964,FORM_TEXT$(199):parent 9964,0071
sub_menu 9965:caption 9965,FORM_TEXT$(180):parent 9965,0071
'
WEITER71:
active Form_Nr%
inactive 0000
dll_on "form.dll"
Form_Button_On09= dll_call1("SetFormActive",handle(Form_Nr%))
dll_off
'
RETURN
' *** MENÜ 81 ******************************************************************
Menue_81:
Command_Target_is Form_Nr%
'
on_error_goto WEITER81
Main_menu 0081
' *** ERSTELLEN DES HAUPTMENÜ 1000 bis 9000 ************************************
' sub_menu 8000:caption 8000,FORM_TEXT$(080):parent 8000,0081
' *** ERSTELLEN UNTERMENÜ 1100 bis 1900 ***************************************
sub_menu 8100:caption 8100,FORM_TEXT$(001):parent 8100,0081
sub_menu 8200:caption 8200,FORM_TEXT$(002):parent 8200,0081
sub_menu 8300:caption 8300,FORM_TEXT$(003):parent 8300,0081
sub_menu 8400:caption 8400,FORM_TEXT$(004):parent 8400,0081
sub_menu 8500:caption 8500,FORM_TEXT$(005):parent 8500,0081
sub_menu 8600:caption 8600,FORM_TEXT$(006):parent 8600,0081
sub_menu 8700:caption 8700,FORM_TEXT$(007):parent 8700,0081
' sub_menu 8800:caption 8800,FORM_TEXT$(008):parent 8800,0081
sub_menu 8900:caption 8900,FORM_TEXT$(009):parent 8900,0081
' sub_menu 9966:caption 9966,FORM_TEXT$(199):parent 9966,0081
sub_menu 9967:caption 9967,FORM_TEXT$(180):parent 9967,0081
'
WEITER81:
active Form_Nr%
inactive 0000
dll_on "form.dll"
Form_Button_On09= dll_call1("SetFormActive",handle(Form_Nr%))
dll_off
'
RETURN
' *** MENÜ 91 ******************************************************************
Menue_91:
Command_Target_is Form_Nr%
'
on_error_goto WEITER91
Main_menu 0091
' *** ERSTELLEN DES HAUPTMENÜ 1000 bis 9000 ************************************
' sub_menu 9000:caption 9000,FORM_TEXT$(090):parent 9000,0091
' *** ERSTELLEN UNTERMENÜ 1100 bis 1900 ***************************************
sub_menu 9100:caption 9100,FORM_TEXT$(001):parent 9100,0091
sub_menu 9200:caption 9200,FORM_TEXT$(002):parent 9200,0091
sub_menu 9300:caption 9300,FORM_TEXT$(003):parent 9300,0091
sub_menu 9400:caption 9400,FORM_TEXT$(004):parent 9400,0091
sub_menu 9500:caption 9500,FORM_TEXT$(005):parent 9500,0091
sub_menu 9600:caption 9600,FORM_TEXT$(006):parent 9600,0091
sub_menu 9700:caption 9700,FORM_TEXT$(007):parent 9700,0091
sub_menu 9800:caption 9800,FORM_TEXT$(008):parent 9800,0091
' sub_menu 9900:caption 9900,FORM_TEXT$(009):parent 9900,0091
' sub_menu 9968:caption 9968,FORM_TEXT$(199):parent 9968,0091
sub_menu 9969:caption 9969,FORM_TEXT$(180):parent 9969,0091
'
WEITER91:
active Form_Nr%
inactive 0000
dll_on "form.dll"
Form_Button_On09= dll_call1("SetFormActive",handle(Form_Nr%))
dll_off
'
RETURN

» DIM?? Form>0
» FORM modifiable
» Questions à propos de FORM
» FORM
» Animer un Form