XProfan

Declare NavFilter%
NavFilter%=1 <--- ### Global hinzufügene>

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

<--- ### Menu add:
Menu create:
<--- ### between &aide...
PopUp &piloting
AppendMenu 101,&any
AppendMenu 102,only &Procedures
AppendMenu 103,only &Structures
AppendMenu 104,only &Definitionen
AppendMenu 105,only &classes
<--- ### ... and Benutzer&menu

Menu 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%)