XProfan

Italia

Jörg
Sellmeyer

Nachdem ich dank iF verstanden habe, daß die Faltungen im Editor-Code angestoßen werden habe ich mich mal drangesetzt und eine Erweiterung geschrieben.
Die Keywords müssen in der Navigationsliste vorhanden sein.

Nach den Globalen Deklarationen diese Prozedur einfügen:
Kompilieren Markieren Separieren

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 einfügen:
Kompilieren Markieren Separieren

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

In der Hauptschleife:

unter MenuItem(202) und MenuItem(232) (File/Projekt öffnen)
Kompilieren Markieren Separieren

Foldme File öffnen:

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

Jetzt werden Kommentare, die mit {- beginnen, beim Öffnen gleich gefaltet.

unterhalb MenuItem(640)
Kompilieren Markieren Separieren

ElseIf Menuitem(641)   FoldMe(Proc ):

FoldMe(Proc )

ElseIf Menuitem(642)   FoldMe(...)

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

Jetzt werden mit Strg + F4 alle Prozeduren gefaltet und mit MenuItem(642) kann ein Text angegeben werden der gefaltet wird (vorausgesetzt er ist in der Naviliste und beginnt mit Proc oder {).

Ich finds sehr praktisch, da man so fertige Prozeduren oder Codeteile mit entsprechenden Tags versehen kann und beim Öffnen nur noch einen überschaubaren Bereich zu sehen bekommt.

Saluto
Jörg

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