IDE: Tweak the layout of ManageExamplesForm

git-svn-id: trunk@38266 -

ide/manageexamples.lfm

@@ -1,7 +1,7 @@
 object ManageExamplesForm: TManageExamplesForm
-  Left = 192
+  Left = 356
   Height = 491
-  Top = 120
+  Top = 130
   Width = 837
   Caption = 'ManageExamplesForm'
   ClientHeight = 491
@@ -9,16 +9,16 @@ object ManageExamplesForm: TManageExamplesForm
   OnClose = FormClose
   OnCreate = FormCreate
   Position = poDesktopCenter
-  LCLVersion = '0.9.31'
+  LCLVersion = '1.1'
   object ProjectsGroupBox: TGroupBox
     Left = 0
-    Height = 346
-    Top = 93
+    Height = 334
+    Top = 107
     Width = 424
     Align = alClient
-    BorderSpacing.Top = 5
+    BorderSpacing.Top = 3
     Caption = 'Projects'
-    ClientHeight = 327
+    ClientHeight = 315
     ClientWidth = 420
     TabOrder = 0
     object ProjectsListBox: TListBox
@@ -30,24 +30,26 @@ object ManageExamplesForm: TManageExamplesForm
       AnchorSideBottom.Control = ProjectsGroupBox
       AnchorSideBottom.Side = asrBottom
       Left = 0
-      Height = 300
-      Top = 27
+      Height = 284
+      Top = 31
       Width = 420
       Anchors = [akTop, akLeft, akRight, akBottom]
       BorderSpacing.Top = 5
       ItemHeight = 0
       MultiSelect = True
       OnSelectionChange = ProjectsListBoxSelectionChange
+      ScrollWidth = 416
       TabOrder = 0
+      TopIndex = -1
     end
     object ProjectFilter: TListFilterEdit
       AnchorSideLeft.Control = ProjectsListBox
       Left = 0
-      Height = 21
+      Height = 25
       Top = 1
       Width = 221
       ButtonWidth = 23
-      NumGlyphs = 0
+      NumGlyphs = 1
       MaxLength = 0
       TabOrder = 1
       FilteredListbox = ProjectsListBox
@@ -58,9 +60,9 @@ object ManageExamplesForm: TManageExamplesForm
       AnchorSideTop.Control = ProjectFilter
       AnchorSideTop.Side = asrCenter
       Left = 271
-      Height = 20
-      Top = 1
-      Width = 102
+      Height = 21
+      Top = 3
+      Width = 112
       BorderSpacing.Left = 50
       Caption = 'Relative paths'
       OnClick = RelativeCheckBoxClick
@@ -70,8 +72,8 @@ object ManageExamplesForm: TManageExamplesForm
   end
   object ButtonPanel1: TButtonPanel
     Left = 6
-    Height = 40
-    Top = 445
+    Height = 38
+    Top = 447
     Width = 825
     OKButton.Name = 'OKButton'
     OKButton.DefaultCaption = True
@@ -87,14 +89,15 @@ object ManageExamplesForm: TManageExamplesForm
   object ActionGroupBox: TGroupBox
     AnchorSideLeft.Side = asrBottom
     Left = 432
-    Height = 351
-    Top = 88
+    Height = 334
+    Top = 107
     Width = 405
     Align = alRight
     Anchors = []
     BorderSpacing.Left = 3
+    BorderSpacing.Top = 3
     Caption = 'Action'
-    ClientHeight = 332
+    ClientHeight = 315
     ClientWidth = 401
     TabOrder = 2
     object Label1: TLabel
@@ -102,10 +105,10 @@ object ManageExamplesForm: TManageExamplesForm
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Control = BuildAllSelectedButton
       AnchorSideRight.Side = asrBottom
-      Left = 277
-      Height = 16
+      Left = 258
+      Height = 17
       Top = 31
-      Width = 111
+      Width = 130
       Anchors = [akTop, akRight]
       BorderSpacing.Right = 7
       Caption = '(under construction)'
