-- reanchoring some controls

git-svn-id: trunk@11376 -
This commit is contained in:
paul 2007-06-26 06:18:38 +00:00
parent 0c06e52cb8
commit 589e460240
3 changed files with 116 additions and 127 deletions

View File

@ -1,157 +1,157 @@
object VersionInfoAdditinalInfoForm: TVersionInfoAdditinalInfoForm
Left = 300
Height = 296
Top = 402
Width = 395
HorzScrollBar.Page = 394
VertScrollBar.Page = 295
ActiveControl = OKButton
BorderIcons = []
Caption = 'Additional Information'
ClientHeight = 296
ClientWidth = 395
PixelsPerInch = 96
Position = poOwnerFormCenter
HorzScrollBar.Page = 394
VertScrollBar.Page = 295
Left = 300
Height = 296
Top = 402
Width = 395
object OKButton: TButton
BorderSpacing.InnerBorder = 4
Caption = 'OK'
OnClick = Button1Click
TabOrder = 0
Left = 216
Left = 224
Height = 25
Top = 264
Width = 75
BorderSpacing.InnerBorder = 4
Caption = 'OK'
Default = True
ModalResult = 1
TabOrder = 0
end
object AdditionalInfoGroupBox: TGroupBox
Caption = 'Additional Information'
ClientHeight = 230
ClientWidth = 372
TabOrder = 1
Left = 8
Height = 248
Top = 8
Width = 376
Caption = 'Additional Information'
ClientHeight = 230
ClientWidth = 372
TabOrder = 1
object CommentsLabel: TLabel
Caption = 'Comments:'
Color = clNone
ParentColor = False
Left = 6
Height = 14
Height = 17
Top = 8
Width = 55
Width = 60
Caption = 'Comments:'
ParentColor = False
end
object CompanyLabel: TLabel
Caption = 'Company:'
Color = clNone
ParentColor = False
Left = 6
Height = 14
Height = 17
Top = 40
Width = 50
Width = 54
Caption = 'Company:'
ParentColor = False
end
object InternalNameLabel: TLabel
Caption = 'Internal Name:'
Color = clNone
ParentColor = False
Left = 6
Height = 14
Height = 17
Top = 72
Width = 73
Width = 78
Caption = 'Internal Name:'
ParentColor = False
end
object LegalTrademarksLabel: TLabel
Caption = 'Legal Trademarks:'
Color = clNone
ParentColor = False
Left = 6
Height = 14
Height = 17
Top = 104
Width = 89
Width = 95
Caption = 'Legal Trademarks:'
ParentColor = False
end
object OriginalFileNameLabel: TLabel
Caption = 'Original File Name:'
Color = clNone
ParentColor = False
Left = 6
Height = 14
Height = 17
Top = 136
Width = 90
Width = 101
Caption = 'Original File Name:'
ParentColor = False
end
object ProductNameLabel: TLabel
Caption = 'Product Name:'
Color = clNone
ParentColor = False
Left = 6
Height = 14
Height = 17
Top = 168
Width = 72
Width = 80
Caption = 'Product Name:'
ParentColor = False
end
object ProductVersionLabel: TLabel
Caption = 'Product Version:'
Color = clNone
ParentColor = False
Left = 6
Height = 14
Height = 17
Top = 200
Width = 80
Width = 88
Caption = 'Product Version:'
ParentColor = False
end
object CommentsEdit: TEdit
TabOrder = 0
Left = 102
Left = 110
Height = 23
Top = 8
Width = 264
Width = 256
TabOrder = 0
end
object CompanyEdit: TEdit
TabOrder = 1
Left = 102
AnchorSideLeft.Control = CommentsEdit
Left = 110
Height = 23
Top = 40
Width = 264
Width = 256
TabOrder = 1
end
object InternalNameEdit: TEdit
TabOrder = 2
Left = 102
AnchorSideLeft.Control = CommentsEdit
Left = 110
Height = 23
Top = 72
Width = 264
Width = 256
TabOrder = 2
end
object LegalTrademarksEdit: TEdit
TabOrder = 3
Left = 102
AnchorSideLeft.Control = CommentsEdit
Left = 110
Height = 23
Top = 104
Width = 264
Width = 256
TabOrder = 3
end
object OriginalFileNameEdit: TEdit
TabOrder = 4
Left = 102
AnchorSideLeft.Control = CommentsEdit
Left = 110
Height = 23
Top = 136
Width = 264
Width = 256
TabOrder = 4
end
object ProductNameEdit: TEdit
TabOrder = 5
Left = 102
AnchorSideLeft.Control = CommentsEdit
Left = 110
Height = 23
Top = 168
Width = 264
Width = 256
TabOrder = 5
end
object ProductVersionEdit: TEdit
TabOrder = 6
Left = 102
AnchorSideLeft.Control = CommentsEdit
Left = 110
Height = 23
Top = 200
Width = 264
Width = 256
TabOrder = 6
end
end
object CancelButton: TButton
BorderSpacing.InnerBorder = 4
Caption = 'Cancel'
OnClick = CancelButtonClick
TabOrder = 2
Left = 304
Left = 309
Height = 25
Top = 264
Width = 75
BorderSpacing.InnerBorder = 4
Cancel = True
Caption = 'Cancel'
ModalResult = 2
TabOrder = 2
end
end

