* code to lfm conversion by Darius

git-svn-id: trunk@8392 -

.gitattributes

@@ -1011,6 +1011,8 @@ ide/progressdlg.lrs svneol=native#text/plain
 ide/progressdlg.pas svneol=native#text/plain
 ide/project.pp svneol=native#text/pascal
 ide/projectdefs.pas svneol=native#text/pascal
+ide/projectinspector.lfm svneol=native#text/plain
+ide/projectinspector.lrs svneol=native#text/pascal
 ide/projectinspector.pas svneol=native#text/pascal
 ide/projectopts.lfm svneol=native#text/plain
 ide/projectopts.lrs svneol=native#text/pascal

ide/projectinspector.lfm

@@ -0,0 +1,86 @@
+object ProjectInspectorForm: TProjectInspectorForm
+  ActiveControl = OpenBitBtn
+  BorderStyle = bsSizeToolWin
+  Caption = 'ProjectInspectorForm'
+  ClientHeight = 300
+  ClientWidth = 403
+  OnShow = ProjectInspectorFormShow
+  PixelsPerInch = 96
+  HorzScrollBar.Page = 402
+  VertScrollBar.Page = 299
+  Left = 460
+  Height = 300
+  Top = 401
+  Width = 403
+  object OpenBitBtn: TBitBtn
+    AutoSize = True
+    BorderSpacing.InnerBorder = 2
+    Caption = 'OpenBitBtn'
+    NumGlyphs = 0
+    OnClick = OpenBitBtnClick
+    TabOrder = 0
+    Height = 29
+    Width = 78
+  end
+  object AddBitBtn: TBitBtn
+    AutoSize = True
+    BorderSpacing.InnerBorder = 2
+    Caption = 'AddBitBtn'
+    NumGlyphs = 0
+    OnClick = AddBitBtnClick
+    TabOrder = 1
+    AnchorSideLeft.Control = OpenBitBtn
+    Left = 78
+    Height = 29
+    Width = 71
+  end
+  object RemoveBitBtn: TBitBtn
+    AutoSize = True
+    BorderSpacing.InnerBorder = 2
+    Caption = 'RemoveBitBtn'
+    NumGlyphs = 0
+    OnClick = RemoveBitBtnClick
+    TabOrder = 2
+    AnchorSideLeft.Control = AddBitBtn
+    Left = 149
+    Height = 29
+    Width = 92
+  end
+  object OptionsBitBtn: TBitBtn
+    Anchors = [akTop, akLeft, akRight]
+    AutoSize = True
+    BorderSpacing.InnerBorder = 2
+    Caption = 'OptionsBitBtn'
+    NumGlyphs = 0
+    OnClick = OptionsBitBtnClick
+    TabOrder = 3
+    AnchorSideLeft.Control = RemoveBitBtn
+    Left = 241
+    Height = 29
+    Width = 162
+  end
+  object ItemsTreeView: TTreeView
+    Align = alBottom
+    Anchors = [akTop, akLeft, akRight, akBottom]
+    DefaultItemHeight = 16
+    Images = ImageList
+    PopupMenu = ItemsPopupMenu
+    RightClickSelect = True
+    TabOrder = 4
+    OnDblClick = ItemsTreeViewDblClick
+    OnSelectionChanged = ItemsTreeViewSelectionChanged
+    Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips]
+    Height = 269
+    Top = 31
+    Width = 403
+  end
+  object ImageList: TImageList
+    left = 39
+    top = 20
+  end
+  object ItemsPopupMenu: TPopupMenu
+    OnPopup = ItemsPopupMenuPopup
+    left = 40
+    top = 59
+  end
+end

ide/projectinspector.lrs

