paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-13 17:59:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

implemented TButtonPanel

Browse Source 
git-svn-id: trunk@17002 -
This commit is contained in:
darius 2008-10-15 12:57:14 +00:00
parent bfe53c3694
commit dcf4d3ef0a
12 changed files with 3611 additions and 1085 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

263
ide/newdialog.lfm
View File

@ -3,37 +3,127 @@ object NewOtherDialog: TNewOtherDialog
Height = 395
Top = 156
Width = 476
HelpContext = 0
ActiveControl = ItemsTreeView
Align = alNone
AllowDropFiles = False
AutoScroll = True
AutoSize = False
BorderIcons = [biSystemMenu]
BorderStyle = bsSizeable
Caption = 'NewOtherDialog'
ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
ClientHeight = 395
ClientWidth = 476
DockSite = False
DragKind = dkDrag
DragMode = dmManual
Enabled = True
Font.Height = 0
Font.Style = []
FormStyle = fsNormal
ParentBiDiMode = True
ParentFont = False
Position = poScreenCenter
LCLVersion = '0.9.25'
ShowInTaskBar = stDefault
UseDockManager = False
LCLVersion = '0.9.27'
WindowState = wsNormal
object Panel1: TPanel
Left = 6
Height = 348
Height = 335
Top = 6
Width = 464
Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom]
HelpContext = 0
Align = alClient
Alignment = taCenter
AutoSize = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 6
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
BevelInner = bvNone
BevelOuter = bvNone
ClientHeight = 348
BevelWidth = 1
BorderWidth = 0
BorderStyle = bsNone
ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
ClientHeight = 335
ClientWidth = 464
DockSite = False
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
FullRepaint = True
ParentColor = True
ParentFont = True
ParentShowHint = True
TabOrder = 0
TabStop = False
Visible = True
object ItemsTreeView: TTreeView
Tag = 0
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Height = 348
Left = 0
Height = 335
Top = 0
Width = 178
HelpContext = 0
Align = alClient
DefaultItemHeight = 15
AutoExpand = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
BackgroundColor = clWindow
BorderStyle = bsSingle
BorderWidth = 0
Ctl3D = False
DefaultItemHeight = 19
DragKind = dkDrag
DragCursor = crDrag
DragMode = dmManual
Enabled = True
ExpandSignType = tvestPlusMinus
HideSelection = True
HotTrack = False
Indent = 15
ParentCtl3D = True
ParentFont = True
ParentShowHint = True
ReadOnly = False
RightClickSelect = False
RowSelect = False
ScrollBars = ssAutoBoth
SelectionColor = clHighlight
ShowButtons = True
ShowLines = True
ShowRoot = True
SortType = stNone
TabOrder = 0
ToolTips = True
Visible = True
OnDblClick = OkButtonClick
OnSelectionChanged = ItemsTreeViewSelectionChanged
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips]
TreeLineColor = clWindowFrame
ExpandSignColor = clWindowFrame
end
object DescriptionGroupBox: TGroupBox
AnchorSideLeft.Control = ItemsTreeView
@ -42,107 +132,150 @@ object NewOtherDialog: TNewOtherDialog
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 183
Height = 348
Height = 335
Top = 0
Width = 281
HelpContext = 0
Align = alRight
AutoSize = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'DescriptionGroupBox'
ClientHeight = 330
ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
ClientHeight = 316
ClientWidth = 277
Ctl3D = False
DockSite = False
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
ParentBidiMode = True
ParentColor = True
ParentCtl3D = True
ParentFont = True
ParentShowHint = True
TabOrder = 1
TabStop = False
Visible = True
object DescriptionLabel: TLabel
Left = 6
Height = 174
Height = 160
Top = 6
Width = 265
HelpContext = 0
Align = alClient
Alignment = taLeftJustify
AutoSize = True
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 6
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'DescriptionLabel'
DragCursor = crDrag
DragMode = dmManual
Enabled = True
Layout = tlTop
ParentBidiMode = True
ParentColor = False
ParentFont = True
ParentShowHint = True
ShowAccelChar = True
Transparent = True
Visible = True
WordWrap = True
OptimalFill = False
end
object InheritableComponentsListView: TListView
Left = 0
Height = 144
Top = 186
Top = 172
Width = 277
HelpContext = 0
Align = alBottom
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
BorderWidth = 0
Checkboxes = False
Columns = <
item
AutoSize = False
Caption = 'Form'
Width = 100
end
item
AutoSize = False
Caption = 'Unit'
Width = 250
end>
ColumnClick = True
DragCursor = crDrag
DragMode = dmManual
Enabled = True
HideSelection = False
MultiSelect = False
ParentShowHint = True
ReadOnly = True
RowSelect = True
ScrollBars = ssAutoBoth
ShowColumnHeaders = True
SortColumn = 0
SortType = stNone
TabStop = True
TabOrder = 0
ToolTips = True
Visible = True
ViewStyle = vsReport
end
end
object Splitter1: TSplitter
Cursor = crHSplit
Left = 178
Height = 348
Height = 335
Top = 0
Width = 5
HelpContext = 0
Align = alRight
AutoSnap = True
Beveled = False
MinSize = 30
ParentColor = True
ParentShowHint = True
ResizeAnchor = akRight
ResizeStyle = rsUpdate
Visible = True
end
end
object CancelButton: TBitBtn
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 380
Height = 25
Top = 364
Width = 90
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'CancelButton'
Constraints.MinHeight = 25
Constraints.MinWidth = 75
ModalResult = 2
NumGlyphs = 0
TabOrder = 1
end
object OkButton: TBitBtn
AnchorSideRight.Control = CancelButton
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 299
Height = 25
Top = 364
Width = 75
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'OkButton'
Constraints.MinHeight = 25
Constraints.MinWidth = 75
Enabled = False
NumGlyphs = 0
OnClick = OkButtonClick
TabOrder = 2
end
object HelpButton: TBitBtn
AnchorSideLeft.Control = Owner
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
object ButtonPanel: TButtonPanel
Left = 6
Height = 25
Top = 364
Width = 79
Anchors = [akLeft, akBottom]
Height = 48
Top = 347
Width = 464
HelpContext = 0
Align = alBottom
AutoSize = True
BorderSpacing.Around = 6
Caption = 'HelpButton'
Constraints.MinHeight = 25
Constraints.MinWidth = 75
NumGlyphs = 0
OnClick = HelpButtonClick
TabOrder = 3
ButtonOrder = boDefault
TabOrder = 1
DefaultButton = pbOK
ShowButtons = [pbOK, pbCancel, pbHelp]
ShowGlyphs = [pbOK, pbCancel, pbClose, pbHelp]
Visible = True
end
end

132
ide/newdialog.lrs
View File

