XProfan

Italia

Michael
Wodrich

Das Benutzermenü wird nur nach einem Neustart des Editors beachtet. Neueinträge sind also nicht sofort zu sehen.

Entsprechende Stelle nicht gefunden...
(doch jetzt: 2117 im HauptPgm).

Lösung: Menüpunkte 901-998 löschen und neu einlesen mit Benutzermenue - oder gibts was besseres?? (ist ja ein externes Programmteil)

Schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

23.09.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Ist der Source da zum Benutzermenü?

23.09.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Michael
Wodrich

Der zur *.HLF nicht, aber es sollte auch so gehen. Nur noch ein wenig circa dieses Entfernen und Neueinlesen des Menüs brüten...
Wenn es dazu Alternativen gäbe...?!??

Programmieren, das spannendste Detektivspiel der Welt.

23.09.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Die Dlg-Menü-Unit von mir! Source ist im Paket...

23.09.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

RGH

[quote:68f17e990a=Michael Wodrich]Der zur *.HLF nicht, aber es sollte auch so gehen.[/quote:68f17e990a]
REMOVEMENU und die Prozedur BenutzerMenu() reichen völlig aus:
Alle Menüpunkte circa 900 und unter 999 entfernen und dann die Prozedur BenutzerMenu() aufrufen. Diese liest die Menüeinträge neu aus der Ini-File. Da stehen sie nach der Cambiamento sofort drin!

Saluto
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

24.09.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Michael
Wodrich

gute Idee, also so z.B.:
Kompilieren Markieren Separieren

!

ElseIf Menuitem(900)

BenutzerMenu_loeschen
Aufruf$ = Optionen#.Helfer$ + " q" + Optionen#.DirHelfer$ + "benutzer.hlfq x"
WinExec(Aufruf$, 1)
BenutzerM

Kompilieren Markieren Separieren

!

Proc BenutzerMenu_loeschen

    ----------------
    Das Benutzermenü wird gelöscht (vor der Veränderung)
    Declare BMAnzahl%
    BMAnzahl%=val(Readini$(Inidatei$,"PROFED","Menuepunkte"))

    If BMAnzahl% <> 0

        WhileLoop 1, BMAnzahl%

            RemoveMenu 900 + &loop

        EndWhile

    Endif

EndProc

Schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

24.09.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

RGH

Hallo Michael,
ein kleiner Hinweis noch:

Du mußt naturalmente WinExecWait verwenden, damit das neue Menü auch erst dann erstellt wird, wenn das Menüprogramm beendet wird!

Saluto
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

24.09.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Michael
Wodrich

Ups!
War diesmal ungetestet.

Ich habe noch einige fehlende Keywords gefunden - und bin noch nicht ganz durch. Aber bis 7h bin ich durch...

Programmieren, das spannendste Detektivspiel der Welt.

24.09.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

RGH

[quote:f24eb2f81c=Michael Wodrich]Ich habe noch einige fehlende Keywords gefunden - und bin noch nicht ganz durch. Aber bis 7h bin ich durch...[/quote:f24eb2f81c]
VIELEN DANK!
habe die Keywords bei mir bereits anhand Deiner Liste überarbeitet.
BTW: wann schläfst Du eigentlich?

Saluto
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

24.09.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Michael
Wodrich

...als alter Nachtschichtler opfert man schon mal eine Schicht.