@@ -0,0 +1,33 @@
+{ This is an automatically generated lazarus resource file }
+
+LazarusResources.Add('TProjectInspectorForm','FORMDATA',[
+  'TPF0'#21'TProjectInspectorForm'#20'ProjectInspectorForm'#13'ActiveControl'#7
+  +#10'OpenBitBtn'#11'BorderStyle'#7#13'bsSizeToolWin'#7'Caption'#6#20'ProjectI'
+  +'nspectorForm'#12'ClientHeight'#3','#1#11'ClientWidth'#3#147#1#6'OnShow'#7#24
+  +'ProjectInspectorFormShow'#13'PixelsPerInch'#2'`'#18'HorzScrollBar.Page'#3
+  +#146#1#18'VertScrollBar.Page'#3'+'#1#4'Left'#3#204#1#6'Height'#3','#1#3'Top'
+  +#3#145#1#5'Width'#3#147#1#0#7'TBitBtn'#10'OpenBitBtn'#8'AutoSize'#9#25'Borde'
+  +'rSpacing.InnerBorder'#2#2#7'Caption'#6#10'OpenBitBtn'#9'NumGlyphs'#2#0#7'On'
+  +'Click'#7#15'OpenBitBtnClick'#8'TabOrder'#2#0#6'Height'#2#29#5'Width'#2'N'#0
+  +#0#7'TBitBtn'#9'AddBitBtn'#8'AutoSize'#9#25'BorderSpacing.InnerBorder'#2#2#7
+  +'Caption'#6#9'AddBitBtn'#9'NumGlyphs'#2#0#7'OnClick'#7#14'AddBitBtnClick'#8
+  +'TabOrder'#2#1#22'AnchorSideLeft.Control'#7#10'OpenBitBtn'#4'Left'#2'N'#6'He'
+  +'ight'#2#29#5'Width'#2'G'#0#0#7'TBitBtn'#12'RemoveBitBtn'#8'AutoSize'#9#25'B'
+  +'orderSpacing.InnerBorder'#2#2#7'Caption'#6#12'RemoveBitBtn'#9'NumGlyphs'#2#0
+  +#7'OnClick'#7#17'RemoveBitBtnClick'#8'TabOrder'#2#2#22'AnchorSideLeft.Contro'
+  +'l'#7#9'AddBitBtn'#4'Left'#3#149#0#6'Height'#2#29#5'Width'#2'\'#0#0#7'TBitBt'
+  +'n'#13'OptionsBitBtn'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSi'
+  +'ze'#9#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#13'OptionsBitBtn'#9'Nu'
+  +'mGlyphs'#2#0#7'OnClick'#7#18'OptionsBitBtnClick'#8'TabOrder'#2#3#22'AnchorS'
+  +'ideLeft.Control'#7#12'RemoveBitBtn'#4'Left'#3#241#0#6'Height'#2#29#5'Width'
+  +#3#162#0#0#0#9'TTreeView'#13'ItemsTreeView'#5'Align'#7#8'alBottom'#7'Anchors'
+  +#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#17'DefaultItemHeight'#2#16#6
+  +'Images'#7#9'ImageList'#9'PopupMenu'#7#14'ItemsPopupMenu'#16'RightClickSelec'
+  +'t'#9#8'TabOrder'#2#4#10'OnDblClick'#7#21'ItemsTreeViewDblClick'#18'OnSelect'
+  +'ionChanged'#7#29'ItemsTreeViewSelectionChanged'#7'Options'#11#17'tvoAutoIte'
+  +'mHeight'#16'tvoHideSelection'#21'tvoKeepCollapsedNodes'#19'tvoRightClickSel'
+  +'ect'#14'tvoShowButtons'#12'tvoShowLines'#11'tvoShowRoot'#11'tvoToolTips'#0#6
+  +'Height'#3#13#1#3'Top'#2#31#5'Width'#3#147#1#0#0#10'TImageList'#9'ImageList'
+  +#4'left'#2''''#3'top'#2#20#0#0#10'TPopupMenu'#14'ItemsPopupMenu'#7'OnPopup'#7
+  +#19'ItemsPopupMenuPopup'#4'left'#2'('#3'top'#2';'#0#0#0
+]);

ide/projectinspector.pas

@@ -79,7 +79,6 @@ type
     procedure MoveDependencyDownClick(Sender: TObject);
     procedure OpenBitBtnClick(Sender: TObject);
     procedure OptionsBitBtnClick(Sender: TObject);
-    procedure ProjectInspectorFormResize(Sender: TObject);
     procedure ProjectInspectorFormShow(Sender: TObject);
     procedure ReAddMenuItemClick(Sender: TObject);
     procedure RemoveBitBtnClick(Sender: TObject);
@@ -147,17 +146,13 @@ type
   end;
   
 var
-  ProjInspector: TProjectInspectorForm;
+  ProjInspector: TProjectInspectorForm = nil;
 
 
 implementation
 
 { TProjectInspectorForm }
 
