XProfan

Français

Jörg
Sellmeyer

après que je dank iF verstanden habe, qui qui Faltungen im Editor-Code angestoßen volonté habe je mich la fois drangesetzt et une Erweiterung geschrieben.
qui Keywords doit dans qui Navigationsliste vorhanden son.

Pour den Globalen Deklarationen cet Procédure insérer:
Kompilieren Marque Séparation

Proc FoldMe

    Parameters FoldTag$
     $D ,FoldTag$
    Case FoldTag$ = :Return

    If (Left$(Upper$(FoldTag$),5) = PROC ) | (Left$(FoldTag$,2) ={)

        Declare z%,z$,s%

        WhileLoop (GetCount(Navlist&) - 1),0,-1

            z$=GetString$(Navlist&,&Loop)

            If Upper$(Left$(z$,Len(FoldTag$))) = Upper$(FoldTag$)

                If Edit#[AktTab%].SciMessage(~SCI_GETFOLDEXPANDED, &loop, 0)

                    SendMessage(Edit#[AktTab%].Handle&, ~SCI_SETSEL, 0, 0)
                    Edit#[AktTab%].Search(z$,1,1,0)
                    z% = Edit#[AktTab%].SciMessage(~SCI_GETSELECTIONSTART, 0, 0)
                    z% = Edit#[AktTab%].SciMessage(~SCI_LINEFROMPOSITION, z%, 0) + 1
                    Edit#[AktTab%].SciMessage(~SCI_TOGGLEFOLD, z%,0)

                EndIf

            EndIf

        Wend

    Else

        MessageBox(Nur Prozeduren können gefaltet werden oder Kommentare, die mit q{q beginnen!,Code falten: falsche Eingabe,~MB_ICONEXCLAMATION)

        EndIf

    ENDPROC

Im Hauptmenü (am besten im Poup Optionen) folgendes insérer:
Kompilieren Marque Séparation

Faltoptionen:
AppendMenu 640,Alles falten/entfalten (F4)
AppendMenu 641,Prozeduren falten (Strg + F4)
AppendMenu 642,... falten
Séparateur

dans qui Hauptschleife:

sous MenuItem(202) et MenuItem(232) (Dossier/projet ouvrir)
Kompilieren Marque Séparation

Foldme Dossier öffnen:

Cas Optionen#.Navi% : FoldMe({-)

maintenant volonté Kommentare, qui avec {- commencer, beim Öffnen juste gefaltet.

unterhalb MenuItem(640)
Kompilieren Marque Séparation

ElseIf Menuitem(641)   FoldMe(Proc ):

FoldMe(Proc )

ElseIf Menuitem(642)   FoldMe(...)

FoldMe(Contribution$(Schlüssel zum Falten eingeben,Code falten,{))

maintenant volonté avec Strg + F4 alle Prozeduren gefaltet et MenuItem(642) peux un Text angegeben volonté qui gefaltet wird (vorausgesetzt il est dans qui Naviliste et beginnt avec Proc ou bien {).

je finds très pratique, là on so fertige Prozeduren ou bien Codeteile avec entsprechenden Tags versehen peux et beim Öffnen seulement encore une überschaubaren Bereich trop voyons bekommt.

Salut
Jörg

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...