@@ -186,7 +189,7 @@ object ManageExamplesForm: TManageExamplesForm
       AnchorSideBottom.Control = ActionGroupBox
       AnchorSideBottom.Side = asrBottom
       Left = 2
-      Height = 252
+      Height = 235
       Top = 78
       Width = 397
       Anchors = [akTop, akLeft, akRight, akBottom]
@@ -199,11 +202,11 @@ object ManageExamplesForm: TManageExamplesForm
   end
   object SelectPanel: TPanel
     Left = 0
-    Height = 88
+    Height = 104
     Top = 0
     Width = 837
     Align = alTop
-    ClientHeight = 88
+    ClientHeight = 104
     ClientWidth = 837
     TabOrder = 3
     object TestCaseCheckBox: TCheckBox
@@ -211,10 +214,10 @@ object ManageExamplesForm: TManageExamplesForm
       AnchorSideLeft.Side = asrBottom
       AnchorSideTop.Control = ExamplesCheckBox
       AnchorSideTop.Side = asrCenter
-      Left = 408
-      Height = 20
+      Left = 420
+      Height = 21
       Top = 5
-      Width = 124
+      Width = 134
       BorderSpacing.Left = 33
       Caption = 'Include Testcases'
       OnChange = ExamplesCheckBoxChange
@@ -224,9 +227,9 @@ object ManageExamplesForm: TManageExamplesForm
       AnchorSideLeft.Control = DirectoryComboBox
       AnchorSideTop.Side = asrBottom
       Left = 253
-      Height = 20
+      Height = 21
       Top = 5
-      Width = 122
+      Width = 134
       BorderSpacing.Top = 3
       Caption = 'Include Examples'
       Checked = True
@@ -235,10 +238,10 @@ object ManageExamplesForm: TManageExamplesForm
       TabOrder = 1
     end
     object RootRadioGroup: TRadioGroup
-      Left = 1
-      Height = 86
-      Top = 2
-      Width = 247
+      Left = 64
+      Height = 99
+      Top = 5
+      Width = 184
       AutoFill = True
       BorderSpacing.Top = 5
       Caption = 'Search projects from'
@@ -259,14 +262,14 @@ object ManageExamplesForm: TManageExamplesForm
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Side = asrBottom
       Left = 253
-      Height = 21
-      Top = 57
-      Width = 547
+      Height = 25
+      Top = 61
+      Width = 542
       ShowHidden = False
       ButtonWidth = 23
-      NumGlyphs = 0
+      NumGlyphs = 1
       Anchors = [akTop, akLeft, akRight]
-      BorderSpacing.Top = 10
+      BorderSpacing.Top = 7
       MaxLength = 0
       TabOrder = 3
       OnChange = RootDirectoryEditChange
@@ -278,8 +281,8 @@ object ManageExamplesForm: TManageExamplesForm
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Side = asrBottom
       Left = 253
-      Height = 21
-      Top = 26
+      Height = 27
+      Top = 27
       Width = 566
       Anchors = [akTop, akLeft, akRight]
       BorderSpacing.Left = 5
@@ -291,8 +294,8 @@ object ManageExamplesForm: TManageExamplesForm
   end
   object Splitter1: TSplitter
     Left = 424
-    Height = 351
-    Top = 88
+    Height = 337
+    Top = 104
     Width = 5
     Align = alRight
     ResizeAnchor = akRight

ide/manageexamples.pas

@@ -129,7 +129,7 @@ begin
 
   RootRadioGroup.Caption:=lisSearchProjectsFrom;
   RootRadioGroup.Items.Add(lisLazarusSource);
-  RootRadioGroup.Items.Add(lisCEOtherGroup);  // could use lisCEOtherGroup
+  RootRadioGroup.Items.Add(lisCEOtherGroup);
   RootRadioGroup.ItemIndex:=0;
   RootRadioGroupClick(RootRadioGroup);