-procedure TProjectInspectorForm.ProjectInspectorFormResize(Sender: TObject);
-begin
-end;
-
 procedure TProjectInspectorForm.ItemsTreeViewDblClick(Sender: TObject);
 begin
   OpenBitBtnClick(Self);
@@ -379,11 +374,7 @@ procedure TProjectInspectorForm.SetupComponents;
   end;
 
 begin
-  ImageList:=TImageList.Create(Self);
   with ImageList do begin
-    Width:=17;
-    Height:=17;
-    Name:='ImageList';
     ImageIndexFiles:=Count;
     AddResImg('pkg_files');
     ImageIndexRequired:=Count;
@@ -404,72 +395,18 @@ begin
     AddResImg('pkg_binary');
   end;
 
-  ItemsPopupMenu:=TPopupMenu.Create(Self);
+  OpenBitBtn.Caption:=lisMenuOpen;
-  with ItemsPopupMenu do begin
+  AddBitBtn.Caption:=lisCodeTemplAdd;
-    OnPopup:=@ItemsPopupMenuPopup;
+  RemoveBitBtn.Caption:=lisExtToolRemove;
-  end;
+  OptionsBitBtn.Caption:=dlgFROpts;
 
-  OpenBitBtn:=TBitBtn.Create(Self);
-  with OpenBitBtn do begin
-    Name:='OpenBitBtn';
-    Parent:=Self;
-    Caption:=lisMenuOpen;
-    OnClick:=@OpenBitBtnClick;
-    AutoSize:=true;
-    SetBounds(0,0,Width,Height);
-  end;
-
-  AddBitBtn:=TBitBtn.Create(Self);
-  with AddBitBtn do begin
-    Name:='AddBitBtn';
-    Parent:=Self;
-    Caption:=lisCodeTemplAdd;
-    OnClick:=@AddBitBtnClick;
-    AutoSize:=true;
-    AnchorToNeighbour(akLeft,0,OpenBitBtn);
-    Top:=0;
-  end;
-
-  RemoveBitBtn:=TBitBtn.Create(Self);
-  with RemoveBitBtn do begin
-    Name:='RemoveBitBtn';
-    Parent:=Self;
-    Caption:=lisExtToolRemove;
-    OnClick:=@RemoveBitBtnClick;
-    AutoSize:=true;
-    AnchorToNeighbour(akLeft,0,AddBitBtn);
-    Top:=0;
-  end;
-
-  OptionsBitBtn:=TBitBtn.Create(Self);
-  with OptionsBitBtn do begin
-    Name:='OptionsBitBtn';
-    Parent:=Self;
-    Caption:=dlgFROpts;
-    OnClick:=@OptionsBitBtnClick;
-    AutoSize:=true;
-    AnchorToNeighbour(akLeft,0,RemoveBitBtn);
-    AnchorParallel(akRight,0,Parent);
-    Top:=0;
-  end;
-
-  ItemsTreeView:=TTreeView.Create(Self);
   with ItemsTreeView do begin
-    Name:='ItemsTreeView';
-    Parent:=Self;
-    Images:=ImageList;
-    Options:=Options+[tvoRightClickSelect];
-    OnSelectionChanged:=@ItemsTreeViewSelectionChanged;
-    OnDblClick:=@ItemsTreeViewDblClick;
     FilesNode:=Items.Add(nil, dlgEnvFiles);
     FilesNode.ImageIndex:=ImageIndexFiles;
     FilesNode.SelectedIndex:=FilesNode.ImageIndex;
     DependenciesNode:=Items.Add(nil, lisPckEditRequiredPackages);
     DependenciesNode.ImageIndex:=ImageIndexRequired;
     DependenciesNode.SelectedIndex:=DependenciesNode.ImageIndex;
-    PopupMenu:=ItemsPopupMenu;
-    Align:=alBottom;
-    AnchorToNeighbour(akTop,0,OptionsBitBtn);
   end;
 end;
 
@@ -702,9 +639,6 @@ begin
   ALayout.Apply;
 
   SetupComponents;
-  OnResize:=@ProjectInspectorFormResize;
-  OnResize(Self);
-  OnShow:=@ProjectInspectorFormShow;
   KeyPreview:=true;
 end;
 
@@ -805,7 +739,7 @@ end;
 
 
 initialization
-  ProjInspector:=nil;
+  {$I projectinspector.lrs}
 
 end.