Настройки среды/проекта

[krab]

Как сделать, чтобы функции FuncA, FuncB, FuncC из юнита Unit1 всегда были "свернуты" (text folding) в редакторе при открытии проекта? А остальные по-прежнему были развернуты.

[Mr.Smart]

Как вариант загнать их код в регионы с параметром fold.

Код: Выделить всё

function Myfunc: Boolean; {%region /fold}
begin
....
end;
{%endregion}

[krab]

Спасибо. Нашел, можно еще так (только тут без свертки по-умолчанию):

Код: Выделить всё

{$REGION 'Iterate Panels'}
 for j := 0 to StatusBar1.Panels.Count - 1 do
 begin
   x := x + StatusBar1.Panels[j].Width;
   {$REGION 'Inner if Region'}
   if mpt.X < x then
   begin
     panel := j;
     Break;
   end;
   {$ENDREGION}
 end;
 {$ENDREGION}

Непонятно, в чем разница между %region и $region. Причем в Lazarus оба отображаются примерно как "[+] {$region 'test' /fold} [...]", в отличие от Delphi:

[VirtUX]

{$REGION 'Iterate Panels'}

Кстати, можно и без кавычек
{$REGION Iterate Panels}

[Climber]

Фигасе, прикольная фича!
А чего еще такого бывает? В wiki на freepascal.org про это написано?

[VirtUX]

В 0.9.29 что-то, уже давненько, во вновь открытом проекте свернутый код опять развернут становится. Хотя помню, что раньше было все нормально. Баг? Мот запостить?

[Mr.Smart]

VirtUX
У меня при использовании {%region /fold} всё работает как и положено 0.9.29 svn 25451
Climber
http://wiki.freepascal.org/IDE_Window:_Editor_Options_Code_Folding#About_.7B.25Region.7D