diff options
author | Graeme Geldenhuys <graemeg@gmail.com> | 2009-06-12 00:04:14 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@gmail.com> | 2009-06-12 00:04:14 +0200 |
commit | 5fd9dc4718d2f5fbcf422cea9d7062d4d9e8b0ee (patch) | |
tree | d85ae5e317f10dd375096611250ef75f91dfb950 /uidesigner/newformdesigner.pas | |
parent | 5545e664c40ea46369aa57e698ca4a1d2d321506 (diff) | |
download | fpGUI-5fd9dc4718d2f5fbcf422cea9d7062d4d9e8b0ee.tar.xz |
Added code-folding regions in the uidesigner project form files.
Diffstat (limited to 'uidesigner/newformdesigner.pas')
-rw-r--r-- | uidesigner/newformdesigner.pas | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/uidesigner/newformdesigner.pas b/uidesigner/newformdesigner.pas index 037f46b7..c5ab3029 100644 --- a/uidesigner/newformdesigner.pas +++ b/uidesigner/newformdesigner.pas @@ -184,6 +184,7 @@ uses procedure TfrmAbout.AfterCreate; begin + {%region 'Auto-generated GUI code' -fold} {@VFD_BODY_BEGIN: frmAbout} Name := 'frmAbout'; SetPosition(378, 267, 276, 180); @@ -259,6 +260,7 @@ begin end; {@VFD_BODY_END: frmAbout} + {%endregion} end; class procedure TfrmAbout.Execute; @@ -275,7 +277,6 @@ begin end; end; - procedure TfrmMain.AfterCreate; var n: integer; @@ -283,6 +284,7 @@ var wgc: TVFDWidgetClass; btn: TwgPaletteButton; begin + {%region 'Auto-generated GUI code' -fold} {@VFD_BODY_BEGIN: frmMain} Name := 'frmMain'; SetPosition(84, 123, 754, 92); @@ -431,7 +433,7 @@ begin end; {@VFD_BODY_END: frmMain} - + {%endregion} x := 0; y := 0; @@ -504,6 +506,7 @@ procedure TfrmProperties.AfterCreate; var x, x2, w, y, gap: integer; begin + {%region 'Auto-generated GUI code' -fold} inherited; Name := 'frmProperties'; WindowPosition := wpUser; @@ -664,6 +667,7 @@ begin edOther.Anchors := [anLeft, anRight, anBottom]; edOther.FontDesc := '#Edit2'; edOther.OnChange := @(maindsgn.OnOtherChange); + {%endregion} end; procedure TfrmProperties.BeforeDestruction; |