@ -2,48 +2,92 @@
LazarusResources.Add('TNewOtherDialog','FORMDATA',[
'TPF0'#15'TNewOtherDialog'#14'NewOtherDialog'#4'Left'#3#15#1#6'Height'#3#139#1
+#3'Top'#3#156#0#5'Width'#3#220#1#13'ActiveControl'#7#13'ItemsTreeView'#11'Bo'
+'rderIcons'#11#12'biSystemMenu'#0#7'Caption'#6#14'NewOtherDialog'#12'ClientH'
+'eight'#3#139#1#11'ClientWidth'#3#220#1#10'ParentFont'#8#8'Position'#7#14'po'
+'ScreenCenter'#10'LCLVersion'#6#6'0.9.25'#0#6'TPanel'#6'Panel1'#4'Left'#2#6#6
+'Height'#3'\'#1#3'Top'#2#6#5'Width'#3#208#1#5'Align'#7#5'alTop'#7'Anchors'#11
+#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#10
+'BevelOuter'#7#6'bvNone'#12'ClientHeight'#3'\'#1#11'ClientWidth'#3#208#1#8'T'
+'abOrder'#2#0#0#9'TTreeView'#13'ItemsTreeView'#22'AnchorSideLeft.Control'#7#5
+'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#6'Height'#3'\'#1#5'Width'#3#178
+#0#5'Align'#7#8'alClient'#17'DefaultItemHeight'#2#15#10'ScrollBars'#7#10'ssA'
+'utoBoth'#8'TabOrder'#2#0#10'OnDblClick'#7#13'OkButtonClick'#18'OnSelectionC'
+'hanged'#7#29'ItemsTreeViewSelectionChanged'#0#0#9'TGroupBox'#19'Description'
+'GroupBox'#22'AnchorSideLeft.Control'#7#13'ItemsTreeView'#19'AnchorSideLeft.'
+'Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRigh'
+'t.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#183
+#0#6'Height'#3'\'#1#5'Width'#3#25#1#5'Align'#7#7'alRight'#7'Caption'#6#19'De'
+'scriptionGroupBox'#12'ClientHeight'#3'J'#1#11'ClientWidth'#3#21#1#8'TabOrde'
+'r'#2#1#0#6'TLabel'#16'DescriptionLabel'#4'Left'#2#6#6'Height'#3#174#0#3'Top'
+#2#6#5'Width'#3#9#1#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2#6#7'Ca'
+'ption'#6#16'DescriptionLabel'#11'ParentColor'#8#8'WordWrap'#9#0#0#9'TListVi'
+'ew'#29'InheritableComponentsListView'#6'Height'#3#144#0#3'Top'#3#186#0#5'Wi'
+'dth'#3#21#1#5'Align'#7#8'alBottom'#7'Columns'#14#1#7'Caption'#6#4'Form'#5'W'
+'idth'#2'd'#0#1#7'Caption'#6#4'Unit'#5'Width'#3#250#0#0#0#13'HideSelection'#8
+#8'ReadOnly'#9#9'RowSelect'#9#8'TabOrder'#2#0#9'ViewStyle'#7#8'vsReport'#0#0
+#0#9'TSplitter'#9'Splitter1'#4'Left'#3#178#0#6'Height'#3'\'#1#5'Width'#2#5#5
+'Align'#7#7'alRight'#12'ResizeAnchor'#7#7'akRight'#0#0#0#7'TBitBtn'#12'Cance'
+'lButton'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9
+'asrBottom'#24'AnchorSideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'
+#7#9'asrBottom'#4'Left'#3'|'#1#6'Height'#2#25#3'Top'#3'l'#1#5'Width'#2'Z'#7
+'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'
+#2#6#7'Caption'#6#12'CancelButton'#21'Constraints.MinHeight'#2#25#20'Constra'
+'ints.MinWidth'#2'K'#11'ModalResult'#2#2#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0
+#7'TBitBtn'#8'OkButton'#23'AnchorSideRight.Control'#7#12'CancelButton'#24'An'
+'chorSideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'
+#4'Left'#3'+'#1#6'Height'#2#25#3'Top'#3'l'#1#5'Width'#2'K'#7'Anchors'#11#7'a'
+'kRight'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'
+#6#8'OkButton'#21'Constraints.MinHeight'#2#25#20'Constraints.MinWidth'#2'K'#7
+'Enabled'#8#9'NumGlyphs'#2#0#7'OnClick'#7#13'OkButtonClick'#8'TabOrder'#2#2#0
+#0#7'TBitBtn'#10'HelpButton'#22'AnchorSideLeft.Control'#7#5'Owner'#24'Anchor'
+'SideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'L'
+'eft'#2#6#6'Height'#2#25#3'Top'#3'l'#1#5'Width'#2'O'#7'Anchors'#11#6'akLeft'
+#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#10'He'
+'lpButton'#21'Constraints.MinHeight'#2#25#20'Constraints.MinWidth'#2'K'#9'Nu'
+'mGlyphs'#2#0#7'OnClick'#7#15'HelpButtonClick'#8'TabOrder'#2#3#0#0#0
+#3'Top'#3#156#0#5'Width'#3#220#1#11'HelpContext'#2#0#13'ActiveControl'#7#13
+'ItemsTreeView'#5'Align'#7#6'alNone'#14'AllowDropFiles'#8#10'AutoScroll'#9#8
+'AutoSize'#8#11'BorderIcons'#11#12'biSystemMenu'#0#11'BorderStyle'#7#10'bsSi'
+'zeable'#7'Caption'#6#14'NewOtherDialog'#28'ChildSizing.LeftRightSpacing'#2#0
+#28'ChildSizing.TopBottomSpacing'#2#0#29'ChildSizing.HorizontalSpacing'#2#0
+#27'ChildSizing.VerticalSpacing'#2#0#27'ChildSizing.ControlsPerLine'#2#0#12
+'ClientHeight'#3#139#1#11'ClientWidth'#3#220#1#8'DockSite'#8#8'DragKind'#7#6
+'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#11'Font.Height'#2#0#10'Font.'
+'Style'#11#0#9'FormStyle'#7#8'fsNormal'#14'ParentBiDiMode'#9#10'ParentFont'#8
+#8'Position'#7#14'poScreenCenter'#13'ShowInTaskBar'#7#9'stDefault'#14'UseDoc'
+'kManager'#8#10'LCLVersion'#6#6'0.9.27'#11'WindowState'#7#8'wsNormal'#0#6'TP'
+'anel'#6'Panel1'#4'Left'#2#6#6'Height'#3'O'#1#3'Top'#2#6#5'Width'#3#208#1#11
+'HelpContext'#2#0#5'Align'#7#8'alClient'#9'Alignment'#7#8'taCenter'#8'AutoSi'
+'ze'#8#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing'
+'.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#6'!Bord'
+'erSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVerti'
+'cal'#7#7'ccaFill'#10'BevelInner'#7#6'bvNone'#10'BevelOuter'#7#6'bvNone'#10
+'BevelWidth'#2#1#11'BorderWidth'#2#0#11'BorderStyle'#7#6'bsNone'#28'ChildSiz'
+'ing.LeftRightSpacing'#2#0#28'ChildSizing.TopBottomSpacing'#2#0#29'ChildSizi'
+'ng.HorizontalSpacing'#2#0#27'ChildSizing.VerticalSpacing'#2#0#27'ChildSizin'
+'g.ControlsPerLine'#2#0#12'ClientHeight'#3'O'#1#11'ClientWidth'#3#208#1#8'Do'
+'ckSite'#8#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8
+'dmManual'#7'Enabled'#9#11'FullRepaint'#9#11'ParentColor'#9#10'ParentFont'#9
+#14'ParentShowHint'#9#8'TabOrder'#2#0#7'TabStop'#8#7'Visible'#9#0#9'TTreeVie'
+'w'#13'ItemsTreeView'#3'Tag'#2#0#22'AnchorSideLeft.Control'#7#5'Owner'#21'An'
+'chorSideTop.Control'#7#5'Owner'#4'Left'#2#0#6'Height'#3'O'#1#3'Top'#2#0#5'W'
+'idth'#3#178#0#11'HelpContext'#2#0#5'Align'#7#8'alClient'#10'AutoExpand'#8#18
+'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2
+#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.'
+'CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'c'
+'caFill'#15'BackgroundColor'#7#8'clWindow'#11'BorderStyle'#7#8'bsSingle'#11
+'BorderWidth'#2#0#5'Ctl3D'#8#17'DefaultItemHeight'#2#19#8'DragKind'#7#6'dkDr'
+'ag'#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14'Ex'
+'pandSignType'#7#14'tvestPlusMinus'#13'HideSelection'#9#8'HotTrack'#8#6'Inde'
+'nt'#2#15#11'ParentCtl3D'#9#10'ParentFont'#9#14'ParentShowHint'#9#8'ReadOnly'
+#8#16'RightClickSelect'#8#9'RowSelect'#8#10'ScrollBars'#7#10'ssAutoBoth'#14
+'SelectionColor'#7#11'clHighlight'#11'ShowButtons'#9#9'ShowLines'#9#8'ShowRo'
+'ot'#9#8'SortType'#7#6'stNone'#8'TabOrder'#2#0#8'ToolTips'#9#7'Visible'#9#10
+'OnDblClick'#7#13'OkButtonClick'#18'OnSelectionChanged'#7#29'ItemsTreeViewSe'
+'lectionChanged'#7'Options'#11#17'tvoAutoItemHeight'#16'tvoHideSelection'#21
+'tvoKeepCollapsedNodes'#14'tvoShowButtons'#12'tvoShowLines'#11'tvoShowRoot'
+#11'tvoToolTips'#0#13'TreeLineColor'#7#13'clWindowFrame'#15'ExpandSignColor'
+#7#13'clWindowFrame'#0#0#9'TGroupBox'#19'DescriptionGroupBox'#22'AnchorSideL'
+'eft.Control'#7#13'ItemsTreeView'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21
+'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20
+'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#183#0#6'Height'#3'O'#1#3'Top'
+#2#0#5'Width'#3#25#1#11'HelpContext'#2#0#5'Align'#7#7'alRight'#8'AutoSize'#8
+#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'
+#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacin'
+'g.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7
+'ccaFill'#7'Caption'#6#19'DescriptionGroupBox'#28'ChildSizing.LeftRightSpaci'
+'ng'#2#0#28'ChildSizing.TopBottomSpacing'#2#0#29'ChildSizing.HorizontalSpaci'
+'ng'#2#0#27'ChildSizing.VerticalSpacing'#2#0#27'ChildSizing.ControlsPerLine'
+#2#0#12'ClientHeight'#3'<'#1#11'ClientWidth'#3#21#1#5'Ctl3D'#8#8'DockSite'#8
+#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'
+#7'Enabled'#9#14'ParentBidiMode'#9#11'ParentColor'#9#11'ParentCtl3D'#9#10'Pa'
+'rentFont'#9#14'ParentShowHint'#9#8'TabOrder'#2#1#7'TabStop'#8#7'Visible'#9#0
+#6'TLabel'#16'DescriptionLabel'#4'Left'#2#6#6'Height'#3#160#0#3'Top'#2#6#5'W'
+'idth'#3#9#1#11'HelpContext'#2#0#5'Align'#7#8'alClient'#9'Alignment'#7#13'ta'
+'LeftJustify'#8'AutoSize'#9#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'
+#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpaci'
+'ng.Around'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSp'
+'acing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#16'DescriptionLabel'#10
,'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#6'Layout'#7#5
+'tlTop'#14'ParentBidiMode'#9#11'ParentColor'#8#10'ParentFont'#9#14'ParentSho'
+'wHint'#9#13'ShowAccelChar'#9#11'Transparent'#9#7'Visible'#9#8'WordWrap'#9#11
+'OptimalFill'#8#0#0#9'TListView'#29'InheritableComponentsListView'#4'Left'#2
+#0#6'Height'#3#144#0#3'Top'#3#172#0#5'Width'#3#21#1#11'HelpContext'#2#0#5'Al'
+'ign'#7#8'alBottom'#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19
+'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Arou'
+'nd'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.C'
+'ellAlignVertical'#7#7'ccaFill'#11'BorderWidth'#2#0#10'Checkboxes'#8#7'Colum'
+'ns'#14#1#8'AutoSize'#8#7'Caption'#6#4'Form'#5'Width'#2'd'#0#1#8'AutoSize'#8
+#7'Caption'#6#4'Unit'#5'Width'#3#250#0#0#0#11'ColumnClick'#9#10'DragCursor'#7
+#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#13'HideSelection'#8#11'Mul'
+'tiSelect'#8#14'ParentShowHint'#9#8'ReadOnly'#9#9'RowSelect'#9#10'ScrollBars'
+#7#10'ssAutoBoth'#17'ShowColumnHeaders'#9#10'SortColumn'#2#0#8'SortType'#7#6
+'stNone'#7'TabStop'#9#8'TabOrder'#2#0#8'ToolTips'#9#7'Visible'#9#9'ViewStyle'
+#7#8'vsReport'#0#0#0#9'TSplitter'#9'Splitter1'#6'Cursor'#7#8'crHSplit'#4'Lef'
+'t'#3#178#0#6'Height'#3'O'#1#3'Top'#2#0#5'Width'#2#5#11'HelpContext'#2#0#5'A'
+'lign'#7#7'alRight'#8'AutoSnap'#9#7'Beveled'#8#7'MinSize'#2#30#11'ParentColo'
+'r'#9#14'ParentShowHint'#9#12'ResizeAnchor'#7#7'akRight'#11'ResizeStyle'#7#8
+'rsUpdate'#7'Visible'#9#0#0#0#12'TButtonPanel'#11'ButtonPanel'#4'Left'#2#6#6
+'Height'#2'0'#3'Top'#3'['#1#5'Width'#3#208#1#11'HelpContext'#2#0#5'Align'#7#8
+'alBottom'#8'AutoSize'#9#11'ButtonOrder'#7#9'boDefault'#8'TabOrder'#2#1#13'D'
+'efaultButton'#7#4'pbOK'#11'ShowButtons'#11#4'pbOK'#8'pbCancel'#6'pbHelp'#0
+#10'ShowGlyphs'#11#4'pbOK'#8'pbCancel'#7'pbClose'#6'pbHelp'#0#7'Visible'#9#0
+#0#0
]);

24
ide/newdialog.pas
View File

