* code to lfm conversion by Darius

git-svn-id: trunk@8392 -
2025-04-22 00:59:30 +02:00 · 2005-12-30 17:30:49 +00:00 · 2005-12-30 17:30:49 +00:00 · 5af1ed62bd
commit 5af1ed62bd
parent 0f8e37b0e9
4 changed files with 127 additions and 72 deletions
--- a/.gitattributes
+++ b/.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
--- a/ide/projectinspector.lfm
+++ b/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
--- a/ide/projectinspector.lrs
+++ b/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
+]);
--- a/ide/projectinspector.pas
+++ b/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);
-  with ItemsPopupMenu do begin
-    OnPopup:=@ItemsPopupMenuPopup;
-  end;
+  OpenBitBtn.Caption:=lisMenuOpen;
+  AddBitBtn.Caption:=lisCodeTemplAdd;
+  RemoveBitBtn.Caption:=lisExtToolRemove;
+  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.