Mega Code Archive
Create Collapsible Code Blocks in Delphi Code Editor using the {$REGION} directive
<![CDATA[
Title: Create Collapsible Code Blocks in Delphi Code Editor using the {$REGION} directive
In Delphi 2006 (both Win32 and .Net) you can apply a special {$REGION 'Region Name'} directive to mark a "named" collapsible regions in the code editor.
To mark code as a region, surround it with the REGION and ENDREGION directives. You may include a caption that will be displayed when the code is folded and hidden.
Here's an exampe of the two (nested) regions:
{$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 {$ENDREGION}
end;
{$ENDREGION}
To fold or unfold a region, click on the [+] (if expanded) or [-] (if collapsed) marker left to the $region directive.
]]>