IDE: add to package dlg: set Buttons.AutoSize to true

git-svn-id: trunk@13766 -
This commit is contained in:
mattias 2008-01-15 21:03:57 +00:00
parent bbe54784af
commit cd05c54a98

View File

@ -1349,6 +1349,7 @@ begin
Parent:=AddUnitPage; Parent:=AddUnitPage;
Caption:='...'; Caption:='...';
OnClick:=@AddUnitFileBrowseButtonClick; OnClick:=@AddUnitFileBrowseButtonClick;
AutoSize:=true;
end; end;
AddUnitFileShortenButton:=TButton.Create(Self); AddUnitFileShortenButton:=TButton.Create(Self);
@ -1357,6 +1358,7 @@ begin
Parent:=AddUnitPage; Parent:=AddUnitPage;
Caption:='<>'; Caption:='<>';
OnClick:=@AddUnitFileShortenButtonClick; OnClick:=@AddUnitFileShortenButtonClick;
AutoSize:=true;
end; end;
AddUnitSrcNameLabel:=TLabel.Create(Self); AddUnitSrcNameLabel:=TLabel.Create(Self);
@ -1409,6 +1411,7 @@ begin
AutoSize:=true; AutoSize:=true;
AnchorParallel(akLeft,0,AddUnitHasRegisterCheckBox); AnchorParallel(akLeft,0,AddUnitHasRegisterCheckBox);
AnchorToNeighbour(akTop,5,AddSecondaryFilesCheckBox); AnchorToNeighbour(akTop,5,AddSecondaryFilesCheckBox);
AutoSize:=true;
end; end;
AddUnitButton:=TButton.Create(Self); AddUnitButton:=TButton.Create(Self);
@ -1420,6 +1423,7 @@ begin
AutoSize:=true; AutoSize:=true;
AnchorParallel(akLeft,0,AddUnitHasRegisterCheckBox); AnchorParallel(akLeft,0,AddUnitHasRegisterCheckBox);
AnchorToNeighbour(akTop,25,AddUnitUpdateButton); AnchorToNeighbour(akTop,25,AddUnitUpdateButton);
AutoSize:=true;
end; end;
CancelAddUnitButton:=TButton.Create(Self); CancelAddUnitButton:=TButton.Create(Self);
@ -1431,6 +1435,7 @@ begin
AutoSize:=true; AutoSize:=true;
AnchorToNeighbour(akLeft,10,AddUnitButton); AnchorToNeighbour(akLeft,10,AddUnitButton);
AnchorParallel(akTop,0,AddUnitButton); AnchorParallel(akTop,0,AddUnitButton);
AutoSize:=true;
end; end;
end; end;
@ -1573,6 +1578,7 @@ begin
OnClick:=@ComponentUnitFileBrowseButtonClick; OnClick:=@ComponentUnitFileBrowseButtonClick;
ShowHint:=true; ShowHint:=true;
Hint:=lisA2PSaveFileDialog; Hint:=lisA2PSaveFileDialog;
AutoSize:=true;
end; end;
ComponentUnitFileShortenButton:=TButton.Create(Self); ComponentUnitFileShortenButton:=TButton.Create(Self);
@ -1583,6 +1589,7 @@ begin
OnClick:=@ComponentUnitFileShortenButtonClick; OnClick:=@ComponentUnitFileShortenButtonClick;
ShowHint:=true; ShowHint:=true;
Hint:=lisA2PShortenOrExpandFilename; Hint:=lisA2PShortenOrExpandFilename;
AutoSize:=true;
end; end;
ComponentUnitNameLabel:=TLabel.Create(Self); ComponentUnitNameLabel:=TLabel.Create(Self);
@ -1605,6 +1612,7 @@ begin
Parent:=NewComponentPage; Parent:=NewComponentPage;
Caption:=lisLazBuildOk; Caption:=lisLazBuildOk;
OnClick:=@NewComponentButtonClick; OnClick:=@NewComponentButtonClick;
AutoSize:=true;
end; end;
CancelNewComponentButton:=TButton.Create(Self); CancelNewComponentButton:=TButton.Create(Self);
@ -1613,6 +1621,7 @@ begin
Parent:=NewComponentPage; Parent:=NewComponentPage;
Caption:=dlgCancel; Caption:=dlgCancel;
OnClick:=@CancelNewComponentButtonClick; OnClick:=@CancelNewComponentButtonClick;
AutoSize:=true;
end; end;
end; end;
@ -1666,6 +1675,7 @@ begin
Parent:=NewDependPage; Parent:=NewDependPage;
Caption:=lisLazBuildOk; Caption:=lisLazBuildOk;
OnClick:=@NewDependButtonClick; OnClick:=@NewDependButtonClick;
AutoSize:=true;
end; end;
CancelDependButton:=TButton.Create(Self); CancelDependButton:=TButton.Create(Self);
@ -1674,6 +1684,7 @@ begin
Parent:=NewDependPage; Parent:=NewDependPage;
Caption:=dlgCancel; Caption:=dlgCancel;
ModalResult:=mrCancel; ModalResult:=mrCancel;
AutoSize:=true;
end; end;
end; end;
@ -1701,6 +1712,7 @@ begin
Parent:=AddFilePage; Parent:=AddFilePage;
Caption:='...'; Caption:='...';
OnClick:=@AddFileBrowseButtonClick; OnClick:=@AddFileBrowseButtonClick;
AutoSize:=true;
end; end;
AddFileShortenButton:=TButton.Create(Self); AddFileShortenButton:=TButton.Create(Self);
@ -1709,6 +1721,7 @@ begin
Parent:=AddFilePage; Parent:=AddFilePage;
Caption:='<>'; Caption:='<>';
OnClick:=@AddFileShortenButtonClick; OnClick:=@AddFileShortenButtonClick;
AutoSize:=true;
end; end;
AddFileTypeRadioGroup:=TRadioGroup.Create(Self); AddFileTypeRadioGroup:=TRadioGroup.Create(Self);
@ -1732,6 +1745,7 @@ begin
Parent:=AddFilePage; Parent:=AddFilePage;
Caption:=lisLazBuildOk; Caption:=lisLazBuildOk;
OnClick:=@AddFileButtonClick; OnClick:=@AddFileButtonClick;
AutoSize:=true;
end; end;
CancelAddFileButton:=TButton.Create(Self); CancelAddFileButton:=TButton.Create(Self);
@ -1740,6 +1754,7 @@ begin
Parent:=AddFilePage; Parent:=AddFilePage;
Caption:=dlgCancel; Caption:=dlgCancel;
OnClick:=@CancelAddFileButtonClick; OnClick:=@CancelAddFileButtonClick;
AutoSize:=true;
end; end;
end; end;