mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-14 12:40:02 +02:00
using begin..end node before uses section node
git-svn-id: trunk@8703 -
This commit is contained in:
parent
e663f82636
commit
e4e574d060
@ -4273,12 +4273,12 @@ begin
|
|||||||
Indent:=GetLineIndent(Src,ANode.StartPos);
|
Indent:=GetLineIndent(Src,ANode.StartPos);
|
||||||
InsertPos:=ANode.StartPos+length('implementation');
|
InsertPos:=ANode.StartPos+length('implementation');
|
||||||
end else begin
|
end else begin
|
||||||
ANode:=FindMainUsesSection;
|
ANode:=FindMainBeginEndNode;
|
||||||
if ANode<>nil then begin
|
if ANode<>nil then begin
|
||||||
Indent:=GetLineIndent(Src,ANode.StartPos);
|
Indent:=GetLineIndent(Src,ANode.StartPos);
|
||||||
InsertPos:=ANode.StartPos;
|
InsertPos:=ANode.StartPos;
|
||||||
end else begin
|
end else begin
|
||||||
ANode:=FindMainBeginEndNode;
|
ANode:=FindMainUsesSection;
|
||||||
if ANode<>nil then begin
|
if ANode<>nil then begin
|
||||||
Indent:=GetLineIndent(Src,ANode.StartPos);
|
Indent:=GetLineIndent(Src,ANode.StartPos);
|
||||||
InsertPos:=ANode.StartPos;
|
InsertPos:=ANode.StartPos;
|
||||||
|
@ -1,44 +1,44 @@
|
|||||||
object ProjectOptionsDialog: TProjectOptionsDialog
|
object ProjectOptionsDialog: TProjectOptionsDialog
|
||||||
Left = 532
|
|
||||||
Height = 375
|
|
||||||
Top = 281
|
|
||||||
Width = 430
|
|
||||||
HorzScrollBar.Page = 429
|
|
||||||
VertScrollBar.Page = 374
|
|
||||||
ActiveControl = TitleEdit
|
ActiveControl = TitleEdit
|
||||||
Caption = 'ProjectOptionsDialog'
|
Caption = 'ProjectOptionsDialog'
|
||||||
ClientHeight = 375
|
ClientHeight = 375
|
||||||
ClientWidth = 430
|
ClientWidth = 430
|
||||||
OnClose = ProjectOptionsClose
|
OnClose = ProjectOptionsClose
|
||||||
OnResize = ProjectOptionsResize
|
OnResize = ProjectOptionsResize
|
||||||
PixelsPerInch = 95
|
PixelsPerInch = 112
|
||||||
Position = poScreenCenter
|
Position = poScreenCenter
|
||||||
|
HorzScrollBar.Page = 429
|
||||||
|
VertScrollBar.Page = 374
|
||||||
|
Left = 532
|
||||||
|
Height = 375
|
||||||
|
Top = 281
|
||||||
|
Width = 430
|
||||||
object Notebook: TNotebook
|
object Notebook: TNotebook
|
||||||
Height = 338
|
|
||||||
Width = 430
|
|
||||||
Align = alTop
|
Align = alTop
|
||||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||||
PageIndex = 4
|
PageIndex = 4
|
||||||
|
Height = 338
|
||||||
|
Width = 430
|
||||||
object ApplicationPage: TPage
|
object ApplicationPage: TPage
|
||||||
Caption = 'ApplicationPage'
|
Caption = 'ApplicationPage'
|
||||||
ClientWidth = 426
|
ClientWidth = 426
|
||||||
ClientHeight = 308
|
ClientHeight = 308
|
||||||
|
Left = 2
|
||||||
|
Height = 308
|
||||||
|
Top = 28
|
||||||
|
Width = 426
|
||||||
object AppSettingsGroupBox: TGroupBox
|
object AppSettingsGroupBox: TGroupBox
|
||||||
Left = 6
|
|
||||||
Height = 73
|
|
||||||
Top = 6
|
|
||||||
Width = 414
|
|
||||||
Align = alTop
|
Align = alTop
|
||||||
BorderSpacing.Around = 6
|
BorderSpacing.Around = 6
|
||||||
Caption = 'AppSettingsGroupBox'
|
Caption = 'AppSettingsGroupBox'
|
||||||
ClientHeight = 56
|
ClientHeight = 56
|
||||||
ClientWidth = 410
|
ClientWidth = 410
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
|
Left = 6
|
||||||
|
Height = 73
|
||||||
|
Top = 6
|
||||||
|
Width = 414
|
||||||
object TitleLabel: TLabel
|
object TitleLabel: TLabel
|
||||||
Left = 6
|
|
||||||
Height = 13
|
|
||||||
Top = 6
|
|
||||||
Width = 398
|
|
||||||
Align = alTop
|
Align = alTop
|
||||||
BorderSpacing.Left = 6
|
BorderSpacing.Left = 6
|
||||||
BorderSpacing.Top = 6
|
BorderSpacing.Top = 6
|
||||||
@ -46,35 +46,35 @@ object ProjectOptionsDialog: TProjectOptionsDialog
|
|||||||
Caption = 'TitleLabel'
|
Caption = 'TitleLabel'
|
||||||
Color = clNone
|
Color = clNone
|
||||||
ParentColor = False
|
ParentColor = False
|
||||||
|
Left = 6
|
||||||
|
Height = 13
|
||||||
|
Top = 6
|
||||||
|
Width = 398
|
||||||
end
|
end
|
||||||
object TitleEdit: TEdit
|
object TitleEdit: TEdit
|
||||||
Left = 6
|
|
||||||
Height = 23
|
|
||||||
Top = 19
|
|
||||||
Width = 398
|
|
||||||
Align = alTop
|
Align = alTop
|
||||||
BorderSpacing.Left = 6
|
BorderSpacing.Left = 6
|
||||||
BorderSpacing.Right = 6
|
BorderSpacing.Right = 6
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
Text = 'TitleEdit'
|
Text = 'TitleEdit'
|
||||||
|
Left = 6
|
||||||
|
Height = 23
|
||||||
|
Top = 19
|
||||||
|
Width = 398
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object OutputSettingsGroupBox: TGroupBox
|
object OutputSettingsGroupBox: TGroupBox
|
||||||
Left = 6
|
|
||||||
Height = 73
|
|
||||||
Top = 85
|
|
||||||
Width = 414
|
|
||||||
Align = alTop
|
Align = alTop
|
||||||
BorderSpacing.Around = 6
|
BorderSpacing.Around = 6
|
||||||
Caption = 'OutputSettingsGroupBox'
|
Caption = 'OutputSettingsGroupBox'
|
||||||
ClientHeight = 56
|
ClientHeight = 56
|
||||||
ClientWidth = 410
|
ClientWidth = 410
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
|
Left = 6
|
||||||
|
Height = 73
|
||||||
|
Top = 85
|
||||||
|
Width = 414
|
||||||
object TargetFileLabel: TLabel
|
object TargetFileLabel: TLabel
|
||||||
Left = 6
|
|
||||||
Height = 13
|
|
||||||
Top = 6
|
|
||||||
Width = 398
|
|
||||||
Align = alTop
|
Align = alTop
|
||||||
BorderSpacing.Left = 6
|
BorderSpacing.Left = 6
|
||||||
BorderSpacing.Top = 6
|
BorderSpacing.Top = 6
|
||||||
@ -82,17 +82,21 @@ object ProjectOptionsDialog: TProjectOptionsDialog
|
|||||||
Caption = 'TargetFileLabel'
|
Caption = 'TargetFileLabel'
|
||||||
Color = clNone
|
Color = clNone
|
||||||
ParentColor = False
|
ParentColor = False
|
||||||
|
Left = 6
|
||||||
|
Height = 13
|
||||||
|
Top = 6
|
||||||
|
Width = 398
|
||||||
end
|
end
|
||||||
object TargetFileEdit: TEdit
|
object TargetFileEdit: TEdit
|
||||||
Left = 6
|
|
||||||
Height = 23
|
|
||||||
Top = 19
|
|
||||||
Width = 398
|
|
||||||
Align = alTop
|
Align = alTop
|
||||||
BorderSpacing.Left = 6
|
BorderSpacing.Left = 6
|
||||||
BorderSpacing.Right = 6
|
BorderSpacing.Right = 6
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
Text = 'TargetFileEdit'
|
Text = 'TargetFileEdit'
|
||||||
|
Left = 6
|
||||||
|
Height = 23
|
||||||
|
Top = 19
|
||||||
|
Width = 398
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
@ -100,244 +104,256 @@ object ProjectOptionsDialog: TProjectOptionsDialog
|
|||||||
Caption = 'FormsPage'
|
Caption = 'FormsPage'
|
||||||
ClientWidth = 426
|
ClientWidth = 426
|
||||||
ClientHeight = 308
|
ClientHeight = 308
|
||||||
|
Left = 2
|
||||||
|
Height = 308
|
||||||
|
Top = 28
|
||||||
|
Width = 426
|
||||||
object FormsAutoCreatedLabel: TLabel
|
object FormsAutoCreatedLabel: TLabel
|
||||||
|
Caption = 'FormsAutoCreatedLabel'
|
||||||
|
Color = clNone
|
||||||
|
ParentColor = False
|
||||||
Left = 36
|
Left = 36
|
||||||
Height = 13
|
Height = 13
|
||||||
Top = 10
|
Top = 10
|
||||||
Width = 136
|
Width = 136
|
||||||
Caption = 'FormsAutoCreatedLabel'
|
|
||||||
Color = clNone
|
|
||||||
ParentColor = False
|
|
||||||
end
|
end
|
||||||
object FormsAvailFormsLabel: TLabel
|
object FormsAvailFormsLabel: TLabel
|
||||||
|
Caption = 'FormsAvailFormsLabel'
|
||||||
|
Color = clNone
|
||||||
|
ParentColor = False
|
||||||
Left = 252
|
Left = 252
|
||||||
Height = 13
|
Height = 13
|
||||||
Top = 10
|
Top = 10
|
||||||
Width = 129
|
Width = 129
|
||||||
Caption = 'FormsAvailFormsLabel'
|
|
||||||
Color = clNone
|
|
||||||
ParentColor = False
|
|
||||||
end
|
end
|
||||||
object FormsAutoCreatedListBox: TListBox
|
object FormsAutoCreatedListBox: TListBox
|
||||||
|
MultiSelect = True
|
||||||
|
TabOrder = 0
|
||||||
|
TopIndex = -1
|
||||||
Left = 36
|
Left = 36
|
||||||
Height = 242
|
Height = 242
|
||||||
Top = 32
|
Top = 32
|
||||||
Width = 168
|
Width = 168
|
||||||
MultiSelect = True
|
|
||||||
TabOrder = 0
|
|
||||||
TopIndex = -1
|
|
||||||
end
|
end
|
||||||
object FormsAvailFormsListBox: TListBox
|
object FormsAvailFormsListBox: TListBox
|
||||||
|
MultiSelect = True
|
||||||
|
TabOrder = 1
|
||||||
|
TopIndex = -1
|
||||||
Left = 244
|
Left = 244
|
||||||
Height = 242
|
Height = 242
|
||||||
Top = 32
|
Top = 32
|
||||||
Width = 168
|
Width = 168
|
||||||
MultiSelect = True
|
|
||||||
TabOrder = 1
|
|
||||||
TopIndex = -1
|
|
||||||
end
|
end
|
||||||
object FormsMoveAutoCreatedFormUpBtn: TArrow
|
object FormsMoveAutoCreatedFormUpBtn: TArrow
|
||||||
Left = 6
|
|
||||||
Height = 24
|
|
||||||
Top = 32
|
|
||||||
Width = 24
|
|
||||||
ArrowType = atUp
|
ArrowType = atUp
|
||||||
OnClick = FormsMoveAutoCreatedFormUpBtnClick
|
OnClick = FormsMoveAutoCreatedFormUpBtnClick
|
||||||
|
Left = 6
|
||||||
|
Height = 24
|
||||||
|
Top = 32
|
||||||
|
Width = 24
|
||||||
end
|
end
|
||||||
object FormsMoveAutoCreatedFormsDownBtn: TArrow
|
object FormsMoveAutoCreatedFormsDownBtn: TArrow
|
||||||
|
ArrowType = atDown
|
||||||
|
OnClick = FormsMoveAutoCreatedFormDownBtnClick
|
||||||
Left = 6
|
Left = 6
|
||||||
Height = 24
|
Height = 24
|
||||||
Top = 60
|
Top = 60
|
||||||
Width = 24
|
Width = 24
|
||||||
ArrowType = atDown
|
|
||||||
OnClick = FormsMoveAutoCreatedFormDownBtnClick
|
|
||||||
end
|
end
|
||||||
object FormsRemoveFromAutoCreatedFormsBtn: TArrow
|
object FormsRemoveFromAutoCreatedFormsBtn: TArrow
|
||||||
|
ArrowType = atRight
|
||||||
|
OnClick = FormsRemoveFromAutoCreatedFormsBtnClick
|
||||||
Left = 212
|
Left = 212
|
||||||
Height = 24
|
Height = 24
|
||||||
Top = 32
|
Top = 32
|
||||||
Width = 24
|
Width = 24
|
||||||
ArrowType = atRight
|
|
||||||
OnClick = FormsRemoveFromAutoCreatedFormsBtnClick
|
|
||||||
end
|
end
|
||||||
object FormsAddToAutoCreatedFormsBtn: TArrow
|
object FormsAddToAutoCreatedFormsBtn: TArrow
|
||||||
|
OnClick = FormsAddToAutoCreatedFormsBtnClick
|
||||||
Left = 212
|
Left = 212
|
||||||
Height = 24
|
Height = 24
|
||||||
Top = 60
|
Top = 60
|
||||||
Width = 24
|
Width = 24
|
||||||
OnClick = FormsAddToAutoCreatedFormsBtnClick
|
|
||||||
end
|
end
|
||||||
object FormsAutoCreateNewFormsCheckBox: TCheckBox
|
object FormsAutoCreateNewFormsCheckBox: TCheckBox
|
||||||
Left = 6
|
|
||||||
Height = 24
|
|
||||||
Top = 278
|
|
||||||
Width = 414
|
|
||||||
Align = alBottom
|
Align = alBottom
|
||||||
BorderSpacing.Around = 6
|
BorderSpacing.Around = 6
|
||||||
Caption = 'FormsAutoCreateNewFormsCheckBox'
|
Caption = 'FormsAutoCreateNewFormsCheckBox'
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
|
Left = 6
|
||||||
|
Height = 24
|
||||||
|
Top = 278
|
||||||
|
Width = 414
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object MiscPage: TPage
|
object MiscPage: TPage
|
||||||
Caption = 'MiscPage'
|
Caption = 'MiscPage'
|
||||||
ClientWidth = 426
|
ClientWidth = 426
|
||||||
ClientHeight = 308
|
ClientHeight = 308
|
||||||
|
Left = 2
|
||||||
|
Height = 308
|
||||||
|
Top = 28
|
||||||
|
Width = 426
|
||||||
object MainUnitHasUsesSectionForAllUnitsCheckBox: TCheckBox
|
object MainUnitHasUsesSectionForAllUnitsCheckBox: TCheckBox
|
||||||
AnchorSideTop.Control = MainUnitIsPascalSourceCheckBox
|
|
||||||
AnchorSideTop.Side = asrBottom
|
|
||||||
Left = 6
|
|
||||||
Height = 24
|
|
||||||
Top = 36
|
|
||||||
Width = 414
|
|
||||||
Align = alTop
|
Align = alTop
|
||||||
BorderSpacing.Left = 6
|
BorderSpacing.Left = 6
|
||||||
BorderSpacing.Top = 2
|
BorderSpacing.Top = 2
|
||||||
BorderSpacing.Right = 6
|
BorderSpacing.Right = 6
|
||||||
Caption = 'MainUnitHasUsesSectionForAllUnitsCheckBox'
|
Caption = 'MainUnitHasUsesSectionForAllUnitsCheckBox'
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
end
|
AnchorSideTop.Control = MainUnitIsPascalSourceCheckBox
|
||||||
object MainUnitHasCreateFormStatementsCheckBox: TCheckBox
|
|
||||||
AnchorSideTop.Control = MainUnitHasUsesSectionForAllUnitsCheckBox
|
|
||||||
AnchorSideTop.Side = asrBottom
|
AnchorSideTop.Side = asrBottom
|
||||||
Left = 6
|
Left = 6
|
||||||
Height = 24
|
Height = 24
|
||||||
Top = 62
|
Top = 36
|
||||||
Width = 414
|
Width = 414
|
||||||
|
end
|
||||||
|
object MainUnitHasCreateFormStatementsCheckBox: TCheckBox
|
||||||
Align = alTop
|
Align = alTop
|
||||||
BorderSpacing.Left = 6
|
BorderSpacing.Left = 6
|
||||||
BorderSpacing.Top = 2
|
BorderSpacing.Top = 2
|
||||||
BorderSpacing.Right = 6
|
BorderSpacing.Right = 6
|
||||||
Caption = 'MainUnitHasCreateFormStatementsCheckBox'
|
Caption = 'MainUnitHasCreateFormStatementsCheckBox'
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
end
|
AnchorSideTop.Control = MainUnitHasUsesSectionForAllUnitsCheckBox
|
||||||
object MainUnitIsPascalSourceCheckBox: TCheckBox
|
AnchorSideTop.Side = asrBottom
|
||||||
Left = 6
|
Left = 6
|
||||||
Height = 24
|
Height = 24
|
||||||
Top = 10
|
Top = 62
|
||||||
Width = 414
|
Width = 414
|
||||||
|
end
|
||||||
|
object MainUnitIsPascalSourceCheckBox: TCheckBox
|
||||||
Align = alTop
|
Align = alTop
|
||||||
BorderSpacing.Left = 6
|
BorderSpacing.Left = 6
|
||||||
BorderSpacing.Top = 10
|
BorderSpacing.Top = 10
|
||||||
BorderSpacing.Right = 6
|
BorderSpacing.Right = 6
|
||||||
Caption = 'MainUnitIsPascalSourceCheckBox'
|
Caption = 'MainUnitIsPascalSourceCheckBox'
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
end
|
|
||||||
object MainUnitHasTitleStatementCheckBox: TCheckBox
|
|
||||||
AnchorSideTop.Control = MainUnitHasCreateFormStatementsCheckBox
|
|
||||||
AnchorSideTop.Side = asrBottom
|
|
||||||
Left = 6
|
Left = 6
|
||||||
Height = 24
|
Height = 24
|
||||||
Top = 88
|
Top = 10
|
||||||
Width = 414
|
Width = 414
|
||||||
|
end
|
||||||
|
object MainUnitHasTitleStatementCheckBox: TCheckBox
|
||||||
Align = alTop
|
Align = alTop
|
||||||
BorderSpacing.Left = 6
|
BorderSpacing.Left = 6
|
||||||
BorderSpacing.Top = 2
|
BorderSpacing.Top = 2
|
||||||
BorderSpacing.Right = 6
|
BorderSpacing.Right = 6
|
||||||
Caption = 'MainUnitHasTitleStatementCheckBox'
|
Caption = 'MainUnitHasTitleStatementCheckBox'
|
||||||
TabOrder = 5
|
TabOrder = 5
|
||||||
end
|
AnchorSideTop.Control = MainUnitHasCreateFormStatementsCheckBox
|
||||||
object RunnableCheckBox: TCheckBox
|
|
||||||
AnchorSideTop.Control = MainUnitHasTitleStatementCheckBox
|
|
||||||
AnchorSideTop.Side = asrBottom
|
AnchorSideTop.Side = asrBottom
|
||||||
Left = 6
|
Left = 6
|
||||||
Height = 24
|
Height = 24
|
||||||
Top = 122
|
Top = 88
|
||||||
Width = 414
|
Width = 414
|
||||||
|
end
|
||||||
|
object RunnableCheckBox: TCheckBox
|
||||||
Align = alTop
|
Align = alTop
|
||||||
BorderSpacing.Left = 6
|
BorderSpacing.Left = 6
|
||||||
BorderSpacing.Top = 10
|
BorderSpacing.Top = 10
|
||||||
BorderSpacing.Right = 6
|
BorderSpacing.Right = 6
|
||||||
Caption = 'RunnableCheckBox'
|
Caption = 'RunnableCheckBox'
|
||||||
TabOrder = 3
|
TabOrder = 3
|
||||||
end
|
AnchorSideTop.Control = MainUnitHasTitleStatementCheckBox
|
||||||
object AlwaysBuildCheckBox: TCheckBox
|
|
||||||
AnchorSideTop.Control = RunnableCheckBox
|
|
||||||
AnchorSideTop.Side = asrBottom
|
AnchorSideTop.Side = asrBottom
|
||||||
Left = 6
|
Left = 6
|
||||||
Height = 24
|
Height = 24
|
||||||
Top = 148
|
Top = 122
|
||||||
Width = 414
|
Width = 414
|
||||||
|
end
|
||||||
|
object AlwaysBuildCheckBox: TCheckBox
|
||||||
Anchors = [akTop, akLeft, akRight]
|
Anchors = [akTop, akLeft, akRight]
|
||||||
BorderSpacing.Left = 6
|
BorderSpacing.Left = 6
|
||||||
BorderSpacing.Top = 2
|
BorderSpacing.Top = 2
|
||||||
BorderSpacing.Right = 6
|
BorderSpacing.Right = 6
|
||||||
Caption = 'AlwaysBuildCheckBox'
|
Caption = 'AlwaysBuildCheckBox'
|
||||||
TabOrder = 4
|
TabOrder = 4
|
||||||
|
AnchorSideTop.Control = RunnableCheckBox
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 6
|
||||||
|
Height = 24
|
||||||
|
Top = 148
|
||||||
|
Width = 414
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object LazDocPage: TPage
|
object LazDocPage: TPage
|
||||||
Caption = 'LazDocPage'
|
Caption = 'LazDocPage'
|
||||||
ClientWidth = 426
|
ClientWidth = 426
|
||||||
ClientHeight = 308
|
ClientHeight = 308
|
||||||
|
Left = 2
|
||||||
|
Height = 308
|
||||||
|
Top = 28
|
||||||
|
Width = 426
|
||||||
object Label2: TLabel
|
object Label2: TLabel
|
||||||
Height = 13
|
|
||||||
Top = 222
|
|
||||||
Width = 426
|
|
||||||
Align = alTop
|
Align = alTop
|
||||||
Caption = 'NOTE: only absolute paths are supported now'
|
Caption = 'NOTE: only absolute paths are supported now'
|
||||||
Color = clNone
|
Color = clNone
|
||||||
ParentColor = False
|
ParentColor = False
|
||||||
|
Height = 13
|
||||||
|
Top = 222
|
||||||
|
Width = 426
|
||||||
end
|
end
|
||||||
object LazDocPathsGroupBox: TGroupBox
|
object LazDocPathsGroupBox: TGroupBox
|
||||||
Left = 6
|
|
||||||
Height = 210
|
|
||||||
Top = 6
|
|
||||||
Width = 414
|
|
||||||
Align = alTop
|
Align = alTop
|
||||||
BorderSpacing.Around = 6
|
BorderSpacing.Around = 6
|
||||||
Caption = 'LazDocPathsGroupBox'
|
Caption = 'LazDocPathsGroupBox'
|
||||||
ClientHeight = 210
|
ClientHeight = 210
|
||||||
ClientWidth = 414
|
ClientWidth = 414
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
|
Left = 6
|
||||||
|
Height = 210
|
||||||
|
Top = 6
|
||||||
|
Width = 414
|
||||||
object LazDocListBox: TListBox
|
object LazDocListBox: TListBox
|
||||||
Left = 6
|
|
||||||
Height = 108
|
|
||||||
Top = 6
|
|
||||||
Width = 402
|
|
||||||
Align = alTop
|
Align = alTop
|
||||||
BorderSpacing.Around = 6
|
BorderSpacing.Around = 6
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
TopIndex = -1
|
TopIndex = -1
|
||||||
|
Left = 6
|
||||||
|
Height = 108
|
||||||
|
Top = 6
|
||||||
|
Width = 402
|
||||||
end
|
end
|
||||||
object LazDocAddPathButton: TButton
|
object LazDocAddPathButton: TButton
|
||||||
Left = 6
|
|
||||||
Height = 25
|
|
||||||
Top = 122
|
|
||||||
Width = 75
|
|
||||||
BorderSpacing.InnerBorder = 2
|
BorderSpacing.InnerBorder = 2
|
||||||
Caption = 'LazDocAddPathButton'
|
Caption = 'LazDocAddPathButton'
|
||||||
OnClick = LazDocAddPathButtonClick
|
OnClick = LazDocAddPathButtonClick
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
end
|
Left = 6
|
||||||
object LazDocDeletePathButton: TButton
|
|
||||||
Left = 90
|
|
||||||
Height = 25
|
Height = 25
|
||||||
Top = 122
|
Top = 122
|
||||||
Width = 75
|
Width = 75
|
||||||
|
end
|
||||||
|
object LazDocDeletePathButton: TButton
|
||||||
BorderSpacing.InnerBorder = 2
|
BorderSpacing.InnerBorder = 2
|
||||||
Caption = 'LazDocDeletePathButton'
|
Caption = 'LazDocDeletePathButton'
|
||||||
OnClick = LazDocDeletePathButtonClick
|
OnClick = LazDocDeletePathButtonClick
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
|
Left = 90
|
||||||
|
Height = 25
|
||||||
|
Top = 122
|
||||||
|
Width = 75
|
||||||
end
|
end
|
||||||
object LazDocPathEdit: TEdit
|
object LazDocPathEdit: TEdit
|
||||||
|
Anchors = [akTop, akLeft, akRight]
|
||||||
|
TabOrder = 3
|
||||||
|
Text = 'LazDocPathEdit'
|
||||||
Left = 6
|
Left = 6
|
||||||
Height = 23
|
Height = 23
|
||||||
Top = 154
|
Top = 154
|
||||||
Width = 358
|
Width = 358
|
||||||
Anchors = [akTop, akLeft, akRight]
|
|
||||||
TabOrder = 3
|
|
||||||
Text = 'LazDocPathEdit'
|
|
||||||
end
|
end
|
||||||
object LazDocBrowseButton: TButton
|
object LazDocBrowseButton: TButton
|
||||||
Left = 369
|
|
||||||
Height = 23
|
|
||||||
Top = 154
|
|
||||||
Width = 23
|
|
||||||
Anchors = [akTop, akRight]
|
Anchors = [akTop, akRight]
|
||||||
BorderSpacing.InnerBorder = 2
|
BorderSpacing.InnerBorder = 2
|
||||||
Caption = '...'
|
Caption = '...'
|
||||||
OnClick = LazDocBrowseButtonClick
|
OnClick = LazDocBrowseButtonClick
|
||||||
TabOrder = 4
|
TabOrder = 4
|
||||||
|
Left = 369
|
||||||
|
Height = 23
|
||||||
|
Top = 154
|
||||||
|
Width = 23
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
@ -345,39 +361,37 @@ object ProjectOptionsDialog: TProjectOptionsDialog
|
|||||||
Caption = 'SavePage'
|
Caption = 'SavePage'
|
||||||
ClientWidth = 426
|
ClientWidth = 426
|
||||||
ClientHeight = 308
|
ClientHeight = 308
|
||||||
|
Left = 2
|
||||||
|
Height = 308
|
||||||
|
Top = 28
|
||||||
|
Width = 426
|
||||||
object SaveClosedUnitInfoCheckBox: TCheckBox
|
object SaveClosedUnitInfoCheckBox: TCheckBox
|
||||||
Left = 6
|
|
||||||
Height = 24
|
|
||||||
Top = 6
|
|
||||||
Width = 414
|
|
||||||
Align = alTop
|
Align = alTop
|
||||||
BorderSpacing.Left = 6
|
BorderSpacing.Left = 6
|
||||||
BorderSpacing.Top = 6
|
BorderSpacing.Top = 6
|
||||||
BorderSpacing.Right = 6
|
BorderSpacing.Right = 6
|
||||||
Caption = 'SaveClosedUnitInfoCheckBox'
|
Caption = 'SaveClosedUnitInfoCheckBox'
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
end
|
|
||||||
object SaveOnlyProjectUnitInfoCheckBox: TCheckBox
|
|
||||||
AnchorSideTop.Control = SaveClosedUnitInfoCheckBox
|
|
||||||
AnchorSideTop.Side = asrBottom
|
|
||||||
Left = 6
|
Left = 6
|
||||||
Height = 24
|
Height = 24
|
||||||
Top = 32
|
Top = 6
|
||||||
Width = 414
|
Width = 414
|
||||||
|
end
|
||||||
|
object SaveOnlyProjectUnitInfoCheckBox: TCheckBox
|
||||||
Align = alTop
|
Align = alTop
|
||||||
BorderSpacing.Left = 6
|
BorderSpacing.Left = 6
|
||||||
BorderSpacing.Top = 2
|
BorderSpacing.Top = 2
|
||||||
BorderSpacing.Right = 6
|
BorderSpacing.Right = 6
|
||||||
Caption = 'SaveOnlyProjectUnitInfoCheckBox'
|
Caption = 'SaveOnlyProjectUnitInfoCheckBox'
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
|
AnchorSideTop.Control = SaveClosedUnitInfoCheckBox
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 6
|
||||||
|
Height = 24
|
||||||
|
Top = 32
|
||||||
|
Width = 414
|
||||||
end
|
end
|
||||||
object SaveSessionLocationRadioGroup: TRadioGroup
|
object SaveSessionLocationRadioGroup: TRadioGroup
|
||||||
AnchorSideTop.Control = SaveOnlyProjectUnitInfoCheckBox
|
|
||||||
AnchorSideTop.Side = asrBottom
|
|
||||||
Left = 7
|
|
||||||
Height = 117
|
|
||||||
Top = 67
|
|
||||||
Width = 413
|
|
||||||
AutoFill = True
|
AutoFill = True
|
||||||
BorderSpacing.Top = 5
|
BorderSpacing.Top = 5
|
||||||
BorderSpacing.Around = 6
|
BorderSpacing.Around = 6
|
||||||
@ -391,36 +405,43 @@ object ProjectOptionsDialog: TProjectOptionsDialog
|
|||||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||||
ChildSizing.ControlsPerLine = 1
|
ChildSizing.ControlsPerLine = 1
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
|
AnchorSideTop.Control = SaveOnlyProjectUnitInfoCheckBox
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 7
|
||||||
|
Height = 117
|
||||||
|
Top = 67
|
||||||
|
Width = 413
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object CancelButton: TButton
|
object CancelButton: TButton
|
||||||
Left = 344
|
|
||||||
Height = 25
|
|
||||||
Top = 344
|
|
||||||
Width = 75
|
|
||||||
Anchors = [akRight, akBottom]
|
Anchors = [akRight, akBottom]
|
||||||
BorderSpacing.InnerBorder = 2
|
BorderSpacing.InnerBorder = 2
|
||||||
Cancel = True
|
Cancel = True
|
||||||
Caption = 'Cancel'
|
Caption = 'Cancel'
|
||||||
ModalResult = 2
|
ModalResult = 2
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
end
|
Left = 344
|
||||||
object OKButton: TButton
|
|
||||||
Left = 256
|
|
||||||
Height = 25
|
Height = 25
|
||||||
Top = 344
|
Top = 344
|
||||||
Width = 75
|
Width = 75
|
||||||
|
end
|
||||||
|
object OKButton: TButton
|
||||||
Anchors = [akRight, akBottom]
|
Anchors = [akRight, akBottom]
|
||||||
BorderSpacing.InnerBorder = 2
|
BorderSpacing.InnerBorder = 2
|
||||||
Caption = 'OK'
|
Caption = 'OK'
|
||||||
Default = True
|
Default = True
|
||||||
ModalResult = 1
|
ModalResult = 1
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
|
Left = 256
|
||||||
|
Height = 25
|
||||||
|
Top = 344
|
||||||
|
Width = 75
|
||||||
end
|
end
|
||||||
object SelectDirectoryDialog: TSelectDirectoryDialog
|
object SelectDirectoryDialog: TSelectDirectoryDialog
|
||||||
Title = 'Select Directory'
|
Title = 'Select Directory'
|
||||||
FilterIndex = 0
|
FilterIndex = 0
|
||||||
|
Title = 'Select Directory'
|
||||||
left = 344
|
left = 344
|
||||||
top = 8
|
top = 8
|
||||||
end
|
end
|
||||||
|
@ -1,133 +1,137 @@
|
|||||||
{ This is an automatically generated lazarus resource file }
|
{ This is an automatically generated lazarus resource file }
|
||||||
|
|
||||||
LazarusResources.Add('TProjectOptionsDialog','FORMDATA',[
|
LazarusResources.Add('TProjectOptionsDialog','FORMDATA',[
|
||||||
'TPF0'#21'TProjectOptionsDialog'#20'ProjectOptionsDialog'#4'Left'#3#20#2#6'He'
|
'TPF0'#21'TProjectOptionsDialog'#20'ProjectOptionsDialog'#13'ActiveControl'#7
|
||||||
+'ight'#3'w'#1#3'Top'#3#25#1#5'Width'#3#174#1#18'HorzScrollBar.Page'#3#173#1
|
+#9'TitleEdit'#7'Caption'#6#20'ProjectOptionsDialog'#12'ClientHeight'#3'w'#1
|
||||||
+#18'VertScrollBar.Page'#3'v'#1#13'ActiveControl'#7#9'TitleEdit'#7'Caption'#6
|
+#11'ClientWidth'#3#174#1#7'OnClose'#7#19'ProjectOptionsClose'#8'OnResize'#7
|
||||||
+#20'ProjectOptionsDialog'#12'ClientHeight'#3'w'#1#11'ClientWidth'#3#174#1#7
|
+#20'ProjectOptionsResize'#13'PixelsPerInch'#2'p'#8'Position'#7#14'poScreenCe'
|
||||||
+'OnClose'#7#19'ProjectOptionsClose'#8'OnResize'#7#20'ProjectOptionsResize'#13
|
+'nter'#18'HorzScrollBar.Page'#3#173#1#18'VertScrollBar.Page'#3'v'#1#4'Left'#3
|
||||||
+'PixelsPerInch'#2'_'#8'Position'#7#14'poScreenCenter'#0#9'TNotebook'#8'Noteb'
|
+#20#2#6'Height'#3'w'#1#3'Top'#3#25#1#5'Width'#3#174#1#0#9'TNotebook'#8'Noteb'
|
||||||
+'ook'#6'Height'#3'R'#1#5'Width'#3#174#1#5'Align'#7#5'alTop'#7'Anchors'#11#5
|
+'ook'#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBo'
|
||||||
+'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#9'PageIndex'#2#4#0#5'TPage'#15'Ap'
|
+'ttom'#0#9'PageIndex'#2#4#6'Height'#3'R'#1#5'Width'#3#174#1#0#5'TPage'#15'Ap'
|
||||||
+'plicationPage'#7'Caption'#6#15'ApplicationPage'#11'ClientWidth'#3#170#1#12
|
+'plicationPage'#7'Caption'#6#15'ApplicationPage'#11'ClientWidth'#3#170#1#12
|
||||||
+'ClientHeight'#3'4'#1#0#9'TGroupBox'#19'AppSettingsGroupBox'#4'Left'#2#6#6'H'
|
+'ClientHeight'#3'4'#1#4'Left'#2#2#6'Height'#3'4'#1#3'Top'#2#28#5'Width'#3#170
|
||||||
+'eight'#2'I'#3'Top'#2#6#5'Width'#3#158#1#5'Align'#7#5'alTop'#20'BorderSpacin'
|
+#1#0#9'TGroupBox'#19'AppSettingsGroupBox'#5'Align'#7#5'alTop'#20'BorderSpaci'
|
||||||
+'g.Around'#2#6#7'Caption'#6#19'AppSettingsGroupBox'#12'ClientHeight'#2'8'#11
|
+'ng.Around'#2#6#7'Caption'#6#19'AppSettingsGroupBox'#12'ClientHeight'#2'8'#11
|
||||||
+'ClientWidth'#3#154#1#8'TabOrder'#2#0#0#6'TLabel'#10'TitleLabel'#4'Left'#2#6
|
+'ClientWidth'#3#154#1#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2'I'#3'Top'#2#6#5
|
||||||
+#6'Height'#2#13#3'Top'#2#6#5'Width'#3#142#1#5'Align'#7#5'alTop'#18'BorderSpa'
|
+'Width'#3#158#1#0#6'TLabel'#10'TitleLabel'#5'Align'#7#5'alTop'#18'BorderSpac'
|
||||||
+'cing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#6#7'Capt'
|
+'ing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#6#7'Capti'
|
||||||
+'ion'#6#10'TitleLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#5'TEdit'#9
|
+'on'#6#10'TitleLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#6#6'H'
|
||||||
+'TitleEdit'#4'Left'#2#6#6'Height'#2#23#3'Top'#2#19#5'Width'#3#142#1#5'Align'
|
+'eight'#2#13#3'Top'#2#6#5'Width'#3#142#1#0#0#5'TEdit'#9'TitleEdit'#5'Align'#7
|
||||||
+#7#5'alTop'#18'BorderSpacing.Left'#2#6#19'BorderSpacing.Right'#2#6#8'TabOrde'
|
+#5'alTop'#18'BorderSpacing.Left'#2#6#19'BorderSpacing.Right'#2#6#8'TabOrder'
|
||||||
+'r'#2#0#4'Text'#6#9'TitleEdit'#0#0#0#9'TGroupBox'#22'OutputSettingsGroupBox'
|
+#2#0#4'Text'#6#9'TitleEdit'#4'Left'#2#6#6'Height'#2#23#3'Top'#2#19#5'Width'#3
|
||||||
+#4'Left'#2#6#6'Height'#2'I'#3'Top'#2'U'#5'Width'#3#158#1#5'Align'#7#5'alTop'
|
+#142#1#0#0#0#9'TGroupBox'#22'OutputSettingsGroupBox'#5'Align'#7#5'alTop'#20
|
||||||
+#20'BorderSpacing.Around'#2#6#7'Caption'#6#22'OutputSettingsGroupBox'#12'Cli'
|
+'BorderSpacing.Around'#2#6#7'Caption'#6#22'OutputSettingsGroupBox'#12'Client'
|
||||||
+'entHeight'#2'8'#11'ClientWidth'#3#154#1#8'TabOrder'#2#1#0#6'TLabel'#15'Targ'
|
+'Height'#2'8'#11'ClientWidth'#3#154#1#8'TabOrder'#2#1#4'Left'#2#6#6'Height'#2
|
||||||
+'etFileLabel'#4'Left'#2#6#6'Height'#2#13#3'Top'#2#6#5'Width'#3#142#1#5'Align'
|
+'I'#3'Top'#2'U'#5'Width'#3#158#1#0#6'TLabel'#15'TargetFileLabel'#5'Align'#7#5
|
||||||
+#7#5'alTop'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSp'
|
+'alTop'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacin'
|
||||||
+'acing.Right'#2#6#7'Caption'#6#15'TargetFileLabel'#5'Color'#7#6'clNone'#11'P'
|
+'g.Right'#2#6#7'Caption'#6#15'TargetFileLabel'#5'Color'#7#6'clNone'#11'Paren'
|
||||||
+'arentColor'#8#0#0#5'TEdit'#14'TargetFileEdit'#4'Left'#2#6#6'Height'#2#23#3
|
+'tColor'#8#4'Left'#2#6#6'Height'#2#13#3'Top'#2#6#5'Width'#3#142#1#0#0#5'TEdi'
|
||||||
+'Top'#2#19#5'Width'#3#142#1#5'Align'#7#5'alTop'#18'BorderSpacing.Left'#2#6#19
|
+'t'#14'TargetFileEdit'#5'Align'#7#5'alTop'#18'BorderSpacing.Left'#2#6#19'Bor'
|
||||||
+'BorderSpacing.Right'#2#6#8'TabOrder'#2#0#4'Text'#6#14'TargetFileEdit'#0#0#0
|
+'derSpacing.Right'#2#6#8'TabOrder'#2#0#4'Text'#6#14'TargetFileEdit'#4'Left'#2
|
||||||
+#0#5'TPage'#9'FormsPage'#7'Caption'#6#9'FormsPage'#11'ClientWidth'#3#170#1#12
|
+#6#6'Height'#2#23#3'Top'#2#19#5'Width'#3#142#1#0#0#0#0#5'TPage'#9'FormsPage'
|
||||||
+'ClientHeight'#3'4'#1#0#6'TLabel'#21'FormsAutoCreatedLabel'#4'Left'#2'$'#6'H'
|
+#7'Caption'#6#9'FormsPage'#11'ClientWidth'#3#170#1#12'ClientHeight'#3'4'#1#4
|
||||||
+'eight'#2#13#3'Top'#2#10#5'Width'#3#136#0#7'Caption'#6#21'FormsAutoCreatedLa'
|
+'Left'#2#2#6'Height'#3'4'#1#3'Top'#2#28#5'Width'#3#170#1#0#6'TLabel'#21'Form'
|
||||||
+'bel'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#20'FormsAvailForm'
|
+'sAutoCreatedLabel'#7'Caption'#6#21'FormsAutoCreatedLabel'#5'Color'#7#6'clNo'
|
||||||
+'sLabel'#4'Left'#3#252#0#6'Height'#2#13#3'Top'#2#10#5'Width'#3#129#0#7'Capti'
|
+'ne'#11'ParentColor'#8#4'Left'#2'$'#6'Height'#2#13#3'Top'#2#10#5'Width'#3#136
|
||||||
+'on'#6#20'FormsAvailFormsLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#8
|
+#0#0#0#6'TLabel'#20'FormsAvailFormsLabel'#7'Caption'#6#20'FormsAvailFormsLab'
|
||||||
+'TListBox'#23'FormsAutoCreatedListBox'#4'Left'#2'$'#6'Height'#3#242#0#3'Top'
|
+'el'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#3#252#0#6'Height'#2#13#3
|
||||||
+#2' '#5'Width'#3#168#0#11'MultiSelect'#9#8'TabOrder'#2#0#8'TopIndex'#2#255#0
|
+'Top'#2#10#5'Width'#3#129#0#0#0#8'TListBox'#23'FormsAutoCreatedListBox'#11'M'
|
||||||
+#0#8'TListBox'#22'FormsAvailFormsListBox'#4'Left'#3#244#0#6'Height'#3#242#0#3
|
+'ultiSelect'#9#8'TabOrder'#2#0#8'TopIndex'#2#255#4'Left'#2'$'#6'Height'#3#242
|
||||||
+'Top'#2' '#5'Width'#3#168#0#11'MultiSelect'#9#8'TabOrder'#2#1#8'TopIndex'#2
|
+#0#3'Top'#2' '#5'Width'#3#168#0#0#0#8'TListBox'#22'FormsAvailFormsListBox'#11
|
||||||
+#255#0#0#6'TArrow'#29'FormsMoveAutoCreatedFormUpBtn'#4'Left'#2#6#6'Height'#2
|
+'MultiSelect'#9#8'TabOrder'#2#1#8'TopIndex'#2#255#4'Left'#3#244#0#6'Height'#3
|
||||||
+#24#3'Top'#2' '#5'Width'#2#24#9'ArrowType'#7#4'atUp'#7'OnClick'#7'"FormsMove'
|
+#242#0#3'Top'#2' '#5'Width'#3#168#0#0#0#6'TArrow'#29'FormsMoveAutoCreatedFor'
|
||||||
+'AutoCreatedFormUpBtnClick'#0#0#6'TArrow FormsMoveAutoCreatedFormsDownBtn'#4
|
+'mUpBtn'#9'ArrowType'#7#4'atUp'#7'OnClick'#7'"FormsMoveAutoCreatedFormUpBtnC'
|
||||||
+'Left'#2#6#6'Height'#2#24#3'Top'#2'<'#5'Width'#2#24#9'ArrowType'#7#6'atDown'
|
+'lick'#4'Left'#2#6#6'Height'#2#24#3'Top'#2' '#5'Width'#2#24#0#0#6'TArrow For'
|
||||||
+#7'OnClick'#7'$FormsMoveAutoCreatedFormDownBtnClick'#0#0#6'TArrow"FormsRemov'
|
+'msMoveAutoCreatedFormsDownBtn'#9'ArrowType'#7#6'atDown'#7'OnClick'#7'$Forms'
|
||||||
+'eFromAutoCreatedFormsBtn'#4'Left'#3#212#0#6'Height'#2#24#3'Top'#2' '#5'Widt'
|
+'MoveAutoCreatedFormDownBtnClick'#4'Left'#2#6#6'Height'#2#24#3'Top'#2'<'#5'W'
|
||||||
+'h'#2#24#9'ArrowType'#7#7'atRight'#7'OnClick'#7'''FormsRemoveFromAutoCreated'
|
+'idth'#2#24#0#0#6'TArrow"FormsRemoveFromAutoCreatedFormsBtn'#9'ArrowType'#7#7
|
||||||
+'FormsBtnClick'#0#0#6'TArrow'#29'FormsAddToAutoCreatedFormsBtn'#4'Left'#3#212
|
+'atRight'#7'OnClick'#7'''FormsRemoveFromAutoCreatedFormsBtnClick'#4'Left'#3
|
||||||
+#0#6'Height'#2#24#3'Top'#2'<'#5'Width'#2#24#7'OnClick'#7'"FormsAddToAutoCrea'
|
+#212#0#6'Height'#2#24#3'Top'#2' '#5'Width'#2#24#0#0#6'TArrow'#29'FormsAddToA'
|
||||||
+'tedFormsBtnClick'#0#0#9'TCheckBox'#31'FormsAutoCreateNewFormsCheckBox'#4'Le'
|
+'utoCreatedFormsBtn'#7'OnClick'#7'"FormsAddToAutoCreatedFormsBtnClick'#4'Lef'
|
||||||
+'ft'#2#6#6'Height'#2#24#3'Top'#3#22#1#5'Width'#3#158#1#5'Align'#7#8'alBottom'
|
+'t'#3#212#0#6'Height'#2#24#3'Top'#2'<'#5'Width'#2#24#0#0#9'TCheckBox'#31'For'
|
||||||
+#20'BorderSpacing.Around'#2#6#7'Caption'#6#31'FormsAutoCreateNewFormsCheckBo'
|
+'msAutoCreateNewFormsCheckBox'#5'Align'#7#8'alBottom'#20'BorderSpacing.Aroun'
|
||||||
+'x'#8'TabOrder'#2#2#0#0#0#5'TPage'#8'MiscPage'#7'Caption'#6#8'MiscPage'#11'C'
|
+'d'#2#6#7'Caption'#6#31'FormsAutoCreateNewFormsCheckBox'#8'TabOrder'#2#2#4'L'
|
||||||
+'lientWidth'#3#170#1#12'ClientHeight'#3'4'#1#0#9'TCheckBox)MainUnitHasUsesSe'
|
+'eft'#2#6#6'Height'#2#24#3'Top'#3#22#1#5'Width'#3#158#1#0#0#0#5'TPage'#8'Mis'
|
||||||
+'ctionForAllUnitsCheckBox'#21'AnchorSideTop.Control'#7#30'MainUnitIsPascalSo'
|
+'cPage'#7'Caption'#6#8'MiscPage'#11'ClientWidth'#3#170#1#12'ClientHeight'#3
|
||||||
+'urceCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2
|
+'4'#1#4'Left'#2#2#6'Height'#3'4'#1#3'Top'#2#28#5'Width'#3#170#1#0#9'TCheckBo'
|
||||||
+#24#3'Top'#2'$'#5'Width'#3#158#1#5'Align'#7#5'alTop'#18'BorderSpacing.Left'#2
|
+'x)MainUnitHasUsesSectionForAllUnitsCheckBox'#5'Align'#7#5'alTop'#18'BorderS'
|
||||||
+#6#17'BorderSpacing.Top'#2#2#19'BorderSpacing.Right'#2#6#7'Caption'#6')MainU'
|
+'pacing.Left'#2#6#17'BorderSpacing.Top'#2#2#19'BorderSpacing.Right'#2#6#7'Ca'
|
||||||
+'nitHasUsesSectionForAllUnitsCheckBox'#8'TabOrder'#2#0#0#0#9'TCheckBox''Main'
|
+'ption'#6')MainUnitHasUsesSectionForAllUnitsCheckBox'#8'TabOrder'#2#0#21'Anc'
|
||||||
+'UnitHasCreateFormStatementsCheckBox'#21'AnchorSideTop.Control'#7')MainUnitH'
|
+'horSideTop.Control'#7#30'MainUnitIsPascalSourceCheckBox'#18'AnchorSideTop.S'
|
||||||
+'asUsesSectionForAllUnitsCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'L'
|
+'ide'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#24#3'Top'#2'$'#5'Width'#3#158#1
|
||||||
+'eft'#2#6#6'Height'#2#24#3'Top'#2'>'#5'Width'#3#158#1#5'Align'#7#5'alTop'#18
|
+#0#0#9'TCheckBox''MainUnitHasCreateFormStatementsCheckBox'#5'Align'#7#5'alTo'
|
||||||
+'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#2#19'BorderSpacing.Right'#2
|
+'p'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#2#19'BorderSpacing.Ri'
|
||||||
+#6#7'Caption'#6'''MainUnitHasCreateFormStatementsCheckBox'#8'TabOrder'#2#1#0
|
+'ght'#2#6#7'Caption'#6'''MainUnitHasCreateFormStatementsCheckBox'#8'TabOrder'
|
||||||
+#0#9'TCheckBox'#30'MainUnitIsPascalSourceCheckBox'#4'Left'#2#6#6'Height'#2#24
|
+#2#1#21'AnchorSideTop.Control'#7')MainUnitHasUsesSectionForAllUnitsCheckBox'
|
||||||
+#3'Top'#2#10#5'Width'#3#158#1#5'Align'#7#5'alTop'#18'BorderSpacing.Left'#2#6
|
+#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#24#3'Top'#2'>'
|
||||||
,#17'BorderSpacing.Top'#2#10#19'BorderSpacing.Right'#2#6#7'Caption'#6#30'Main'
|
,#5'Width'#3#158#1#0#0#9'TCheckBox'#30'MainUnitIsPascalSourceCheckBox'#5'Alig'
|
||||||
+'UnitIsPascalSourceCheckBox'#8'TabOrder'#2#2#0#0#9'TCheckBox!MainUnitHasTitl'
|
+'n'#7#5'alTop'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#10#19'Bord'
|
||||||
+'eStatementCheckBox'#21'AnchorSideTop.Control'#7'''MainUnitHasCreateFormStat'
|
+'erSpacing.Right'#2#6#7'Caption'#6#30'MainUnitIsPascalSourceCheckBox'#8'TabO'
|
||||||
+'ementsCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'
|
+'rder'#2#2#4'Left'#2#6#6'Height'#2#24#3'Top'#2#10#5'Width'#3#158#1#0#0#9'TCh'
|
||||||
+#2#24#3'Top'#2'X'#5'Width'#3#158#1#5'Align'#7#5'alTop'#18'BorderSpacing.Left'
|
+'eckBox!MainUnitHasTitleStatementCheckBox'#5'Align'#7#5'alTop'#18'BorderSpac'
|
||||||
+#2#6#17'BorderSpacing.Top'#2#2#19'BorderSpacing.Right'#2#6#7'Caption'#6'!Mai'
|
+'ing.Left'#2#6#17'BorderSpacing.Top'#2#2#19'BorderSpacing.Right'#2#6#7'Capti'
|
||||||
+'nUnitHasTitleStatementCheckBox'#8'TabOrder'#2#5#0#0#9'TCheckBox'#16'Runnabl'
|
+'on'#6'!MainUnitHasTitleStatementCheckBox'#8'TabOrder'#2#5#21'AnchorSideTop.'
|
||||||
+'eCheckBox'#21'AnchorSideTop.Control'#7'!MainUnitHasTitleStatementCheckBox'
|
+'Control'#7'''MainUnitHasCreateFormStatementsCheckBox'#18'AnchorSideTop.Side'
|
||||||
+#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#24#3'Top'#2'z'
|
+#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#24#3'Top'#2'X'#5'Width'#3#158#1#0#0#9
|
||||||
+#5'Width'#3#158#1#5'Align'#7#5'alTop'#18'BorderSpacing.Left'#2#6#17'BorderSp'
|
+'TCheckBox'#16'RunnableCheckBox'#5'Align'#7#5'alTop'#18'BorderSpacing.Left'#2
|
||||||
+'acing.Top'#2#10#19'BorderSpacing.Right'#2#6#7'Caption'#6#16'RunnableCheckBo'
|
+#6#17'BorderSpacing.Top'#2#10#19'BorderSpacing.Right'#2#6#7'Caption'#6#16'Ru'
|
||||||
+'x'#8'TabOrder'#2#3#0#0#9'TCheckBox'#19'AlwaysBuildCheckBox'#21'AnchorSideTo'
|
+'nnableCheckBox'#8'TabOrder'#2#3#21'AnchorSideTop.Control'#7'!MainUnitHasTit'
|
||||||
+'p.Control'#7#16'RunnableCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'L'
|
+'leStatementCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'He'
|
||||||
+'eft'#2#6#6'Height'#2#24#3'Top'#3#148#0#5'Width'#3#158#1#7'Anchors'#11#5'akT'
|
+'ight'#2#24#3'Top'#2'z'#5'Width'#3#158#1#0#0#9'TCheckBox'#19'AlwaysBuildChec'
|
||||||
+'op'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'
|
+'kBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#2
|
||||||
+#2#2#19'BorderSpacing.Right'#2#6#7'Caption'#6#19'AlwaysBuildCheckBox'#8'TabO'
|
+#6#17'BorderSpacing.Top'#2#2#19'BorderSpacing.Right'#2#6#7'Caption'#6#19'Alw'
|
||||||
+'rder'#2#4#0#0#0#5'TPage'#10'LazDocPage'#7'Caption'#6#10'LazDocPage'#11'Clie'
|
+'aysBuildCheckBox'#8'TabOrder'#2#4#21'AnchorSideTop.Control'#7#16'RunnableCh'
|
||||||
+'ntWidth'#3#170#1#12'ClientHeight'#3'4'#1#0#6'TLabel'#6'Label2'#6'Height'#2
|
+'eckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#24#3
|
||||||
+#13#3'Top'#3#222#0#5'Width'#3#170#1#5'Align'#7#5'alTop'#7'Caption'#6'+NOTE: '
|
+'Top'#3#148#0#5'Width'#3#158#1#0#0#0#5'TPage'#10'LazDocPage'#7'Caption'#6#10
|
||||||
+'only absolute paths are supported now'#5'Color'#7#6'clNone'#11'ParentColor'
|
+'LazDocPage'#11'ClientWidth'#3#170#1#12'ClientHeight'#3'4'#1#4'Left'#2#2#6'H'
|
||||||
+#8#0#0#9'TGroupBox'#19'LazDocPathsGroupBox'#4'Left'#2#6#6'Height'#3#210#0#3
|
+'eight'#3'4'#1#3'Top'#2#28#5'Width'#3#170#1#0#6'TLabel'#6'Label2'#5'Align'#7
|
||||||
+'Top'#2#6#5'Width'#3#158#1#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7
|
+#5'alTop'#7'Caption'#6'+NOTE: only absolute paths are supported now'#5'Color'
|
||||||
+'Caption'#6#19'LazDocPathsGroupBox'#12'ClientHeight'#3#210#0#11'ClientWidth'
|
+#7#6'clNone'#11'ParentColor'#8#6'Height'#2#13#3'Top'#3#222#0#5'Width'#3#170#1
|
||||||
+#3#158#1#8'TabOrder'#2#0#0#8'TListBox'#13'LazDocListBox'#4'Left'#2#6#6'Heigh'
|
+#0#0#9'TGroupBox'#19'LazDocPathsGroupBox'#5'Align'#7#5'alTop'#20'BorderSpaci'
|
||||||
+'t'#2'l'#3'Top'#2#6#5'Width'#3#146#1#5'Align'#7#5'alTop'#20'BorderSpacing.Ar'
|
+'ng.Around'#2#6#7'Caption'#6#19'LazDocPathsGroupBox'#12'ClientHeight'#3#210#0
|
||||||
+'ound'#2#6#8'TabOrder'#2#0#8'TopIndex'#2#255#0#0#7'TButton'#19'LazDocAddPath'
|
+#11'ClientWidth'#3#158#1#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#3#210#0#3'Top'
|
||||||
+'Button'#4'Left'#2#6#6'Height'#2#25#3'Top'#2'z'#5'Width'#2'K'#25'BorderSpaci'
|
+#2#6#5'Width'#3#158#1#0#8'TListBox'#13'LazDocListBox'#5'Align'#7#5'alTop'#20
|
||||||
+'ng.InnerBorder'#2#2#7'Caption'#6#19'LazDocAddPathButton'#7'OnClick'#7#24'La'
|
+'BorderSpacing.Around'#2#6#8'TabOrder'#2#0#8'TopIndex'#2#255#4'Left'#2#6#6'H'
|
||||||
+'zDocAddPathButtonClick'#8'TabOrder'#2#1#0#0#7'TButton'#22'LazDocDeletePathB'
|
+'eight'#2'l'#3'Top'#2#6#5'Width'#3#146#1#0#0#7'TButton'#19'LazDocAddPathButt'
|
||||||
+'utton'#4'Left'#2'Z'#6'Height'#2#25#3'Top'#2'z'#5'Width'#2'K'#25'BorderSpaci'
|
+'on'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#19'LazDocAddPathButton'#7
|
||||||
+'ng.InnerBorder'#2#2#7'Caption'#6#22'LazDocDeletePathButton'#7'OnClick'#7#27
|
+'OnClick'#7#24'LazDocAddPathButtonClick'#8'TabOrder'#2#1#4'Left'#2#6#6'Heigh'
|
||||||
+'LazDocDeletePathButtonClick'#8'TabOrder'#2#2#0#0#5'TEdit'#14'LazDocPathEdit'
|
+'t'#2#25#3'Top'#2'z'#5'Width'#2'K'#0#0#7'TButton'#22'LazDocDeletePathButton'
|
||||||
+#4'Left'#2#6#6'Height'#2#23#3'Top'#3#154#0#5'Width'#3'f'#1#7'Anchors'#11#5'a'
|
+#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#22'LazDocDeletePathButton'#7
|
||||||
+'kTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#3#4'Text'#6#14'LazDocPathEdit'#0
|
+'OnClick'#7#27'LazDocDeletePathButtonClick'#8'TabOrder'#2#2#4'Left'#2'Z'#6'H'
|
||||||
+#0#7'TButton'#18'LazDocBrowseButton'#4'Left'#3'q'#1#6'Height'#2#23#3'Top'#3
|
+'eight'#2#25#3'Top'#2'z'#5'Width'#2'K'#0#0#5'TEdit'#14'LazDocPathEdit'#7'Anc'
|
||||||
+#154#0#5'Width'#2#23#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.In'
|
+'hors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#3#4'Text'#6#14'LazDo'
|
||||||
+'nerBorder'#2#2#7'Caption'#6#3'...'#7'OnClick'#7#23'LazDocBrowseButtonClick'
|
+'cPathEdit'#4'Left'#2#6#6'Height'#2#23#3'Top'#3#154#0#5'Width'#3'f'#1#0#0#7
|
||||||
+#8'TabOrder'#2#4#0#0#0#0#5'TPage'#8'SavePage'#7'Caption'#6#8'SavePage'#11'Cl'
|
+'TButton'#18'LazDocBrowseButton'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'Bord'
|
||||||
+'ientWidth'#3#170#1#12'ClientHeight'#3'4'#1#0#9'TCheckBox'#26'SaveClosedUnit'
|
+'erSpacing.InnerBorder'#2#2#7'Caption'#6#3'...'#7'OnClick'#7#23'LazDocBrowse'
|
||||||
+'InfoCheckBox'#4'Left'#2#6#6'Height'#2#24#3'Top'#2#6#5'Width'#3#158#1#5'Alig'
|
+'ButtonClick'#8'TabOrder'#2#4#4'Left'#3'q'#1#6'Height'#2#23#3'Top'#3#154#0#5
|
||||||
+'n'#7#5'alTop'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'Borde'
|
+'Width'#2#23#0#0#0#0#5'TPage'#8'SavePage'#7'Caption'#6#8'SavePage'#11'Client'
|
||||||
+'rSpacing.Right'#2#6#7'Caption'#6#26'SaveClosedUnitInfoCheckBox'#8'TabOrder'
|
+'Width'#3#170#1#12'ClientHeight'#3'4'#1#4'Left'#2#2#6'Height'#3'4'#1#3'Top'#2
|
||||||
+#2#0#0#0#9'TCheckBox'#31'SaveOnlyProjectUnitInfoCheckBox'#21'AnchorSideTop.C'
|
+#28#5'Width'#3#170#1#0#9'TCheckBox'#26'SaveClosedUnitInfoCheckBox'#5'Align'#7
|
||||||
+'ontrol'#7#26'SaveClosedUnitInfoCheckBox'#18'AnchorSideTop.Side'#7#9'asrBott'
|
+#5'alTop'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpac'
|
||||||
+'om'#4'Left'#2#6#6'Height'#2#24#3'Top'#2' '#5'Width'#3#158#1#5'Align'#7#5'al'
|
+'ing.Right'#2#6#7'Caption'#6#26'SaveClosedUnitInfoCheckBox'#8'TabOrder'#2#0#4
|
||||||
+'Top'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#2#19'BorderSpacing.'
|
+'Left'#2#6#6'Height'#2#24#3'Top'#2#6#5'Width'#3#158#1#0#0#9'TCheckBox'#31'Sa'
|
||||||
+'Right'#2#6#7'Caption'#6#31'SaveOnlyProjectUnitInfoCheckBox'#8'TabOrder'#2#1
|
+'veOnlyProjectUnitInfoCheckBox'#5'Align'#7#5'alTop'#18'BorderSpacing.Left'#2
|
||||||
+#0#0#11'TRadioGroup'#29'SaveSessionLocationRadioGroup'#21'AnchorSideTop.Cont'
|
+#6#17'BorderSpacing.Top'#2#2#19'BorderSpacing.Right'#2#6#7'Caption'#6#31'Sav'
|
||||||
+'rol'#7#31'SaveOnlyProjectUnitInfoCheckBox'#18'AnchorSideTop.Side'#7#9'asrBo'
|
+'eOnlyProjectUnitInfoCheckBox'#8'TabOrder'#2#1#21'AnchorSideTop.Control'#7#26
|
||||||
+'ttom'#4'Left'#2#7#6'Height'#2'u'#3'Top'#2'C'#5'Width'#3#157#1#8'AutoFill'#9
|
+'SaveClosedUnitInfoCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2
|
||||||
+#17'BorderSpacing.Top'#2#5#20'BorderSpacing.Around'#2#6#7'Caption'#6#29'Save'
|
+#6#6'Height'#2#24#3'Top'#2' '#5'Width'#3#158#1#0#0#11'TRadioGroup'#29'SaveSe'
|
||||||
+'SessionLocationRadioGroup'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSiz'
|
+'ssionLocationRadioGroup'#8'AutoFill'#9#17'BorderSpacing.Top'#2#5#20'BorderS'
|
||||||
+'ing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogen'
|
+'pacing.Around'#2#6#7'Caption'#6#29'SaveSessionLocationRadioGroup'#28'ChildS'
|
||||||
+'ousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResi'
|
+'izing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSi'
|
||||||
+'ze'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.Sh'
|
+'zing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.Enlar'
|
||||||
+'rinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRig'
|
+'geVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'
|
||||||
+'htThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#8'TabOrder'#2#2#0#0#0
|
+#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18
|
||||||
+#0#7'TButton'#12'CancelButton'#4'Left'#3'X'#1#6'Height'#2#25#3'Top'#3'X'#1#5
|
+'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.Cont'
|
||||||
+'Width'#2'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0#25'BorderSpacing.InnerBo'
|
+'rolsPerLine'#2#1#8'TabOrder'#2#2#21'AnchorSideTop.Control'#7#31'SaveOnlyPro'
|
||||||
+'rder'#2#2#6'Cancel'#9#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'
|
+'jectUnitInfoCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#7#6'H'
|
||||||
+#2#1#0#0#7'TButton'#8'OKButton'#4'Left'#3#0#1#6'Height'#2#25#3'Top'#3'X'#1#5
|
+'eight'#2'u'#3'Top'#2'C'#5'Width'#3#157#1#0#0#0#0#7'TButton'#12'CancelButton'
|
||||||
+'Width'#2'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0#25'BorderSpacing.InnerBo'
|
+#7'Anchors'#11#7'akRight'#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2#2#6
|
||||||
+'rder'#2#2#7'Caption'#6#2'OK'#7'Default'#9#11'ModalResult'#2#1#8'TabOrder'#2
|
+'Cancel'#9#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#1#4'Left'
|
||||||
+#2#0#0#22'TSelectDirectoryDialog'#21'SelectDirectoryDialog'#5'Title'#6#16'Se'
|
+#3'X'#1#6'Height'#2#25#3'Top'#3'X'#1#5'Width'#2'K'#0#0#7'TButton'#8'OKButton'
|
||||||
,'lect Directory'#11'FilterIndex'#2#0#4'left'#3'X'#1#3'top'#2#8#0#0#0
|
,#7'Anchors'#11#7'akRight'#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2#2#7
|
||||||
|
+'Caption'#6#2'OK'#7'Default'#9#11'ModalResult'#2#1#8'TabOrder'#2#2#4'Left'#3
|
||||||
|
+#0#1#6'Height'#2#25#3'Top'#3'X'#1#5'Width'#2'K'#0#0#22'TSelectDirectoryDialo'
|
||||||
|
+'g'#21'SelectDirectoryDialog'#5'Title'#6#16'Select Directory'#11'FilterIndex'
|
||||||
|
+#2#0#5'Title'#6#16'Select Directory'#4'left'#3'X'#1#3'top'#2#8#0#0#0
|
||||||
]);
|
]);
|
||||||
|
@ -379,7 +379,7 @@ begin
|
|||||||
if (FProject <> Nil) and (FProject.MainUnitID >= 0) then
|
if (FProject <> Nil) and (FProject.MainUnitID >= 0) then
|
||||||
begin
|
begin
|
||||||
Result := CodeToolBoss.ListAllCreateFormStatements(
|
Result := CodeToolBoss.ListAllCreateFormStatements(
|
||||||
FProject.MainUnitInfo.Source);
|
FProject.MainUnitInfo.Source);
|
||||||
if Result <> Nil then
|
if Result <> Nil then
|
||||||
for i := 0 to Result.Count - 1 do
|
for i := 0 to Result.Count - 1 do
|
||||||
begin
|
begin
|
||||||
@ -401,7 +401,7 @@ begin
|
|||||||
if (FProject = Nil) or (FProject.MainUnitID < 0) then
|
if (FProject = Nil) or (FProject.MainUnitID < 0) then
|
||||||
exit;
|
exit;
|
||||||
CodeToolBoss.GetApplicationTitleStatement(
|
CodeToolBoss.GetApplicationTitleStatement(
|
||||||
FProject.MainUnitInfo.Source, Result);
|
FProject.MainUnitInfo.Source, Result);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TProjectOptionsDialog.FillAutoCreateFormsListbox;
|
procedure TProjectOptionsDialog.FillAutoCreateFormsListbox;
|
||||||
@ -641,7 +641,7 @@ begin
|
|||||||
{ Just exit if the form list is the same }
|
{ Just exit if the form list is the same }
|
||||||
i := OldList.Count - 1;
|
i := OldList.Count - 1;
|
||||||
while (i >= 0) and
|
while (i >= 0) and
|
||||||
(AnsiCompareText(OldList[i], FormsAutoCreatedListBox.Items[i]) = 0) do
|
(CompareText(OldList[i], FormsAutoCreatedListBox.Items[i]) = 0) do
|
||||||
dec(i);
|
dec(i);
|
||||||
if i < 0 then
|
if i < 0 then
|
||||||
Exit;
|
Exit;
|
||||||
|
Loading…
Reference in New Issue
Block a user