IDE:new other dialog: more width, bug #16898

git-svn-id: trunk@26575 -

ide/newdialog.lfm

@@ -1,34 +1,34 @@
 object NewOtherDialog: TNewOtherDialog
   Left = 281
-  Height = 395
+  Height = 421
   Top = 204
-  Width = 476
+  Width = 561
   BorderIcons = [biSystemMenu]
   Caption = 'NewOtherDialog'
-  ClientHeight = 395
-  ClientWidth = 476
+  ClientHeight = 421
+  ClientWidth = 561
   Position = poScreenCenter
   LCLVersion = '0.9.29'
   object Panel1: TPanel
     Left = 6
-    Height = 351
+    Height = 369
     Top = 6
-    Width = 464
+    Width = 549
     Align = alClient
     BorderSpacing.Around = 6
     BevelOuter = bvNone
-    ClientHeight = 351
-    ClientWidth = 464
+    ClientHeight = 369
+    ClientWidth = 549
     TabOrder = 0
     object ItemsTreeView: TTreeView
       AnchorSideLeft.Control = Owner
       AnchorSideTop.Control = Owner
       Left = 0
-      Height = 351
+      Height = 369
       Top = 0
-      Width = 178
+      Width = 263
       Align = alClient
-      DefaultItemHeight = 17
+      DefaultItemHeight = 19
       ReadOnly = True
       ScrollBars = ssAutoBoth
       TabOrder = 0
@@ -42,20 +42,20 @@ object NewOtherDialog: TNewOtherDialog
       AnchorSideTop.Control = Owner
       AnchorSideRight.Control = Owner
       AnchorSideRight.Side = asrBottom
-      Left = 183
-      Height = 351
+      Left = 268
+      Height = 369
       Top = 0
       Width = 281
       Align = alRight
       Caption = 'DescriptionGroupBox'
-      ClientHeight = 333
-      ClientWidth = 277
+      ClientHeight = 348
+      ClientWidth = 273
       TabOrder = 1
       object DescriptionLabel: TLabel
         Left = 6
-        Height = 16
+        Height = 18
         Top = 6
-        Width = 265
+        Width = 261
         Align = alTop
         BorderSpacing.Around = 6
         Caption = 'DescriptionLabel'
@@ -64,9 +64,9 @@ object NewOtherDialog: TNewOtherDialog
       end
       object InheritableComponentsListView: TListView
         Left = 0
-        Height = 305
-        Top = 28
-        Width = 277
+        Height = 318
+        Top = 30
+        Width = 273
         Align = alClient
         Columns = <        
           item
@@ -87,8 +87,8 @@ object NewOtherDialog: TNewOtherDialog
       end
     end
     object Splitter1: TSplitter
-      Left = 178
-      Height = 351
+      Left = 263
+      Height = 369
       Top = 0
       Width = 5
       Align = alRight
@@ -97,9 +97,18 @@ object NewOtherDialog: TNewOtherDialog
   end
   object ButtonPanel: TButtonPanel
     Left = 6
-    Height = 26
-    Top = 363
-    Width = 464
+    Height = 34
+    Top = 381
+    Width = 549
+    OKButton.Name = 'OKButton'
+    OKButton.Caption = '&OK'
+    HelpButton.Name = 'HelpButton'
+    HelpButton.Caption = '&Help'
+    CloseButton.Name = 'CloseButton'
+    CloseButton.Caption = '&Close'
+    CloseButton.Enabled = False
+    CancelButton.Name = 'CancelButton'
+    CancelButton.Caption = 'Cancel'
     TabOrder = 1
     ShowButtons = [pbOK, pbCancel, pbHelp]
     ShowBevel = False

ide/newdialog.pas

@@ -376,7 +376,7 @@ begin
   FillItemsTree;
   FillProjectInheritableItemsList;
   InheritableComponentsListView.Visible := false;
-  IDEDialogLayoutList.ApplyLayout(Self, 470, 400);
+  IDEDialogLayoutList.ApplyLayout(Self, 570, 400);
 end;
 
 destructor TNewOtherDialog.Destroy;