@ -44,7 +44,7 @@ uses
Forms, StdCtrls, ExtCtrls, FileProcs,
IDEWindowIntf, IDEImagesIntf, NewItemIntf, PackageIntf, ProjectIntf,
LazIDEIntf,
LazarusIDEStrConsts, IDEContextHelpEdit, Project, MainIntf;
LazarusIDEStrConsts, IDEContextHelpEdit, Project, MainIntf, ButtonPanel;
type
{ TNewLazIDEItemCategory }
@ -138,18 +138,16 @@ type
{ TNewOtherDialog }
TNewOtherDialog = class(TForm)
CancelButton: TBitBtn;
ButtonPanel: TButtonPanel;
DescriptionGroupBox: TGroupBox;
DescriptionLabel: TLabel;
HelpButton: TBitBtn;
ItemsTreeView: TTreeView;
InheritableComponentsListView: TListView;
OkButton: TBitBtn;
Panel1: TPanel;
Splitter1: TSplitter;
procedure HelpButtonClick(Sender: TObject);
procedure ItemsTreeViewSelectionChanged(Sender: TObject);
procedure OkButtonClick(Sender: TObject);
procedure OKButtonClick(Sender: TObject);
private
ImageIndexFolder: integer;
ImageIndexTemplate: integer;
@ -186,7 +184,7 @@ end;
{ TNewOtherDialog }
procedure TNewOtherDialog.OkButtonClick(Sender: TObject);
procedure TNewOtherDialog.OKButtonClick(Sender: TObject);
var
AInheritedNode: TListItem;
ANode: TTreeNode;
@ -234,7 +232,7 @@ begin
// Set the resource class of the file descriptor
InhCompItem.ResourceClass := TPersistentClass(AncestorComponent.ClassType);
InhCompItem.InheritedUnit := AnUnitInfo;
//DebugLn(['TNewOtherDialog.OkButtonClick ',InhCompItem.InheritedUnit.Filename,' ',dbgsname(InhCompItem.ResourceClass)]);
//DebugLn(['TNewOtherDialog.OKButtonClick ',InhCompItem.InheritedUnit.Filename,' ',dbgsname(InhCompItem.ResourceClass)]);
end
else
begin
@ -326,7 +324,7 @@ end;
procedure TNewOtherDialog.ItemsTreeViewSelectionChanged(Sender: TObject);
begin
OkButton.Enabled := (ItemsTreeView.Selected <> nil) and
ButtonPanel.OKButton.Enabled := (ItemsTreeView.Selected <> nil) and
(TObject(ItemsTreeView.Selected.Data) is TNewIDEItemTemplate);
UpdateDescription;
end;
@ -344,15 +342,9 @@ begin
DescriptionGroupBox.Caption := lisToDoLDescription;
DescriptionLabel.Caption := '';
OkButton.Caption := lisLazBuildOk;
CancelButton.Caption := dlgCancel;
HelpButton.Caption := lisPckEditHelp;
DefaultControl := OkButton;
CancelControl := CancelButton;
CancelButton.LoadGlyphFromLazarusResource('btn_cancel');
OkButton.LoadGlyphFromLazarusResource('btn_ok');
HelpButton.LoadGlyphFromLazarusResource('btn_help');
ButtonPanel.OKButton.OnClick := @OKButtonClick;
ButtonPanel.HelpButton.OnClick := @HelpButtonClick;
end;
procedure TNewOtherDialog.UpdateDescription;

143
ide/newprojectdlg.lfm
View File

@ -33,93 +33,18 @@ object NewProjectDialog: TNewProjectDialog
UseDockManager = False
LCLVersion = '0.9.27'
WindowState = wsNormal
object CancelButton: TBitBtn
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 304
Height = 34
Top = 200
Width = 80
HelpContext = 0
Align = alNone
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 6
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Cancel = True
Caption = 'Cancel'
Default = False
Enabled = True
Kind = bkCancel
Layout = blGlyphLeft
Margin = -1
ModalResult = 2
NumGlyphs = 0
OnClick = CancelButtonClick
ParentFont = True
ParentShowHint = True
Spacing = 3
TabOrder = 0
TabStop = True
Visible = True
end
object CreateButton: TBitBtn
AnchorSideRight.Control = CancelButton
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 220
Height = 32
Top = 202
Width = 78
HelpContext = 0
Align = alNone
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 6
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Cancel = False
Caption = '&Create'
Default = True
Enabled = True
Kind = bkYes
Layout = blGlyphLeft
Margin = -1
ModalResult = 6
NumGlyphs = 0
OnClick = CreateButtonClick
ParentFont = True
ParentShowHint = True
Spacing = 3
TabOrder = 1
TabStop = True
Visible = True
end
object Panel1: TPanel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = CancelButton
Left = 6
Height = 188
Height = 180
Top = 6
Width = 378
HelpContext = 0
Align = alNone
Align = alClient
Alignment = taCenter
Anchors = [akTop, akLeft, akRight, akBottom]
AutoSize = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
@ -138,8 +63,8 @@ object NewProjectDialog: TNewProjectDialog
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
ClientHeight = 184
ClientWidth = 374
ClientHeight = 180
ClientWidth = 378
DockSite = False
DragCursor = crDrag
DragKind = dkDrag
@ -149,14 +74,14 @@ object NewProjectDialog: TNewProjectDialog
ParentColor = True
ParentFont = True
ParentShowHint = True
TabOrder = 2
TabOrder = 0
TabStop = False
Visible = True
object DescriptionGroupBox: TGroupBox
Left = 170
Height = 184
Height = 180
Top = 0
Width = 204
Width = 208
HelpContext = 0
Align = alClient
AutoSize = False
@ -173,8 +98,8 @@ object NewProjectDialog: TNewProjectDialog
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
ClientHeight = 165
ClientWidth = 200
ClientHeight = 161
ClientWidth = 204
Ctl3D = False
DockSite = False
DragCursor = crDrag
@ -191,9 +116,9 @@ object NewProjectDialog: TNewProjectDialog
Visible = True
object HelpLabel: TLabel
Left = 6
Height = 153
Height = 149
Top = 6
Width = 188
Width = 192
HelpContext = 0
Align = alClient
Alignment = taLeftJustify
@ -223,7 +148,7 @@ object NewProjectDialog: TNewProjectDialog
end
object ListBox: TListBox
Left = 0
Height = 184
Height = 180
Top = 0
Width = 165
HelpContext = 0
@ -247,6 +172,7 @@ object NewProjectDialog: TNewProjectDialog
IntegralHeight = False
ItemHeight = 0
MultiSelect = False
OnDblClick = ListBoxDblClick
ParentBidiMode = True
ParentShowHint = True
ParentFont = True
@ -260,7 +186,7 @@ object NewProjectDialog: TNewProjectDialog
object Splitter1: TSplitter
Cursor = crHSplit
Left = 165
Height = 184
Height = 180
Top = 0
Width = 5
HelpContext = 0
@ -275,40 +201,19 @@ object NewProjectDialog: TNewProjectDialog
Visible = True
end
end
object HelpButton: TBitBtn
AnchorSideLeft.Control = Owner
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
object ButtonPanel: TButtonPanel
Left = 6
Height = 34
Top = 200
Width = 66
Height = 48
Top = 192
Width = 378
HelpContext = 0
Align = alNone
Anchors = [akLeft, akBottom]
Align = alBottom
AutoSize = True
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 6
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Cancel = False
Caption = '&Help'
Default = False
Enabled = True
Kind = bkHelp
Layout = blGlyphLeft
Margin = -1
ModalResult = 0
NumGlyphs = 0
OnClick = HelpButtonClick
ParentFont = True
ParentShowHint = True
Spacing = 3
TabOrder = 3
TabStop = True
ButtonOrder = boDefault
TabOrder = 1
DefaultButton = pbOK
ShowButtons = [pbOK, pbCancel, pbHelp]
ShowGlyphs = [pbOK, pbCancel, pbClose, pbHelp]
Visible = True
end
end

142
ide/newprojectdlg.lrs
View File

