XProfan

Español

Jörg
Sellmeyer

Nachdem Yo dank IF verstanden habe, daß el Faltungen en el Editor-Code angestoßen voluntad Yo mich veces drangesetzt y una Erweiterung geschrieben.
El Keywords necesario en el Navigationsliste disponible ser.

Nach el Globalen Deklarationen esta Procedimiento einfügen:
Kompilieren Marca Separación

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ü (al besten en el Poup Optionen) folgendes einfügen:
Kompilieren Marca Separación

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

In el Hauptschleife:

bajo MenuItem(202) y MenuItem(232) (Expediente/Projekt abierto)
Kompilieren Marca Separación

Foldme Expediente öffnen:

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

Jetzt voluntad Kommentare, el con {- beginnen, beim Öffnen igual gefaltet.

unterhalb MenuItem(640)
Kompilieren Marca Separación

ElseIf MenuItem(641)   FoldMe(Proc ):

FoldMe(Proc )

ElseIf MenuItem(642)   FoldMe(...)

FoldMe(Entrada$(Schlüssel para Falten eingeben,Code falten,{))

Jetzt voluntad con Strg + F4 todos Prozeduren gefaltet y MenuItem(642) kann una Texto angegeben voluntad el gefaltet se (vorausgesetzt es en el Naviliste y beginnt con Proc oder {).

Yo finds muy praktisch, como uno así fertige Prozeduren oder Codeteile con entsprechenden Tags versehen kann y beim Öffnen sólo todavía una überschaubaren Zona a sehen bekommt.

Saludo
Jörg

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