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

132
ide/newdialog.lrs
View File

@ -2,48 +2,92 @@
LazarusResources.Add('TNewOtherDialog','FORMDATA',[ LazarusResources.Add('TNewOtherDialog','FORMDATA',[
'TPF0'#15'TNewOtherDialog'#14'NewOtherDialog'#4'Left'#3#15#1#6'Height'#3#139#1 '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' +#3'Top'#3#156#0#5'Width'#3#220#1#11'HelpContext'#2#0#13'ActiveControl'#7#13
+'rderIcons'#11#12'biSystemMenu'#0#7'Caption'#6#14'NewOtherDialog'#12'ClientH' +'ItemsTreeView'#5'Align'#7#6'alNone'#14'AllowDropFiles'#8#10'AutoScroll'#9#8
+'eight'#3#139#1#11'ClientWidth'#3#220#1#10'ParentFont'#8#8'Position'#7#14'po' +'AutoSize'#8#11'BorderIcons'#11#12'biSystemMenu'#0#11'BorderStyle'#7#10'bsSi'
+'ScreenCenter'#10'LCLVersion'#6#6'0.9.25'#0#6'TPanel'#6'Panel1'#4'Left'#2#6#6 +'zeable'#7'Caption'#6#14'NewOtherDialog'#28'ChildSizing.LeftRightSpacing'#2#0
+'Height'#3'\'#1#3'Top'#2#6#5'Width'#3#208#1#5'Align'#7#5'alTop'#7'Anchors'#11 +#28'ChildSizing.TopBottomSpacing'#2#0#29'ChildSizing.HorizontalSpacing'#2#0
+#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#10 +#27'ChildSizing.VerticalSpacing'#2#0#27'ChildSizing.ControlsPerLine'#2#0#12
+'BevelOuter'#7#6'bvNone'#12'ClientHeight'#3'\'#1#11'ClientWidth'#3#208#1#8'T' +'ClientHeight'#3#139#1#11'ClientWidth'#3#220#1#8'DockSite'#8#8'DragKind'#7#6
+'abOrder'#2#0#0#9'TTreeView'#13'ItemsTreeView'#22'AnchorSideLeft.Control'#7#5 +'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#11'Font.Height'#2#0#10'Font.'
+'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#6'Height'#3'\'#1#5'Width'#3#178 +'Style'#11#0#9'FormStyle'#7#8'fsNormal'#14'ParentBiDiMode'#9#10'ParentFont'#8
+#0#5'Align'#7#8'alClient'#17'DefaultItemHeight'#2#15#10'ScrollBars'#7#10'ssA' +#8'Position'#7#14'poScreenCenter'#13'ShowInTaskBar'#7#9'stDefault'#14'UseDoc'
+'utoBoth'#8'TabOrder'#2#0#10'OnDblClick'#7#13'OkButtonClick'#18'OnSelectionC' +'kManager'#8#10'LCLVersion'#6#6'0.9.27'#11'WindowState'#7#8'wsNormal'#0#6'TP'
+'hanged'#7#29'ItemsTreeViewSelectionChanged'#0#0#9'TGroupBox'#19'Description' +'anel'#6'Panel1'#4'Left'#2#6#6'Height'#3'O'#1#3'Top'#2#6#5'Width'#3#208#1#11
+'GroupBox'#22'AnchorSideLeft.Control'#7#13'ItemsTreeView'#19'AnchorSideLeft.' +'HelpContext'#2#0#5'Align'#7#8'alClient'#9'Alignment'#7#8'taCenter'#8'AutoSi'
+'Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRigh' +'ze'#8#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing'
+'t.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#183 +'.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#6'!Bord'
+#0#6'Height'#3'\'#1#5'Width'#3#25#1#5'Align'#7#7'alRight'#7'Caption'#6#19'De' +'erSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVerti'
+'scriptionGroupBox'#12'ClientHeight'#3'J'#1#11'ClientWidth'#3#21#1#8'TabOrde' +'cal'#7#7'ccaFill'#10'BevelInner'#7#6'bvNone'#10'BevelOuter'#7#6'bvNone'#10
+'r'#2#1#0#6'TLabel'#16'DescriptionLabel'#4'Left'#2#6#6'Height'#3#174#0#3'Top' +'BevelWidth'#2#1#11'BorderWidth'#2#0#11'BorderStyle'#7#6'bsNone'#28'ChildSiz'
+#2#6#5'Width'#3#9#1#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2#6#7'Ca' +'ing.LeftRightSpacing'#2#0#28'ChildSizing.TopBottomSpacing'#2#0#29'ChildSizi'
+'ption'#6#16'DescriptionLabel'#11'ParentColor'#8#8'WordWrap'#9#0#0#9'TListVi' +'ng.HorizontalSpacing'#2#0#27'ChildSizing.VerticalSpacing'#2#0#27'ChildSizin'
+'ew'#29'InheritableComponentsListView'#6'Height'#3#144#0#3'Top'#3#186#0#5'Wi' +'g.ControlsPerLine'#2#0#12'ClientHeight'#3'O'#1#11'ClientWidth'#3#208#1#8'Do'
+'dth'#3#21#1#5'Align'#7#8'alBottom'#7'Columns'#14#1#7'Caption'#6#4'Form'#5'W' +'ckSite'#8#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8
+'idth'#2'd'#0#1#7'Caption'#6#4'Unit'#5'Width'#3#250#0#0#0#13'HideSelection'#8 +'dmManual'#7'Enabled'#9#11'FullRepaint'#9#11'ParentColor'#9#10'ParentFont'#9
+#8'ReadOnly'#9#9'RowSelect'#9#8'TabOrder'#2#0#9'ViewStyle'#7#8'vsReport'#0#0 +#14'ParentShowHint'#9#8'TabOrder'#2#0#7'TabStop'#8#7'Visible'#9#0#9'TTreeVie'
+#0#9'TSplitter'#9'Splitter1'#4'Left'#3#178#0#6'Height'#3'\'#1#5'Width'#2#5#5 +'w'#13'ItemsTreeView'#3'Tag'#2#0#22'AnchorSideLeft.Control'#7#5'Owner'#21'An'
+'Align'#7#7'alRight'#12'ResizeAnchor'#7#7'akRight'#0#0#0#7'TBitBtn'#12'Cance' +'chorSideTop.Control'#7#5'Owner'#4'Left'#2#0#6'Height'#3'O'#1#3'Top'#2#0#5'W'
+'lButton'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9 +'idth'#3#178#0#11'HelpContext'#2#0#5'Align'#7#8'alClient'#10'AutoExpand'#8#18
+'asrBottom'#24'AnchorSideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side' +'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2
+#7#9'asrBottom'#4'Left'#3'|'#1#6'Height'#2#25#3'Top'#3'l'#1#5'Width'#2'Z'#7 +#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.'
+'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around' +'CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'c'
+#2#6#7'Caption'#6#12'CancelButton'#21'Constraints.MinHeight'#2#25#20'Constra' +'caFill'#15'BackgroundColor'#7#8'clWindow'#11'BorderStyle'#7#8'bsSingle'#11
+'ints.MinWidth'#2'K'#11'ModalResult'#2#2#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0 +'BorderWidth'#2#0#5'Ctl3D'#8#17'DefaultItemHeight'#2#19#8'DragKind'#7#6'dkDr'
+#7'TBitBtn'#8'OkButton'#23'AnchorSideRight.Control'#7#12'CancelButton'#24'An' +'ag'#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14'Ex'
+'chorSideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom' +'pandSignType'#7#14'tvestPlusMinus'#13'HideSelection'#9#8'HotTrack'#8#6'Inde'
+#4'Left'#3'+'#1#6'Height'#2#25#3'Top'#3'l'#1#5'Width'#2'K'#7'Anchors'#11#7'a' +'nt'#2#15#11'ParentCtl3D'#9#10'ParentFont'#9#14'ParentShowHint'#9#8'ReadOnly'
+'kRight'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption' +#8#16'RightClickSelect'#8#9'RowSelect'#8#10'ScrollBars'#7#10'ssAutoBoth'#14
+#6#8'OkButton'#21'Constraints.MinHeight'#2#25#20'Constraints.MinWidth'#2'K'#7 +'SelectionColor'#7#11'clHighlight'#11'ShowButtons'#9#9'ShowLines'#9#8'ShowRo'
+'Enabled'#8#9'NumGlyphs'#2#0#7'OnClick'#7#13'OkButtonClick'#8'TabOrder'#2#2#0 +'ot'#9#8'SortType'#7#6'stNone'#8'TabOrder'#2#0#8'ToolTips'#9#7'Visible'#9#10
+#0#7'TBitBtn'#10'HelpButton'#22'AnchorSideLeft.Control'#7#5'Owner'#24'Anchor' +'OnDblClick'#7#13'OkButtonClick'#18'OnSelectionChanged'#7#29'ItemsTreeViewSe'
+'SideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'L' +'lectionChanged'#7'Options'#11#17'tvoAutoItemHeight'#16'tvoHideSelection'#21
+'eft'#2#6#6'Height'#2#25#3'Top'#3'l'#1#5'Width'#2'O'#7'Anchors'#11#6'akLeft' +'tvoKeepCollapsedNodes'#14'tvoShowButtons'#12'tvoShowLines'#11'tvoShowRoot'
+#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#10'He' +#11'tvoToolTips'#0#13'TreeLineColor'#7#13'clWindowFrame'#15'ExpandSignColor'
+'lpButton'#21'Constraints.MinHeight'#2#25#20'Constraints.MinWidth'#2'K'#9'Nu' +#7#13'clWindowFrame'#0#0#9'TGroupBox'#19'DescriptionGroupBox'#22'AnchorSideL'
+'mGlyphs'#2#0#7'OnClick'#7#15'HelpButtonClick'#8'TabOrder'#2#3#0#0#0 +'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, Forms, StdCtrls, ExtCtrls, FileProcs,
IDEWindowIntf, IDEImagesIntf, NewItemIntf, PackageIntf, ProjectIntf, IDEWindowIntf, IDEImagesIntf, NewItemIntf, PackageIntf, ProjectIntf,
LazIDEIntf, LazIDEIntf,
LazarusIDEStrConsts, IDEContextHelpEdit, Project, MainIntf; LazarusIDEStrConsts, IDEContextHelpEdit, Project, MainIntf, ButtonPanel;
type type
{ TNewLazIDEItemCategory } { TNewLazIDEItemCategory }
@ -138,18 +138,16 @@ type
{ TNewOtherDialog } { TNewOtherDialog }
TNewOtherDialog = class(TForm) TNewOtherDialog = class(TForm)
CancelButton: TBitBtn; ButtonPanel: TButtonPanel;
DescriptionGroupBox: TGroupBox; DescriptionGroupBox: TGroupBox;
DescriptionLabel: TLabel; DescriptionLabel: TLabel;
HelpButton: TBitBtn;
ItemsTreeView: TTreeView; ItemsTreeView: TTreeView;
InheritableComponentsListView: TListView; InheritableComponentsListView: TListView;
OkButton: TBitBtn;
Panel1: TPanel; Panel1: TPanel;
Splitter1: TSplitter; Splitter1: TSplitter;
procedure HelpButtonClick(Sender: TObject); procedure HelpButtonClick(Sender: TObject);
procedure ItemsTreeViewSelectionChanged(Sender: TObject); procedure ItemsTreeViewSelectionChanged(Sender: TObject);
procedure OkButtonClick(Sender: TObject); procedure OKButtonClick(Sender: TObject);
private private
ImageIndexFolder: integer; ImageIndexFolder: integer;
ImageIndexTemplate: integer; ImageIndexTemplate: integer;
@ -186,7 +184,7 @@ end;
{ TNewOtherDialog } { TNewOtherDialog }
procedure TNewOtherDialog.OkButtonClick(Sender: TObject); procedure TNewOtherDialog.OKButtonClick(Sender: TObject);
var var
AInheritedNode: TListItem; AInheritedNode: TListItem;
ANode: TTreeNode; ANode: TTreeNode;
@ -234,7 +232,7 @@ begin
// Set the resource class of the file descriptor // Set the resource class of the file descriptor
InhCompItem.ResourceClass := TPersistentClass(AncestorComponent.ClassType); InhCompItem.ResourceClass := TPersistentClass(AncestorComponent.ClassType);
InhCompItem.InheritedUnit := AnUnitInfo; InhCompItem.InheritedUnit := AnUnitInfo;
//DebugLn(['TNewOtherDialog.OkButtonClick ',InhCompItem.InheritedUnit.Filename,' ',dbgsname(InhCompItem.ResourceClass)]); //DebugLn(['TNewOtherDialog.OKButtonClick ',InhCompItem.InheritedUnit.Filename,' ',dbgsname(InhCompItem.ResourceClass)]);
end end
else else
begin begin
@ -326,7 +324,7 @@ end;
procedure TNewOtherDialog.ItemsTreeViewSelectionChanged(Sender: TObject); procedure TNewOtherDialog.ItemsTreeViewSelectionChanged(Sender: TObject);
begin begin
OkButton.Enabled := (ItemsTreeView.Selected <> nil) and ButtonPanel.OKButton.Enabled := (ItemsTreeView.Selected <> nil) and
(TObject(ItemsTreeView.Selected.Data) is TNewIDEItemTemplate); (TObject(ItemsTreeView.Selected.Data) is TNewIDEItemTemplate);
UpdateDescription; UpdateDescription;
end; end;
@ -344,15 +342,9 @@ begin
DescriptionGroupBox.Caption := lisToDoLDescription; DescriptionGroupBox.Caption := lisToDoLDescription;
DescriptionLabel.Caption := ''; DescriptionLabel.Caption := '';
OkButton.Caption := lisLazBuildOk;
CancelButton.Caption := dlgCancel;
HelpButton.Caption := lisPckEditHelp;
DefaultControl := OkButton;
CancelControl := CancelButton;
CancelButton.LoadGlyphFromLazarusResource('btn_cancel'); ButtonPanel.OKButton.OnClick := @OKButtonClick;
OkButton.LoadGlyphFromLazarusResource('btn_ok'); ButtonPanel.HelpButton.OnClick := @HelpButtonClick;
HelpButton.LoadGlyphFromLazarusResource('btn_help');
end; end;
procedure TNewOtherDialog.UpdateDescription; procedure TNewOtherDialog.UpdateDescription;

143
ide/newprojectdlg.lfm
View File

@ -33,93 +33,18 @@ object NewProjectDialog: TNewProjectDialog
UseDockManager = False UseDockManager = False
LCLVersion = '0.9.27' LCLVersion = '0.9.27'
WindowState = wsNormal 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 object Panel1: TPanel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = CancelButton
Left = 6 Left = 6
Height = 188 Height = 180
Top = 6 Top = 6
Width = 378 Width = 378
HelpContext = 0 HelpContext = 0
Align = alNone Align = alClient
Alignment = taCenter Alignment = taCenter
Anchors = [akTop, akLeft, akRight, akBottom]
AutoSize = False AutoSize = False
BorderSpacing.Left = 0 BorderSpacing.Left = 0
BorderSpacing.Top = 0 BorderSpacing.Top = 0
@ -138,8 +63,8 @@ object NewProjectDialog: TNewProjectDialog
ChildSizing.HorizontalSpacing = 0 ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0 ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0 ChildSizing.ControlsPerLine = 0
ClientHeight = 184 ClientHeight = 180
ClientWidth = 374 ClientWidth = 378
DockSite = False DockSite = False
DragCursor = crDrag DragCursor = crDrag
DragKind = dkDrag DragKind = dkDrag
@ -149,14 +74,14 @@ object NewProjectDialog: TNewProjectDialog
ParentColor = True ParentColor = True
ParentFont = True ParentFont = True
ParentShowHint = True ParentShowHint = True
TabOrder = 2 TabOrder = 0
TabStop = False TabStop = False
Visible = True Visible = True
object DescriptionGroupBox: TGroupBox object DescriptionGroupBox: TGroupBox
Left = 170 Left = 170
Height = 184 Height = 180
Top = 0 Top = 0
Width = 204 Width = 208
HelpContext = 0 HelpContext = 0
Align = alClient Align = alClient
AutoSize = False AutoSize = False
@ -173,8 +98,8 @@ object NewProjectDialog: TNewProjectDialog
ChildSizing.HorizontalSpacing = 0 ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0 ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0 ChildSizing.ControlsPerLine = 0
ClientHeight = 165 ClientHeight = 161
ClientWidth = 200 ClientWidth = 204
Ctl3D = False Ctl3D = False
DockSite = False DockSite = False
DragCursor = crDrag DragCursor = crDrag
@ -191,9 +116,9 @@ object NewProjectDialog: TNewProjectDialog
Visible = True Visible = True
object HelpLabel: TLabel object HelpLabel: TLabel
Left = 6 Left = 6
Height = 153 Height = 149
Top = 6 Top = 6
Width = 188 Width = 192
HelpContext = 0 HelpContext = 0
Align = alClient Align = alClient
Alignment = taLeftJustify Alignment = taLeftJustify
@ -223,7 +148,7 @@ object NewProjectDialog: TNewProjectDialog
end end
object ListBox: TListBox object ListBox: TListBox
Left = 0 Left = 0
Height = 184 Height = 180
Top = 0 Top = 0
Width = 165 Width = 165
HelpContext = 0 HelpContext = 0
@ -247,6 +172,7 @@ object NewProjectDialog: TNewProjectDialog
IntegralHeight = False IntegralHeight = False
ItemHeight = 0 ItemHeight = 0
MultiSelect = False MultiSelect = False
OnDblClick = ListBoxDblClick
ParentBidiMode = True ParentBidiMode = True
ParentShowHint = True ParentShowHint = True
ParentFont = True ParentFont = True
@ -260,7 +186,7 @@ object NewProjectDialog: TNewProjectDialog
object Splitter1: TSplitter object Splitter1: TSplitter
Cursor = crHSplit Cursor = crHSplit
Left = 165 Left = 165
Height = 184 Height = 180
Top = 0 Top = 0
Width = 5 Width = 5
HelpContext = 0 HelpContext = 0
@ -275,40 +201,19 @@ object NewProjectDialog: TNewProjectDialog
Visible = True Visible = True
end end
end end
object HelpButton: TBitBtn object ButtonPanel: TButtonPanel
AnchorSideLeft.Control = Owner
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 34 Height = 48
Top = 200 Top = 192
Width = 66 Width = 378
HelpContext = 0 HelpContext = 0
Align = alNone Align = alBottom
Anchors = [akLeft, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Left = 0 ButtonOrder = boDefault
BorderSpacing.Top = 0 TabOrder = 1
BorderSpacing.Right = 0 DefaultButton = pbOK
BorderSpacing.Bottom = 0 ShowButtons = [pbOK, pbCancel, pbHelp]
BorderSpacing.Around = 6 ShowGlyphs = [pbOK, pbCancel, pbClose, pbHelp]
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
Visible = True Visible = True
end end
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' +#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' +'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' +'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' +'dowState'#7#8'wsNormal'#0#6'TPanel'#6'Panel1'#22'AnchorSideLeft.Control'#7#5
+'ntrol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBott' +'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5
+'om.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3'0' +'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#3#180#0
+#1#6'Height'#2'"'#3'Top'#3#200#0#5'Width'#2'P'#11'HelpContext'#2#0#5'Align'#7 +#3'Top'#2#6#5'Width'#3'z'#1#11'HelpContext'#2#0#5'Align'#7#8'alClient'#9'Ali'
+#6'alNone'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#18'BorderSpa' +'gnment'#7#8'taCenter'#8'AutoSize'#8#18'BorderSpacing.Left'#2#0#17'BorderSpa'
+'cing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'Bor' +'cing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'B'
+'derSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#6'!BorderSpacing.CellAlig' +'orderSpacing.Around'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31
+'nHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#6 +'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#10'BevelInner'#7#6'bvNone'#10
+'Cancel'#9#7'Caption'#6#6'Cancel'#7'Default'#8#7'Enabled'#9#4'Kind'#7#8'bkCa' +'BevelOuter'#7#6'bvNone'#10'BevelWidth'#2#1#11'BorderWidth'#2#0#11'BorderSty'
+'ncel'#6'Layout'#7#11'blGlyphLeft'#6'Margin'#2#255#11'ModalResult'#2#2#9'Num' +'le'#7#6'bsNone'#28'ChildSizing.LeftRightSpacing'#2#0#28'ChildSizing.TopBott'
+'Glyphs'#2#0#7'OnClick'#7#17'CancelButtonClick'#10'ParentFont'#9#14'ParentSh' +'omSpacing'#2#0#29'ChildSizing.HorizontalSpacing'#2#0#27'ChildSizing.Vertica'
+'owHint'#9#7'Spacing'#2#3#8'TabOrder'#2#0#7'TabStop'#9#7'Visible'#9#0#0#7'TB' +'lSpacing'#2#0#27'ChildSizing.ControlsPerLine'#2#0#12'ClientHeight'#3#180#0
+'itBtn'#12'CreateButton'#23'AnchorSideRight.Control'#7#12'CancelButton'#24'A' +#11'ClientWidth'#3'z'#1#8'DockSite'#8#10'DragCursor'#7#6'crDrag'#8'DragKind'
+'nchorSideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom' +#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#11'FullRepaint'#9#11'Par'
+#4'Left'#3#220#0#6'Height'#2' '#3'Top'#3#202#0#5'Width'#2'N'#11'HelpContext' +'entColor'#9#10'ParentFont'#9#14'ParentShowHint'#9#8'TabOrder'#2#0#7'TabStop'
+#2#0#5'Align'#7#6'alNone'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize' +#8#7'Visible'#9#0#9'TGroupBox'#19'DescriptionGroupBox'#4'Left'#3#170#0#6'Hei'
+#9#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Rig' +'ght'#3#180#0#3'Top'#2#0#5'Width'#3#208#0#11'HelpContext'#2#0#5'Align'#7#8'a'
+'ht'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#6'!BorderSp' +'lClient'#8'AutoSize'#8#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0
+'acing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical' +#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.A'
+#7#7'ccaFill'#6'Cancel'#8#7'Caption'#6#7'&Create'#7'Default'#9#7'Enabled'#9#4 +'round'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacin'
+'Kind'#7#5'bkYes'#6'Layout'#7#11'blGlyphLeft'#6'Margin'#2#255#11'ModalResult' +'g.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#19'DescriptionGroupBox'#28'C'
+#2#6#9'NumGlyphs'#2#0#7'OnClick'#7#17'CreateButtonClick'#10'ParentFont'#9#14 +'hildSizing.LeftRightSpacing'#2#0#28'ChildSizing.TopBottomSpacing'#2#0#29'Ch'
+'ParentShowHint'#9#7'Spacing'#2#3#8'TabOrder'#2#1#7'TabStop'#9#7'Visible'#9#0 +'ildSizing.HorizontalSpacing'#2#0#27'ChildSizing.VerticalSpacing'#2#0#27'Chi'
+#0#6'TPanel'#6'Panel1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTo' +'ldSizing.ControlsPerLine'#2#0#12'ClientHeight'#3#161#0#11'ClientWidth'#3#204
+'p.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideR' +#0#5'Ctl3D'#8#8'DockSite'#8#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDra'
+'ight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#12'CancelButton'#4 +'g'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14'ParentBidiMode'#9#11'ParentCol'
+'Left'#2#6#6'Height'#3#188#0#3'Top'#2#6#5'Width'#3'z'#1#11'HelpContext'#2#0#5 +'or'#9#11'ParentCtl3D'#9#10'ParentFont'#9#14'ParentShowHint'#9#8'TabOrder'#2
+'Align'#7#6'alNone'#9'Alignment'#7#8'taCenter'#7'Anchors'#11#5'akTop'#6'akLe' +#0#7'TabStop'#8#7'Visible'#9#0#6'TLabel'#9'HelpLabel'#4'Left'#2#6#6'Height'#3
+'ft'#7'akRight'#8'akBottom'#0#8'AutoSize'#8#18'BorderSpacing.Left'#2#0#17'Bo' +#149#0#3'Top'#2#6#5'Width'#3#192#0#11'HelpContext'#2#0#5'Align'#7#8'alClient'
+'rderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2 +#9'Alignment'#7#13'taLeftJustify'#8'AutoSize'#9#18'BorderSpacing.Left'#2#0#17
+#0#20'BorderSpacing.Around'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'ccaF' +'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'
+'ill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#10'BevelInner'#7#6'bv' +#2#0#20'BorderSpacing.Around'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'cc'
+'None'#10'BevelOuter'#7#6'bvNone'#10'BevelWidth'#2#1#11'BorderWidth'#2#0#11 +'aFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#9'Help'
+'BorderStyle'#7#6'bsNone'#28'ChildSizing.LeftRightSpacing'#2#0#28'ChildSizin' +'Label'#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#6
+'g.TopBottomSpacing'#2#0#29'ChildSizing.HorizontalSpacing'#2#0#27'ChildSizin' +'Layout'#7#5'tlTop'#14'ParentBidiMode'#9#11'ParentColor'#8#10'ParentFont'#9
+'g.VerticalSpacing'#2#0#27'ChildSizing.ControlsPerLine'#2#0#12'ClientHeight' +#14'ParentShowHint'#9#13'ShowAccelChar'#9#11'Transparent'#9#7'Visible'#9#8'W'
+#3#184#0#11'ClientWidth'#3'v'#1#8'DockSite'#8#10'DragCursor'#7#6'crDrag'#8'D' +'ordWrap'#9#11'OptimalFill'#8#0#0#0#8'TListBox'#7'ListBox'#4'Left'#2#0#6'Hei'
+'ragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#11'FullRepaint' +'ght'#3#180#0#3'Top'#2#0#5'Width'#3#165#0#11'HelpContext'#2#0#5'Align'#7#6'a'
+#9#11'ParentColor'#9#10'ParentFont'#9#14'ParentShowHint'#9#8'TabOrder'#2#2#7 +'lLeft'#7'Anchors'#11#0#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0
+'TabStop'#8#7'Visible'#9#0#9'TGroupBox'#19'DescriptionGroupBox'#4'Left'#3#170 +#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.A'
+#0#6'Height'#3#184#0#3'Top'#2#0#5'Width'#3#204#0#11'HelpContext'#2#0#5'Align' +'round'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacin'
+#7#8'alClient'#8'AutoSize'#8#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top' +'g.CellAlignVertical'#7#7'ccaFill'#11'BorderStyle'#7#8'bsSingle'#16'ClickOnS'
+#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpaci' +'elChange'#9#7'Columns'#2#0#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDra'
+'ng.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSp' +'g'#8'DragMode'#7#8'dmManual'#14'ExtendedSelect'#9#7'Enabled'#9#14'IntegralH'
+'acing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#19'DescriptionGroupBox' +'eight'#8#10'ItemHeight'#2#0#11'MultiSelect'#8#10'OnDblClick'#7#15'ListBoxDb'
+#28'ChildSizing.LeftRightSpacing'#2#0#28'ChildSizing.TopBottomSpacing'#2#0#29 +'lClick'#14'ParentBidiMode'#9#14'ParentShowHint'#9#10'ParentFont'#9#6'Sorted'
+'ChildSizing.HorizontalSpacing'#2#0#27'ChildSizing.VerticalSpacing'#2#0#27'C' +#8#5'Style'#7#10'lbStandard'#8'TabOrder'#2#1#7'TabStop'#9#8'TopIndex'#2#255#7
+'hildSizing.ControlsPerLine'#2#0#12'ClientHeight'#3#165#0#11'ClientWidth'#3 +'Visible'#9#0#0#9'TSplitter'#9'Splitter1'#6'Cursor'#7#8'crHSplit'#4'Left'#3
+#200#0#5'Ctl3D'#8#8'DockSite'#8#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'd' +#165#0#6'Height'#3#180#0#3'Top'#2#0#5'Width'#2#5#11'HelpContext'#2#0#5'Align'
+'kDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14'ParentBidiMode'#9#11'Paren' +#7#6'alLeft'#8'AutoSnap'#9#7'Beveled'#8#7'MinSize'#2#30#11'ParentColor'#9#14
+'tColor'#9#11'ParentCtl3D'#9#10'ParentFont'#9#14'ParentShowHint'#9#8'TabOrde' +'ParentShowHint'#9#12'ResizeAnchor'#7#6'akLeft'#11'ResizeStyle'#7#8'rsUpdate'
+'r'#2#0#7'TabStop'#8#7'Visible'#9#0#6'TLabel'#9'HelpLabel'#4'Left'#2#6#6'Hei' +#7'Visible'#9#0#0#0#12'TButtonPanel'#11'ButtonPanel'#4'Left'#2#6#6'Height'#2
,'ght'#3#153#0#3'Top'#2#6#5'Width'#3#188#0#11'HelpContext'#2#0#5'Align'#7#8'a' ,'0'#3'Top'#3#192#0#5'Width'#3'z'#1#11'HelpContext'#2#0#5'Align'#7#8'alBottom'
+'lClient'#9'Alignment'#7#13'taLeftJustify'#8'AutoSize'#9#18'BorderSpacing.Le' +#8'AutoSize'#9#11'ButtonOrder'#7#9'boDefault'#8'TabOrder'#2#1#13'DefaultButt'
+'ft'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpac' +'on'#7#4'pbOK'#11'ShowButtons'#11#4'pbOK'#8'pbCancel'#6'pbHelp'#0#10'ShowGly'
+'ing.Bottom'#2#0#20'BorderSpacing.Around'#2#6'!BorderSpacing.CellAlignHorizo' +'phs'#11#4'pbOK'#8'pbCancel'#7'pbClose'#6'pbHelp'#0#7'Visible'#9#0#0#0
+'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
]); ]);

30
ide/newprojectdlg.pp
View File

@ -32,24 +32,21 @@ interface
uses uses
Classes, SysUtils, Forms, Graphics, Controls, LResources, Project, Buttons, Classes, SysUtils, Forms, Graphics, Controls, LResources, Project, Buttons,
StdCtrls, ProjectIntf, ExtCtrls, LazarusIDEStrConsts, IDEContextHelpEdit; StdCtrls, ProjectIntf, ExtCtrls, LazarusIDEStrConsts, IDEContextHelpEdit,
ButtonPanel;
type type
{ TNewProjectDialog } { TNewProjectDialog }
TNewProjectDialog = class(TForm) TNewProjectDialog = class(TForm)
HelpButton: TBitBtn; ButtonPanel: TButtonPanel;
CreateButton: TBitBtn;
CancelButton: TBitBtn;
DescriptionGroupBox: TGroupBox; DescriptionGroupBox: TGroupBox;
HelpLabel: TLabel; HelpLabel: TLabel;
ListBox: TListBox; ListBox: TListBox;
Panel1: TPanel; Panel1: TPanel;
Splitter1: TSplitter; Splitter1: TSplitter;
procedure HelpButtonClick(Sender: TObject); procedure HelpButtonClick(Sender: TObject);
procedure CreateButtonClick(Sender:TObject);
procedure CancelButtonClick(Sender:TObject);
procedure ListBoxDblClick(Sender: TObject); procedure ListBoxDblClick(Sender: TObject);
procedure ListBoxSelectionChange(Sender: TObject; User: boolean); procedure ListBoxSelectionChange(Sender: TObject; User: boolean);
private private
@ -126,18 +123,8 @@ begin
OnSelectionChange:=@ListBoxSelectionChange; OnSelectionChange:=@ListBoxSelectionChange;
end; end;
CancelButton.Caption:=dlgCancel;
CancelButton.LoadGlyphFromLazarusResource('btn_cancel');
CreateButton.Caption:=lisNPCreate;
CreateButton.LoadGlyphFromLazarusResource('btn_ok');
DescriptionGroupBox.Caption := lisToDoLDescription; DescriptionGroupBox.Caption := lisToDoLDescription;
HelpButton.LoadGlyphFromLazarusResource('btn_help'); ButtonPanel.HelpButton.OnClick := @HelpButtonClick;
HelpLabel.Caption:=lisNPSelectAProjectType;
end;
procedure TNewProjectDialog.CreateButtonClick(Sender:TObject);
begin
ModalResult:=mrOk;
end; end;
procedure TNewProjectDialog.HelpButtonClick(Sender: TObject); procedure TNewProjectDialog.HelpButtonClick(Sender: TObject);
@ -145,15 +132,10 @@ begin
ShowContextHelpForIDE(Self); ShowContextHelpForIDE(Self);
end; end;
procedure TNewProjectDialog.CancelButtonClick(Sender:TObject);
begin
ModalResult:=mrCancel;
end;
procedure TNewProjectDialog.ListBoxDblClick(Sender: TObject); procedure TNewProjectDialog.ListBoxDblClick(Sender: TObject);
begin begin
if ListBox.ItemAtPos(ListBox.ScreenToClient(Mouse.CursorPos),true) >= 0 if ListBox.ItemAtPos(ListBox.ScreenToClient(Mouse.CursorPos),true) >= 0 then
then CreateButtonClick(Self); ModalResult:=mrOk;
end; end;
procedure TNewProjectDialog.ListBoxSelectionChange(Sender: TObject; 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, FileUtil, IDEContextHelpEdit, EnvironmentOpts,
IDEWindowIntf, IDEImagesIntf, ProjectIntf, IDEDialogs, IDEWindowIntf, IDEImagesIntf, ProjectIntf, IDEDialogs,
IDEOptionDefs, LazarusIDEStrConsts, Project, IDEProcs, W32VersionInfo, IDEOptionDefs, LazarusIDEStrConsts, Project, IDEProcs, W32VersionInfo,
VersionInfoAdditionalInfo, W32Manifest, ApplicationBundle, ExtDlgs; VersionInfoAdditionalInfo, W32Manifest, ApplicationBundle, ExtDlgs,
ButtonPanel;
type type
@ -50,6 +51,7 @@ type
TProjectOptionsDialog = class(TForm) TProjectOptionsDialog = class(TForm)
AdditionalInfoButton: TBitBtn; AdditionalInfoButton: TBitBtn;
Bevel1: TBevel; Bevel1: TBevel;
ButtonPanel: TButtonPanel;
ClearIconButton: TBitBtn; ClearIconButton: TBitBtn;
SaveIconButton: TBitBtn; SaveIconButton: TBitBtn;
LoadIconButton: TBitBtn; LoadIconButton: TBitBtn;
@ -141,13 +143,8 @@ type
POOutDirEdit: TEdit; POOutDirEdit: TEdit;
EnableI18NCheckBox: TCheckBox; EnableI18NCheckBox: TCheckBox;
I18NGroupBox: TGroupBox; I18NGroupBox: TGroupBox;
PODBtnPanel: TPanel;
PoOutDirLabel: TLabel; PoOutDirLabel: TLabel;
// buttons at bottom
HelpButton: TBitBtn;
CancelButton: TBitBtn;
OKButton: TBitBtn;
procedure AdditionalInfoButtonClick(Sender: TObject); procedure AdditionalInfoButtonClick(Sender: TObject);
procedure ClearIconButtonClick(Sender: TObject); procedure ClearIconButtonClick(Sender: TObject);
@ -265,13 +262,8 @@ begin
inherited Create(TheOwner); inherited Create(TheOwner);
Caption := dlgProjectOptions; Caption := dlgProjectOptions;
OKButton.Caption:=lisOkBtn;
CancelButton.Caption:=dlgCancel;
HelpButton.Caption:=lisMenuHelp;
OKButton.LoadGlyphFromLazarusResource('btn_ok'); ButtonPanel.HelpButton.OnClick := @HelpButtonClick;
CancelButton.LoadGlyphFromLazarusResource('btn_cancel');
HelpButton.LoadGlyphFromLazarusResource('btn_help');
NoteBook.PageIndex := 0; NoteBook.PageIndex := 0;

478
ide/versioninfoadditionalinfo.lfm
View File

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

247
ide/versioninfoadditionalinfo.lrs
View File

@ -2,74 +2,185 @@
LazarusResources.Add('TVersionInfoAdditinalInfoForm','FORMDATA',[ LazarusResources.Add('TVersionInfoAdditinalInfoForm','FORMDATA',[
'TPF0'#29'TVersionInfoAdditinalInfoForm'#28'VersionInfoAdditinalInfoForm'#4'L' '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' +'eft'#3'!'#1#6'Height'#3'('#1#3'Top'#3#174#0#5'Width'#3#139#1#11'HelpContext'
+#11#0#7'Caption'#6#22'Additional Information'#12'ClientHeight'#3'('#1#11'Cli' +#2#0#13'ActiveControl'#7#12'CommentsEdit'#5'Align'#7#6'alNone'#14'AllowDropF'
+'entWidth'#3#139#1#21'Constraints.MinHeight'#3'('#1#20'Constraints.MinWidth' +'iles'#8#10'AutoScroll'#9#8'AutoSize'#8#11'BorderIcons'#11#0#11'BorderStyle'
+#3#139#1#10'ParentFont'#8#8'Position'#7#17'poOwnerFormCenter'#10'LCLVersion' +#7#10'bsSizeable'#7'Caption'#6#22'Additional Information'#28'ChildSizing.Lef'
+#6#6'0.9.27'#0#9'TGroupBox'#22'AdditionalInfoGroupBox'#22'AnchorSideLeft.Con' +'tRightSpacing'#2#0#28'ChildSizing.TopBottomSpacing'#2#0#29'ChildSizing.Hori'
+'trol'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#20'AnchorSideRight.Si' +'zontalSpacing'#2#0#27'ChildSizing.VerticalSpacing'#2#0#27'ChildSizing.Contr'
+'de'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#12'CancelButton'#4'Left'#2 +'olsPerLine'#2#0#12'ClientHeight'#3'('#1#11'ClientWidth'#3#139#1#21'Constrai'
+#6#6'Height'#3#253#0#3'Top'#2#6#5'Width'#3''#1#7'Anchors'#11#5'akTop'#6'akL' +'nts.MinHeight'#3'('#1#20'Constraints.MinWidth'#3#139#1#8'DockSite'#8#8'Drag'
+'eft'#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#22 +'Kind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#11'Font.Height'#2#0
+'Additional Information'#12'ClientHeight'#3#235#0#11'ClientWidth'#3'{'#1#8'T' +#10'Font.Style'#11#0#9'FormStyle'#7#8'fsNormal'#14'ParentBiDiMode'#9#10'Pare'
+'abOrder'#2#0#0#6'TLabel'#13'CommentsLabel'#21'AnchorSideTop.Control'#7#12'C' +'ntFont'#8#8'Position'#7#17'poOwnerFormCenter'#13'ShowInTaskBar'#7#9'stDefau'
+'ommentsEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2 +'lt'#14'UseDockManager'#8#10'LCLVersion'#6#6'0.9.27'#11'WindowState'#7#8'wsN'
+#14#3'Top'#2#12#5'Width'#2'7'#7'Caption'#6#9'Comments:'#11'ParentColor'#8#0#0 +'ormal'#0#9'TGroupBox'#22'AdditionalInfoGroupBox'#22'AnchorSideLeft.Control'
+#6'TLabel'#12'CompanyLabel'#21'AnchorSideTop.Control'#7#11'CompanyEdit'#18'A' +#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9
+'nchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#14#3'Top'#2','#5 +'asrBottom'#4'Left'#2#6#6'Height'#3#236#0#3'Top'#2#6#5'Width'#3''#1#11'Help'
+'Width'#2'2'#7'Caption'#6#8'Company:'#11'ParentColor'#8#0#0#6'TLabel'#17'Int' +'Context'#2#0#5'Align'#7#8'alClient'#8'AutoSize'#8#18'BorderSpacing.Left'#2#0
+'ernalNameLabel'#21'AnchorSideTop.Control'#7#16'InternalNameEdit'#18'AnchorS' +#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bott'
+'ideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#14#3'Top'#2'L'#5'Width' +'om'#2#0#20'BorderSpacing.Around'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7
+#2'I'#7'Caption'#6#14'Internal Name:'#11'ParentColor'#8#0#0#6'TLabel'#20'Leg' +'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#22'A'
+'alTrademarksLabel'#21'AnchorSideTop.Control'#7#19'LegalTrademarksEdit'#18'A' +'dditional Information'#28'ChildSizing.LeftRightSpacing'#2#0#28'ChildSizing.'
+'nchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#14#3'Top'#2'l'#5 +'TopBottomSpacing'#2#0#29'ChildSizing.HorizontalSpacing'#2#0#27'ChildSizing.'
+'Width'#2'Y'#7'Caption'#6#17'Legal Trademarks:'#11'ParentColor'#8#0#0#6'TLab' +'VerticalSpacing'#2#0#27'ChildSizing.ControlsPerLine'#2#0#12'ClientHeight'#3
+'el'#21'OriginalFileNameLabel'#21'AnchorSideTop.Control'#7#20'OriginalFileNa' +#217#0#11'ClientWidth'#3'{'#1#5'Ctl3D'#8#8'DockSite'#8#10'DragCursor'#7#6'cr'
+'meEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#14#3 +'Drag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14'Par'
+'Top'#3#140#0#5'Width'#2'Z'#7'Caption'#6#19'Original File Name:'#11'ParentCo' +'entBidiMode'#9#11'ParentColor'#9#11'ParentCtl3D'#9#10'ParentFont'#9#14'Pare'
+'lor'#8#0#0#6'TLabel'#16'ProductNameLabel'#21'AnchorSideTop.Control'#7#15'Pr' +'ntShowHint'#9#8'TabOrder'#2#0#7'TabStop'#8#7'Visible'#9#0#6'TLabel'#13'Comm'
+'oductNameEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2 +'entsLabel'#21'AnchorSideTop.Control'#7#12'CommentsEdit'#18'AnchorSideTop.Si'
+#14#3'Top'#3#172#0#5'Width'#2'H'#7'Caption'#6#13'Product Name:'#11'ParentCol' +'de'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#18#3'Top'#2#9#5'Width'#2'L'#11'H'
+'or'#8#0#0#6'TLabel'#19'ProductVersionLabel'#21'AnchorSideTop.Control'#7#18 +'elpContext'#2#0#5'Align'#7#6'alNone'#9'Alignment'#7#13'taLeftJustify'#8'Aut'
+'ProductVersionEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Hei' +'oSize'#9#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpac'
+'ght'#2#14#3'Top'#3#204#0#5'Width'#2'P'#7'Caption'#6#16'Product Version:'#11 +'ing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!B'
+'ParentColor'#8#0#0#5'TEdit'#12'CommentsEdit'#23'AnchorSideRight.Control'#7 +'orderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVe'
+#22'AdditionalInfoGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3 +'rtical'#7#7'ccaFill'#7'Caption'#6#9'Comments:'#10'DragCursor'#7#6'crDrag'#8
+#144#0#6'Height'#2#23#3'Top'#2#8#5'Width'#3#229#0#7'Anchors'#11#6'akLeft'#7 +'DragMode'#7#8'dmManual'#7'Enabled'#9#6'Layout'#7#5'tlTop'#14'ParentBidiMode'
+'akRight'#0#19'BorderSpacing.Right'#2#6#8'TabOrder'#2#0#0#0#5'TEdit'#11'Comp' +#9#11'ParentColor'#8#10'ParentFont'#9#14'ParentShowHint'#9#13'ShowAccelChar'
+'anyEdit'#23'AnchorSideRight.Control'#7#22'AdditionalInfoGroupBox'#20'Anchor' +#9#11'Transparent'#9#7'Visible'#9#8'WordWrap'#8#11'OptimalFill'#8#0#0#6'TLab'
+'SideRight.Side'#7#9'asrBottom'#4'Left'#3#144#0#6'Height'#2#23#3'Top'#2'('#5 +'el'#12'CompanyLabel'#21'AnchorSideTop.Control'#7#11'CompanyEdit'#18'AnchorS'
+'Width'#3#229#0#7'Anchors'#11#6'akLeft'#7'akRight'#0#19'BorderSpacing.Right' +'ideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#18#3'Top'#2'&'#5'Width'
+#2#6#8'TabOrder'#2#1#0#0#5'TEdit'#16'InternalNameEdit'#22'AnchorSideLeft.Con' +#2'A'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'Alignment'#7#13'taLeftJusti'
+'trol'#7#12'CommentsEdit'#23'AnchorSideRight.Control'#7#22'AdditionalInfoGro' +'fy'#8'AutoSize'#9#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'B'
+'upBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#144#0#6'Height'#2 +'orderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Aroun'
+#23#3'Top'#2'H'#5'Width'#3#229#0#7'Anchors'#11#6'akLeft'#7'akRight'#0#19'Bor' +'d'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.Ce'
+'derSpacing.Right'#2#6#8'TabOrder'#2#2#0#0#5'TEdit'#19'LegalTrademarksEdit' +'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'AnchorSideLeft.Control'#7#12'CommentsEdit'#23'AnchorSideRight.Control'#7
+#22'AdditionalInfoGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3 +#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 +#144#0#6'Height'#2#23#3'Top'#3#154#0#5'Width'#3#229#0#11'HelpContext'#2#0#5
+'akRight'#0#19'BorderSpacing.Right'#2#6#8'TabOrder'#2#3#0#0#5'TEdit'#20'Orig' +'Align'#7#6'alNone'#7'Anchors'#11#6'akLeft'#7'akRight'#0#8'AutoSize'#8#10'Au'
+'inalFileNameEdit'#22'AnchorSideLeft.Control'#7#12'CommentsEdit'#23'AnchorSi' +'toSelect'#8#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderS'
+'deRight.Control'#7#22'AdditionalInfoGroupBox'#20'AnchorSideRight.Side'#7#9 +'pacing.Right'#2#6#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0
+'asrBottom'#4'Left'#3#144#0#6'Height'#2#23#3'Top'#3#136#0#5'Width'#3#229#0#7 +'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlign'
+'Anchors'#11#6'akLeft'#7'akRight'#0#19'BorderSpacing.Right'#2#6#8'TabOrder'#2 +'Vertical'#7#7'ccaFill'#8'CharCase'#7#8'ecNormal'#10'DragCursor'#7#6'crDrag'
+#4#0#0#5'TEdit'#15'ProductNameEdit'#22'AnchorSideLeft.Control'#7#12'Comments' +#8'DragMode'#7#8'dmManual'#8'EchoMode'#7#8'emNormal'#7'Enabled'#9#9'MaxLengt'
+'Edit'#23'AnchorSideRight.Control'#7#22'AdditionalInfoGroupBox'#20'AnchorSid' +'h'#2#255#14'ParentBidiMode'#9#10'ParentFont'#9#14'ParentShowHint'#9#12'Pass'
+'eRight.Side'#7#9'asrBottom'#4'Left'#3#144#0#6'Height'#2#23#3'Top'#3#168#0#5 +'wordChar'#6#1#0#8'ReadOnly'#8#7'TabStop'#9#8'TabOrder'#2#5#7'Visible'#9#0#0
+'Width'#3#229#0#7'Anchors'#11#6'akLeft'#7'akRight'#0#19'BorderSpacing.Right' +#5'TEdit'#18'ProductVersionEdit'#22'AnchorSideLeft.Control'#7#12'CommentsEdi'
+#2#6#8'TabOrder'#2#5#0#0#5'TEdit'#18'ProductVersionEdit'#22'AnchorSideLeft.C' +'t'#23'AnchorSideRight.Control'#7#22'AdditionalInfoGroupBox'#20'AnchorSideRi'
+'ontrol'#7#12'CommentsEdit'#23'AnchorSideRight.Control'#7#22'AdditionalInfoG' +'ght.Side'#7#9'asrBottom'#4'Left'#3#144#0#6'Height'#2#23#3'Top'#3#184#0#5'Wi'
+'roupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#144#0#6'Height'#2 +'dth'#3#229#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#7'Anchors'#11#6'akLef'
+#23#3'Top'#3#200#0#5'Width'#3#229#0#7'Anchors'#11#6'akLeft'#7'akRight'#0#19 +'t'#7'akRight'#0#8'AutoSize'#8#10'AutoSelect'#8#18'BorderSpacing.Left'#2#0#17
+'BorderSpacing.Right'#2#6#8'TabOrder'#2#6#0#0#0#7'TBitBtn'#12'CancelButton' +'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#6#20'BorderSpacing.Bottom'
+#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBott' +#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'cc'
+'om'#24'AnchorSideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'a' +'aFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#8'CharCase'#7#8'ecN'
+'srBottom'#4'Left'#3'0'#1#6'Height'#2#25#3'Top'#3#9#1#5'Width'#2'U'#7'Anchor' +'ormal'#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#8'EchoMode'#7#8
,'s'#11#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#6'Cancel'#9#7'C' +'emNormal'#7'Enabled'#9#9'MaxLength'#2#255#14'ParentBidiMode'#9#10'ParentFon'
+'aption'#6#6'Cancel'#11'ModalResult'#2#2#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0 +'t'#9#14'ParentShowHint'#9#12'PasswordChar'#6#1#0#8'ReadOnly'#8#7'TabStop'#9
+#7'TBitBtn'#8'OKButton'#21'AnchorSideTop.Control'#7#12'CancelButton'#18'Anch' +#8'TabOrder'#2#6#7'Visible'#9#0#0#0#12'TButtonPanel'#11'ButtonPanel'#4'Left'
+'orSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#12'CancelButto' +#2#6#6'Height'#2'0'#3'Top'#3#248#0#5'Width'#3''#1#11'HelpContext'#2#0#5'Ali'
+'n'#4'Left'#3#216#0#6'Height'#2#25#3'Top'#3#9#1#5'Width'#2'R'#7'Anchors'#11#5 +'gn'#7#8'alBottom'#8'AutoSize'#9#11'ButtonOrder'#7#9'boDefault'#8'TabOrder'#2
+'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2#6#7'Caption'#6#2'OK'#7'Defaul' +#1#13'DefaultButton'#7#4'pbOK'#11'ShowButtons'#11#4'pbOK'#8'pbCancel'#0#10'S'
+'t'#9#11'ModalResult'#2#1#9'NumGlyphs'#2#0#8'TabOrder'#2#2#0#0#0 +'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 uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons, Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons,
StdCtrls, ExtCtrls, W32VersionInfo, LazarusIDEStrConsts; StdCtrls, ExtCtrls, W32VersionInfo, LazarusIDEStrConsts, ButtonPanel;
type type
{ TVersionInfoAdditinalInfoForm } { TVersionInfoAdditinalInfoForm }
TVersionInfoAdditinalInfoForm = class(TForm) TVersionInfoAdditinalInfoForm = class(TForm)
CancelButton: TBitBtn;
AdditionalInfoGroupBox: TGroupBox; AdditionalInfoGroupBox: TGroupBox;
ButtonPanel: TButtonPanel;
CommentsEdit: TEdit; CommentsEdit: TEdit;
CompanyEdit: TEdit; CompanyEdit: TEdit;
InternalNameEdit: TEdit; InternalNameEdit: TEdit;
LegalTrademarksEdit: TEdit; LegalTrademarksEdit: TEdit;
OKButton: TBitBtn;
OriginalFileNameEdit: TEdit; OriginalFileNameEdit: TEdit;
ProductNameEdit: TEdit; ProductNameEdit: TEdit;
ProductVersionEdit: TEdit; ProductVersionEdit: TEdit;
@ -113,8 +112,6 @@ begin
inherited Create(TheOwner); inherited Create(TheOwner);
Caption:= lisAdditionalInformation; Caption:= lisAdditionalInformation;
CancelButton.Caption:= dlgCancel;
OKButton.Caption:= lisOkBtn;
AdditionalInfoGroupBox.Caption:= lisAdditionalInformation; AdditionalInfoGroupBox.Caption:= lisAdditionalInformation;
CommentsLabel.Caption:= lisComments; CommentsLabel.Caption:= lisComments;
CompanyLabel.Caption:= lisCompany; CompanyLabel.Caption:= lisCompany;
@ -123,8 +120,6 @@ begin
OriginalFileNameLabel.Caption:= lisOriginalFileName; OriginalFileNameLabel.Caption:= lisOriginalFileName;
ProductNameLabel.Caption:= lisProductName; ProductNameLabel.Caption:= lisProductName;
ProductVersionLabel.Caption:= lisProductVersion; ProductVersionLabel.Caption:= lisProductVersion;
CancelButton.LoadGlyphFromLazarusResource('btn_cancel');
OKButton.LoadGlyphFromLazarusResource('btn_ok');
end; end;
initialization initialization