XProfan

Français

ByteAttack

j'ai un projet, dass aus très vielen Prozeduren et Klassen besteht. Um cet leichter pour trouver, musste je mir la fois une Navigationsfilter einbauen.
(mon Changements habe je avec <--- ### makiert)

chez den { Globale Variablen:
Kompilieren Marque Séparation

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

chez Proc ProcListe:
Kompilieren Marque Séparation

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

Przedur hinzugefügt:
Kompilieren Marque Séparation

Proc CheckNavLeer

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

ENDPROC

chez menu erstellen:
Kompilieren Marque Séparation

<--- ### menu hinzufügen:
menu erstellen:
<--- ### entre &Helfer...
PopUp &navigation
AppendMenu 101,&Alle
AppendMenu 102,seulement &Prozeduren
AppendMenu 103,seulement &Strukturen
AppendMenu 104,seulement &Definitionen
AppendMenu 105,seulement &Klassen
<--- ### ... et Benutzer&menu

dans qui Hauptschleife:
Kompilieren Marque Séparation

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