@ -13,90 +13,60 @@ LazarusResources.Add('TNewProjectDialog','FORMDATA',[
+#11'Font.Height'#2#0#10'Font.Style'#11#0#9'FormStyle'#7#8'fsNormal'#14'Paren'
+'tBiDiMode'#9#10'ParentFont'#8#8'Position'#7#14'poScreenCenter'#13'ShowInTas'
+'kBar'#7#9'stDefault'#14'UseDockManager'#8#10'LCLVersion'#6#6'0.9.27'#11'Win'
+'dowState'#7#8'wsNormal'#0#7'TBitBtn'#12'CancelButton'#23'AnchorSideRight.Co'
+'ntrol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBott'
+'om.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3'0'
+#1#6'Height'#2'"'#3'Top'#3#200#0#5'Width'#2'P'#11'HelpContext'#2#0#5'Align'#7
+#6'alNone'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#18'BorderSpa'
+'cing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'Bor'
+'derSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#6'!BorderSpacing.CellAlig'
+'nHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#6
+'Cancel'#9#7'Caption'#6#6'Cancel'#7'Default'#8#7'Enabled'#9#4'Kind'#7#8'bkCa'
+'ncel'#6'Layout'#7#11'blGlyphLeft'#6'Margin'#2#255#11'ModalResult'#2#2#9'Num'
+'Glyphs'#2#0#7'OnClick'#7#17'CancelButtonClick'#10'ParentFont'#9#14'ParentSh'
+'owHint'#9#7'Spacing'#2#3#8'TabOrder'#2#0#7'TabStop'#9#7'Visible'#9#0#0#7'TB'
+'itBtn'#12'CreateButton'#23'AnchorSideRight.Control'#7#12'CancelButton'#24'A'
+'nchorSideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'
+#4'Left'#3#220#0#6'Height'#2' '#3'Top'#3#202#0#5'Width'#2'N'#11'HelpContext'
+#2#0#5'Align'#7#6'alNone'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'
+#9#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Rig'
+'ht'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#6'!BorderSp'
+'acing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'
+#7#7'ccaFill'#6'Cancel'#8#7'Caption'#6#7'&Create'#7'Default'#9#7'Enabled'#9#4
+'Kind'#7#5'bkYes'#6'Layout'#7#11'blGlyphLeft'#6'Margin'#2#255#11'ModalResult'
+#2#6#9'NumGlyphs'#2#0#7'OnClick'#7#17'CreateButtonClick'#10'ParentFont'#9#14
+'ParentShowHint'#9#7'Spacing'#2#3#8'TabOrder'#2#1#7'TabStop'#9#7'Visible'#9#0
+#0#6'TPanel'#6'Panel1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTo'
+'p.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideR'
+'ight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#12'CancelButton'#4
+'Left'#2#6#6'Height'#3#188#0#3'Top'#2#6#5'Width'#3'z'#1#11'HelpContext'#2#0#5
+'Align'#7#6'alNone'#9'Alignment'#7#8'taCenter'#7'Anchors'#11#5'akTop'#6'akLe'
+'ft'#7'akRight'#8'akBottom'#0#8'AutoSize'#8#18'BorderSpacing.Left'#2#0#17'Bo'
+'rderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2
+#0#20'BorderSpacing.Around'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'ccaF'
+'ill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#10'BevelInner'#7#6'bv'
+'None'#10'BevelOuter'#7#6'bvNone'#10'BevelWidth'#2#1#11'BorderWidth'#2#0#11
+'BorderStyle'#7#6'bsNone'#28'ChildSizing.LeftRightSpacing'#2#0#28'ChildSizin'
+'g.TopBottomSpacing'#2#0#29'ChildSizing.HorizontalSpacing'#2#0#27'ChildSizin'
+'g.VerticalSpacing'#2#0#27'ChildSizing.ControlsPerLine'#2#0#12'ClientHeight'
+#3#184#0#11'ClientWidth'#3'v'#1#8'DockSite'#8#10'DragCursor'#7#6'crDrag'#8'D'
+'ragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#11'FullRepaint'
+#9#11'ParentColor'#9#10'ParentFont'#9#14'ParentShowHint'#9#8'TabOrder'#2#2#7
+'TabStop'#8#7'Visible'#9#0#9'TGroupBox'#19'DescriptionGroupBox'#4'Left'#3#170
+#0#6'Height'#3#184#0#3'Top'#2#0#5'Width'#3#204#0#11'HelpContext'#2#0#5'Align'
+#7#8'alClient'#8'AutoSize'#8#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'
+#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpaci'
+'ng.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSp'
+'acing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#19'DescriptionGroupBox'
+#28'ChildSizing.LeftRightSpacing'#2#0#28'ChildSizing.TopBottomSpacing'#2#0#29
+'ChildSizing.HorizontalSpacing'#2#0#27'ChildSizing.VerticalSpacing'#2#0#27'C'
+'hildSizing.ControlsPerLine'#2#0#12'ClientHeight'#3#165#0#11'ClientWidth'#3
+#200#0#5'Ctl3D'#8#8'DockSite'#8#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'd'
+'kDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14'ParentBidiMode'#9#11'Paren'
+'tColor'#9#11'ParentCtl3D'#9#10'ParentFont'#9#14'ParentShowHint'#9#8'TabOrde'
+'r'#2#0#7'TabStop'#8#7'Visible'#9#0#6'TLabel'#9'HelpLabel'#4'Left'#2#6#6'Hei'
,'ght'#3#153#0#3'Top'#2#6#5'Width'#3#188#0#11'HelpContext'#2#0#5'Align'#7#8'a'
+'lClient'#9'Alignment'#7#13'taLeftJustify'#8'AutoSize'#9#18'BorderSpacing.Le'
+'ft'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpac'
+'ing.Bottom'#2#0#20'BorderSpacing.Around'#2#6'!BorderSpacing.CellAlignHorizo'
+'ntal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Capti'
+'on'#6#9'HelpLabel'#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'E'
+'nabled'#9#6'Layout'#7#5'tlTop'#14'ParentBidiMode'#9#11'ParentColor'#8#10'Pa'
+'rentFont'#9#14'ParentShowHint'#9#13'ShowAccelChar'#9#11'Transparent'#9#7'Vi'
+'sible'#9#8'WordWrap'#9#11'OptimalFill'#8#0#0#0#8'TListBox'#7'ListBox'#4'Lef'
+'t'#2#0#6'Height'#3#184#0#3'Top'#2#0#5'Width'#3#165#0#11'HelpContext'#2#0#5
+'Align'#7#6'alLeft'#7'Anchors'#11#0#18'BorderSpacing.Left'#2#0#17'BorderSpac'
+'ing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'Bo'
+'rderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31
+'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#11'BorderStyle'#7#8'bsSingle'
+#16'ClickOnSelChange'#9#7'Columns'#2#0#10'DragCursor'#7#6'crDrag'#8'DragKind'
+#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#14'ExtendedSelect'#9#7'Enabled'#9#14
+'IntegralHeight'#8#10'ItemHeight'#2#0#11'MultiSelect'#8#14'ParentBidiMode'#9
+#14'ParentShowHint'#9#10'ParentFont'#9#6'Sorted'#8#5'Style'#7#10'lbStandard'
+#8'TabOrder'#2#1#7'TabStop'#9#8'TopIndex'#2#255#7'Visible'#9#0#0#9'TSplitter'
+#9'Splitter1'#6'Cursor'#7#8'crHSplit'#4'Left'#3#165#0#6'Height'#3#184#0#3'To'
+'p'#2#0#5'Width'#2#5#11'HelpContext'#2#0#5'Align'#7#6'alLeft'#8'AutoSnap'#9#7
+'Beveled'#8#7'MinSize'#2#30#11'ParentColor'#9#14'ParentShowHint'#9#12'Resize'
+'Anchor'#7#6'akLeft'#11'ResizeStyle'#7#8'rsUpdate'#7'Visible'#9#0#0#0#7'TBit'
+'Btn'#10'HelpButton'#22'AnchorSideLeft.Control'#7#5'Owner'#24'AnchorSideBott'
+'om.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2#6
+#6'Height'#2'"'#3'Top'#3#200#0#5'Width'#2'B'#11'HelpContext'#2#0#5'Align'#7#6
+'alNone'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#18'BorderSpacin'
+'g.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'Border'
+'Spacing.Bottom'#2#0#20'BorderSpacing.Around'#2#6'!BorderSpacing.CellAlignHo'
+'rizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#6'C'
+'ancel'#8#7'Caption'#6#5'&Help'#7'Default'#8#7'Enabled'#9#4'Kind'#7#6'bkHelp'
+#6'Layout'#7#11'blGlyphLeft'#6'Margin'#2#255#11'ModalResult'#2#0#9'NumGlyphs'
+#2#0#7'OnClick'#7#15'HelpButtonClick'#10'ParentFont'#9#14'ParentShowHint'#9#7
+'Spacing'#2#3#8'TabOrder'#2#3#7'TabStop'#9#7'Visible'#9#0#0#0
+'dowState'#7#8'wsNormal'#0#6'TPanel'#6'Panel1'#22'AnchorSideLeft.Control'#7#5
+'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5
+'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#3#180#0
+#3'Top'#2#6#5'Width'#3'z'#1#11'HelpContext'#2#0#5'Align'#7#8'alClient'#9'Ali'
+'gnment'#7#8'taCenter'#8'AutoSize'#8#18'BorderSpacing.Left'#2#0#17'BorderSpa'
+'cing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'B'
+'orderSpacing.Around'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31
+'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#10'BevelInner'#7#6'bvNone'#10
+'BevelOuter'#7#6'bvNone'#10'BevelWidth'#2#1#11'BorderWidth'#2#0#11'BorderSty'
+'le'#7#6'bsNone'#28'ChildSizing.LeftRightSpacing'#2#0#28'ChildSizing.TopBott'
+'omSpacing'#2#0#29'ChildSizing.HorizontalSpacing'#2#0#27'ChildSizing.Vertica'
+'lSpacing'#2#0#27'ChildSizing.ControlsPerLine'#2#0#12'ClientHeight'#3#180#0
+#11'ClientWidth'#3'z'#1#8'DockSite'#8#10'DragCursor'#7#6'crDrag'#8'DragKind'
+#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#11'FullRepaint'#9#11'Par'
+'entColor'#9#10'ParentFont'#9#14'ParentShowHint'#9#8'TabOrder'#2#0#7'TabStop'
+#8#7'Visible'#9#0#9'TGroupBox'#19'DescriptionGroupBox'#4'Left'#3#170#0#6'Hei'
+'ght'#3#180#0#3'Top'#2#0#5'Width'#3#208#0#11'HelpContext'#2#0#5'Align'#7#8'a'
+'lClient'#8'AutoSize'#8#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0
+#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.A'
+'round'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacin'
+'g.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#19'DescriptionGroupBox'#28'C'
+'hildSizing.LeftRightSpacing'#2#0#28'ChildSizing.TopBottomSpacing'#2#0#29'Ch'
+'ildSizing.HorizontalSpacing'#2#0#27'ChildSizing.VerticalSpacing'#2#0#27'Chi'
+'ldSizing.ControlsPerLine'#2#0#12'ClientHeight'#3#161#0#11'ClientWidth'#3#204
+#0#5'Ctl3D'#8#8'DockSite'#8#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDra'
+'g'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14'ParentBidiMode'#9#11'ParentCol'
+'or'#9#11'ParentCtl3D'#9#10'ParentFont'#9#14'ParentShowHint'#9#8'TabOrder'#2
+#0#7'TabStop'#8#7'Visible'#9#0#6'TLabel'#9'HelpLabel'#4'Left'#2#6#6'Height'#3
+#149#0#3'Top'#2#6#5'Width'#3#192#0#11'HelpContext'#2#0#5'Align'#7#8'alClient'
+#9'Alignment'#7#13'taLeftJustify'#8'AutoSize'#9#18'BorderSpacing.Left'#2#0#17
+'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'
+#2#0#20'BorderSpacing.Around'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'cc'
+'aFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#9'Help'
+'Label'#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#6
+'Layout'#7#5'tlTop'#14'ParentBidiMode'#9#11'ParentColor'#8#10'ParentFont'#9
+#14'ParentShowHint'#9#13'ShowAccelChar'#9#11'Transparent'#9#7'Visible'#9#8'W'
+'ordWrap'#9#11'OptimalFill'#8#0#0#0#8'TListBox'#7'ListBox'#4'Left'#2#0#6'Hei'
+'ght'#3#180#0#3'Top'#2#0#5'Width'#3#165#0#11'HelpContext'#2#0#5'Align'#7#6'a'
+'lLeft'#7'Anchors'#11#0#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0
+#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.A'
+'round'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacin'
+'g.CellAlignVertical'#7#7'ccaFill'#11'BorderStyle'#7#8'bsSingle'#16'ClickOnS'
+'elChange'#9#7'Columns'#2#0#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDra'
+'g'#8'DragMode'#7#8'dmManual'#14'ExtendedSelect'#9#7'Enabled'#9#14'IntegralH'
+'eight'#8#10'ItemHeight'#2#0#11'MultiSelect'#8#10'OnDblClick'#7#15'ListBoxDb'
+'lClick'#14'ParentBidiMode'#9#14'ParentShowHint'#9#10'ParentFont'#9#6'Sorted'
+#8#5'Style'#7#10'lbStandard'#8'TabOrder'#2#1#7'TabStop'#9#8'TopIndex'#2#255#7
+'Visible'#9#0#0#9'TSplitter'#9'Splitter1'#6'Cursor'#7#8'crHSplit'#4'Left'#3
+#165#0#6'Height'#3#180#0#3'Top'#2#0#5'Width'#2#5#11'HelpContext'#2#0#5'Align'
+#7#6'alLeft'#8'AutoSnap'#9#7'Beveled'#8#7'MinSize'#2#30#11'ParentColor'#9#14
+'ParentShowHint'#9#12'ResizeAnchor'#7#6'akLeft'#11'ResizeStyle'#7#8'rsUpdate'
+#7'Visible'#9#0#0#0#12'TButtonPanel'#11'ButtonPanel'#4'Left'#2#6#6'Height'#2
,'0'#3'Top'#3#192#0#5'Width'#3'z'#1#11'HelpContext'#2#0#5'Align'#7#8'alBottom'
+#8'AutoSize'#9#11'ButtonOrder'#7#9'boDefault'#8'TabOrder'#2#1#13'DefaultButt'
+'on'#7#4'pbOK'#11'ShowButtons'#11#4'pbOK'#8'pbCancel'#6'pbHelp'#0#10'ShowGly'
+'phs'#11#4'pbOK'#8'pbCancel'#7'pbClose'#6'pbHelp'#0#7'Visible'#9#0#0#0
]);

30
ide/newprojectdlg.pp
View File

