From 8ebbbef03d5cd84022926c39f67f6c9449309027 Mon Sep 17 00:00:00 2001 From: marc Date: Wed, 3 Oct 2007 22:19:00 +0000 Subject: [PATCH] * Maxim Ganetsky: Conversion to LFM of CodeTools Options Dialog git-svn-id: trunk@12304 - --- .gitattributes | 2 + ide/codetoolsoptions.lfm | 1302 ++++++++++++++++++++++++++++++++++++++ ide/codetoolsoptions.lrs | 352 +++++++++++ ide/codetoolsoptions.pas | 690 +++----------------- 4 files changed, 1737 insertions(+), 609 deletions(-) create mode 100644 ide/codetoolsoptions.lfm create mode 100644 ide/codetoolsoptions.lrs diff --git a/.gitattributes b/.gitattributes index abd1effe5b..1c288d4507 100644 --- a/.gitattributes +++ b/.gitattributes @@ -1728,6 +1728,8 @@ ide/codetoolsdefines.pas svneol=native#text/pascal ide/codetoolsdefpreview.lfm svneol=native#text/plain ide/codetoolsdefpreview.lrs svneol=native#text/pascal ide/codetoolsdefpreview.pas svneol=native#text/pascal +ide/codetoolsoptions.lfm svneol=native#text/pascal +ide/codetoolsoptions.lrs svneol=native#text/pascal ide/codetoolsoptions.pas svneol=native#text/pascal ide/compiler.pp svneol=native#text/pascal ide/compileroptions.pp svneol=native#text/pascal diff --git a/ide/codetoolsoptions.lfm b/ide/codetoolsoptions.lfm new file mode 100644 index 0000000000..cef0e80ad2 --- /dev/null +++ b/ide/codetoolsoptions.lfm @@ -0,0 +1,1302 @@ +object CodeToolsOptsDlg: TCodeToolsOptsDlg + Left = 955 + Height = 435 + Top = 454 + Width = 560 + HorzScrollBar.Page = 559 + VertScrollBar.Page = 434 + ActiveControl = OKButton + BorderStyle = bsSizeToolWin + Caption = 'CodeToolsOptsDlg' + ClientHeight = 435 + ClientWidth = 560 + Constraints.MinHeight = 435 + Constraints.MinWidth = 485 + OnCreate = FormCreate + OnResize = FormResize + Position = poScreenCenter + object Notebook: TNotebook + AnchorSideLeft.Control = Owner + AnchorSideTop.Control = Owner + AnchorSideRight.Control = Owner + AnchorSideRight.Side = asrBottom + AnchorSideBottom.Control = CancelButton + Height = 398 + Width = 560 + Anchors = [akTop, akLeft, akRight, akBottom] + BorderSpacing.Bottom = 6 + PageIndex = 5 + TabOrder = 0 + object GeneralPage: TPage + AnchorSideTop.Control = CodeCreationPage + Caption = 'GeneralPage' + ClientWidth = 552 + ClientHeight = 372 + object SrcPathGroupBox: TGroupBox + AnchorSideLeft.Control = GeneralPage + AnchorSideTop.Control = GeneralPage + AnchorSideRight.Control = GeneralPage + AnchorSideRight.Side = asrBottom + Left = 6 + Height = 56 + Top = 6 + Width = 465 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + Caption = 'SrcPathGroupBox' + ClientHeight = 56 + ClientWidth = 465 + TabOrder = 0 + object SrcPathEdit: TEdit + AnchorSideLeft.Control = SrcPathGroupBox + AnchorSideRight.Control = SrcPathGroupBox + AnchorSideRight.Side = asrBottom + Left = 6 + Height = 23 + Top = 8 + Width = 449 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + TabOrder = 0 + Text = 'SrcPathEdit' + end + end + object JumpingGroupBox: TGroupBox + AnchorSideLeft.Control = GeneralPage + AnchorSideTop.Control = SrcPathGroupBox + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = GeneralPage + AnchorSideRight.Side = asrBottom + Left = 6 + Height = 102 + Top = 68 + Width = 465 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + Caption = 'JumpingGroupBox' + ClientHeight = 102 + ClientWidth = 465 + TabOrder = 1 + object AdjustTopLineDueToCommentCheckBox: TCheckBox + AnchorSideLeft.Control = JumpingGroupBox + AnchorSideTop.Control = JumpingGroupBox + Left = 6 + Height = 13 + Top = 6 + Width = 214 + BorderSpacing.Around = 6 + Caption = 'AdjustTopLineDueToCommentCheckBox' + TabOrder = 0 + end + object JumpCenteredCheckBox: TCheckBox + AnchorSideLeft.Control = JumpingGroupBox + AnchorSideTop.Control = AdjustTopLineDueToCommentCheckBox + AnchorSideTop.Side = asrBottom + Left = 6 + Height = 13 + Top = 31 + Width = 137 + BorderSpacing.Top = 6 + BorderSpacing.Around = 6 + Caption = 'JumpCenteredCheckBox' + TabOrder = 1 + end + object CursorBeyondEOLCheckBox: TCheckBox + AnchorSideLeft.Control = JumpingGroupBox + AnchorSideTop.Control = JumpCenteredCheckBox + AnchorSideTop.Side = asrBottom + Left = 6 + Height = 13 + Top = 56 + Width = 156 + BorderSpacing.Top = 6 + BorderSpacing.Around = 6 + Caption = 'CursorBeyondEOLCheckBox' + TabOrder = 2 + end + end + end + object CodeCreationPage: TPage + Caption = 'CodeCreationPage' + ClientWidth = 552 + ClientHeight = 372 + object ClassPartInsertPolicyRadioGroup: TRadioGroup + AnchorSideLeft.Control = CodeCreationPage + AnchorSideTop.Control = CodeCreationPage + AnchorSideRight.Side = asrBottom + Left = 6 + Height = 100 + Top = 6 + Width = 222 + AutoFill = True + BorderSpacing.Around = 6 + Caption = 'ClassPartInsertPolicyRadioGroup' + ChildSizing.LeftRightSpacing = 6 + ChildSizing.TopBottomSpacing = 6 + ChildSizing.EnlargeHorizontal = crsHomogenousChildResize + ChildSizing.EnlargeVertical = crsHomogenousChildResize + ChildSizing.ShrinkHorizontal = crsScaleChilds + ChildSizing.ShrinkVertical = crsScaleChilds + ChildSizing.Layout = cclLeftToRightThenTopToBottom + ChildSizing.ControlsPerLine = 1 + TabOrder = 0 + end + object MixMethodsAndPropertiesCheckBox: TCheckBox + AnchorSideLeft.Control = CodeCreationPage + AnchorSideTop.Control = ClassPartInsertPolicyRadioGroup + AnchorSideTop.Side = asrBottom + Left = 6 + Height = 13 + Top = 112 + Width = 192 + BorderSpacing.Around = 6 + Caption = 'MixMethodsAndPropertiesCheckBox' + TabOrder = 1 + end + object MethodInsertPolicyRadioGroup: TRadioGroup + AnchorSideLeft.Control = ClassPartInsertPolicyRadioGroup + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = CodeCreationPage + AnchorSideRight.Control = CodeCreationPage + AnchorSideRight.Side = asrBottom + Left = 234 + Height = 100 + Top = 6 + Width = 237 + Anchors = [akTop, akLeft, akRight] + AutoFill = True + BorderSpacing.Around = 6 + Caption = 'MethodInsertPolicyRadioGroup' + ChildSizing.LeftRightSpacing = 6 + ChildSizing.TopBottomSpacing = 6 + ChildSizing.EnlargeHorizontal = crsHomogenousChildResize + ChildSizing.EnlargeVertical = crsHomogenousChildResize + ChildSizing.ShrinkHorizontal = crsScaleChilds + ChildSizing.ShrinkVertical = crsScaleChilds + ChildSizing.Layout = cclLeftToRightThenTopToBottom + ChildSizing.ControlsPerLine = 1 + TabOrder = 2 + end + object ForwardProcsInsertPolicyRadioGroup: TRadioGroup + AnchorSideLeft.Control = CodeCreationPage + AnchorSideTop.Control = MixMethodsAndPropertiesCheckBox + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = ClassPartInsertPolicyRadioGroup + AnchorSideRight.Side = asrBottom + Left = 6 + Height = 100 + Top = 137 + Width = 222 + Anchors = [akTop, akLeft, akRight] + AutoFill = True + BorderSpacing.Left = 6 + BorderSpacing.Top = 12 + Caption = 'ForwardProcsInsertPolicyRadioGroup' + ChildSizing.LeftRightSpacing = 6 + ChildSizing.TopBottomSpacing = 6 + ChildSizing.EnlargeHorizontal = crsHomogenousChildResize + ChildSizing.EnlargeVertical = crsHomogenousChildResize + ChildSizing.ShrinkHorizontal = crsScaleChilds + ChildSizing.ShrinkVertical = crsScaleChilds + ChildSizing.Layout = cclLeftToRightThenTopToBottom + ChildSizing.ControlsPerLine = 1 + TabOrder = 3 + end + object ForwardProcsKeepOrderCheckBox: TCheckBox + AnchorSideLeft.Control = ForwardProcsInsertPolicyRadioGroup + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = ForwardProcsInsertPolicyRadioGroup + Left = 234 + Height = 13 + Top = 143 + Width = 185 + BorderSpacing.Around = 6 + Caption = 'ForwardProcsKeepOrderCheckBox' + TabOrder = 4 + end + object ClassHeaderCommentsCheckBox: TCheckBox + AnchorSideLeft.Control = ForwardProcsInsertPolicyRadioGroup + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = ForwardProcsKeepOrderCheckBox + AnchorSideTop.Side = asrBottom + Left = 234 + Height = 13 + Top = 162 + Width = 178 + BorderSpacing.Around = 6 + Caption = 'ClassHeaderCommentsCheckBox' + TabOrder = 5 + end + object PropertyCompletionGroupBox: TGroupBox + AnchorSideLeft.Control = CodeCreationPage + AnchorSideTop.Control = ForwardProcsInsertPolicyRadioGroup + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = CodeCreationPage + AnchorSideRight.Side = asrBottom + AnchorSideBottom.Side = asrBottom + Left = 6 + Height = 123 + Top = 243 + Width = 465 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + Caption = 'PropertyCompletionGroupBox' + ClientHeight = 123 + ClientWidth = 465 + TabOrder = 6 + object PropertyReadIdentPrefixLabel: TLabel + AnchorSideTop.Control = PropertyReadIdentPrefixEdit + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = PropertyReadIdentPrefixEdit + Left = -13 + Height = 14 + Top = 35 + Width = 147 + Anchors = [akTop, akRight] + BorderSpacing.Right = 6 + Caption = 'PropertyReadIdentPrefixLabel' + ParentColor = False + end + object PropertyWriteIdentPrefixLabel: TLabel + AnchorSideTop.Control = PropertyWriteIdentPrefixEdit + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = PropertyWriteIdentPrefixEdit + Left = -14 + Height = 14 + Top = 58 + Width = 148 + Anchors = [akTop, akRight] + BorderSpacing.Right = 6 + Caption = 'PropertyWriteIdentPrefixLabel' + ParentColor = False + end + object PropertyStoredIdentPostfixLabel: TLabel + AnchorSideTop.Control = PropertyStoredIdentPostfixEdit + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = PropertyStoredIdentPostfixEdit + Left = -25 + Height = 14 + Top = 81 + Width = 159 + Anchors = [akTop, akRight] + BorderSpacing.Right = 6 + Caption = 'PropertyStoredIdentPostfixLabel' + ParentColor = False + end + object PrivateVariablePrefixLabel: TLabel + AnchorSideTop.Control = PrivateVariablePrefixEdit + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = PrivateVariablePrefixEdit + Left = 243 + Height = 14 + Top = 35 + Width = 126 + Anchors = [akTop, akRight] + BorderSpacing.Right = 6 + Caption = 'PrivateVariablePrefixLabel' + ParentColor = False + end + object SetPropertyVariablenameLabel: TLabel + AnchorSideTop.Control = SetPropertyVariablenameEdit + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = SetPropertyVariablenameEdit + Left = 221 + Height = 14 + Top = 58 + Width = 148 + Anchors = [akTop, akRight] + BorderSpacing.Right = 6 + Caption = 'SetPropertyVariablenameLabel' + ParentColor = False + end + object PropertyCompletionCheckBox: TCheckBox + AnchorSideLeft.Control = PropertyCompletionGroupBox + AnchorSideTop.Control = PropertyCompletionGroupBox + Left = 6 + Height = 13 + Top = 6 + Width = 160 + BorderSpacing.Around = 6 + Caption = 'PropertyCompletionCheckBox' + TabOrder = 0 + end + object PropertyReadIdentPrefixEdit: TEdit + AnchorSideLeft.Control = PropertyWriteIdentPrefixEdit + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = PropertyWriteIdentPrefixEdit + AnchorSideRight.Side = asrBottom + Left = 140 + Height = 23 + Top = 31 + Width = 80 + Anchors = [akTop, akLeft, akRight] + TabOrder = 1 + Text = 'PropertyReadIdentPrefixEdit' + end + object PropertyWriteIdentPrefixEdit: TEdit + AnchorSideTop.Control = PropertyReadIdentPrefixEdit + AnchorSideTop.Side = asrBottom + AnchorSideRight.Side = asrBottom + Left = 140 + Height = 23 + Top = 54 + Width = 80 + TabOrder = 2 + Text = 'PropertyWriteIdentPrefixEdit' + end + object PropertyStoredIdentPostfixEdit: TEdit + AnchorSideTop.Control = PropertyWriteIdentPrefixEdit + AnchorSideTop.Side = asrBottom + AnchorSideRight.Side = asrBottom + Left = 140 + Height = 23 + Top = 77 + Width = 80 + TabOrder = 3 + Text = 'PropertyStoredIdentPostfixEdit' + end + object PrivateVariablePrefixEdit: TEdit + AnchorSideTop.Control = PropertyReadIdentPrefixEdit + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = PropertyCompletionGroupBox + AnchorSideRight.Side = asrBottom + Left = 375 + Height = 23 + Top = 31 + Width = 80 + Anchors = [akTop, akRight] + BorderSpacing.Right = 6 + TabOrder = 4 + Text = 'PrivateVariablePrefixEdit' + end + object SetPropertyVariablenameEdit: TEdit + AnchorSideTop.Control = PropertyWriteIdentPrefixEdit + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = PropertyCompletionGroupBox + AnchorSideRight.Side = asrBottom + Left = 375 + Height = 23 + Top = 54 + Width = 80 + Anchors = [akTop, akRight] + BorderSpacing.Right = 6 + TabOrder = 5 + Text = 'SetPropertyVariablenameEdit' + end + end + end + object WordsPoliciesPage: TPage + Caption = 'WordsPoliciesPage' + ClientWidth = 552 + ClientHeight = 372 + object KeyWordPolicyRadioGroup: TRadioGroup + AnchorSideLeft.Control = WordsPoliciesPage + AnchorSideTop.Control = WordsPoliciesPage + AnchorSideRight.Control = WordsPoliciesPage + AnchorSideRight.Side = asrBottom + Left = 6 + Height = 100 + Top = 6 + Width = 465 + Anchors = [akTop, akLeft, akRight] + AutoFill = True + BorderSpacing.Around = 6 + Caption = 'KeyWordPolicyRadioGroup' + ChildSizing.LeftRightSpacing = 6 + ChildSizing.TopBottomSpacing = 6 + ChildSizing.EnlargeHorizontal = crsHomogenousChildResize + ChildSizing.EnlargeVertical = crsHomogenousChildResize + ChildSizing.ShrinkHorizontal = crsScaleChilds + ChildSizing.ShrinkVertical = crsScaleChilds + ChildSizing.Layout = cclLeftToRightThenTopToBottom + ChildSizing.ControlsPerLine = 1 + OnClick = UpdateExamples + TabOrder = 0 + end + object IdentifierPolicyRadioGroup: TRadioGroup + AnchorSideLeft.Control = WordsPoliciesPage + AnchorSideTop.Control = KeyWordPolicyRadioGroup + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = WordsPoliciesPage + AnchorSideRight.Side = asrBottom + Left = 6 + Height = 100 + Top = 112 + Width = 465 + Anchors = [akTop, akLeft, akRight] + AutoFill = True + BorderSpacing.Around = 6 + Caption = 'IdentifierPolicyRadioGroup' + ChildSizing.LeftRightSpacing = 6 + ChildSizing.TopBottomSpacing = 6 + ChildSizing.EnlargeHorizontal = crsHomogenousChildResize + ChildSizing.EnlargeVertical = crsHomogenousChildResize + ChildSizing.ShrinkHorizontal = crsScaleChilds + ChildSizing.ShrinkVertical = crsScaleChilds + ChildSizing.Layout = cclLeftToRightThenTopToBottom + ChildSizing.ControlsPerLine = 1 + OnClick = UpdateExamples + TabOrder = 1 + end + end + object LineSplittingPage: TPage + Caption = 'LineSplittingPage' + ClientWidth = 552 + ClientHeight = 372 + object LineLengthLabel: TLabel + AnchorSideTop.Control = LineLengthEdit + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = LineLengthEdit + Left = 48 + Height = 14 + Top = 14 + Width = 78 + Anchors = [akTop, akRight] + BorderSpacing.Right = 6 + Caption = 'LineLengthLabel' + ParentColor = False + end + object SplitPreviewLabel: TLabel + AnchorSideLeft.Control = SplitPreviewSynEdit + AnchorSideBottom.Control = SplitPreviewSynEdit + Left = 268 + Height = 16 + Top = 18 + Width = 84 + Anchors = [akTop, akLeft, akBottom] + Caption = 'SplitPreviewLabel' + ParentColor = False + end + object LineLengthEdit: TEdit + Left = 132 + Height = 23 + Top = 10 + Width = 50 + OnChange = UpdateExamples + TabOrder = 0 + Text = 'LineLengthEdit' + end + object DoNotSplitLineInFrontGroupBox: TGroupBox + AnchorSideLeft.Control = LineSplittingPage + AnchorSideTop.Control = LineLengthEdit + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = SplitPreviewSynEdit + Left = 6 + Height = 153 + Top = 39 + Width = 256 + BorderSpacing.Around = 6 + Caption = 'DoNotSplitLineInFrontGroupBox' + TabOrder = 1 + OnClick = UpdateExamples + end + object DoNotSplitLineAfterGroupBox: TGroupBox + AnchorSideLeft.Control = LineSplittingPage + AnchorSideTop.Control = DoNotSplitLineInFrontGroupBox + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = DoNotSplitLineInFrontGroupBox + AnchorSideRight.Side = asrBottom + Left = 6 + Height = 153 + Top = 198 + Width = 256 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Left = 6 + BorderSpacing.Top = 6 + Caption = 'DoNotSplitLineAfterGroupBox' + TabOrder = 2 + OnClick = UpdateExamples + end + object SplitPreviewSynEdit: TSynEdit + AnchorSideLeft.Control = DoNotSplitLineInFrontGroupBox + AnchorSideLeft.Side = asrBottom + AnchorSideRight.Control = LineSplittingPage + AnchorSideRight.Side = asrBottom + AnchorSideBottom.Control = LineSplittingPage + AnchorSideBottom.Side = asrBottom + Left = 268 + Height = 332 + Top = 34 + Width = 278 + BorderSpacing.Right = 6 + BorderSpacing.Bottom = 6 + Anchors = [akTop, akLeft, akRight, akBottom] + Font.Height = -16 + Font.Name = 'courier' + ParentColor = False + TabOrder = 3 + BookMarkOptions.OnChange = nil + Gutter.OnChange = nil + Gutter.CodeFoldingWidth = 14 + Keystrokes = < + item + Command = 3 + ShortCut = 38 + end + item + Command = 103 + ShortCut = 8230 + end + item + Command = 211 + ShortCut = 16422 + end + item + Command = 4 + ShortCut = 40 + end + item + Command = 104 + ShortCut = 8232 + end + item + Command = 212 + ShortCut = 16424 + end + item + Command = 1 + ShortCut = 37 + end + item + Command = 101 + ShortCut = 8229 + end + item + Command = 5 + ShortCut = 16421 + end + item + Command = 105 + ShortCut = 24613 + end + item + Command = 2 + ShortCut = 39 + end + item + Command = 102 + ShortCut = 8231 + end + item + Command = 6 + ShortCut = 16423 + end + item + Command = 106 + ShortCut = 24615 + end + item + Command = 10 + ShortCut = 34 + end + item + Command = 110 + ShortCut = 8226 + end + item + Command = 14 + ShortCut = 16418 + end + item + Command = 114 + ShortCut = 24610 + end + item + Command = 9 + ShortCut = 33 + end + item + Command = 109 + ShortCut = 8225 + end + item + Command = 13 + ShortCut = 16417 + end + item + Command = 113 + ShortCut = 24609 + end + item + Command = 7 + ShortCut = 36 + end + item + Command = 107 + ShortCut = 8228 + end + item + Command = 15 + ShortCut = 16420 + end + item + Command = 115 + ShortCut = 24612 + end + item + Command = 8 + ShortCut = 35 + end + item + Command = 108 + ShortCut = 8227 + end + item + Command = 16 + ShortCut = 16419 + end + item + Command = 116 + ShortCut = 24611 + end + item + Command = 223 + ShortCut = 45 + end + item + Command = 201 + ShortCut = 16429 + end + item + Command = 604 + ShortCut = 8237 + end + item + Command = 502 + ShortCut = 46 + end + item + Command = 603 + ShortCut = 8238 + end + item + Command = 501 + ShortCut = 8 + end + item + Command = 501 + ShortCut = 8200 + end + item + Command = 504 + ShortCut = 16392 + end + item + Command = 601 + ShortCut = 32776 + end + item + Command = 602 + ShortCut = 40968 + end + item + Command = 509 + ShortCut = 13 + end + item + Command = 199 + ShortCut = 16449 + end + item + Command = 201 + ShortCut = 16451 + end + item + Command = 610 + ShortCut = 24649 + end + item + Command = 509 + ShortCut = 16461 + end + item + Command = 510 + ShortCut = 16462 + end + item + Command = 503 + ShortCut = 16468 + end + item + Command = 611 + ShortCut = 24661 + end + item + Command = 604 + ShortCut = 16470 + end + item + Command = 603 + ShortCut = 16472 + end + item + Command = 507 + ShortCut = 16473 + end + item + Command = 506 + ShortCut = 24665 + end + item + Command = 601 + ShortCut = 16474 + end + item + Command = 602 + ShortCut = 24666 + end + item + Command = 301 + ShortCut = 16432 + end + item + Command = 302 + ShortCut = 16433 + end + item + Command = 303 + ShortCut = 16434 + end + item + Command = 304 + ShortCut = 16435 + end + item + Command = 305 + ShortCut = 16436 + end + item + Command = 306 + ShortCut = 16437 + end + item + Command = 307 + ShortCut = 16438 + end + item + Command = 308 + ShortCut = 16439 + end + item + Command = 309 + ShortCut = 16440 + end + item + Command = 310 + ShortCut = 16441 + end + item + Command = 351 + ShortCut = 24624 + end + item + Command = 352 + ShortCut = 24625 + end + item + Command = 353 + ShortCut = 24626 + end + item + Command = 354 + ShortCut = 24627 + end + item + Command = 355 + ShortCut = 24628 + end + item + Command = 356 + ShortCut = 24629 + end + item + Command = 357 + ShortCut = 24630 + end + item + Command = 358 + ShortCut = 24631 + end + item + Command = 359 + ShortCut = 24632 + end + item + Command = 360 + ShortCut = 24633 + end + item + Command = 231 + ShortCut = 24654 + end + item + Command = 232 + ShortCut = 24643 + end + item + Command = 233 + ShortCut = 24652 + end + item + Command = 612 + ShortCut = 9 + end + item + Command = 613 + ShortCut = 8201 + end + item + Command = 250 + ShortCut = 24642 + end> + Lines.Strings = ( + 'SplitPreviewSynEdit' + ) + SelectedColor.OnChange = nil + end + end + object SpaceNotCosmosPage: TPage + Caption = 'SpaceNotCosmosPage' + ClientWidth = 552 + ClientHeight = 372 + object SpacePreviewLabel: TLabel + AnchorSideLeft.Control = SpaceNotCosmosPage + AnchorSideTop.Control = DoInsertSpaceInFrontGroupBox + AnchorSideTop.Side = asrBottom + Left = 6 + Height = 14 + Top = 162 + Width = 93 + BorderSpacing.Left = 6 + BorderSpacing.Top = 6 + BorderSpacing.Right = 6 + Caption = 'SpacePreviewLabel' + ParentColor = False + end + object DoInsertSpaceInFrontGroupBox: TGroupBox + AnchorSideLeft.Control = SpaceNotCosmosPage + AnchorSideTop.Control = SpaceNotCosmosPage + Left = 6 + Height = 150 + Top = 6 + Width = 266 + BorderSpacing.Around = 6 + Caption = 'DoInsertSpaceInFrontGroupBox' + TabOrder = 0 + OnClick = UpdateExamples + end + object DoInsertSpaceAfterGroupBox: TGroupBox + AnchorSideLeft.Control = DoInsertSpaceInFrontGroupBox + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = SpaceNotCosmosPage + AnchorSideRight.Control = SpaceNotCosmosPage + AnchorSideRight.Side = asrBottom + Left = 278 + Height = 150 + Top = 6 + Width = 268 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 6 + Caption = 'DoInsertSpaceAfterGroupBox' + TabOrder = 1 + OnClick = UpdateExamples + end + object SpacePreviewSynEdit: TSynEdit + AnchorSideLeft.Control = SpaceNotCosmosPage + AnchorSideTop.Control = SpacePreviewLabel + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = SpaceNotCosmosPage + AnchorSideRight.Side = asrBottom + AnchorSideBottom.Control = SpaceNotCosmosPage + AnchorSideBottom.Side = asrBottom + Left = 6 + Height = 190 + Top = 176 + Width = 540 + BorderSpacing.Left = 6 + BorderSpacing.Right = 6 + BorderSpacing.Bottom = 6 + Anchors = [akTop, akLeft, akRight, akBottom] + Font.Height = -16 + Font.Name = 'courier' + ParentColor = False + TabOrder = 2 + BookMarkOptions.OnChange = nil + Gutter.OnChange = nil + Gutter.CodeFoldingWidth = 14 + Keystrokes = < + item + Command = 3 + ShortCut = 38 + end + item + Command = 103 + ShortCut = 8230 + end + item + Command = 211 + ShortCut = 16422 + end + item + Command = 4 + ShortCut = 40 + end + item + Command = 104 + ShortCut = 8232 + end + item + Command = 212 + ShortCut = 16424 + end + item + Command = 1 + ShortCut = 37 + end + item + Command = 101 + ShortCut = 8229 + end + item + Command = 5 + ShortCut = 16421 + end + item + Command = 105 + ShortCut = 24613 + end + item + Command = 2 + ShortCut = 39 + end + item + Command = 102 + ShortCut = 8231 + end + item + Command = 6 + ShortCut = 16423 + end + item + Command = 106 + ShortCut = 24615 + end + item + Command = 10 + ShortCut = 34 + end + item + Command = 110 + ShortCut = 8226 + end + item + Command = 14 + ShortCut = 16418 + end + item + Command = 114 + ShortCut = 24610 + end + item + Command = 9 + ShortCut = 33 + end + item + Command = 109 + ShortCut = 8225 + end + item + Command = 13 + ShortCut = 16417 + end + item + Command = 113 + ShortCut = 24609 + end + item + Command = 7 + ShortCut = 36 + end + item + Command = 107 + ShortCut = 8228 + end + item + Command = 15 + ShortCut = 16420 + end + item + Command = 115 + ShortCut = 24612 + end + item + Command = 8 + ShortCut = 35 + end + item + Command = 108 + ShortCut = 8227 + end + item + Command = 16 + ShortCut = 16419 + end + item + Command = 116 + ShortCut = 24611 + end + item + Command = 223 + ShortCut = 45 + end + item + Command = 201 + ShortCut = 16429 + end + item + Command = 604 + ShortCut = 8237 + end + item + Command = 502 + ShortCut = 46 + end + item + Command = 603 + ShortCut = 8238 + end + item + Command = 501 + ShortCut = 8 + end + item + Command = 501 + ShortCut = 8200 + end + item + Command = 504 + ShortCut = 16392 + end + item + Command = 601 + ShortCut = 32776 + end + item + Command = 602 + ShortCut = 40968 + end + item + Command = 509 + ShortCut = 13 + end + item + Command = 199 + ShortCut = 16449 + end + item + Command = 201 + ShortCut = 16451 + end + item + Command = 610 + ShortCut = 24649 + end + item + Command = 509 + ShortCut = 16461 + end + item + Command = 510 + ShortCut = 16462 + end + item + Command = 503 + ShortCut = 16468 + end + item + Command = 611 + ShortCut = 24661 + end + item + Command = 604 + ShortCut = 16470 + end + item + Command = 603 + ShortCut = 16472 + end + item + Command = 507 + ShortCut = 16473 + end + item + Command = 506 + ShortCut = 24665 + end + item + Command = 601 + ShortCut = 16474 + end + item + Command = 602 + ShortCut = 24666 + end + item + Command = 301 + ShortCut = 16432 + end + item + Command = 302 + ShortCut = 16433 + end + item + Command = 303 + ShortCut = 16434 + end + item + Command = 304 + ShortCut = 16435 + end + item + Command = 305 + ShortCut = 16436 + end + item + Command = 306 + ShortCut = 16437 + end + item + Command = 307 + ShortCut = 16438 + end + item + Command = 308 + ShortCut = 16439 + end + item + Command = 309 + ShortCut = 16440 + end + item + Command = 310 + ShortCut = 16441 + end + item + Command = 351 + ShortCut = 24624 + end + item + Command = 352 + ShortCut = 24625 + end + item + Command = 353 + ShortCut = 24626 + end + item + Command = 354 + ShortCut = 24627 + end + item + Command = 355 + ShortCut = 24628 + end + item + Command = 356 + ShortCut = 24629 + end + item + Command = 357 + ShortCut = 24630 + end + item + Command = 358 + ShortCut = 24631 + end + item + Command = 359 + ShortCut = 24632 + end + item + Command = 360 + ShortCut = 24633 + end + item + Command = 231 + ShortCut = 24654 + end + item + Command = 232 + ShortCut = 24643 + end + item + Command = 233 + ShortCut = 24652 + end + item + Command = 612 + ShortCut = 9 + end + item + Command = 613 + ShortCut = 8201 + end + item + Command = 250 + ShortCut = 24642 + end> + Lines.Strings = ( + 'SpacePreviewSynEdit' + ) + SelectedColor.OnChange = nil + end + end + object IdentifierCompletionPage: TPage + Caption = 'IdentifierCompletionPage' + ClientWidth = 552 + ClientHeight = 372 + object ICAddSemicolonCheckBox: TCheckBox + AnchorSideLeft.Control = IdentifierCompletionPage + AnchorSideTop.Control = IdentifierCompletionPage + Left = 6 + Height = 13 + Top = 6 + Width = 147 + BorderSpacing.Around = 6 + Caption = 'ICAddSemicolonCheckBox' + TabOrder = 0 + end + end + end + object OKButton: TButton + AnchorSideRight.Control = CancelButton + AnchorSideBottom.Control = Owner + AnchorSideBottom.Side = asrBottom + Left = 364 + Height = 25 + Top = 404 + Width = 92 + Anchors = [akRight, akBottom] + BorderSpacing.Around = 6 + BorderSpacing.InnerBorder = 4 + Caption = 'OKButton' + ModalResult = 1 + TabOrder = 1 + end + object CancelButton: TButton + AnchorSideRight.Control = Owner + AnchorSideRight.Side = asrBottom + AnchorSideBottom.Control = Owner + AnchorSideBottom.Side = asrBottom + Left = 462 + Height = 25 + Top = 404 + Width = 92 + Anchors = [akRight, akBottom] + BorderSpacing.Around = 6 + BorderSpacing.InnerBorder = 4 + Caption = 'CancelButton' + ModalResult = 2 + TabOrder = 2 + end +end diff --git a/ide/codetoolsoptions.lrs b/ide/codetoolsoptions.lrs new file mode 100644 index 0000000000..b4fed8adb7 --- /dev/null +++ b/ide/codetoolsoptions.lrs @@ -0,0 +1,352 @@ +{ Это - файл ресурсов, автоматически созданный lazarus } + +LazarusResources.Add('TCodeToolsOptsDlg','FORMDATA',[ + 'TPF0'#17'TCodeToolsOptsDlg'#16'CodeToolsOptsDlg'#4'Left'#3#187#3#6'Height'#3 + +#179#1#3'Top'#3#198#1#5'Width'#3'0'#2#18'HorzScrollBar.Page'#3'/'#2#18'VertS' + +'crollBar.Page'#3#178#1#13'ActiveControl'#7#8'OKButton'#11'BorderStyle'#7#13 + +'bsSizeToolWin'#7'Caption'#6#16'CodeToolsOptsDlg'#12'ClientHeight'#3#179#1#11 + +'ClientWidth'#3'0'#2#21'Constraints.MinHeight'#3#179#1#20'Constraints.MinWid' + +'th'#3#229#1#8'OnCreate'#7#10'FormCreate'#8'OnResize'#7#10'FormResize'#8'Pos' + +'ition'#7#14'poScreenCenter'#0#9'TNotebook'#8'Notebook'#22'AnchorSideLeft.Co' + +'ntrol'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.C' + +'ontrol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBot' + +'tom.Control'#7#12'CancelButton'#6'Height'#3#142#1#5'Width'#3'0'#2#7'Anchors' + +#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'BorderSpacing.Bottom'#2#6 + +#9'PageIndex'#2#5#8'TabOrder'#2#0#0#5'TPage'#11'GeneralPage'#21'AnchorSideTo' + +'p.Control'#7#16'CodeCreationPage'#7'Caption'#6#11'GeneralPage'#11'ClientWid' + +'th'#3'('#2#12'ClientHeight'#3't'#1#0#9'TGroupBox'#15'SrcPathGroupBox'#22'An' + +'chorSideLeft.Control'#7#11'GeneralPage'#21'AnchorSideTop.Control'#7#11'Gene' + +'ralPage'#23'AnchorSideRight.Control'#7#11'GeneralPage'#20'AnchorSideRight.S' + +'ide'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2'8'#3'Top'#2#6#5'Width'#3#209#1#7 + +'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7 + +'Caption'#6#15'SrcPathGroupBox'#12'ClientHeight'#2'8'#11'ClientWidth'#3#209#1 + +#8'TabOrder'#2#0#0#5'TEdit'#11'SrcPathEdit'#22'AnchorSideLeft.Control'#7#15 + +'SrcPathGroupBox'#23'AnchorSideRight.Control'#7#15'SrcPathGroupBox'#20'Ancho' + +'rSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#23#3'Top'#2#8#5'Wid' + +'th'#3#193#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.' + +'Around'#2#6#8'TabOrder'#2#0#4'Text'#6#11'SrcPathEdit'#0#0#0#9'TGroupBox'#15 + +'JumpingGroupBox'#22'AnchorSideLeft.Control'#7#11'GeneralPage'#21'AnchorSide' + +'Top.Control'#7#15'SrcPathGroupBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23 + +'AnchorSideRight.Control'#7#11'GeneralPage'#20'AnchorSideRight.Side'#7#9'asr' + +'Bottom'#4'Left'#2#6#6'Height'#2'f'#3'Top'#2'D'#5'Width'#3#209#1#7'Anchors' + +#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6 + +#15'JumpingGroupBox'#12'ClientHeight'#2'f'#11'ClientWidth'#3#209#1#8'TabOrde' + +'r'#2#1#0#9'TCheckBox!AdjustTopLineDueToCommentCheckBox'#22'AnchorSideLeft.C' + +'ontrol'#7#15'JumpingGroupBox'#21'AnchorSideTop.Control'#7#15'JumpingGroupBo' + +'x'#4'Left'#2#6#6'Height'#2#13#3'Top'#2#6#5'Width'#3#214#0#20'BorderSpacing.' + +'Around'#2#6#7'Caption'#6'!AdjustTopLineDueToCommentCheckBox'#8'TabOrder'#2#0 + +#0#0#9'TCheckBox'#20'JumpCenteredCheckBox'#22'AnchorSideLeft.Control'#7#15'J' + +'umpingGroupBox'#21'AnchorSideTop.Control'#7'!AdjustTopLineDueToCommentCheck' + +'Box'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#13#3'Top' + +#2#31#5'Width'#3#137#0#17'BorderSpacing.Top'#2#6#20'BorderSpacing.Around'#2#6 + +#7'Caption'#6#20'JumpCenteredCheckBox'#8'TabOrder'#2#1#0#0#9'TCheckBox'#23'C' + +'ursorBeyondEOLCheckBox'#22'AnchorSideLeft.Control'#7#15'JumpingGroupBox'#21 + +'AnchorSideTop.Control'#7#20'JumpCenteredCheckBox'#18'AnchorSideTop.Side'#7#9 + +'asrBottom'#4'Left'#2#6#6'Height'#2#13#3'Top'#2'8'#5'Width'#3#156#0#17'Borde' + +'rSpacing.Top'#2#6#20'BorderSpacing.Around'#2#6#7'Caption'#6#23'CursorBeyond' + +'EOLCheckBox'#8'TabOrder'#2#2#0#0#0#0#5'TPage'#16'CodeCreationPage'#7'Captio' + +'n'#6#16'CodeCreationPage'#11'ClientWidth'#3'('#2#12'ClientHeight'#3't'#1#0 + +#11'TRadioGroup'#31'ClassPartInsertPolicyRadioGroup'#22'AnchorSideLeft.Contr' + +'ol'#7#16'CodeCreationPage'#21'AnchorSideTop.Control'#7#16'CodeCreationPage' + +#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2'd'#3'Top'#2 + +#6#5'Width'#3#222#0#8'AutoFill'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6 + +#31'ClassPartInsertPolicyRadioGroup'#28'ChildSizing.LeftRightSpacing'#2#6#28 + +'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'cr' + +'sHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousC' + +'hildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildS' + +'izing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclL' + +'eftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#8'TabOrder'#2 + +#0#0#0#9'TCheckBox'#31'MixMethodsAndPropertiesCheckBox'#22'AnchorSideLeft.Co' + +'ntrol'#7#16'CodeCreationPage'#21'AnchorSideTop.Control'#7#31'ClassPartInser' + +'tPolicyRadioGroup'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Heig' + +'ht'#2#13#3'Top'#2'p'#5'Width'#3#192#0#20'BorderSpacing.Around'#2#6#7'Captio' + +'n'#6#31'MixMethodsAndPropertiesCheckBox'#8'TabOrder'#2#1#0#0#11'TRadioGroup' + +#28'MethodInsertPolicyRadioGroup'#22'AnchorSideLeft.Control'#7#31'ClassPartI' + +'nsertPolicyRadioGroup'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSide' + +'Top.Control'#7#16'CodeCreationPage'#23'AnchorSideRight.Control'#7#16'CodeCr' + +'eationPage'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#234#0#6'Heigh' + ,'t'#2'd'#3'Top'#2#6#5'Width'#3#237#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRi' + +'ght'#0#8'AutoFill'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#28'MethodIns' + +'ertPolicyRadioGroup'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.To' + +'pBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChi' + +'ldResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28 + +'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVer' + +'tical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenT' + +'opToBottom'#27'ChildSizing.ControlsPerLine'#2#1#8'TabOrder'#2#2#0#0#11'TRad' + +'ioGroup"ForwardProcsInsertPolicyRadioGroup'#22'AnchorSideLeft.Control'#7#16 + +'CodeCreationPage'#21'AnchorSideTop.Control'#7#31'MixMethodsAndPropertiesChe' + +'ckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7 + +#31'ClassPartInsertPolicyRadioGroup'#20'AnchorSideRight.Side'#7#9'asrBottom' + +#4'Left'#2#6#6'Height'#2'd'#3'Top'#3#137#0#5'Width'#3#222#0#7'Anchors'#11#5 + +'akTop'#6'akLeft'#7'akRight'#0#8'AutoFill'#9#18'BorderSpacing.Left'#2#6#17'B' + +'orderSpacing.Top'#2#12#7'Caption'#6'"ForwardProcsInsertPolicyRadioGroup'#28 + +'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'C' + +'hildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing' + +'.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHoriz' + +'ontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChi' + +'lds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSiz' + +'ing.ControlsPerLine'#2#1#8'TabOrder'#2#3#0#0#9'TCheckBox'#29'ForwardProcsKe' + +'epOrderCheckBox'#22'AnchorSideLeft.Control'#7'"ForwardProcsInsertPolicyRadi' + +'oGroup'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7 + +'"ForwardProcsInsertPolicyRadioGroup'#4'Left'#3#234#0#6'Height'#2#13#3'Top'#3 + +#143#0#5'Width'#3#185#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#29'Forward' + +'ProcsKeepOrderCheckBox'#8'TabOrder'#2#4#0#0#9'TCheckBox'#27'ClassHeaderComm' + +'entsCheckBox'#22'AnchorSideLeft.Control'#7'"ForwardProcsInsertPolicyRadioGr' + +'oup'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#29 + +'ForwardProcsKeepOrderCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left' + +#3#234#0#6'Height'#2#13#3'Top'#3#162#0#5'Width'#3#178#0#20'BorderSpacing.Aro' + +'und'#2#6#7'Caption'#6#27'ClassHeaderCommentsCheckBox'#8'TabOrder'#2#5#0#0#9 + +'TGroupBox'#26'PropertyCompletionGroupBox'#22'AnchorSideLeft.Control'#7#16'C' + +'odeCreationPage'#21'AnchorSideTop.Control'#7'"ForwardProcsInsertPolicyRadio' + +'Group'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7 + +#16'CodeCreationPage'#20'AnchorSideRight.Side'#7#9'asrBottom'#21'AnchorSideB' + +'ottom.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2'{'#3'Top'#3#243#0#5'Widt' + +'h'#3#209#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.A' + +'round'#2#6#7'Caption'#6#26'PropertyCompletionGroupBox'#12'ClientHeight'#2'{' + +#11'ClientWidth'#3#209#1#8'TabOrder'#2#6#0#6'TLabel'#28'PropertyReadIdentPre' + +'fixLabel'#21'AnchorSideTop.Control'#7#27'PropertyReadIdentPrefixEdit'#18'An' + +'chorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#27'PropertyR' + +'eadIdentPrefixEdit'#4'Left'#2#243#6'Height'#2#14#3'Top'#2'#'#5'Width'#3#147 + +#0#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2#6#7'Caption' + +#6#28'PropertyReadIdentPrefixLabel'#11'ParentColor'#8#0#0#6'TLabel'#29'Prope' + +'rtyWriteIdentPrefixLabel'#21'AnchorSideTop.Control'#7#28'PropertyWriteIdent' + +'PrefixEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Contro' + +'l'#7#28'PropertyWriteIdentPrefixEdit'#4'Left'#2#242#6'Height'#2#14#3'Top'#2 + +':'#5'Width'#3#148#0#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Ri' + +'ght'#2#6#7'Caption'#6#29'PropertyWriteIdentPrefixLabel'#11'ParentColor'#8#0 + +#0#6'TLabel'#31'PropertyStoredIdentPostfixLabel'#21'AnchorSideTop.Control'#7 + +#30'PropertyStoredIdentPostfixEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#23 + +'AnchorSideRight.Control'#7#30'PropertyStoredIdentPostfixEdit'#4'Left'#2#231 + +#6'Height'#2#14#3'Top'#2'Q'#5'Width'#3#159#0#7'Anchors'#11#5'akTop'#7'akRigh' + +'t'#0#19'BorderSpacing.Right'#2#6#7'Caption'#6#31'PropertyStoredIdentPostfix' + +'Label'#11'ParentColor'#8#0#0#6'TLabel'#26'PrivateVariablePrefixLabel'#21'An' + +'chorSideTop.Control'#7#25'PrivateVariablePrefixEdit'#18'AnchorSideTop.Side' + +#7#9'asrCenter'#23'AnchorSideRight.Control'#7#25'PrivateVariablePrefixEdit'#4 + +'Left'#3#243#0#6'Height'#2#14#3'Top'#2'#'#5'Width'#2'~'#7'Anchors'#11#5'akTo' + +'p'#7'akRight'#0#19'BorderSpacing.Right'#2#6#7'Caption'#6#26'PrivateVariable' + +'PrefixLabel'#11'ParentColor'#8#0#0#6'TLabel'#28'SetPropertyVariablenameLabe' + +'l'#21'AnchorSideTop.Control'#7#27'SetPropertyVariablenameEdit'#18'AnchorSid' + +'eTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#27'SetPropertyVaria' + +'blenameEdit'#4'Left'#3#221#0#6'Height'#2#14#3'Top'#2':'#5'Width'#3#148#0#7 + +'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2#6#7'Caption'#6 + ,#28'SetPropertyVariablenameLabel'#11'ParentColor'#8#0#0#9'TCheckBox'#26'Prop' + +'ertyCompletionCheckBox'#22'AnchorSideLeft.Control'#7#26'PropertyCompletionG' + +'roupBox'#21'AnchorSideTop.Control'#7#26'PropertyCompletionGroupBox'#4'Left' + +#2#6#6'Height'#2#13#3'Top'#2#6#5'Width'#3#160#0#20'BorderSpacing.Around'#2#6 + +#7'Caption'#6#26'PropertyCompletionCheckBox'#8'TabOrder'#2#0#0#0#5'TEdit'#27 + +'PropertyReadIdentPrefixEdit'#22'AnchorSideLeft.Control'#7#28'PropertyWriteI' + +'dentPrefixEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Co' + +'ntrol'#7#28'PropertyWriteIdentPrefixEdit'#20'AnchorSideRight.Side'#7#9'asrB' + +'ottom'#4'Left'#3#140#0#6'Height'#2#23#3'Top'#2#31#5'Width'#2'P'#7'Anchors' + +#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#1#4'Text'#6#27'PropertyRea' + +'dIdentPrefixEdit'#0#0#5'TEdit'#28'PropertyWriteIdentPrefixEdit'#21'AnchorSi' + +'deTop.Control'#7#27'PropertyReadIdentPrefixEdit'#18'AnchorSideTop.Side'#7#9 + +'asrBottom'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#140#0#6'Height' + +#2#23#3'Top'#2'6'#5'Width'#2'P'#8'TabOrder'#2#2#4'Text'#6#28'PropertyWriteId' + +'entPrefixEdit'#0#0#5'TEdit'#30'PropertyStoredIdentPostfixEdit'#21'AnchorSid' + +'eTop.Control'#7#28'PropertyWriteIdentPrefixEdit'#18'AnchorSideTop.Side'#7#9 + +'asrBottom'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#140#0#6'Height' + +#2#23#3'Top'#2'M'#5'Width'#2'P'#8'TabOrder'#2#3#4'Text'#6#30'PropertyStoredI' + +'dentPostfixEdit'#0#0#5'TEdit'#25'PrivateVariablePrefixEdit'#21'AnchorSideTo' + +'p.Control'#7#27'PropertyReadIdentPrefixEdit'#18'AnchorSideTop.Side'#7#9'asr' + +'Center'#23'AnchorSideRight.Control'#7#26'PropertyCompletionGroupBox'#20'Anc' + +'horSideRight.Side'#7#9'asrBottom'#4'Left'#3'w'#1#6'Height'#2#23#3'Top'#2#31 + +#5'Width'#2'P'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2 + +#6#8'TabOrder'#2#4#4'Text'#6#25'PrivateVariablePrefixEdit'#0#0#5'TEdit'#27'S' + +'etPropertyVariablenameEdit'#21'AnchorSideTop.Control'#7#28'PropertyWriteIde' + +'ntPrefixEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Cont' + +'rol'#7#26'PropertyCompletionGroupBox'#20'AnchorSideRight.Side'#7#9'asrBotto' + +'m'#4'Left'#3'w'#1#6'Height'#2#23#3'Top'#2'6'#5'Width'#2'P'#7'Anchors'#11#5 + +'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2#6#8'TabOrder'#2#5#4'Text'#6#27 + +'SetPropertyVariablenameEdit'#0#0#0#0#5'TPage'#17'WordsPoliciesPage'#7'Capti' + +'on'#6#17'WordsPoliciesPage'#11'ClientWidth'#3'('#2#12'ClientHeight'#3't'#1#0 + +#11'TRadioGroup'#23'KeyWordPolicyRadioGroup'#22'AnchorSideLeft.Control'#7#17 + +'WordsPoliciesPage'#21'AnchorSideTop.Control'#7#17'WordsPoliciesPage'#23'Anc' + +'horSideRight.Control'#7#17'WordsPoliciesPage'#20'AnchorSideRight.Side'#7#9 + +'asrBottom'#4'Left'#2#6#6'Height'#2'd'#3'Top'#2#6#5'Width'#3#209#1#7'Anchors' + +#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoFill'#9#20'BorderSpacing.Around'#2 + +#6#7'Caption'#6#23'KeyWordPolicyRadioGroup'#28'ChildSizing.LeftRightSpacing' + +#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7 + +#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomoge' + +'nousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'C' + +'hildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29 + +'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#7'OnClic' + +'k'#7#14'UpdateExamples'#8'TabOrder'#2#0#0#0#11'TRadioGroup'#26'IdentifierPo' + +'licyRadioGroup'#22'AnchorSideLeft.Control'#7#17'WordsPoliciesPage'#21'Ancho' + +'rSideTop.Control'#7#23'KeyWordPolicyRadioGroup'#18'AnchorSideTop.Side'#7#9 + +'asrBottom'#23'AnchorSideRight.Control'#7#17'WordsPoliciesPage'#20'AnchorSid' + +'eRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2'd'#3'Top'#2'p'#5'Width' + +#3#209#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoFill'#9#20'Bord' + +'erSpacing.Around'#2#6#7'Caption'#6#26'IdentifierPolicyRadioGroup'#28'ChildS' + +'izing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSi' + +'zing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.Enlar' + +'geVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal' + +#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18 + +'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.Cont' + +'rolsPerLine'#2#1#7'OnClick'#7#14'UpdateExamples'#8'TabOrder'#2#1#0#0#0#5'TP' + +'age'#17'LineSplittingPage'#7'Caption'#6#17'LineSplittingPage'#11'ClientWidt' + +'h'#3'('#2#12'ClientHeight'#3't'#1#0#6'TLabel'#15'LineLengthLabel'#21'Anchor' + +'SideTop.Control'#7#14'LineLengthEdit'#18'AnchorSideTop.Side'#7#9'asrCenter' + +#23'AnchorSideRight.Control'#7#14'LineLengthEdit'#4'Left'#2'0'#6'Height'#2#14 + +#3'Top'#2#14#5'Width'#2'N'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpac' + +'ing.Right'#2#6#7'Caption'#6#15'LineLengthLabel'#11'ParentColor'#8#0#0#6'TLa' + +'bel'#17'SplitPreviewLabel'#22'AnchorSideLeft.Control'#7#19'SplitPreviewSynE' + +'dit'#24'AnchorSideBottom.Control'#7#19'SplitPreviewSynEdit'#4'Left'#3#12#1#6 + +'Height'#2#16#3'Top'#2#18#5'Width'#2'T'#7'Anchors'#11#5'akTop'#6'akLeft'#8'a' + ,'kBottom'#0#7'Caption'#6#17'SplitPreviewLabel'#11'ParentColor'#8#0#0#5'TEdit' + +#14'LineLengthEdit'#4'Left'#3#132#0#6'Height'#2#23#3'Top'#2#10#5'Width'#2'2' + +#8'OnChange'#7#14'UpdateExamples'#8'TabOrder'#2#0#4'Text'#6#14'LineLengthEdi' + +'t'#0#0#9'TGroupBox'#29'DoNotSplitLineInFrontGroupBox'#22'AnchorSideLeft.Con' + +'trol'#7#17'LineSplittingPage'#21'AnchorSideTop.Control'#7#14'LineLengthEdit' + +#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#19'Spli' + +'tPreviewSynEdit'#4'Left'#2#6#6'Height'#3#153#0#3'Top'#2''''#5'Width'#3#0#1 + +#20'BorderSpacing.Around'#2#6#7'Caption'#6#29'DoNotSplitLineInFrontGroupBox' + +#8'TabOrder'#2#1#7'OnClick'#7#14'UpdateExamples'#0#0#9'TGroupBox'#27'DoNotSp' + +'litLineAfterGroupBox'#22'AnchorSideLeft.Control'#7#17'LineSplittingPage'#21 + +'AnchorSideTop.Control'#7#29'DoNotSplitLineInFrontGroupBox'#18'AnchorSideTop' + +'.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#29'DoNotSplitLineInFron' + +'tGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#3 + +#153#0#3'Top'#3#198#0#5'Width'#3#0#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRi' + +'ght'#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#7'Caption'#6#27 + +'DoNotSplitLineAfterGroupBox'#8'TabOrder'#2#2#7'OnClick'#7#14'UpdateExamples' + +#0#0#8'TSynEdit'#19'SplitPreviewSynEdit'#22'AnchorSideLeft.Control'#7#29'DoN' + +'otSplitLineInFrontGroupBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#23'Ancho' + +'rSideRight.Control'#7#17'LineSplittingPage'#20'AnchorSideRight.Side'#7#9'as' + +'rBottom'#24'AnchorSideBottom.Control'#7#17'LineSplittingPage'#21'AnchorSide' + +'Bottom.Side'#7#9'asrBottom'#4'Left'#3#12#1#6'Height'#3'L'#1#3'Top'#2'"'#5'W' + +'idth'#3#22#1#19'BorderSpacing.Right'#2#6#20'BorderSpacing.Bottom'#2#6#7'Anc' + +'hors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#11'Font.Height'#2#240#9 + +'Font.Name'#6#7'courier'#11'ParentColor'#8#8'TabOrder'#2#3#24'BookMarkOption' + +'s.OnChange'#13#15'Gutter.OnChange'#13#23'Gutter.CodeFoldingWidth'#2#14#10'K' + +'eystrokes'#14#1#7'Command'#2#3#8'ShortCut'#2'&'#0#1#7'Command'#2'g'#8'Short' + +'Cut'#3'& '#0#1#7'Command'#3#211#0#8'ShortCut'#3'&@'#0#1#7'Command'#2#4#8'Sh' + +'ortCut'#2'('#0#1#7'Command'#2'h'#8'ShortCut'#3'( '#0#1#7'Command'#3#212#0#8 + +'ShortCut'#3'(@'#0#1#7'Command'#2#1#8'ShortCut'#2'%'#0#1#7'Command'#2'e'#8'S' + +'hortCut'#3'% '#0#1#7'Command'#2#5#8'ShortCut'#3'%@'#0#1#7'Command'#2'i'#8'S' + +'hortCut'#3'%`'#0#1#7'Command'#2#2#8'ShortCut'#2''''#0#1#7'Command'#2'f'#8'S' + +'hortCut'#3''' '#0#1#7'Command'#2#6#8'ShortCut'#3'''@'#0#1#7'Command'#2'j'#8 + +'ShortCut'#3'''`'#0#1#7'Command'#2#10#8'ShortCut'#2'"'#0#1#7'Command'#2'n'#8 + +'ShortCut'#3'" '#0#1#7'Command'#2#14#8'ShortCut'#3'"@'#0#1#7'Command'#2'r'#8 + +'ShortCut'#3'"`'#0#1#7'Command'#2#9#8'ShortCut'#2'!'#0#1#7'Command'#2'm'#8'S' + +'hortCut'#3'! '#0#1#7'Command'#2#13#8'ShortCut'#3'!@'#0#1#7'Command'#2'q'#8 + +'ShortCut'#3'!`'#0#1#7'Command'#2#7#8'ShortCut'#2'$'#0#1#7'Command'#2'k'#8'S' + +'hortCut'#3'$ '#0#1#7'Command'#2#15#8'ShortCut'#3'$@'#0#1#7'Command'#2's'#8 + +'ShortCut'#3'$`'#0#1#7'Command'#2#8#8'ShortCut'#2'#'#0#1#7'Command'#2'l'#8'S' + +'hortCut'#3'# '#0#1#7'Command'#2#16#8'ShortCut'#3'#@'#0#1#7'Command'#2't'#8 + +'ShortCut'#3'#`'#0#1#7'Command'#3#223#0#8'ShortCut'#2'-'#0#1#7'Command'#3#201 + +#0#8'ShortCut'#3'-@'#0#1#7'Command'#3'\'#2#8'ShortCut'#3'- '#0#1#7'Command'#3 + +#246#1#8'ShortCut'#2'.'#0#1#7'Command'#3'['#2#8'ShortCut'#3'. '#0#1#7'Comman' + +'d'#3#245#1#8'ShortCut'#2#8#0#1#7'Command'#3#245#1#8'ShortCut'#3#8' '#0#1#7 + +'Command'#3#248#1#8'ShortCut'#3#8'@'#0#1#7'Command'#3'Y'#2#8'ShortCut'#4#8 + +#128#0#0#0#1#7'Command'#3'Z'#2#8'ShortCut'#4#8#160#0#0#0#1#7'Command'#3#253#1 + +#8'ShortCut'#2#13#0#1#7'Command'#3#199#0#8'ShortCut'#3'A@'#0#1#7'Command'#3 + +#201#0#8'ShortCut'#3'C@'#0#1#7'Command'#3'b'#2#8'ShortCut'#3'I`'#0#1#7'Comma' + +'nd'#3#253#1#8'ShortCut'#3'M@'#0#1#7'Command'#3#254#1#8'ShortCut'#3'N@'#0#1#7 + +'Command'#3#247#1#8'ShortCut'#3'T@'#0#1#7'Command'#3'c'#2#8'ShortCut'#3'U`'#0 + +#1#7'Command'#3'\'#2#8'ShortCut'#3'V@'#0#1#7'Command'#3'['#2#8'ShortCut'#3'X' + +'@'#0#1#7'Command'#3#251#1#8'ShortCut'#3'Y@'#0#1#7'Command'#3#250#1#8'ShortC' + +'ut'#3'Y`'#0#1#7'Command'#3'Y'#2#8'ShortCut'#3'Z@'#0#1#7'Command'#3'Z'#2#8'S' + +'hortCut'#3'Z`'#0#1#7'Command'#3'-'#1#8'ShortCut'#3'0@'#0#1#7'Command'#3'.'#1 + +#8'ShortCut'#3'1@'#0#1#7'Command'#3'/'#1#8'ShortCut'#3'2@'#0#1#7'Command'#3 + +'0'#1#8'ShortCut'#3'3@'#0#1#7'Command'#3'1'#1#8'ShortCut'#3'4@'#0#1#7'Comman' + +'d'#3'2'#1#8'ShortCut'#3'5@'#0#1#7'Command'#3'3'#1#8'ShortCut'#3'6@'#0#1#7'C' + +'ommand'#3'4'#1#8'ShortCut'#3'7@'#0#1#7'Command'#3'5'#1#8'ShortCut'#3'8@'#0#1 + +#7'Command'#3'6'#1#8'ShortCut'#3'9@'#0#1#7'Command'#3'_'#1#8'ShortCut'#3'0`' + +#0#1#7'Command'#3'`'#1#8'ShortCut'#3'1`'#0#1#7'Command'#3'a'#1#8'ShortCut'#3 + +'2`'#0#1#7'Command'#3'b'#1#8'ShortCut'#3'3`'#0#1#7'Command'#3'c'#1#8'ShortCu' + +'t'#3'4`'#0#1#7'Command'#3'd'#1#8'ShortCut'#3'5`'#0#1#7'Command'#3'e'#1#8'Sh' + +'ortCut'#3'6`'#0#1#7'Command'#3'f'#1#8'ShortCut'#3'7`'#0#1#7'Command'#3'g'#1 + +#8'ShortCut'#3'8`'#0#1#7'Command'#3'h'#1#8'ShortCut'#3'9`'#0#1#7'Command'#3 + ,#231#0#8'ShortCut'#3'N`'#0#1#7'Command'#3#232#0#8'ShortCut'#3'C`'#0#1#7'Comm' + +'and'#3#233#0#8'ShortCut'#3'L`'#0#1#7'Command'#3'd'#2#8'ShortCut'#2#9#0#1#7 + +'Command'#3'e'#2#8'ShortCut'#3#9' '#0#1#7'Command'#3#250#0#8'ShortCut'#3'B`' + +#0#0#13'Lines.Strings'#1#6#19'SplitPreviewSynEdit'#0#22'SelectedColor.OnChan' + +'ge'#13#0#0#0#5'TPage'#18'SpaceNotCosmosPage'#7'Caption'#6#18'SpaceNotCosmos' + +'Page'#11'ClientWidth'#3'('#2#12'ClientHeight'#3't'#1#0#6'TLabel'#17'SpacePr' + +'eviewLabel'#22'AnchorSideLeft.Control'#7#18'SpaceNotCosmosPage'#21'AnchorSi' + +'deTop.Control'#7#28'DoInsertSpaceInFrontGroupBox'#18'AnchorSideTop.Side'#7#9 + +'asrBottom'#4'Left'#2#6#6'Height'#2#14#3'Top'#3#162#0#5'Width'#2']'#18'Borde' + +'rSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#6#7 + +'Caption'#6#17'SpacePreviewLabel'#11'ParentColor'#8#0#0#9'TGroupBox'#28'DoIn' + +'sertSpaceInFrontGroupBox'#22'AnchorSideLeft.Control'#7#18'SpaceNotCosmosPag' + +'e'#21'AnchorSideTop.Control'#7#18'SpaceNotCosmosPage'#4'Left'#2#6#6'Height' + +#3#150#0#3'Top'#2#6#5'Width'#3#10#1#20'BorderSpacing.Around'#2#6#7'Caption'#6 + +#28'DoInsertSpaceInFrontGroupBox'#8'TabOrder'#2#0#7'OnClick'#7#14'UpdateExam' + +'ples'#0#0#9'TGroupBox'#26'DoInsertSpaceAfterGroupBox'#22'AnchorSideLeft.Con' + +'trol'#7#28'DoInsertSpaceInFrontGroupBox'#19'AnchorSideLeft.Side'#7#9'asrBot' + +'tom'#21'AnchorSideTop.Control'#7#18'SpaceNotCosmosPage'#23'AnchorSideRight.' + +'Control'#7#18'SpaceNotCosmosPage'#20'AnchorSideRight.Side'#7#9'asrBottom'#4 + +'Left'#3#22#1#6'Height'#3#150#0#3'Top'#2#6#5'Width'#3#12#1#7'Anchors'#11#5'a' + +'kTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#26'D' + +'oInsertSpaceAfterGroupBox'#8'TabOrder'#2#1#7'OnClick'#7#14'UpdateExamples'#0 + +#0#8'TSynEdit'#19'SpacePreviewSynEdit'#22'AnchorSideLeft.Control'#7#18'Space' + +'NotCosmosPage'#21'AnchorSideTop.Control'#7#17'SpacePreviewLabel'#18'AnchorS' + +'ideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#18'SpaceNotCosmos' + +'Page'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7 + +#18'SpaceNotCosmosPage'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2#6 + +#6'Height'#3#190#0#3'Top'#3#176#0#5'Width'#3#28#2#18'BorderSpacing.Left'#2#6 + +#19'BorderSpacing.Right'#2#6#20'BorderSpacing.Bottom'#2#6#7'Anchors'#11#5'ak' + +'Top'#6'akLeft'#7'akRight'#8'akBottom'#0#11'Font.Height'#2#240#9'Font.Name'#6 + +#7'courier'#11'ParentColor'#8#8'TabOrder'#2#2#24'BookMarkOptions.OnChange'#13 + +#15'Gutter.OnChange'#13#23'Gutter.CodeFoldingWidth'#2#14#10'Keystrokes'#14#1 + +#7'Command'#2#3#8'ShortCut'#2'&'#0#1#7'Command'#2'g'#8'ShortCut'#3'& '#0#1#7 + +'Command'#3#211#0#8'ShortCut'#3'&@'#0#1#7'Command'#2#4#8'ShortCut'#2'('#0#1#7 + +'Command'#2'h'#8'ShortCut'#3'( '#0#1#7'Command'#3#212#0#8'ShortCut'#3'(@'#0#1 + +#7'Command'#2#1#8'ShortCut'#2'%'#0#1#7'Command'#2'e'#8'ShortCut'#3'% '#0#1#7 + +'Command'#2#5#8'ShortCut'#3'%@'#0#1#7'Command'#2'i'#8'ShortCut'#3'%`'#0#1#7 + +'Command'#2#2#8'ShortCut'#2''''#0#1#7'Command'#2'f'#8'ShortCut'#3''' '#0#1#7 + +'Command'#2#6#8'ShortCut'#3'''@'#0#1#7'Command'#2'j'#8'ShortCut'#3'''`'#0#1#7 + +'Command'#2#10#8'ShortCut'#2'"'#0#1#7'Command'#2'n'#8'ShortCut'#3'" '#0#1#7 + +'Command'#2#14#8'ShortCut'#3'"@'#0#1#7'Command'#2'r'#8'ShortCut'#3'"`'#0#1#7 + +'Command'#2#9#8'ShortCut'#2'!'#0#1#7'Command'#2'm'#8'ShortCut'#3'! '#0#1#7'C' + +'ommand'#2#13#8'ShortCut'#3'!@'#0#1#7'Command'#2'q'#8'ShortCut'#3'!`'#0#1#7 + +'Command'#2#7#8'ShortCut'#2'$'#0#1#7'Command'#2'k'#8'ShortCut'#3'$ '#0#1#7'C' + +'ommand'#2#15#8'ShortCut'#3'$@'#0#1#7'Command'#2's'#8'ShortCut'#3'$`'#0#1#7 + +'Command'#2#8#8'ShortCut'#2'#'#0#1#7'Command'#2'l'#8'ShortCut'#3'# '#0#1#7'C' + +'ommand'#2#16#8'ShortCut'#3'#@'#0#1#7'Command'#2't'#8'ShortCut'#3'#`'#0#1#7 + +'Command'#3#223#0#8'ShortCut'#2'-'#0#1#7'Command'#3#201#0#8'ShortCut'#3'-@'#0 + +#1#7'Command'#3'\'#2#8'ShortCut'#3'- '#0#1#7'Command'#3#246#1#8'ShortCut'#2 + +'.'#0#1#7'Command'#3'['#2#8'ShortCut'#3'. '#0#1#7'Command'#3#245#1#8'ShortCu' + +'t'#2#8#0#1#7'Command'#3#245#1#8'ShortCut'#3#8' '#0#1#7'Command'#3#248#1#8'S' + +'hortCut'#3#8'@'#0#1#7'Command'#3'Y'#2#8'ShortCut'#4#8#128#0#0#0#1#7'Command' + +#3'Z'#2#8'ShortCut'#4#8#160#0#0#0#1#7'Command'#3#253#1#8'ShortCut'#2#13#0#1#7 + +'Command'#3#199#0#8'ShortCut'#3'A@'#0#1#7'Command'#3#201#0#8'ShortCut'#3'C@' + +#0#1#7'Command'#3'b'#2#8'ShortCut'#3'I`'#0#1#7'Command'#3#253#1#8'ShortCut'#3 + +'M@'#0#1#7'Command'#3#254#1#8'ShortCut'#3'N@'#0#1#7'Command'#3#247#1#8'Short' + +'Cut'#3'T@'#0#1#7'Command'#3'c'#2#8'ShortCut'#3'U`'#0#1#7'Command'#3'\'#2#8 + +'ShortCut'#3'V@'#0#1#7'Command'#3'['#2#8'ShortCut'#3'X@'#0#1#7'Command'#3#251 + +#1#8'ShortCut'#3'Y@'#0#1#7'Command'#3#250#1#8'ShortCut'#3'Y`'#0#1#7'Command' + +#3'Y'#2#8'ShortCut'#3'Z@'#0#1#7'Command'#3'Z'#2#8'ShortCut'#3'Z`'#0#1#7'Comm' + +'and'#3'-'#1#8'ShortCut'#3'0@'#0#1#7'Command'#3'.'#1#8'ShortCut'#3'1@'#0#1#7 + +'Command'#3'/'#1#8'ShortCut'#3'2@'#0#1#7'Command'#3'0'#1#8'ShortCut'#3'3@'#0 + +#1#7'Command'#3'1'#1#8'ShortCut'#3'4@'#0#1#7'Command'#3'2'#1#8'ShortCut'#3'5' + +'@'#0#1#7'Command'#3'3'#1#8'ShortCut'#3'6@'#0#1#7'Command'#3'4'#1#8'ShortCut' + ,#3'7@'#0#1#7'Command'#3'5'#1#8'ShortCut'#3'8@'#0#1#7'Command'#3'6'#1#8'Short' + +'Cut'#3'9@'#0#1#7'Command'#3'_'#1#8'ShortCut'#3'0`'#0#1#7'Command'#3'`'#1#8 + +'ShortCut'#3'1`'#0#1#7'Command'#3'a'#1#8'ShortCut'#3'2`'#0#1#7'Command'#3'b' + +#1#8'ShortCut'#3'3`'#0#1#7'Command'#3'c'#1#8'ShortCut'#3'4`'#0#1#7'Command'#3 + +'d'#1#8'ShortCut'#3'5`'#0#1#7'Command'#3'e'#1#8'ShortCut'#3'6`'#0#1#7'Comman' + +'d'#3'f'#1#8'ShortCut'#3'7`'#0#1#7'Command'#3'g'#1#8'ShortCut'#3'8`'#0#1#7'C' + +'ommand'#3'h'#1#8'ShortCut'#3'9`'#0#1#7'Command'#3#231#0#8'ShortCut'#3'N`'#0 + +#1#7'Command'#3#232#0#8'ShortCut'#3'C`'#0#1#7'Command'#3#233#0#8'ShortCut'#3 + +'L`'#0#1#7'Command'#3'd'#2#8'ShortCut'#2#9#0#1#7'Command'#3'e'#2#8'ShortCut' + +#3#9' '#0#1#7'Command'#3#250#0#8'ShortCut'#3'B`'#0#0#13'Lines.Strings'#1#6#19 + +'SpacePreviewSynEdit'#0#22'SelectedColor.OnChange'#13#0#0#0#5'TPage'#24'Iden' + +'tifierCompletionPage'#7'Caption'#6#24'IdentifierCompletionPage'#11'ClientWi' + +'dth'#3'('#2#12'ClientHeight'#3't'#1#0#9'TCheckBox'#22'ICAddSemicolonCheckBo' + +'x'#22'AnchorSideLeft.Control'#7#24'IdentifierCompletionPage'#21'AnchorSideT' + +'op.Control'#7#24'IdentifierCompletionPage'#4'Left'#2#6#6'Height'#2#13#3'Top' + +#2#6#5'Width'#3#147#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#22'ICAddSemi' + +'colonCheckBox'#8'TabOrder'#2#0#0#0#0#0#7'TButton'#8'OKButton'#23'AnchorSide' + +'Right.Control'#7#12'CancelButton'#24'AnchorSideBottom.Control'#7#5'Owner'#21 + +'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3'l'#1#6'Height'#2#25#3'Top'#3 + +#148#1#5'Width'#2'\'#7'Anchors'#11#7'akRight'#8'akBottom'#0#20'BorderSpacing' + +'.Around'#2#6#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#8'OKButton'#11 + +'ModalResult'#2#1#8'TabOrder'#2#1#0#0#7'TButton'#12'CancelButton'#23'AnchorS' + +'ideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'Anc' + +'horSideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4 + +'Left'#3#206#1#6'Height'#2#25#3'Top'#3#148#1#5'Width'#2'\'#7'Anchors'#11#7'a' + +'kRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#25'BorderSpacing.InnerBo' + +'rder'#2#4#7'Caption'#6#12'CancelButton'#11'ModalResult'#2#2#8'TabOrder'#2#2 + +#0#0#0 +]); diff --git a/ide/codetoolsoptions.pas b/ide/codetoolsoptions.pas index 79da1fc80d..0bc981c220 100644 --- a/ide/codetoolsoptions.pas +++ b/ide/codetoolsoptions.pas @@ -169,7 +169,13 @@ type { TCodeToolsOptsDlg } TCodeToolsOptsDlg = class(TForm) - NoteBook: TNoteBook; + Notebook: TNotebook; + GeneralPage: TPage; + CodeCreationPage: TPage; + WordsPoliciesPage: TPage; + LineSplittingPage: TPage; + SpaceNotCosmosPage: TPage; + IdentifierCompletionPage: TPage; // General SrcPathGroupBox: TGroupBox; @@ -208,13 +214,13 @@ type LineLengthEdit: TEdit; DoNotSplitLineInFrontGroupBox: TGroupBox; DoNotSplitLineAfterGroupBox: TGroupBox; - SplitPreviewGroupBox: TGroupBox; + SplitPreviewLabel: TLabel; SplitPreviewSynEdit: TSynEdit; // Space DoInsertSpaceInFrontGroupBox: TGroupBox; DoInsertSpaceAfterGroupBox: TGroupBox; - SpacePreviewGroupBox: TGroupBox; + SpacePreviewLabel: TLabel; SpacePreviewSynEdit: TSynEdit; // identifier completion @@ -224,9 +230,8 @@ type OkButton: TButton; CancelButton: TButton; - procedure CodeToolsOptsDlgResize(Sender: TObject); - procedure OkButtonClick(Sender: TObject); - procedure CancelButtonClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormResize(Sender: TObject); procedure UpdateExamples(Sender: TObject); private FOnGetSynEditSettings: TNotifyEvent; @@ -237,9 +242,6 @@ type procedure SetupLineSplittingPage(PageID: integer); procedure SetupSpacePage(PageID: integer); procedure SetupIdentifierCompletionPage(PageID: integer); - procedure ResizeGeneralPage; - procedure ResizeCodeCreationPage; - procedure ResizeWordsPage; procedure ResizeLineSplittingPage; procedure ResizeSpacePage; procedure CreateAtomCheckBoxes(ParentGroupBox: TGroupBox; @@ -252,7 +254,6 @@ type procedure UpdateSplitLineExample; procedure UpdateSpaceExample; public - constructor Create(AnOwner:TComponent); override; destructor Destroy; override; property OnGetSynEditSettings: TNotifyEvent read FOnGetSynEditSettings write FOnGetSynEditSettings; @@ -809,74 +810,6 @@ end; { TCodeToolsOptsDlg } -constructor TCodeToolsOptsDlg.Create(AnOwner: TComponent); -begin - inherited Create(AnOwner); - if LazarusResources.Find(ClassName)=nil then begin - Width:=485; - Height:=435; - Position:=poScreenCenter; - IDEDialogLayoutList.ApplyLayout(Self,485,435); - Caption:=dlgCodeToolsOpts; - OnResize:=@CodeToolsOptsDlgResize; - BorderStyle := bsSizeToolWin; - - NoteBook:=TNoteBook.Create(Self); - with NoteBook do begin - Name:='NoteBook'; - Parent:=Self; - SetBounds(0,0, - Self.ClientWidth, - Self.ClientHeight-50); - if PageCount>0 then - Pages[0]:=lisMenuInsertGeneral - else - Pages.Add(lisMenuInsertGeneral);//by VVI - using first phrase, otherwise we''ll encounter a problem with .po - Pages.Add(dlgCodeCreation); - Pages.Add(dlgWordsPolicies); - Pages.Add(dlgLineSplitting); - Pages.Add(dlgSpaceNotCosmos); - Pages.Add(dlgIdentifierCompletion); - PageIndex:=0; - end; - - SetupGeneralPage(0); - SetupCodeCreationPage(1); - SetupWordsPage(2); - SetupLineSplittingPage(3); - SetupSpacePage(4); - SetupIdentifierCompletionPage(5); - - CancelButton:=TButton.Create(Self); - with CancelButton do begin - Name:='CancelButton'; - Parent:=Self; - Width:=70; - Height:=23; - Left:=Self.ClientWidth-Width-15; - Top:=Self.ClientHeight-Height-15; - Caption:=dlgCancel; - OnClick:=@CancelButtonClick; - end; - CancelControl:=CancelButton; - - OkButton:=TButton.Create(Self); - with OkButton do begin - Name:='OkButton'; - Parent:=Self; - Width:=CancelButton.Width; - Height:=CancelButton.Height; - Left:=CancelButton.Left-15-Width; - Top:=CancelButton.Top; - Caption:=lisCodeToolsOptsOk; - OnClick:=@OkButtonClick; - end; - end; - BeautifyCodeOptions:=TBeautifyCodeOptions.Create; - CodeToolsOptsDlgResize(nil); - UpdateExamples(Self); -end; - destructor TCodeToolsOptsDlg.Destroy; begin BeautifyCodeOptions.Free; @@ -885,67 +818,25 @@ end; procedure TCodeToolsOptsDlg.SetupGeneralPage(PageID: integer); begin - SrcPathGroupBox:=TGroupBox.Create(Self); - with SrcPathGroupBox do begin - Name:='SrcPathGroupBox'; - Parent:=NoteBook.Page[PageID]; - SetBounds(8,7,Self.ClientWidth-20,51); - Caption:=dlgAdditionalSrcPath ; - end; + with SrcPathGroupBox do + Caption:=dlgAdditionalSrcPath; - SrcPathEdit:=TEdit.Create(Self); - with SrcPathEdit do begin - Name:='SrcPathEdit'; - Parent:=SrcPathGroupBox; - SetBounds(5,6,Parent.ClientWidth-14,Height); - end; - - JumpingGroupBox:=TGroupBox.Create(Self); - with JumpingGroupBox do begin - Name:='JumpingGroupBox'; - Parent:=NoteBook.Page[PageID]; - SetBounds(8,SrcPathGroupBox.Top+SrcPathGroupBox.Height+7, - SrcPathGroupBox.Width,105); + with JumpingGroupBox do Caption:=dlgJumpingETC; - end; - AdjustTopLineDueToCommentCheckBox:=TCheckBox.Create(Self); - with AdjustTopLineDueToCommentCheckBox do begin - Name:='AdjustTopLineDueToCommentCheckBox'; - Parent:=JumpingGroupBox; - SetBounds(5,6,Parent.ClientWidth-10,Height); + with AdjustTopLineDueToCommentCheckBox do Caption:=dlgAdjustTopLine; - end; - JumpCenteredCheckBox:=TCheckBox.Create(Self); - with JumpCenteredCheckBox do begin - Name:='JumpCenteredCheckBox'; - Parent:=JumpingGroupBox; - SetBounds(AdjustTopLineDueToCommentCheckBox.Left, - AdjustTopLineDueToCommentCheckBox.Top+2 - +AdjustTopLineDueToCommentCheckBox.Height, - AdjustTopLineDueToCommentCheckBox.Width,Height); + with JumpCenteredCheckBox do Caption:=dlgcentercursorline; - end; - CursorBeyondEOLCheckBox:=TCheckBox.Create(Self); - with CursorBeyondEOLCheckBox do begin - Name:='CursorBeyondEOLCheckBox'; - Parent:=JumpingGroupBox; - SetBounds(JumpCenteredCheckBox.Left, - JumpCenteredCheckBox.Top+JumpCenteredCheckBox.Height+2, - JumpCenteredCheckBox.Width,Height); + with CursorBeyondEOLCheckBox do Caption:=dlgcursorbeyondeol; - end; end; procedure TCodeToolsOptsDlg.SetupCodeCreationPage(PageID: integer); begin - ClassPartInsertPolicyRadioGroup:=TRadioGroup.Create(Self); with ClassPartInsertPolicyRadioGroup do begin - Name:='ClassPartInsertPolicyRadioGroup'; - Parent:=NoteBook.Page[PageID]; - SetBounds(8,6,(Self.ClientWidth div 2)-12,70); Caption:=dlgClassInsertPolicy; with Items do begin BeginUpdate; @@ -955,43 +846,21 @@ begin end; end; - MixMethodsAndPropertiesCheckBox:=TCheckBox.Create(Self); - with MixMethodsAndPropertiesCheckBox do begin - Name:='MixMethodsAndPropertiesCheckBox'; - Parent:=NoteBook.Page[PageID]; - SetBounds(ClassPartInsertPolicyRadioGroup.Left, - ClassPartInsertPolicyRadioGroup.Top+ClassPartInsertPolicyRadioGroup.Height+5, - ClassPartInsertPolicyRadioGroup.Width,Height); + with MixMethodsAndPropertiesCheckBox do Caption:=dlgMixMethodsAndProperties; - end; - MethodInsertPolicyRadioGroup:=TRadioGroup.Create(Self); with MethodInsertPolicyRadioGroup do begin - Name:='MethodInsertPolicyRadioGroup'; - Parent:=NoteBook.Page[PageID]; - SetBounds(ClassPartInsertPolicyRadioGroup.Left, - MixMethodsAndPropertiesCheckBox.Top - +MixMethodsAndPropertiesCheckBox.Height+10, - ClassPartInsertPolicyRadioGroup.Width, - 100); Caption:=dlgMethodInsPolicy; with Items do begin BeginUpdate; Add(dlgAlphabetically); Add(dlgCDTLast); - Add(dlgCDTClassOrder ); + Add(dlgCDTClassOrder); EndUpdate; end; end; - ForwardProcsInsertPolicyRadioGroup:=TRadioGroup.Create(Self); with ForwardProcsInsertPolicyRadioGroup do begin - Name:='ForwardProcsInsertPolicyRadioGroup'; - Parent:=NoteBook.Page[PageID];; - SetBounds(ClassPartInsertPolicyRadioGroup.Left - +ClassPartInsertPolicyRadioGroup.Width+8, - ClassPartInsertPolicyRadioGroup.Top, - ClassPartInsertPolicyRadioGroup.Width,100); Caption:=dlgForwardProcsInsertPolicy; with Items do begin BeginUpdate; @@ -1002,144 +871,37 @@ begin end; end; - ForwardProcsKeepOrderCheckBox:=TCheckBox.Create(Self); - with ForwardProcsKeepOrderCheckBox do begin - Name:='ForwardProcsKeepOrderCheckBox'; - Parent:=NoteBook.Page[PageID];; - SetBounds(ForwardProcsInsertPolicyRadioGroup.Left, - ForwardProcsInsertPolicyRadioGroup.Top - +ForwardProcsInsertPolicyRadioGroup.Height+5, - ForwardProcsInsertPolicyRadioGroup.Width,Height); + with ForwardProcsKeepOrderCheckBox do Caption:=dlgForwardProcsKeepOrder; - end; - ClassHeaderCommentsCheckBox:=TCheckBox.Create(Self); - with ClassHeaderCommentsCheckBox do begin - Name:='ClassHeaderCommentsCheckBox'; - Parent:=NoteBook.Page[PageID];; - SetBounds(ForwardProcsKeepOrderCheckBox.Left, - ForwardProcsKeepOrderCheckBox.Top - +ForwardProcsKeepOrderCheckBox.Height+5, - ForwardProcsKeepOrderCheckBox.Width,Height); + with ClassHeaderCommentsCheckBox do Caption:=lisHeaderCommentForClass; - end; - PropertyCompletionGroupBox:=TGroupBox.Create(Self); - with PropertyCompletionGroupBox do begin - Name:='PropertyCompletionGroupBox'; - Parent:=NoteBook.Page[PageID]; - SetBounds(ClassPartInsertPolicyRadioGroup.Left, - MethodInsertPolicyRadioGroup.Top+MethodInsertPolicyRadioGroup.Height+7, - Self.ClientWidth-20,125); + with PropertyCompletionGroupBox do Caption:=dlgPropertyCompletion; - end; - PropertyCompletionCheckBox:=TCheckBox.Create(Self); - with PropertyCompletionCheckBox do begin - Name:='PropertyCompletionCheckBox'; - Parent:=PropertyCompletionGroupBox; - SetBounds(6,5,200,Height); - Caption:=dlgCompleteProperties ; - end; + with PropertyCompletionCheckBox do + Caption:=dlgCompleteProperties; - PropertyReadIdentPrefixLabel:=TLabel.Create(Self); - with PropertyReadIdentPrefixLabel do begin - Name:='PropertyReadIdentPrefixLabel'; - Parent:=PropertyCompletionGroupBox; - SetBounds(PropertyCompletionCheckBox.Left, - PropertyCompletionCheckBox.Top+PropertyCompletionCheckBox.Height+5, - 100,Height); - Caption:=dlgCDTReadPrefix ; - end; + with PropertyReadIdentPrefixLabel do + Caption:=dlgCDTReadPrefix; - PropertyReadIdentPrefixEdit:=TEdit.Create(Self); - with PropertyReadIdentPrefixEdit do begin - Name:='PropertyReadIdentPrefixEdit'; - Parent:=PropertyCompletionGroupBox; - SetBounds(130,PropertyReadIdentPrefixLabel.Top,80,Height); - end; + with PropertyWriteIdentPrefixLabel do + Caption:=dlgCDTWritePrefix; - PropertyWriteIdentPrefixLabel:=TLabel.Create(Self); - with PropertyWriteIdentPrefixLabel do begin - Name:='PropertyWriteIdentPrefixLabel'; - Parent:=PropertyCompletionGroupBox; - SetBounds(6,PropertyReadIdentPrefixLabel.Top - +PropertyReadIdentPrefixLabel.Height+5, - PropertyReadIdentPrefixLabel.Width,Height); - Caption:=dlgCDTWritePrefix ; - end; - - PropertyWriteIdentPrefixEdit:=TEdit.Create(Self); - with PropertyWriteIdentPrefixEdit do begin - Name:='PropertyWriteIdentPrefixEdit'; - Parent:=PropertyCompletionGroupBox; - SetBounds(PropertyReadIdentPrefixEdit.Left, - PropertyWriteIdentPrefixLabel.Top,80,Height); - end; - - PropertyStoredIdentPostfixLabel:=TLabel.Create(Self); - with PropertyStoredIdentPostfixLabel do begin - Name:='PropertyStoredIdentPostfixLabel'; - Parent:=PropertyCompletionGroupBox; - SetBounds(6,PropertyWriteIdentPrefixLabel.Top - +PropertyWriteIdentPrefixLabel.Height+5, - PropertyReadIdentPrefixLabel.Width,Height); + with PropertyStoredIdentPostfixLabel do Caption:=dlgCDTStoredPostfix; - end; - PropertyStoredIdentPostfixEdit:=TEdit.Create(Self); - with PropertyStoredIdentPostfixEdit do begin - Name:='PropertyStoredIdentPostfixEdit'; - Parent:=PropertyCompletionGroupBox; - SetBounds(PropertyReadIdentPrefixEdit.Left, - PropertyStoredIdentPostfixLabel.Top,80,Height); - end; + with PrivateVariablePrefixLabel do + Caption:=dlgCDTVariablePrefix; - PrivateVariablePrefixLabel:=TLabel.Create(Self); - with PrivateVariablePrefixLabel do begin - Name:='PrivateVariablePrefixLabel'; - Parent:=PropertyCompletionGroupBox; - SetBounds((PropertyCompletionGroupBox.ClientWidth-20) div 2, - PropertyReadIdentPrefixLabel.Top,120,Height); - Caption:=dlgCDTVariablePrefix ; - end; - - PrivateVariablePrefixEdit:=TEdit.Create(Self); - with PrivateVariablePrefixEdit do begin - Name:='PrivateVariablePrefixEdit'; - Parent:=PropertyCompletionGroupBox; - SetBounds(PrivateVariablePrefixLabel.Left+150,PrivateVariablePrefixLabel.Top, - 80,Height); - end; - - SetPropertyVariablenameLabel:=TLabel.Create(Self); - with SetPropertyVariablenameLabel do begin - Name:='SetPropertyVariablenameLabel'; - Parent:=PropertyCompletionGroupBox; - SetBounds(PrivateVariablePrefixLabel.Left, - PrivateVariablePrefixLabel.Top+PrivateVariablePrefixLabel.Height+5, - 120,Height); - Caption:=dlgSetPropertyVariable ; - end; - - SetPropertyVariablenameEdit:=TEdit.Create(Self); - with SetPropertyVariablenameEdit do begin - Name:='SetPropertyVariablenameEdit'; - Parent:=PropertyCompletionGroupBox; - SetBounds(PrivateVariablePrefixEdit.Left, - PrivateVariablePrefixLabel.Top+PrivateVariablePrefixLabel.Height+5, - 80,Height); - end; + with SetPropertyVariablenameLabel do + Caption:=dlgSetPropertyVariable; end; procedure TCodeToolsOptsDlg.SetupWordsPage(PageID: integer); begin - KeyWordPolicyRadioGroup:=TRadioGroup.Create(Self); with KeyWordPolicyRadioGroup do begin - Name:='KeyWordPolicyRadioGroup'; - Parent:=NoteBook.Page[PageID]; - SetBounds(8,6, - (Self.ClientWidth div 2)-12,120); Caption:=dlgKeywordPolicy ; with Items do begin BeginUpdate; @@ -1149,16 +911,9 @@ begin Add(dlg1UP2low); EndUpdate; end; - OnClick:=@UpdateExamples; end; - IdentifierPolicyRadioGroup:=TRadioGroup.Create(Self); with IdentifierPolicyRadioGroup do begin - Name:='IdentifierPolicyRadioGroup'; - Parent:=NoteBook.Page[PageID]; - SetBounds(KeyWordPolicyRadioGroup.Left+KeyWordPolicyRadioGroup.Width+8, - KeyWordPolicyRadioGroup.Top, - KeyWordPolicyRadioGroup.Width,KeyWordPolicyRadioGroup.Height); Caption:=dlgIdentifierPolicy; with Items do begin BeginUpdate; @@ -1168,379 +923,60 @@ begin Add(dlg1UP2low); EndUpdate; end; - OnClick:=@UpdateExamples; end; end; procedure TCodeToolsOptsDlg.SetupLineSplittingPage(PageID: integer); begin - LineLengthLabel:=TLabel.Create(Self); - with LineLengthLabel do begin - Name:='LineLengthLabel'; - Parent:=NoteBook.Page[PageID]; - SetBounds(8,7,Canvas.TextWidth(dlgMaxLineLength),Height); + with LineLengthLabel do Caption:=dlgMaxLineLength; - end; - LineLengthEdit:=TEdit.Create(Self); - with LineLengthEdit do begin - Name:='LineLengthEdit'; - Parent:=LineLengthLabel.Parent; - Left:=LineLengthLabel.Left+LineLengthLabel.Width+5; - Top:=LineLengthLabel.Top-2; - Width:=50; - OnChange:=@UpdateExamples; - end; - - DoNotSplitLineInFrontGroupBox:=TGroupBox.Create(Self); with DoNotSplitLineInFrontGroupBox do begin - Name:='DoNotSplitLineInFrontGroupBox'; - Parent:=NoteBook.Page[PageID]; - SetBounds(6,LineLengthLabel.Top+LineLengthLabel.Height+7, - (Self.ClientWidth-24) div 2,150); Caption:=dlgNotSplitLineFront ; CreateAtomCheckBoxes(DoNotSplitLineInFrontGroupBox,DoNotSplitAtoms,2); - OnClick:=@UpdateExamples; end; - DoNotSplitLineAfterGroupBox:=TGroupBox.Create(Self); with DoNotSplitLineAfterGroupBox do begin - Name:='DoNotSplitLineAfterGroupBox'; - Parent:=NoteBook.Page[PageID]; - SetBounds(DoNotSplitLineInFrontGroupBox.Left, - DoNotSplitLineInFrontGroupBox.Top+DoNotSplitLineInFrontGroupBox.Height+7, - DoNotSplitLineInFrontGroupBox.Width, - DoNotSplitLineInFrontGroupBox.Height); Caption:=dlgNotSplitLineAfter ; CreateAtomCheckBoxes(DoNotSplitLineAfterGroupBox,DoNotSplitAtoms,2); - OnClick:=@UpdateExamples; end; - SplitPreviewGroupBox:=TGroupBox.Create(Self); - with SplitPreviewGroupBox do begin - Name:='SplitPreviewGroupBox'; - Parent:=NoteBook.Page[PageID]; - Left:=DoNotSplitLineInFrontGroupBox.Left - +DoNotSplitLineInFrontGroupBox.Width+8; - Top:=LineLengthLabel.Top; - Width:=Self.ClientWidth-10-Left; - Height:=Self.ClientHeight-92-Top; + with SplitPreviewLabel do Caption:=dlgCDTPreview; - end; - - SplitPreviewSynEdit:=TSynEdit.Create(Self); - with SplitPreviewSynEdit do begin - Name:='SplitPreviewSynEdit'; - Parent:=SplitPreviewGroupBox; - Align:=alClient; - end; end; procedure TCodeToolsOptsDlg.SetupSpacePage(PageID: integer); begin - DoInsertSpaceInFrontGroupBox:=TGroupBox.Create(Self); with DoInsertSpaceInFrontGroupBox do begin - Name:='DoInsertSpaceInFrontGroupBox'; - Parent:=NoteBook.Page[PageID]; - SetBounds(6,6, - (Self.ClientWidth-24) div 2,150); Caption:=dlgInsSpaceFront; CreateAtomCheckBoxes(DoInsertSpaceInFrontGroupBox,DoInsertSpaceAtoms,2); - OnClick:=@UpdateExamples; end; - DoInsertSpaceAfterGroupBox:=TGroupBox.Create(Self); with DoInsertSpaceAfterGroupBox do begin - Name:='DoInsertSpaceAfterGroupBox'; - Parent:=NoteBook.Page[PageID]; - SetBounds(DoInsertSpaceInFrontGroupBox.Left - +DoInsertSpaceInFrontGroupBox.Width+8, - DoInsertSpaceInFrontGroupBox.Top, - DoInsertSpaceInFrontGroupBox.Width, - DoInsertSpaceInFrontGroupBox.Height); Caption:=dlgInsSpaceAfter; CreateAtomCheckBoxes(DoInsertSpaceAfterGroupBox,DoInsertSpaceAtoms,2); - OnClick:=@UpdateExamples; end; - SpacePreviewGroupBox:=TGroupBox.Create(Self); - with SpacePreviewGroupBox do begin - Name:='SpacePreviewGroupBox'; - Parent:=NoteBook.Page[PageID]; - Left:=DoInsertSpaceInFrontGroupBox.Left; - Top:=DoInsertSpaceInFrontGroupBox.Top+DoInsertSpaceInFrontGroupBox.Height+7; - Width:=Self.ClientWidth-10-Left; - Height:=Self.ClientHeight-92-Top; + with SpacePreviewLabel do Caption:=dlgWRDPreview; - end; - - SpacePreviewSynEdit:=TSynEdit.Create(Self); - with SpacePreviewSynEdit do begin - Name:='SpacePreviewSynEdit'; - Parent:=SpacePreviewGroupBox; - Align:=alClient; - end; end; procedure TCodeToolsOptsDlg.SetupIdentifierCompletionPage(PageID: integer); -var - CurPage: TPage; begin - CurPage:=NoteBook.Page[PageID]; - - ICAddSemicolonCheckBox:=TCheckBox.Create(Self); - with ICAddSemicolonCheckBox do begin - Name:='ICAddSemicolonCheckBox'; - SetBounds(6,6,Width,Height); - AutoSize:=true; + with ICAddSemicolonCheckBox do Caption:=dlgAddSemicolon; - Parent:=CurPage; - end; -end; - -procedure TCodeToolsOptsDlg.ResizeGeneralPage; -begin - with SrcPathGroupBox do begin - SetBounds(8,7,Self.ClientWidth-20,51); - end; - - with SrcPathEdit do begin - SetBounds(5,6,Parent.ClientWidth-14,Height); - end; - - with JumpingGroupBox do begin - SetBounds(8,SrcPathGroupBox.Top+SrcPathGroupBox.Height+7, - SrcPathGroupBox.Width,105); - end; - - with AdjustTopLineDueToCommentCheckBox do begin - SetBounds(5,6,Parent.ClientWidth-10,Height); - end; - - with JumpCenteredCheckBox do begin - SetBounds(AdjustTopLineDueToCommentCheckBox.Left, - AdjustTopLineDueToCommentCheckBox.Top+2 - +AdjustTopLineDueToCommentCheckBox.Height, - AdjustTopLineDueToCommentCheckBox.Width,Height); - end; - - with CursorBeyondEOLCheckBox do begin - SetBounds(JumpCenteredCheckBox.Left, - JumpCenteredCheckBox.Top+JumpCenteredCheckBox.Height+2, - JumpCenteredCheckBox.Width,Height); - end; -end; - -procedure TCodeToolsOptsDlg.ResizeCodeCreationPage; -begin - with ClassPartInsertPolicyRadioGroup do begin - SetBounds(8,6,(Self.ClientWidth div 2)-12,70); - end; - - with MixMethodsAndPropertiesCheckBox do begin - SetBounds(ClassPartInsertPolicyRadioGroup.Left, - ClassPartInsertPolicyRadioGroup.Top - +ClassPartInsertPolicyRadioGroup.Height+5, - ClassPartInsertPolicyRadioGroup.Width,Height); - end; - - with MethodInsertPolicyRadioGroup do begin - SetBounds(ClassPartInsertPolicyRadioGroup.Left, - MixMethodsAndPropertiesCheckBox.Top - +MixMethodsAndPropertiesCheckBox.Height+10, - ClassPartInsertPolicyRadioGroup.Width, - 100); - end; - - with ForwardProcsInsertPolicyRadioGroup do begin - SetBounds(ClassPartInsertPolicyRadioGroup.Left - +ClassPartInsertPolicyRadioGroup.Width+8, - ClassPartInsertPolicyRadioGroup.Top, - ClassPartInsertPolicyRadioGroup.Width,100); - end; - - with ForwardProcsKeepOrderCheckBox do begin - SetBounds(ForwardProcsInsertPolicyRadioGroup.Left, - ForwardProcsInsertPolicyRadioGroup.Top - +ForwardProcsInsertPolicyRadioGroup.Height+5, - ForwardProcsInsertPolicyRadioGroup.Width,Height); - end; - - with ClassHeaderCommentsCheckBox do begin - SetBounds(ForwardProcsKeepOrderCheckBox.Left, - ForwardProcsKeepOrderCheckBox.Top - +ForwardProcsKeepOrderCheckBox.Height+5, - ForwardProcsKeepOrderCheckBox.Width,Height); - end; - - with PropertyCompletionGroupBox do begin - SetBounds(ClassPartInsertPolicyRadioGroup.Left, - MethodInsertPolicyRadioGroup.Top+MethodInsertPolicyRadioGroup.Height+7, - Self.ClientWidth-20,125); - end; - - with PropertyCompletionCheckBox do begin - SetBounds(6,5,200,Height); - end; - - with PropertyReadIdentPrefixLabel do begin - SetBounds(PropertyCompletionCheckBox.Left, - PropertyCompletionCheckBox.Top+PropertyCompletionCheckBox.Height+5, - 100,Height); - end; - - with PropertyReadIdentPrefixEdit do begin - SetBounds(130,PropertyReadIdentPrefixLabel.Top,80,Height); - end; - - with PropertyWriteIdentPrefixLabel do begin - SetBounds(6,PropertyReadIdentPrefixLabel.Top - +PropertyReadIdentPrefixLabel.Height+5, - PropertyReadIdentPrefixLabel.Width,Height); - end; - - with PropertyWriteIdentPrefixEdit do begin - SetBounds(PropertyReadIdentPrefixEdit.Left, - PropertyWriteIdentPrefixLabel.Top,80,Height); - end; - - with PropertyStoredIdentPostfixLabel do begin - SetBounds(6,PropertyWriteIdentPrefixLabel.Top - +PropertyWriteIdentPrefixLabel.Height+5, - PropertyReadIdentPrefixLabel.Width,Height); - end; - - with PropertyStoredIdentPostfixEdit do begin - SetBounds(PropertyReadIdentPrefixEdit.Left, - PropertyStoredIdentPostfixLabel.Top,80,Height); - end; - - with PrivateVariablePrefixLabel do begin - SetBounds((PropertyCompletionGroupBox.ClientWidth-20) div 2, - PropertyReadIdentPrefixLabel.Top,120,Height); - end; - - with PrivateVariablePrefixEdit do begin - SetBounds(PrivateVariablePrefixLabel.Left+150,PrivateVariablePrefixLabel.Top, - 80,Height); - end; - - with SetPropertyVariablenameLabel do begin - SetBounds(PrivateVariablePrefixLabel.Left, - PrivateVariablePrefixLabel.Top+PrivateVariablePrefixLabel.Height+5, - 120,Height); - end; - - with SetPropertyVariablenameEdit do begin - SetBounds(PrivateVariablePrefixEdit.Left, - PrivateVariablePrefixLabel.Top+PrivateVariablePrefixLabel.Height+5, - 80,Height); - end; -end; - -procedure TCodeToolsOptsDlg.ResizeWordsPage; -begin - with KeyWordPolicyRadioGroup do begin - SetBounds(8,6,(Self.ClientWidth div 2)-12,120); - end; - - with IdentifierPolicyRadioGroup do begin - SetBounds(KeyWordPolicyRadioGroup.Left+KeyWordPolicyRadioGroup.Width+8, - KeyWordPolicyRadioGroup.Top, - KeyWordPolicyRadioGroup.Width,KeyWordPolicyRadioGroup.Height); - end; end; procedure TCodeToolsOptsDlg.ResizeLineSplittingPage; begin - with LineLengthLabel do begin - SetBounds(8,7,Canvas.TextWidth(dlgMaxLineLength),Height); - end; - - with LineLengthEdit do begin - Left:=LineLengthLabel.Left+LineLengthLabel.Width+5; - Top:=LineLengthLabel.Top-2; - Width:=50; - end; - - with DoNotSplitLineInFrontGroupBox do begin - SetBounds(6,LineLengthLabel.Top+LineLengthLabel.Height+7, - (Self.ClientWidth-24) div 2,150); - end; - - with DoNotSplitLineAfterGroupBox do begin - SetBounds(DoNotSplitLineInFrontGroupBox.Left, - DoNotSplitLineInFrontGroupBox.Top+DoNotSplitLineInFrontGroupBox.Height+7, - DoNotSplitLineInFrontGroupBox.Width, - DoNotSplitLineInFrontGroupBox.Height); - end; - - with SplitPreviewGroupBox do begin - Left:=DoNotSplitLineInFrontGroupBox.Left - +DoNotSplitLineInFrontGroupBox.Width+8; - Top:=LineLengthLabel.Top; - Width:=Self.ClientWidth-10-Left; - Height:=Self.ClientHeight-92-Top; - end; - - with SplitPreviewSynEdit do begin - SetBounds(2,2,Parent.ClientWidth-8,Parent.ClientHeight-25); - end; + with DoNotSplitLineInFrontGroupBox do + Width:=(Self.ClientWidth-24) div 2; end; procedure TCodeToolsOptsDlg.ResizeSpacePage; begin - with DoInsertSpaceInFrontGroupBox do begin - SetBounds(6,6, - (Self.ClientWidth-24) div 2,150); - end; - - with DoInsertSpaceAfterGroupBox do begin - SetBounds(DoInsertSpaceInFrontGroupBox.Left - +DoInsertSpaceInFrontGroupBox.Width+8, - DoInsertSpaceInFrontGroupBox.Top, - DoInsertSpaceInFrontGroupBox.Width, - DoInsertSpaceInFrontGroupBox.Height); - end; - - with SpacePreviewGroupBox do begin - Left:=DoInsertSpaceInFrontGroupBox.Left; - Top:=DoInsertSpaceInFrontGroupBox.Top+DoInsertSpaceInFrontGroupBox.Height+7; - Width:=Self.ClientWidth-10-Left; - Height:=Self.ClientHeight-92-Top; - end; - - with SpacePreviewSynEdit do begin - SetBounds(2,2,Parent.ClientWidth-8,Parent.ClientHeight-25); - end; -end; - -procedure TCodeToolsOptsDlg.CodeToolsOptsDlgResize(Sender: TObject); -begin - with NoteBook do begin - SetBounds(0,0,Self.ClientWidth, - Self.ClientHeight-50); - end; - - ResizeGeneralPage; - ResizeCodeCreationPage; - ResizeWordsPage; - ResizeLineSplittingPage; - ResizeSpacePage; - - with CancelButton do begin - Width:=70; - Height:=23; - Left:=Self.ClientWidth-Width-15; - Top:=Self.ClientHeight-Height-15; - end; - - with OkButton do begin - Width:=CancelButton.Width; - Height:=CancelButton.Height; - Left:=CancelButton.Left-15-Width; - Top:=CancelButton.Top; - end; + with DoInsertSpaceInFrontGroupBox do + Width:=(Self.ClientWidth-24) div 2; end; procedure TCodeToolsOptsDlg.CreateAtomCheckBoxes(ParentGroupBox: TGroupBox; @@ -1591,14 +1027,47 @@ begin end; end; -procedure TCodeToolsOptsDlg.CancelButtonClick(Sender: TObject); +procedure TCodeToolsOptsDlg.FormResize(Sender: TObject); begin - ModalResult:=mrCancel; + ResizeLineSplittingPage; + ResizeSpacePage; end; -procedure TCodeToolsOptsDlg.OkButtonClick(Sender: TObject); +procedure TCodeToolsOptsDlg.FormCreate(Sender: TObject); begin - ModalResult:=mrOk; +// inherited Create(Sender); +// if LazarusResources.Find(ClassName)=nil then begin + IDEDialogLayoutList.ApplyLayout(Self,485,435); + Caption:=dlgCodeToolsOpts; + + with NoteBook do begin + Pages[0]:=lisMenuInsertGeneral; + Pages[1]:=dlgCodeCreation; + Pages[2]:=dlgWordsPolicies; + Pages[3]:=dlgLineSplitting; + Pages[4]:=dlgSpaceNotCosmos; + Pages[5]:=dlgIdentifierCompletion; + PageIndex:=0; + end; + + SetupGeneralPage(0); + SetupCodeCreationPage(1); + SetupWordsPage(2); + SetupLineSplittingPage(3); + SetupSpacePage(4); + SetupIdentifierCompletionPage(5); + + with CancelButton do + Caption:=dlgCancel; + CancelControl:=CancelButton; + + with OkButton do begin + Caption:=lisCodeToolsOptsOk; + end; +// end; + BeautifyCodeOptions:=TBeautifyCodeOptions.Create; +// FormResize(nil); + UpdateExamples(Self); end; procedure TCodeToolsOptsDlg.ReadSettings(Options: TCodeToolsOptions); @@ -1883,5 +1352,8 @@ begin end; end; +initialization + {$I codetoolsoptions.lrs} + end.