Code: Steuerung der Menüs

*/ Kurzbeispiel für den Zugriff auf diese Struktur
*/ Der Zugriff erfolgt über: My.AppForms.Menues
*/ Wird dieses Objekt in einem REPLACE oder einer Schleife SCAN ... ENDSCAN | FOR ... NEXT benötigt
*/ so sollte vor der Schleife die Objektstruktur in eine Variable geholt werden!
*/ Die Ausführungsgeschwindigkeit wird dadurch sehr vergrößert!
*/ Beispiel:
*/ Definieren einer LOKALEN Variablen
LOCAL loMenues AS My.AppForms.Menues
*/ Setzen der Variablen
loMenues = My.AppForms.Menues
*/ Jetzt erst die Schleifen durchlaufen... man beachte ALL, dass können ne Menge Sätze sein...
REPLACE ALL Feldname1 WITH loMenues.Function1(),Feldname2 WITH loMenues.Function1(), ...
*/ Oder in einer Schleife...
SCAN
	lvValue = loMenues.Function(Alias.Spalte) + 25
	lvValue = loMenues.Function2(m.lvValue)
	REPLACE Feldname WITH m.lvValue,...
ENDSCAN
*/ Es sind auch geschachtelte Aufrufe möglich...

Memberliste von Menues

Liste der Methoden von Menues

Hilfeinformation

Variant = My.AppForms.Menues.AddItem(tcName AS STRING,tcTyp AS STRING,tcClass AS String)
Variant = My.AppForms.Menues.AddItem(tcName,tcTyp,tcClass)

Boolean = My.AppForms.Menues.ClrFormmenu(toForm AS FORM)
Boolean = My.AppForms.Menues.ClrFormmenu(toForm)

Boolean = My.AppForms.Menues.ClrSysmenu()

Boolean = My.AppForms.Menues.DoFormMenu(toForm AS FORM,tcMenu AS STRING)
Boolean = My.AppForms.Menues.DoFormMenu(toForm,tcMenu)

Variant = My.AppForms.Menues.DoMainScript()

Variant = My.AppForms.Menues.DoMaskScript(tcPrgList AS STRING,toForm AS FORM,tlScript AS Boolean @)
Variant = My.AppForms.Menues.DoMaskScript(tcPrgList,toForm,@tlScript)

Variant = My.AppForms.Menues.DoMenuScript(tcIniFile AS STRING, tcMenuTree AS STRING, tlWithPara AS Boolean,tlScript AS Boolean @,tnSession AS INTEGER, tp1,tp2,tp3,tp4,tp5,tp6,tp7,tp8,tp9)
Variant = My.AppForms.Menues.DoMenuScript(tcIniFile,tcMenuTree,tlWithPara,@tlScript,tnSession,tp1,tp2,tp3,tp4,tp5,tp6,tp7,tp8,tp9)

Variant = My.AppForms.Menues.DoPrgMenu(tcMenu AS STRING, tlNoDefaultMenu AS Boolean)
Variant = My.AppForms.Menues.DoPrgMenu(tcMenu,tlNoDefaultMenu)

Boolean = My.AppForms.Menues.DoShortCutMenu(tcMenuFile AS STRING)
Boolean = My.AppForms.Menues.DoShortCutMenu(tcMenuFile)

eIndex = My.AppForms.Menues.GetKey(eIndex)
eIndex = My.AppForms.Menues.GetKey(eIndex)

eIndex = My.AppForms.Menues.Item(eIndex)
eIndex = My.AppForms.Menues.Item(eIndex)

Object = My.AppForms.Menues.NewFormmenu(tcMenuFile AS STRING,toForm AS OBJECT,toMenu AS CUSTOM @)
Object = My.AppForms.Menues.NewFormmenu(tcMenuFile,toForm,@toMenu)

Object = My.AppForms.Menues.NewShortCut(tcMenu AS STRING,tnCol AS INTEGER,tnRow AS INTEGER)
Object = My.AppForms.Menues.NewShortCut(tcMenu,tnCol,tnRow)

Object = My.AppForms.Menues.NewSysmenu(tcMenuFile AS STRING,toMenu AS CUSTOM @)
Object = My.AppForms.Menues.NewSysmenu(tcMenuFile,@toMenu)

Boolean = My.AppForms.Menues.PopPrgMenu(tlDoCreate AS Boolean)
Boolean = My.AppForms.Menues.PopPrgMenu(tlDoCreate)

Boolean = My.AppForms.Menues.PushPrgMenu(tlHideMenu AS Boolean)
Boolean = My.AppForms.Menues.PushPrgMenu(tlHideMenu)

Boolean = My.AppForms.Menues.RemoveMenu(tcName AS STRING,tlDestroy AS Boolean)
Boolean = My.AppForms.Menues.RemoveMenu(tcName,tlDestroy)

Logical = My.AppForms.Menues.doEditMpr()

Boolean = My.AppForms.Menues.doEditMprEnde()

Variant = My.AppForms.Menues.doEditMprMenu()

Date = My.AppForms.Menues.DefaultPadName

String = My.AppForms.Menues.cItem[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
String = My.AppForms.Menues.cItem[tcIndex1|,tiIndex1,tiIndex2]

String = My.AppForms.Menues.cMethod

*/ Abruf...
WAIT WINDOW My.AppForms.Menues.cMethod

Number = My.AppForms.Menues.nError

WAIT WINDOW My.AppForms.Menues.nError

Number = My.AppForms.Menues.nLine

WAIT WINDOW My.AppForms.Menues.nLine