XProfan

Declare NavFilter%
NavFilter%=1 <--- ### Global hinzufügen

Proc ProcListe

    -------------
    parameters tab%
    declare zeile$,filter$ <--- ### filter$ hinzugefügt
    EnableWindow %hWnd, 0
    UseCursor 2
    ClearList NavList&
    <--- ### Änderungen ab hier (hinzufügen)
    Case NavFilter%=1:filter$=(?i)(^Proc |^class |^struct |^def |:$)
    Case NavFilter%=2:filter$=(^Proc)
    Case NavFilter%=3:filter$=(^struct)
    Case NavFilter%=4:filter$=(^def)
    Case NavFilter%=5:filter$=(^class)
    <--- ### Änderungen bis hier
    Set(FastMode, 1)

    WhileLoop 0, Edit#[tab%].GetLineCount()-1

        Zeile$ = trim$(Edit#[tab%].GetLine$(&Loop))
        case match$(filter$,Zeile$) >  : addstring(Navlist&, Zeile$) <--- ### String (?i)(^Proc ... durch filter$ ersetzt

    EndWhile

    Set(FastMode, 0)
    UseCursor 0
    EnableWindow %hWnd, 1

EndProc

Proc CheckNavLeer

    CheckMenu 101,0
    CheckMenu 102,0
    CheckMenu 103,0
    CheckMenu 104,0
    CheckMenu 105,0

EndProc

<--- ### Menü hinzufügen:
Menü erstellen:
<--- ### Zwischen &Helfer...
PopUp &Navigation
AppendMenu 101,&Alle
AppendMenu 102,Nur &Prozeduren
AppendMenu 103,Nur &Strukturen
AppendMenu 104,Nur &Definitionen
AppendMenu 105,Nur &Klassen
<--- ### ... und Benutzer&menü

Menü NAVIGATION:
----------------

ElseIf MenuItem(101)

CheckNavLeer
CheckMenu 101,1
NavFilter%=1
ProcListe(AktTab%)

ElseIf MenuItem(102)

CheckNavLeer
CheckMenu 102,1
NavFilter%=2
ProcListe(AktTab%)

ElseIf MenuItem(103)

CheckNavLeer
CheckMenu 103,1
NavFilter%=3
ProcListe(AktTab%)

ElseIf MenuItem(104)

CheckNavLeer
CheckMenu 104,1
NavFilter%=4
ProcListe(AktTab%)

ElseIf MenuItem(105)

CheckNavLeer
CheckMenu 105,1
NavFilter%=5
ProcListe(AktTab%)