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

IDE: clean up

Browse Source 
git-svn-id: trunk@35060 -
This commit is contained in:
mattias 2012-01-31 14:17:01 +00:00
parent 32a0130105
commit 07cd622a8d
2 changed files with 42 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
packager/addtopackagedlg.lfm
View File

@ -3,7 +3,7 @@ object AddToPackageDlg: TAddToPackageDlg
Height = 322
Top = 386
Width = 658
ActiveControl = NoteBook
ActiveControl = PageControl1
Caption = 'Add to package'
ClientHeight = 322
ClientWidth = 658
@ -14,7 +14,7 @@ object AddToPackageDlg: TAddToPackageDlg
OnKeyDown = AddToPackageDlgKeyDown
Position = poScreenCenter
LCLVersion = '0.9.31'
object NoteBook: TPageControl
object PageControl1: TPageControl
Left = 0
Height = 322
Top = 0
@ -25,8 +25,8 @@ object AddToPackageDlg: TAddToPackageDlg
TabOrder = 0
object NewFilePage: TTabSheet
Caption = 'New File'
ClientWidth = 656
ClientHeight = 295
ClientWidth = 656
OnResize = NewFilePageResize
object NewFileTreeView: TTreeView
Left = 0
@ -53,8 +53,8 @@ object AddToPackageDlg: TAddToPackageDlg
Align = alClient
BorderSpacing.Bottom = 5
Caption = 'NewFileDescriptionGroupBox'
ClientHeight = 249
ClientWidth = 407
ClientHeight = 230
ClientWidth = 403
TabOrder = 1
object NewFileHelpLabel: TLabel
Left = 0
@ -184,8 +184,8 @@ object AddToPackageDlg: TAddToPackageDlg
end
object NewComponentPage: TTabSheet
Caption = 'New Component'
ClientWidth = 654
ClientHeight = 289
ClientHeight = 295
ClientWidth = 656
OnResize = NewComponentPageResize
object AncestorTypeLabel: TLabel
AnchorSideTop.Control = AncestorComboBox
@ -503,8 +503,8 @@ object AddToPackageDlg: TAddToPackageDlg
end
object NewRequirementPage: TTabSheet
Caption = 'New Requirement'
ClientWidth = 656
ClientHeight = 295
ClientWidth = 656
object NewDepBtnPanel: TPanel
Left = 0
Height = 41
@ -700,14 +700,14 @@ object AddToPackageDlg: TAddToPackageDlg
end
object AddFilesPage: TTabSheet
Caption = 'Add Files'
ClientWidth = 654
ClientHeight = 289
ClientHeight = 295
ClientWidth = 656
object FilesListView: TListView
AnchorSideBottom.Control = FilesBrowseButton
Left = 0
Height = 245
Height = 249
Top = 0
Width = 654
Width = 656
Align = alClient
BorderSpacing.Bottom = 5
Columns = <
@ -725,20 +725,20 @@ object AddToPackageDlg: TAddToPackageDlg
end
object AddFilesBtnPanel: TPanel
Left = 0
Height = 39
Top = 250
Width = 654
Height = 41
Top = 254
Width = 656
Align = alBottom
AutoSize = True
BevelOuter = bvNone
ClientHeight = 39
ClientWidth = 654
ClientHeight = 41
ClientWidth = 656
TabOrder = 1
object FilesBrowseButton: TButton
Height = 27
Left = 48
Left = 16
Height = 29
Top = 6
Width = 139
Width = 133
Align = alRight
AutoSize = True
BorderSpacing.Around = 6
@ -748,10 +748,10 @@ object AddToPackageDlg: TAddToPackageDlg
end
object FilesAddButton: TButton
AnchorSideLeft.Side = asrBottom
Left = 532
Height = 27
Left = 540
Height = 29
Top = 6
Width = 116
Width = 110
Align = alRight
AutoSize = True
BorderSpacing.Around = 6
@ -762,10 +762,10 @@ object AddToPackageDlg: TAddToPackageDlg
end
object FilesShortenButton: TBitBtn
AnchorSideLeft.Side = asrBottom
Left = 245
Height = 27
Left = 265
Height = 29
Top = 6
Width = 141
Width = 135
Align = alRight
AutoSize = True
BorderSpacing.Around = 6
@ -776,10 +776,10 @@ object AddToPackageDlg: TAddToPackageDlg
end
object FilesDeleteButton: TBitBtn
AnchorSideLeft.Side = asrBottom
Left = 392
Height = 27
Left = 406
Height = 29
Top = 6
Width = 134
Width = 128
Align = alRight
AutoSize = True
BorderSpacing.Around = 6
@ -789,10 +789,10 @@ object AddToPackageDlg: TAddToPackageDlg
TabOrder = 3
end
object FilesDirButton: TButton
Left = 129
Height = 27
Left = 155
Height = 29
Top = 6
Width = 110
Width = 104
Align = alRight
AutoSize = True
BorderSpacing.Around = 6

20
packager/addtopackagedlg.pas
View File

@ -91,8 +91,8 @@ type
TAddToPackageDlg = class(TForm)
CancelDependButton: TBitBtn;
CancelNewComponentButton: TBitBtn;
// notebook
NoteBook: TPageControl;
// PageControl1
PageControl1: TPageControl;
NewFilePage: TTabSheet;
NewComponentPage: TTabSheet;
NewRequirementPage: TTabSheet;
@ -1061,11 +1061,11 @@ end;
function TAddToPackageDlg.GetActivatePage: TAddToPkgType;
begin
if NoteBook.ActivePage=NewComponentPage then
if PageControl1.ActivePage=NewComponentPage then
Result:=d2ptNewComponent
else if NoteBook.ActivePage=NewRequirementPage then
else if PageControl1.ActivePage=NewRequirementPage then
Result:=d2ptRequiredPkg
else if NoteBook.ActivePage=AddFilesPage then
else if PageControl1.ActivePage=AddFilesPage then
Result:=d2ptFiles
else
Result:=d2ptNewFile;
@ -1074,10 +1074,10 @@ end;
procedure TAddToPackageDlg.SetActivatePage(AValue: TAddToPkgType);
begin
case AValue of
d2ptNewComponent: NoteBook.ActivePage:=NewComponentPage;
d2ptRequiredPkg: NoteBook.ActivePage:=NewRequirementPage;
d2ptFile,d2ptFiles: NoteBook.ActivePage:=AddFilesPage;
else NoteBook.ActivePage:=NewFilePage;
d2ptNewComponent: PageControl1.ActivePage:=NewComponentPage;
d2ptRequiredPkg: PageControl1.ActivePage:=NewRequirementPage;
d2ptFile,d2ptFiles: PageControl1.ActivePage:=AddFilesPage;
else PageControl1.ActivePage:=NewFilePage;
end;
end;
@ -1087,7 +1087,7 @@ begin
NewComponentPage.Caption:=lisA2PNewComponent;
NewRequirementPage.Caption:=lisProjAddNewRequirement;
AddFilesPage.Caption:=lisA2PAddFiles;
NoteBook.PageIndex:=0;
PageControl1.PageIndex:=0;
SetupNewFilePage;
SetupNewComponentPage;