paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-06 11:26:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

-- reanchoring some controls

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

154
ide/versioninfoadditionalinfo.lfm
View File

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

77
ide/versioninfoadditionalinfo.lrs
View File

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

12
ide/versioninfoadditionalinfo.pas
View File

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