@ -32,24 +32,21 @@ interface
uses
Classes, SysUtils, Forms, Graphics, Controls, LResources, Project, Buttons,
StdCtrls, ProjectIntf, ExtCtrls, LazarusIDEStrConsts, IDEContextHelpEdit;
StdCtrls, ProjectIntf, ExtCtrls, LazarusIDEStrConsts, IDEContextHelpEdit,
ButtonPanel;
type
{ TNewProjectDialog }
TNewProjectDialog = class(TForm)
HelpButton: TBitBtn;
CreateButton: TBitBtn;
CancelButton: TBitBtn;
ButtonPanel: TButtonPanel;
DescriptionGroupBox: TGroupBox;
HelpLabel: TLabel;
ListBox: TListBox;
Panel1: TPanel;
Splitter1: TSplitter;
procedure HelpButtonClick(Sender: TObject);
procedure CreateButtonClick(Sender:TObject);
procedure CancelButtonClick(Sender:TObject);
procedure ListBoxDblClick(Sender: TObject);
procedure ListBoxSelectionChange(Sender: TObject; User: boolean);
private
@ -126,18 +123,8 @@ begin
OnSelectionChange:=@ListBoxSelectionChange;
end;
CancelButton.Caption:=dlgCancel;
CancelButton.LoadGlyphFromLazarusResource('btn_cancel');
CreateButton.Caption:=lisNPCreate;
CreateButton.LoadGlyphFromLazarusResource('btn_ok');
DescriptionGroupBox.Caption := lisToDoLDescription;
HelpButton.LoadGlyphFromLazarusResource('btn_help');
HelpLabel.Caption:=lisNPSelectAProjectType;
end;
procedure TNewProjectDialog.CreateButtonClick(Sender:TObject);
begin
ModalResult:=mrOk;
ButtonPanel.HelpButton.OnClick := @HelpButtonClick;
end;
procedure TNewProjectDialog.HelpButtonClick(Sender: TObject);
@ -145,15 +132,10 @@ begin
ShowContextHelpForIDE(Self);
end;
procedure TNewProjectDialog.CancelButtonClick(Sender:TObject);
begin
ModalResult:=mrCancel;
end;
procedure TNewProjectDialog.ListBoxDblClick(Sender: TObject);
begin
if ListBox.ItemAtPos(ListBox.ScreenToClient(Mouse.CursorPos),true) >= 0
then CreateButtonClick(Self);
if ListBox.ItemAtPos(ListBox.ScreenToClient(Mouse.CursorPos),true) >= 0 then
ModalResult:=mrOk;
end;
procedure TNewProjectDialog.ListBoxSelectionChange(Sender: TObject;

2031
ide/projectopts.lfm
View File

File diff suppressed because it is too large Load Diff

1181
ide/projectopts.lrs
View File

File diff suppressed because it is too large Load Diff

16
ide/projectopts.pp
View File

@ -41,7 +41,8 @@ uses
FileUtil, IDEContextHelpEdit, EnvironmentOpts,
IDEWindowIntf, IDEImagesIntf, ProjectIntf, IDEDialogs,
IDEOptionDefs, LazarusIDEStrConsts, Project, IDEProcs, W32VersionInfo,
VersionInfoAdditionalInfo, W32Manifest, ApplicationBundle, ExtDlgs;
VersionInfoAdditionalInfo, W32Manifest, ApplicationBundle, ExtDlgs,
ButtonPanel;
type
@ -50,6 +51,7 @@ type
TProjectOptionsDialog = class(TForm)
AdditionalInfoButton: TBitBtn;
Bevel1: TBevel;
ButtonPanel: TButtonPanel;
ClearIconButton: TBitBtn;
SaveIconButton: TBitBtn;
LoadIconButton: TBitBtn;
@ -141,13 +143,8 @@ type
POOutDirEdit: TEdit;
EnableI18NCheckBox: TCheckBox;
I18NGroupBox: TGroupBox;
PODBtnPanel: TPanel;
PoOutDirLabel: TLabel;
// buttons at bottom
HelpButton: TBitBtn;
CancelButton: TBitBtn;
OKButton: TBitBtn;
procedure AdditionalInfoButtonClick(Sender: TObject);
procedure ClearIconButtonClick(Sender: TObject);
@ -265,13 +262,8 @@ begin
inherited Create(TheOwner);
Caption := dlgProjectOptions;
OKButton.Caption:=lisOkBtn;
CancelButton.Caption:=dlgCancel;
HelpButton.Caption:=lisMenuHelp;
OKButton.LoadGlyphFromLazarusResource('btn_ok');
CancelButton.LoadGlyphFromLazarusResource('btn_cancel');
HelpButton.LoadGlyphFromLazarusResource('btn_help');
ButtonPanel.HelpButton.OnClick := @HelpButtonClick;
NoteBook.PageIndex := 0;

478
ide/versioninfoadditionalinfo.lfm
View File

@ -3,121 +3,376 @@ object VersionInfoAdditinalInfoForm: TVersionInfoAdditinalInfoForm
Height = 296
Top = 174
Width = 395
HelpContext = 0
ActiveControl = CommentsEdit
Align = alNone
AllowDropFiles = False
AutoScroll = True
AutoSize = False
BorderIcons = []
BorderStyle = bsSizeable
Caption = 'Additional Information'
ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
ClientHeight = 296
ClientWidth = 395
Constraints.MinHeight = 296
Constraints.MinWidth = 395
DockSite = False
DragKind = dkDrag
DragMode = dmManual
Enabled = True
Font.Height = 0
Font.Style = []
FormStyle = fsNormal
ParentBiDiMode = True
ParentFont = False
Position = poOwnerFormCenter
ShowInTaskBar = stDefault
UseDockManager = False
LCLVersion = '0.9.27'
WindowState = wsNormal
object AdditionalInfoGroupBox: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = CancelButton
Left = 6
Height = 253
Height = 236
Top = 6
Width = 383
Anchors = [akTop, akLeft, akRight, akBottom]
HelpContext = 0
Align = alClient
AutoSize = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 6
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'Additional Information'
ClientHeight = 235
ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
ClientHeight = 217
ClientWidth = 379
Ctl3D = False
DockSite = False
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
ParentBidiMode = True
ParentColor = True
ParentCtl3D = True
ParentFont = True
ParentShowHint = True
TabOrder = 0
TabStop = False
Visible = True
object CommentsLabel: TLabel
AnchorSideTop.Control = CommentsEdit
AnchorSideTop.Side = asrCenter
Left = 6
Height = 14
Top = 12
Width = 55
Height = 18
Top = 9
Width = 76
HelpContext = 0
Align = alNone
Alignment = taLeftJustify
AutoSize = True
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'Comments:'
DragCursor = crDrag
DragMode = dmManual
Enabled = True
Layout = tlTop
ParentBidiMode = True
ParentColor = False
ParentFont = True
ParentShowHint = True
ShowAccelChar = True
Transparent = True
Visible = True
WordWrap = False
OptimalFill = False
end
object CompanyLabel: TLabel
AnchorSideTop.Control = CompanyEdit
AnchorSideTop.Side = asrCenter
Left = 6
Height = 14
Top = 44
Width = 50
Height = 18
Top = 38
Width = 65
HelpContext = 0
Align = alNone
Alignment = taLeftJustify
AutoSize = True
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'Company:'
DragCursor = crDrag
DragMode = dmManual
Enabled = True
Layout = tlTop
ParentBidiMode = True
ParentColor = False
ParentFont = True
ParentShowHint = True
ShowAccelChar = True
Transparent = True
Visible = True
WordWrap = False
OptimalFill = False
end
object InternalNameLabel: TLabel
AnchorSideTop.Control = InternalNameEdit
AnchorSideTop.Side = asrCenter
Left = 6
Height = 14
Top = 76
Width = 73
Height = 18
Top = 68
Width = 96
HelpContext = 0
Align = alNone
Alignment = taLeftJustify
AutoSize = True
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'Internal Name:'
DragCursor = crDrag
DragMode = dmManual
Enabled = True
Layout = tlTop
ParentBidiMode = True
ParentColor = False
ParentFont = True
ParentShowHint = True
ShowAccelChar = True
Transparent = True
Visible = True
WordWrap = False
OptimalFill = False
end
object LegalTrademarksLabel: TLabel
AnchorSideTop.Control = LegalTrademarksEdit
AnchorSideTop.Side = asrCenter
Left = 6
Height = 14
Top = 108
Width = 89
Height = 18
Top = 97
Width = 117
HelpContext = 0
Align = alNone
Alignment = taLeftJustify
AutoSize = True
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'Legal Trademarks:'
DragCursor = crDrag
DragMode = dmManual
Enabled = True
Layout = tlTop
ParentBidiMode = True
ParentColor = False
ParentFont = True
ParentShowHint = True
ShowAccelChar = True
Transparent = True
Visible = True
WordWrap = False
OptimalFill = False
end
object OriginalFileNameLabel: TLabel
AnchorSideTop.Control = OriginalFileNameEdit
AnchorSideTop.Side = asrCenter
Left = 6
Height = 14
Top = 140
Width = 90
Height = 18
Top = 127
Width = 120
HelpContext = 0
Align = alNone
Alignment = taLeftJustify
AutoSize = True
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'Original File Name:'
DragCursor = crDrag
DragMode = dmManual
Enabled = True
Layout = tlTop
ParentBidiMode = True
ParentColor = False
ParentFont = True
ParentShowHint = True
ShowAccelChar = True
Transparent = True
Visible = True
WordWrap = False
OptimalFill = False
end
object ProductNameLabel: TLabel
AnchorSideTop.Control = ProductNameEdit
AnchorSideTop.Side = asrCenter
Left = 6
Height = 14
Top = 172
Width = 72
Height = 18
Top = 156
Width = 97
HelpContext = 0
Align = alNone
Alignment = taLeftJustify
AutoSize = True
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'Product Name:'
DragCursor = crDrag
DragMode = dmManual
Enabled = True
Layout = tlTop
ParentBidiMode = True
ParentColor = False
ParentFont = True
ParentShowHint = True
ShowAccelChar = True
Transparent = True
Visible = True
WordWrap = False
OptimalFill = False
end
object ProductVersionLabel: TLabel
AnchorSideTop.Control = ProductVersionEdit
AnchorSideTop.Side = asrCenter
Left = 6
Height = 14
Top = 204
Width = 80
Height = 18
Top = 186
Width = 105
HelpContext = 0
Align = alNone
Alignment = taLeftJustify
AutoSize = True
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'Product Version:'
DragCursor = crDrag
DragMode = dmManual
Enabled = True
Layout = tlTop
ParentBidiMode = True
ParentColor = False
ParentFont = True
ParentShowHint = True
ShowAccelChar = True
Transparent = True
Visible = True
WordWrap = False
OptimalFill = False
end
object CommentsEdit: TEdit
AnchorSideRight.Control = AdditionalInfoGroupBox
AnchorSideRight.Side = asrBottom
Left = 144
Height = 23
Top = 8
Top = 7
Width = 229
HelpContext = 0
Align = alNone
Anchors = [akLeft, akRight]
AutoSize = False
AutoSelect = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 6
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
CharCase = ecNormal
DragCursor = crDrag
DragMode = dmManual
EchoMode = emNormal
Enabled = True
MaxLength = -1
ParentBidiMode = True
ParentFont = True
ParentShowHint = True
PasswordChar = #0
ReadOnly = False
TabStop = True
TabOrder = 0
Visible = True
end
object CompanyEdit: TEdit
AnchorSideRight.Control = AdditionalInfoGroupBox
AnchorSideRight.Side = asrBottom
Left = 144
Height = 23
Top = 40
Top = 36
Width = 229
HelpContext = 0
Align = alNone
Anchors = [akLeft, akRight]
AutoSize = False
AutoSelect = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 6
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
CharCase = ecNormal
DragCursor = crDrag
DragMode = dmManual
EchoMode = emNormal
Enabled = True
MaxLength = -1
ParentBidiMode = True
ParentFont = True
ParentShowHint = True
PasswordChar = #0
ReadOnly = False
TabStop = True
TabOrder = 1
Visible = True
end
object InternalNameEdit: TEdit
AnchorSideLeft.Control = CommentsEdit
@ -125,11 +380,34 @@ object VersionInfoAdditinalInfoForm: TVersionInfoAdditinalInfoForm
AnchorSideRight.Side = asrBottom
Left = 144
Height = 23
Top = 72
Top = 66
Width = 229
HelpContext = 0
Align = alNone
Anchors = [akLeft, akRight]
AutoSize = False
AutoSelect = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 6
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
CharCase = ecNormal
DragCursor = crDrag
DragMode = dmManual
EchoMode = emNormal
Enabled = True
MaxLength = -1
ParentBidiMode = True
ParentFont = True
ParentShowHint = True
PasswordChar = #0
ReadOnly = False
TabStop = True
TabOrder = 2
Visible = True
end
object LegalTrademarksEdit: TEdit
AnchorSideLeft.Control = CommentsEdit
@ -137,11 +415,34 @@ object VersionInfoAdditinalInfoForm: TVersionInfoAdditinalInfoForm
AnchorSideRight.Side = asrBottom
Left = 144
Height = 23
Top = 104
Top = 95
Width = 229
HelpContext = 0
Align = alNone
Anchors = [akLeft, akRight]
AutoSize = False
AutoSelect = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 6
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
CharCase = ecNormal
DragCursor = crDrag
DragMode = dmManual
EchoMode = emNormal
Enabled = True
MaxLength = -1
ParentBidiMode = True
ParentFont = True
ParentShowHint = True
PasswordChar = #0
ReadOnly = False
TabStop = True
TabOrder = 3
Visible = True
end
object OriginalFileNameEdit: TEdit
AnchorSideLeft.Control = CommentsEdit
@ -149,11 +450,34 @@ object VersionInfoAdditinalInfoForm: TVersionInfoAdditinalInfoForm
AnchorSideRight.Side = asrBottom
Left = 144
Height = 23
Top = 136
Top = 125
Width = 229
HelpContext = 0
Align = alNone
Anchors = [akLeft, akRight]
AutoSize = False
AutoSelect = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 6
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
CharCase = ecNormal
DragCursor = crDrag
DragMode = dmManual
EchoMode = emNormal
Enabled = True
MaxLength = -1
ParentBidiMode = True
ParentFont = True
ParentShowHint = True
PasswordChar = #0
ReadOnly = False
TabStop = True
TabOrder = 4
Visible = True
end
object ProductNameEdit: TEdit
AnchorSideLeft.Control = CommentsEdit
@ -161,11 +485,34 @@ object VersionInfoAdditinalInfoForm: TVersionInfoAdditinalInfoForm
AnchorSideRight.Side = asrBottom
Left = 144
Height = 23
Top = 168
Top = 154
Width = 229
HelpContext = 0
Align = alNone
Anchors = [akLeft, akRight]
AutoSize = False
AutoSelect = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 6
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
CharCase = ecNormal
DragCursor = crDrag
DragMode = dmManual
EchoMode = emNormal
Enabled = True
MaxLength = -1
ParentBidiMode = True
ParentFont = True
ParentShowHint = True
PasswordChar = #0
ReadOnly = False
TabStop = True
TabOrder = 5
Visible = True
end
object ProductVersionEdit: TEdit
AnchorSideLeft.Control = CommentsEdit
@ -173,44 +520,49 @@ object VersionInfoAdditinalInfoForm: TVersionInfoAdditinalInfoForm
AnchorSideRight.Side = asrBottom
Left = 144
Height = 23
Top = 200
Top = 184
Width = 229
HelpContext = 0
Align = alNone
Anchors = [akLeft, akRight]
AutoSize = False
AutoSelect = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 6
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
CharCase = ecNormal
DragCursor = crDrag
DragMode = dmManual
EchoMode = emNormal
Enabled = True
MaxLength = -1
ParentBidiMode = True
ParentFont = True
ParentShowHint = True
PasswordChar = #0
ReadOnly = False
TabStop = True
TabOrder = 6
Visible = True
end
end
object CancelButton: TBitBtn
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 304
Height = 25
Top = 265
Width = 85
Anchors = [akRight, akBottom]
BorderSpacing.Around = 6
Cancel = True
Caption = 'Cancel'
ModalResult = 2
NumGlyphs = 0
object ButtonPanel: TButtonPanel
Left = 6
Height = 48
Top = 248
Width = 383
HelpContext = 0
Align = alBottom
AutoSize = True
ButtonOrder = boDefault
TabOrder = 1
end
object OKButton: TBitBtn
AnchorSideTop.Control = CancelButton
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = CancelButton
Left = 216
Height = 25
Top = 265
Width = 82
Anchors = [akTop, akRight]
BorderSpacing.Right = 6
Caption = 'OK'
Default = True
ModalResult = 1
NumGlyphs = 0
TabOrder = 2
DefaultButton = pbOK
ShowButtons = [pbOK, pbCancel]
ShowGlyphs = [pbOK, pbCancel, pbClose, pbHelp]
Visible = True
end
end

247
ide/versioninfoadditionalinfo.lrs
View File

@ -2,74 +2,185 @@
LazarusResources.Add('TVersionInfoAdditinalInfoForm','FORMDATA',[
'TPF0'#29'TVersionInfoAdditinalInfoForm'#28'VersionInfoAdditinalInfoForm'#4'L'
+'eft'#3'!'#1#6'Height'#3'('#1#3'Top'#3#174#0#5'Width'#3#139#1#11'BorderIcons'
+#11#0#7'Caption'#6#22'Additional Information'#12'ClientHeight'#3'('#1#11'Cli'
+'entWidth'#3#139#1#21'Constraints.MinHeight'#3'('#1#20'Constraints.MinWidth'
+#3#139#1#10'ParentFont'#8#8'Position'#7#17'poOwnerFormCenter'#10'LCLVersion'
+#6#6'0.9.27'#0#9'TGroupBox'#22'AdditionalInfoGroupBox'#22'AnchorSideLeft.Con'
+'trol'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#20'AnchorSideRight.Si'
+'de'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#12'CancelButton'#4'Left'#2
+#6#6'Height'#3#253#0#3'Top'#2#6#5'Width'#3''#1#7'Anchors'#11#5'akTop'#6'akL'
+'eft'#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#22
+'Additional Information'#12'ClientHeight'#3#235#0#11'ClientWidth'#3'{'#1#8'T'
+'abOrder'#2#0#0#6'TLabel'#13'CommentsLabel'#21'AnchorSideTop.Control'#7#12'C'
+'ommentsEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2
+#14#3'Top'#2#12#5'Width'#2'7'#7'Caption'#6#9'Comments:'#11'ParentColor'#8#0#0
+#6'TLabel'#12'CompanyLabel'#21'AnchorSideTop.Control'#7#11'CompanyEdit'#18'A'
+'nchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#14#3'Top'#2','#5
+'Width'#2'2'#7'Caption'#6#8'Company:'#11'ParentColor'#8#0#0#6'TLabel'#17'Int'
+'ernalNameLabel'#21'AnchorSideTop.Control'#7#16'InternalNameEdit'#18'AnchorS'
+'ideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#14#3'Top'#2'L'#5'Width'
+#2'I'#7'Caption'#6#14'Internal Name:'#11'ParentColor'#8#0#0#6'TLabel'#20'Leg'
+'alTrademarksLabel'#21'AnchorSideTop.Control'#7#19'LegalTrademarksEdit'#18'A'
+'nchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#14#3'Top'#2'l'#5
+'Width'#2'Y'#7'Caption'#6#17'Legal Trademarks:'#11'ParentColor'#8#0#0#6'TLab'
+'el'#21'OriginalFileNameLabel'#21'AnchorSideTop.Control'#7#20'OriginalFileNa'
+'meEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#14#3
+'Top'#3#140#0#5'Width'#2'Z'#7'Caption'#6#19'Original File Name:'#11'ParentCo'
+'lor'#8#0#0#6'TLabel'#16'ProductNameLabel'#21'AnchorSideTop.Control'#7#15'Pr'
+'oductNameEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2
+#14#3'Top'#3#172#0#5'Width'#2'H'#7'Caption'#6#13'Product Name:'#11'ParentCol'
+'or'#8#0#0#6'TLabel'#19'ProductVersionLabel'#21'AnchorSideTop.Control'#7#18
+'ProductVersionEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Hei'
+'ght'#2#14#3'Top'#3#204#0#5'Width'#2'P'#7'Caption'#6#16'Product Version:'#11
+'ParentColor'#8#0#0#5'TEdit'#12'CommentsEdit'#23'AnchorSideRight.Control'#7
+#22'AdditionalInfoGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3
+#144#0#6'Height'#2#23#3'Top'#2#8#5'Width'#3#229#0#7'Anchors'#11#6'akLeft'#7
+'akRight'#0#19'BorderSpacing.Right'#2#6#8'TabOrder'#2#0#0#0#5'TEdit'#11'Comp'
+'anyEdit'#23'AnchorSideRight.Control'#7#22'AdditionalInfoGroupBox'#20'Anchor'
+'SideRight.Side'#7#9'asrBottom'#4'Left'#3#144#0#6'Height'#2#23#3'Top'#2'('#5
+'Width'#3#229#0#7'Anchors'#11#6'akLeft'#7'akRight'#0#19'BorderSpacing.Right'
+#2#6#8'TabOrder'#2#1#0#0#5'TEdit'#16'InternalNameEdit'#22'AnchorSideLeft.Con'
+'trol'#7#12'CommentsEdit'#23'AnchorSideRight.Control'#7#22'AdditionalInfoGro'
+'upBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#144#0#6'Height'#2
+#23#3'Top'#2'H'#5'Width'#3#229#0#7'Anchors'#11#6'akLeft'#7'akRight'#0#19'Bor'
+'derSpacing.Right'#2#6#8'TabOrder'#2#2#0#0#5'TEdit'#19'LegalTrademarksEdit'
+'eft'#3'!'#1#6'Height'#3'('#1#3'Top'#3#174#0#5'Width'#3#139#1#11'HelpContext'
+#2#0#13'ActiveControl'#7#12'CommentsEdit'#5'Align'#7#6'alNone'#14'AllowDropF'
+'iles'#8#10'AutoScroll'#9#8'AutoSize'#8#11'BorderIcons'#11#0#11'BorderStyle'
+#7#10'bsSizeable'#7'Caption'#6#22'Additional Information'#28'ChildSizing.Lef'
+'tRightSpacing'#2#0#28'ChildSizing.TopBottomSpacing'#2#0#29'ChildSizing.Hori'
+'zontalSpacing'#2#0#27'ChildSizing.VerticalSpacing'#2#0#27'ChildSizing.Contr'
+'olsPerLine'#2#0#12'ClientHeight'#3'('#1#11'ClientWidth'#3#139#1#21'Constrai'
+'nts.MinHeight'#3'('#1#20'Constraints.MinWidth'#3#139#1#8'DockSite'#8#8'Drag'
+'Kind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#11'Font.Height'#2#0
+#10'Font.Style'#11#0#9'FormStyle'#7#8'fsNormal'#14'ParentBiDiMode'#9#10'Pare'
+'ntFont'#8#8'Position'#7#17'poOwnerFormCenter'#13'ShowInTaskBar'#7#9'stDefau'
+'lt'#14'UseDockManager'#8#10'LCLVersion'#6#6'0.9.27'#11'WindowState'#7#8'wsN'
+'ormal'#0#9'TGroupBox'#22'AdditionalInfoGroupBox'#22'AnchorSideLeft.Control'
+#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9
+'asrBottom'#4'Left'#2#6#6'Height'#3#236#0#3'Top'#2#6#5'Width'#3''#1#11'Help'
+'Context'#2#0#5'Align'#7#8'alClient'#8'AutoSize'#8#18'BorderSpacing.Left'#2#0
+#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bott'
+'om'#2#0#20'BorderSpacing.Around'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7
+'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#22'A'
+'dditional Information'#28'ChildSizing.LeftRightSpacing'#2#0#28'ChildSizing.'
+'TopBottomSpacing'#2#0#29'ChildSizing.HorizontalSpacing'#2#0#27'ChildSizing.'
+'VerticalSpacing'#2#0#27'ChildSizing.ControlsPerLine'#2#0#12'ClientHeight'#3
+#217#0#11'ClientWidth'#3'{'#1#5'Ctl3D'#8#8'DockSite'#8#10'DragCursor'#7#6'cr'
+'Drag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14'Par'
+'entBidiMode'#9#11'ParentColor'#9#11'ParentCtl3D'#9#10'ParentFont'#9#14'Pare'
+'ntShowHint'#9#8'TabOrder'#2#0#7'TabStop'#8#7'Visible'#9#0#6'TLabel'#13'Comm'
+'entsLabel'#21'AnchorSideTop.Control'#7#12'CommentsEdit'#18'AnchorSideTop.Si'
+'de'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#18#3'Top'#2#9#5'Width'#2'L'#11'H'
+'elpContext'#2#0#5'Align'#7#6'alNone'#9'Alignment'#7#13'taLeftJustify'#8'Aut'
+'oSize'#9#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpac'
+'ing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!B'
+'orderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVe'
+'rtical'#7#7'ccaFill'#7'Caption'#6#9'Comments:'#10'DragCursor'#7#6'crDrag'#8
+'DragMode'#7#8'dmManual'#7'Enabled'#9#6'Layout'#7#5'tlTop'#14'ParentBidiMode'
+#9#11'ParentColor'#8#10'ParentFont'#9#14'ParentShowHint'#9#13'ShowAccelChar'
+#9#11'Transparent'#9#7'Visible'#9#8'WordWrap'#8#11'OptimalFill'#8#0#0#6'TLab'
+'el'#12'CompanyLabel'#21'AnchorSideTop.Control'#7#11'CompanyEdit'#18'AnchorS'
+'ideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#18#3'Top'#2'&'#5'Width'
+#2'A'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'Alignment'#7#13'taLeftJusti'
+'fy'#8'AutoSize'#9#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'B'
+'orderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Aroun'
+'d'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.Ce'
+'llAlignVertical'#7#7'ccaFill'#7'Caption'#6#8'Company:'#10'DragCursor'#7#6'c'
+'rDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#6'Layout'#7#5'tlTop'#14'Paren'
+'tBidiMode'#9#11'ParentColor'#8#10'ParentFont'#9#14'ParentShowHint'#9#13'Sho'
+'wAccelChar'#9#11'Transparent'#9#7'Visible'#9#8'WordWrap'#8#11'OptimalFill'#8
+#0#0#6'TLabel'#17'InternalNameLabel'#21'AnchorSideTop.Control'#7#16'Internal'
+'NameEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#18#3
+'Top'#2'D'#5'Width'#2'`'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'Alignmen'
+'t'#7#13'taLeftJustify'#8'AutoSize'#9#18'BorderSpacing.Left'#2#0#17'BorderSp'
+'acing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20
+'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'
+#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#14'Internal N'
+'ame:'#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#6'L'
+'ayout'#7#5'tlTop'#14'ParentBidiMode'#9#11'ParentColor'#8#10'ParentFont'#9#14
+'ParentShowHint'#9#13'ShowAccelChar'#9#11'Transparent'#9#7'Visible'#9#8'Word'
+'Wrap'#8#11'OptimalFill'#8#0#0#6'TLabel'#20'LegalTrademarksLabel'#21'AnchorS'
+'ideTop.Control'#7#19'LegalTrademarksEdit'#18'AnchorSideTop.Side'#7#9'asrCen'
+'ter'#4'Left'#2#6#6'Height'#2#18#3'Top'#2'a'#5'Width'#2'u'#11'HelpContext'#2
+#0#5'Align'#7#6'alNone'#9'Alignment'#7#13'taLeftJustify'#8'AutoSize'#9#18'Bo'
+'rderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0
+#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.Ce'
+'llAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'cca'
,'Fill'#7'Caption'#6#17'Legal Trademarks:'#10'DragCursor'#7#6'crDrag'#8'DragM'
+'ode'#7#8'dmManual'#7'Enabled'#9#6'Layout'#7#5'tlTop'#14'ParentBidiMode'#9#11
+'ParentColor'#8#10'ParentFont'#9#14'ParentShowHint'#9#13'ShowAccelChar'#9#11
+'Transparent'#9#7'Visible'#9#8'WordWrap'#8#11'OptimalFill'#8#0#0#6'TLabel'#21
+'OriginalFileNameLabel'#21'AnchorSideTop.Control'#7#20'OriginalFileNameEdit'
+#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#18#3'Top'#2''
+#5'Width'#2'x'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'Alignment'#7#13'ta'
+'LeftJustify'#8'AutoSize'#9#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'
+#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpaci'
+'ng.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSp'
+'acing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#19'Original File Name:'
+#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#6'Layout'
+#7#5'tlTop'#14'ParentBidiMode'#9#11'ParentColor'#8#10'ParentFont'#9#14'Paren'
+'tShowHint'#9#13'ShowAccelChar'#9#11'Transparent'#9#7'Visible'#9#8'WordWrap'
+#8#11'OptimalFill'#8#0#0#6'TLabel'#16'ProductNameLabel'#21'AnchorSideTop.Con'
+'trol'#7#15'ProductNameEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2
+#6#6'Height'#2#18#3'Top'#3#156#0#5'Width'#2'a'#11'HelpContext'#2#0#5'Align'#7
+#6'alNone'#9'Alignment'#7#13'taLeftJustify'#8'AutoSize'#9#18'BorderSpacing.L'
+'eft'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpa'
+'cing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHoriz'
+'ontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Capt'
+'ion'#6#13'Product Name:'#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManua'
+'l'#7'Enabled'#9#6'Layout'#7#5'tlTop'#14'ParentBidiMode'#9#11'ParentColor'#8
+#10'ParentFont'#9#14'ParentShowHint'#9#13'ShowAccelChar'#9#11'Transparent'#9
+#7'Visible'#9#8'WordWrap'#8#11'OptimalFill'#8#0#0#6'TLabel'#19'ProductVersio'
+'nLabel'#21'AnchorSideTop.Control'#7#18'ProductVersionEdit'#18'AnchorSideTop'
+'.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#18#3'Top'#3#186#0#5'Width'#2
+'i'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'Alignment'#7#13'taLeftJustify'
+#8'AutoSize'#9#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'Borde'
+'rSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2
+#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAli'
+'gnVertical'#7#7'ccaFill'#7'Caption'#6#16'Product Version:'#10'DragCursor'#7
+#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#6'Layout'#7#5'tlTop'#14'Pa'
+'rentBidiMode'#9#11'ParentColor'#8#10'ParentFont'#9#14'ParentShowHint'#9#13
+'ShowAccelChar'#9#11'Transparent'#9#7'Visible'#9#8'WordWrap'#8#11'OptimalFil'
+'l'#8#0#0#5'TEdit'#12'CommentsEdit'#23'AnchorSideRight.Control'#7#22'Additio'
+'nalInfoGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#144#0#6
+'Height'#2#23#3'Top'#2#7#5'Width'#3#229#0#11'HelpContext'#2#0#5'Align'#7#6'a'
+'lNone'#7'Anchors'#11#6'akLeft'#7'akRight'#0#8'AutoSize'#8#10'AutoSelect'#8
+#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'
+#2#6#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacin'
+'g.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7
+'ccaFill'#8'CharCase'#7#8'ecNormal'#10'DragCursor'#7#6'crDrag'#8'DragMode'#7
+#8'dmManual'#8'EchoMode'#7#8'emNormal'#7'Enabled'#9#9'MaxLength'#2#255#14'Pa'
+'rentBidiMode'#9#10'ParentFont'#9#14'ParentShowHint'#9#12'PasswordChar'#6#1#0
+#8'ReadOnly'#8#7'TabStop'#9#8'TabOrder'#2#0#7'Visible'#9#0#0#5'TEdit'#11'Com'
+'panyEdit'#23'AnchorSideRight.Control'#7#22'AdditionalInfoGroupBox'#20'Ancho'
+'rSideRight.Side'#7#9'asrBottom'#4'Left'#3#144#0#6'Height'#2#23#3'Top'#2'$'#5
+'Width'#3#229#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#7'Anchors'#11#6'akL'
+'eft'#7'akRight'#0#8'AutoSize'#8#10'AutoSelect'#8#18'BorderSpacing.Left'#2#0
+#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#6#20'BorderSpacing.Bott'
+'om'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7
+'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#8'CharCase'#7#8'e'
+'cNormal'#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#8'EchoMode'#7
+#8'emNormal'#7'Enabled'#9#9'MaxLength'#2#255#14'ParentBidiMode'#9#10'ParentF'
+'ont'#9#14'ParentShowHint'#9#12'PasswordChar'#6#1#0#8'ReadOnly'#8#7'TabStop'
+#9#8'TabOrder'#2#1#7'Visible'#9#0#0#5'TEdit'#16'InternalNameEdit'#22'AnchorS'
+'ideLeft.Control'#7#12'CommentsEdit'#23'AnchorSideRight.Control'#7#22'Additi'
+'onalInfoGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#144#0#6
+'Height'#2#23#3'Top'#2'B'#5'Width'#3#229#0#11'HelpContext'#2#0#5'Align'#7#6
+'alNone'#7'Anchors'#11#6'akLeft'#7'akRight'#0#8'AutoSize'#8#10'AutoSelect'#8
+#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'
+#2#6#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacin'
+'g.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7
,'ccaFill'#8'CharCase'#7#8'ecNormal'#10'DragCursor'#7#6'crDrag'#8'DragMode'#7
+#8'dmManual'#8'EchoMode'#7#8'emNormal'#7'Enabled'#9#9'MaxLength'#2#255#14'Pa'
+'rentBidiMode'#9#10'ParentFont'#9#14'ParentShowHint'#9#12'PasswordChar'#6#1#0
+#8'ReadOnly'#8#7'TabStop'#9#8'TabOrder'#2#2#7'Visible'#9#0#0#5'TEdit'#19'Leg'
+'alTrademarksEdit'#22'AnchorSideLeft.Control'#7#12'CommentsEdit'#23'AnchorSi'
+'deRight.Control'#7#22'AdditionalInfoGroupBox'#20'AnchorSideRight.Side'#7#9
+'asrBottom'#4'Left'#3#144#0#6'Height'#2#23#3'Top'#2'_'#5'Width'#3#229#0#11'H'
+'elpContext'#2#0#5'Align'#7#6'alNone'#7'Anchors'#11#6'akLeft'#7'akRight'#0#8
+'AutoSize'#8#10'AutoSelect'#8#18'BorderSpacing.Left'#2#0#17'BorderSpacing.To'
+'p'#2#0#19'BorderSpacing.Right'#2#6#20'BorderSpacing.Bottom'#2#0#20'BorderSp'
+'acing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'Borde'
+'rSpacing.CellAlignVertical'#7#7'ccaFill'#8'CharCase'#7#8'ecNormal'#10'DragC'
+'ursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#8'EchoMode'#7#8'emNormal'#7'En'
+'abled'#9#9'MaxLength'#2#255#14'ParentBidiMode'#9#10'ParentFont'#9#14'Parent'
+'ShowHint'#9#12'PasswordChar'#6#1#0#8'ReadOnly'#8#7'TabStop'#9#8'TabOrder'#2
+#3#7'Visible'#9#0#0#5'TEdit'#20'OriginalFileNameEdit'#22'AnchorSideLeft.Cont'
+'rol'#7#12'CommentsEdit'#23'AnchorSideRight.Control'#7#22'AdditionalInfoGrou'
+'pBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#144#0#6'Height'#2#23
+#3'Top'#2'}'#5'Width'#3#229#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#7'Anc'
+'hors'#11#6'akLeft'#7'akRight'#0#8'AutoSize'#8#10'AutoSelect'#8#18'BorderSpa'
+'cing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#6#20'Bor'
+'derSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlig'
+'nHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#8
+'CharCase'#7#8'ecNormal'#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'
+#8'EchoMode'#7#8'emNormal'#7'Enabled'#9#9'MaxLength'#2#255#14'ParentBidiMode'
+#9#10'ParentFont'#9#14'ParentShowHint'#9#12'PasswordChar'#6#1#0#8'ReadOnly'#8
+#7'TabStop'#9#8'TabOrder'#2#4#7'Visible'#9#0#0#5'TEdit'#15'ProductNameEdit'
+#22'AnchorSideLeft.Control'#7#12'CommentsEdit'#23'AnchorSideRight.Control'#7
+#22'AdditionalInfoGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3
+#144#0#6'Height'#2#23#3'Top'#2'h'#5'Width'#3#229#0#7'Anchors'#11#6'akLeft'#7
+'akRight'#0#19'BorderSpacing.Right'#2#6#8'TabOrder'#2#3#0#0#5'TEdit'#20'Orig'
+'inalFileNameEdit'#22'AnchorSideLeft.Control'#7#12'CommentsEdit'#23'AnchorSi'
+'deRight.Control'#7#22'AdditionalInfoGroupBox'#20'AnchorSideRight.Side'#7#9
+'asrBottom'#4'Left'#3#144#0#6'Height'#2#23#3'Top'#3#136#0#5'Width'#3#229#0#7
+'Anchors'#11#6'akLeft'#7'akRight'#0#19'BorderSpacing.Right'#2#6#8'TabOrder'#2
+#4#0#0#5'TEdit'#15'ProductNameEdit'#22'AnchorSideLeft.Control'#7#12'Comments'
+'Edit'#23'AnchorSideRight.Control'#7#22'AdditionalInfoGroupBox'#20'AnchorSid'
+'eRight.Side'#7#9'asrBottom'#4'Left'#3#144#0#6'Height'#2#23#3'Top'#3#168#0#5
+'Width'#3#229#0#7'Anchors'#11#6'akLeft'#7'akRight'#0#19'BorderSpacing.Right'
+#2#6#8'TabOrder'#2#5#0#0#5'TEdit'#18'ProductVersionEdit'#22'AnchorSideLeft.C'
+'ontrol'#7#12'CommentsEdit'#23'AnchorSideRight.Control'#7#22'AdditionalInfoG'
+'roupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#144#0#6'Height'#2
+#23#3'Top'#3#200#0#5'Width'#3#229#0#7'Anchors'#11#6'akLeft'#7'akRight'#0#19
+'BorderSpacing.Right'#2#6#8'TabOrder'#2#6#0#0#0#7'TBitBtn'#12'CancelButton'
+#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBott'
+'om'#24'AnchorSideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'a'
+'srBottom'#4'Left'#3'0'#1#6'Height'#2#25#3'Top'#3#9#1#5'Width'#2'U'#7'Anchor'
,'s'#11#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#6'Cancel'#9#7'C'
+'aption'#6#6'Cancel'#11'ModalResult'#2#2#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0
+#7'TBitBtn'#8'OKButton'#21'AnchorSideTop.Control'#7#12'CancelButton'#18'Anch'
+'orSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#12'CancelButto'
+'n'#4'Left'#3#216#0#6'Height'#2#25#3'Top'#3#9#1#5'Width'#2'R'#7'Anchors'#11#5
+'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2#6#7'Caption'#6#2'OK'#7'Defaul'
+'t'#9#11'ModalResult'#2#1#9'NumGlyphs'#2#0#8'TabOrder'#2#2#0#0#0
+#144#0#6'Height'#2#23#3'Top'#3#154#0#5'Width'#3#229#0#11'HelpContext'#2#0#5
+'Align'#7#6'alNone'#7'Anchors'#11#6'akLeft'#7'akRight'#0#8'AutoSize'#8#10'Au'
+'toSelect'#8#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderS'
+'pacing.Right'#2#6#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0
+'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlign'
+'Vertical'#7#7'ccaFill'#8'CharCase'#7#8'ecNormal'#10'DragCursor'#7#6'crDrag'
+#8'DragMode'#7#8'dmManual'#8'EchoMode'#7#8'emNormal'#7'Enabled'#9#9'MaxLengt'
+'h'#2#255#14'ParentBidiMode'#9#10'ParentFont'#9#14'ParentShowHint'#9#12'Pass'
+'wordChar'#6#1#0#8'ReadOnly'#8#7'TabStop'#9#8'TabOrder'#2#5#7'Visible'#9#0#0
+#5'TEdit'#18'ProductVersionEdit'#22'AnchorSideLeft.Control'#7#12'CommentsEdi'
+'t'#23'AnchorSideRight.Control'#7#22'AdditionalInfoGroupBox'#20'AnchorSideRi'
+'ght.Side'#7#9'asrBottom'#4'Left'#3#144#0#6'Height'#2#23#3'Top'#3#184#0#5'Wi'
+'dth'#3#229#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#7'Anchors'#11#6'akLef'
+'t'#7'akRight'#0#8'AutoSize'#8#10'AutoSelect'#8#18'BorderSpacing.Left'#2#0#17
+'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#6#20'BorderSpacing.Bottom'
+#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'cc'
+'aFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#8'CharCase'#7#8'ecN'
+'ormal'#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#8'EchoMode'#7#8
+'emNormal'#7'Enabled'#9#9'MaxLength'#2#255#14'ParentBidiMode'#9#10'ParentFon'
+'t'#9#14'ParentShowHint'#9#12'PasswordChar'#6#1#0#8'ReadOnly'#8#7'TabStop'#9
+#8'TabOrder'#2#6#7'Visible'#9#0#0#0#12'TButtonPanel'#11'ButtonPanel'#4'Left'
+#2#6#6'Height'#2'0'#3'Top'#3#248#0#5'Width'#3''#1#11'HelpContext'#2#0#5'Ali'
+'gn'#7#8'alBottom'#8'AutoSize'#9#11'ButtonOrder'#7#9'boDefault'#8'TabOrder'#2
+#1#13'DefaultButton'#7#4'pbOK'#11'ShowButtons'#11#4'pbOK'#8'pbCancel'#0#10'S'
+'howGlyphs'#11#4'pbOK'#8'pbCancel'#7'pbClose'#6'pbHelp'#0#7'Visible'#9#0#0#0
]);

9
ide/versioninfoadditionalinfo.pas
View File

@ -38,20 +38,19 @@ interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons,
StdCtrls, ExtCtrls, W32VersionInfo, LazarusIDEStrConsts;
StdCtrls, ExtCtrls, W32VersionInfo, LazarusIDEStrConsts, ButtonPanel;
type
{ TVersionInfoAdditinalInfoForm }
TVersionInfoAdditinalInfoForm = class(TForm)
CancelButton: TBitBtn;
AdditionalInfoGroupBox: TGroupBox;
ButtonPanel: TButtonPanel;
CommentsEdit: TEdit;
CompanyEdit: TEdit;
InternalNameEdit: TEdit;
LegalTrademarksEdit: TEdit;
OKButton: TBitBtn;
OriginalFileNameEdit: TEdit;
ProductNameEdit: TEdit;
ProductVersionEdit: TEdit;
@ -113,8 +112,6 @@ begin
inherited Create(TheOwner);
Caption:= lisAdditionalInformation;
CancelButton.Caption:= dlgCancel;
OKButton.Caption:= lisOkBtn;
AdditionalInfoGroupBox.Caption:= lisAdditionalInformation;
CommentsLabel.Caption:= lisComments;
CompanyLabel.Caption:= lisCompany;
@ -123,8 +120,6 @@ begin
OriginalFileNameLabel.Caption:= lisOriginalFileName;
ProductNameLabel.Caption:= lisProductName;
ProductVersionLabel.Caption:= lisProductVersion;
CancelButton.LoadGlyphFromLazarusResource('btn_cancel');
OKButton.LoadGlyphFromLazarusResource('btn_ok');
end;
initialization