Вы можете применить специальную {$ REGION 'Region Name'} директиву для маркировки «названных» разборчивых областей в редакторе кода.
Чтобы маркировать код как регион, окружайте его директивами REGION и ENDREGION. Вы можете включить заголовок, который будет отображаться, когда код будет сложен и скрыт.
Вот exampe из двух (вложенных друг в друга) областей:
{$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. Это будет выглядеть:
alt text http://z.about.com/d/delphi/1/G/o/a/coderegions.gif
Это именно то, что я искал. Большое спасибо. – stevosaurus
FYI, я считаю, что это было введено в Delphi 2005. –