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

IDE: clean up package options dialog from Luis Rodrigues (#9872)

Browse Source 
git-svn-id: trunk@12372 -
This commit is contained in:
vincents 2007-10-08 09:16:19 +00:00
parent 4502a2bf23
commit 95eb5d2dd4
1 changed files with 6 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
packager/pkgoptionsdlg.pas
View File

@ -122,9 +122,8 @@ type
FLazPackage: TLazPackage;
procedure SetLazPackage(const AValue: TLazPackage);
procedure SetupComponents;
procedure SetupUsagePage(PageIndex: integer);
procedure SetupIDEPage(PageIndex: integer);
procedure SetupProvidesPage(PageIndex: integer);
procedure SetupUsagePage;
procedure SetupIDEPage;
procedure ReadOptionsFromPackage;
procedure ReadPkgTypeFromPackage;
function GetEditForPathButton(AButton: TPathEditorButton): TEdit;
@ -385,12 +384,11 @@ end;
procedure TPackageOptionsDialog.SetupComponents;
begin
SetupUsagePage(0);
SetupIDEPage(2);
SetupProvidesPage(3);
SetupUsagePage();
SetupIDEPage();
end;
procedure TPackageOptionsDialog.SetupIDEPage(PageIndex: integer);
procedure TPackageOptionsDialog.SetupIDEPage;
begin
// lazdoc
LazDocPathButton:=TPathEditorButton.Create(Self);
@ -409,12 +407,8 @@ begin
LazDocPathEdit.AnchorToNeighbour(akRight,0,LazDocPathButton);
end;
procedure TPackageOptionsDialog.SetupProvidesPage(PageIndex: integer);
begin
end;
procedure TPackageOptionsDialog.SetupUsagePage(PageIndex: integer);
procedure TPackageOptionsDialog.SetupUsagePage;
begin
// Usage page
UnitPathButton:=TPathEditorButton.Create(Self);