View File

@ -1,42 +1,43 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TVersionInfoAdditinalInfoForm','FORMDATA',[
'TPF0'#29'TVersionInfoAdditinalInfoForm'#28'VersionInfoAdditinalInfoForm'#13
+'ActiveControl'#7#8'OKButton'#11'BorderIcons'#11#0#7'Caption'#6#22'Additiona'
+'l Information'#12'ClientHeight'#3'('#1#11'ClientWidth'#3#139#1#13'PixelsPer'
+'Inch'#2'`'#8'Position'#7#17'poOwnerFormCenter'#18'HorzScrollBar.Page'#3#138
+#1#18'VertScrollBar.Page'#3''''#1#4'Left'#3','#1#6'Height'#3'('#1#3'Top'#3
+#146#1#5'Width'#3#139#1#0#7'TButton'#8'OKButton'#25'BorderSpacing.InnerBorde'
+'r'#2#4#7'Caption'#6#2'OK'#7'OnClick'#7#12'Button1Click'#8'TabOrder'#2#0#4'L'
+'eft'#3#216#0#6'Height'#2#25#3'Top'#3#8#1#5'Width'#2'K'#0#0#9'TGroupBox'#22
+'AdditionalInfoGroupBox'#7'Caption'#6#22'Additional Information'#12'ClientHe'
+'ight'#3#230#0#11'ClientWidth'#3't'#1#8'TabOrder'#2#1#4'Left'#2#8#6'Height'#3
+#248#0#3'Top'#2#8#5'Width'#3'x'#1#0#6'TLabel'#13'CommentsLabel'#7'Caption'#6
+#9'Comments:'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#6#6'Height'#2
+#14#3'Top'#2#8#5'Width'#2'7'#0#0#6'TLabel'#12'CompanyLabel'#7'Caption'#6#8'C'
+'ompany:'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#6#6'Height'#2#14#3
+'Top'#2'('#5'Width'#2'2'#0#0#6'TLabel'#17'InternalNameLabel'#7'Caption'#6#14
+'Internal Name:'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#6#6'Height'
+#2#14#3'Top'#2'H'#5'Width'#2'I'#0#0#6'TLabel'#20'LegalTrademarksLabel'#7'Cap'
+'tion'#6#17'Legal Trademarks:'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'
+#2#6#6'Height'#2#14#3'Top'#2'h'#5'Width'#2'Y'#0#0#6'TLabel'#21'OriginalFileN'
+'ameLabel'#7'Caption'#6#19'Original File Name:'#5'Color'#7#6'clNone'#11'Pare'
+'ntColor'#8#4'Left'#2#6#6'Height'#2#14#3'Top'#3#136#0#5'Width'#2'Z'#0#0#6'TL'
+'abel'#16'ProductNameLabel'#7'Caption'#6#13'Product Name:'#5'Color'#7#6'clNo'
+'ne'#11'ParentColor'#8#4'Left'#2#6#6'Height'#2#14#3'Top'#3#168#0#5'Width'#2
+'H'#0#0#6'TLabel'#19'ProductVersionLabel'#7'Caption'#6#16'Product Version:'#5
+'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#6#6'Height'#2#14#3'Top'#3#200
+#0#5'Width'#2'P'#0#0#5'TEdit'#12'CommentsEdit'#8'TabOrder'#2#0#4'Left'#2'f'#6
+'Height'#2#23#3'Top'#2#8#5'Width'#3#8#1#0#0#5'TEdit'#11'CompanyEdit'#8'TabOr'
+'der'#2#1#4'Left'#2'f'#6'Height'#2#23#3'Top'#2'('#5'Width'#3#8#1#0#0#5'TEdit'
+#16'InternalNameEdit'#8'TabOrder'#2#2#4'Left'#2'f'#6'Height'#2#23#3'Top'#2'H'
+#5'Width'#3#8#1#0#0#5'TEdit'#19'LegalTrademarksEdit'#8'TabOrder'#2#3#4'Left'
+#2'f'#6'Height'#2#23#3'Top'#2'h'#5'Width'#3#8#1#0#0#5'TEdit'#20'OriginalFile'
+'NameEdit'#8'TabOrder'#2#4#4'Left'#2'f'#6'Height'#2#23#3'Top'#3#136#0#5'Widt'
+'h'#3#8#1#0#0#5'TEdit'#15'ProductNameEdit'#8'TabOrder'#2#5#4'Left'#2'f'#6'He'
+'ight'#2#23#3'Top'#3#168#0#5'Width'#3#8#1#0#0#5'TEdit'#18'ProductVersionEdit'
+#8'TabOrder'#2#6#4'Left'#2'f'#6'Height'#2#23#3'Top'#3#200#0#5'Width'#3#8#1#0
+#0#0#7'TButton'#12'CancelButton'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'
+#6#6'Cancel'#7'OnClick'#7#17'CancelButtonClick'#8'TabOrder'#2#2#4'Left'#3'0'
+#1#6'Height'#2#25#3'Top'#3#8#1#5'Width'#2'K'#0#0#0
'TPF0'#29'TVersionInfoAdditinalInfoForm'#28'VersionInfoAdditinalInfoForm'#4'L'
+'eft'#3','#1#6'Height'#3'('#1#3'Top'#3#146#1#5'Width'#3#139#1#18'HorzScrollB'
+'ar.Page'#3#138#1#18'VertScrollBar.Page'#3''''#1#13'ActiveControl'#7#8'OKBut'
+'ton'#11'BorderIcons'#11#0#7'Caption'#6#22'Additional Information'#12'Client'
+'Height'#3'('#1#11'ClientWidth'#3#139#1#8'Position'#7#17'poOwnerFormCenter'#0
+#7'TButton'#8'OKButton'#4'Left'#3#224#0#6'Height'#2#25#3'Top'#3#8#1#5'Width'
+#2'K'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#2'OK'#7'Default'#9#11'M'
+'odalResult'#2#1#8'TabOrder'#2#0#0#0#9'TGroupBox'#22'AdditionalInfoGroupBox'
+#4'Left'#2#8#6'Height'#3#248#0#3'Top'#2#8#5'Width'#3'x'#1#7'Caption'#6#22'Ad'
+'ditional Information'#12'ClientHeight'#3#230#0#11'ClientWidth'#3't'#1#8'Tab'
+'Order'#2#1#0#6'TLabel'#13'CommentsLabel'#4'Left'#2#6#6'Height'#2#17#3'Top'#2
+#8#5'Width'#2'<'#7'Caption'#6#9'Comments:'#11'ParentColor'#8#0#0#6'TLabel'#12
+'CompanyLabel'#4'Left'#2#6#6'Height'#2#17#3'Top'#2'('#5'Width'#2'6'#7'Captio'
+'n'#6#8'Company:'#11'ParentColor'#8#0#0#6'TLabel'#17'InternalNameLabel'#4'Le'
+'ft'#2#6#6'Height'#2#17#3'Top'#2'H'#5'Width'#2'N'#7'Caption'#6#14'Internal N'
+'ame:'#11'ParentColor'#8#0#0#6'TLabel'#20'LegalTrademarksLabel'#4'Left'#2#6#6
+'Height'#2#17#3'Top'#2'h'#5'Width'#2'_'#7'Caption'#6#17'Legal Trademarks:'#11
+'ParentColor'#8#0#0#6'TLabel'#21'OriginalFileNameLabel'#4'Left'#2#6#6'Height'
+#2#17#3'Top'#3#136#0#5'Width'#2'e'#7'Caption'#6#19'Original File Name:'#11'P'
+'arentColor'#8#0#0#6'TLabel'#16'ProductNameLabel'#4'Left'#2#6#6'Height'#2#17
+#3'Top'#3#168#0#5'Width'#2'P'#7'Caption'#6#13'Product Name:'#11'ParentColor'
+#8#0#0#6'TLabel'#19'ProductVersionLabel'#4'Left'#2#6#6'Height'#2#17#3'Top'#3
+#200#0#5'Width'#2'X'#7'Caption'#6#16'Product Version:'#11'ParentColor'#8#0#0
+#5'TEdit'#12'CommentsEdit'#4'Left'#2'n'#6'Height'#2#23#3'Top'#2#8#5'Width'#3
+#0#1#8'TabOrder'#2#0#0#0#5'TEdit'#11'CompanyEdit'#22'AnchorSideLeft.Control'
+#7#12'CommentsEdit'#4'Left'#2'n'#6'Height'#2#23#3'Top'#2'('#5'Width'#3#0#1#8
+'TabOrder'#2#1#0#0#5'TEdit'#16'InternalNameEdit'#22'AnchorSideLeft.Control'#7
+#12'CommentsEdit'#4'Left'#2'n'#6'Height'#2#23#3'Top'#2'H'#5'Width'#3#0#1#8'T'
+'abOrder'#2#2#0#0#5'TEdit'#19'LegalTrademarksEdit'#22'AnchorSideLeft.Control'
+#7#12'CommentsEdit'#4'Left'#2'n'#6'Height'#2#23#3'Top'#2'h'#5'Width'#3#0#1#8
+'TabOrder'#2#3#0#0#5'TEdit'#20'OriginalFileNameEdit'#22'AnchorSideLeft.Contr'
+'ol'#7#12'CommentsEdit'#4'Left'#2'n'#6'Height'#2#23#3'Top'#3#136#0#5'Width'#3
+#0#1#8'TabOrder'#2#4#0#0#5'TEdit'#15'ProductNameEdit'#22'AnchorSideLeft.Cont'
+'rol'#7#12'CommentsEdit'#4'Left'#2'n'#6'Height'#2#23#3'Top'#3#168#0#5'Width'
+#3#0#1#8'TabOrder'#2#5#0#0#5'TEdit'#18'ProductVersionEdit'#22'AnchorSideLeft'
+'.Control'#7#12'CommentsEdit'#4'Left'#2'n'#6'Height'#2#23#3'Top'#3#200#0#5'W'
+'idth'#3#0#1#8'TabOrder'#2#6#0#0#0#7'TButton'#12'CancelButton'#4'Left'#3'5'#1
+#6'Height'#2#25#3'Top'#3#8#1#5'Width'#2'K'#25'BorderSpacing.InnerBorder'#2#4
+#6'Cancel'#9#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#2#0#0#0
]);

View File

@ -62,8 +62,6 @@ type
OriginalFileNameLabel: TLabel;
ProductNameLabel: TLabel;
ProductVersionLabel: TLabel;
procedure Button1Click(Sender: TObject);
procedure CancelButtonClick(Sender: TObject);
private
{ private declarations }
public
@ -110,16 +108,6 @@ end;
{ TVersionInfoAdditinalInfoForm }
procedure TVersionInfoAdditinalInfoForm.Button1Click(Sender: TObject);
begin
ModalResult := MrOk;
end;
procedure TVersionInfoAdditinalInfoForm.CancelButtonClick(Sender: TObject);
begin
ModalResult := MrCancel;
end;
constructor TVersionInfoAdditinalInfoForm.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);