View Issue Details

IDProjectCategoryView StatusLast Update
0035446LazarusIDEpublic2020-08-09 10:43
ReporterCudaText man Assigned ToJuha Manninen  
PrioritynormalSeverityminorReproducibilityalways
Status assignedResolutionopen 
Summary0035446: IDE dialog "Example projects" layout
Descriptionscreenshot from Solaris 11.4 x64 GTK2 build, Laz trunk.
i made it with fpcupdeluxe.
3 buttons in dialog too small, white Close btn is OK sized, big.
TagsNo tags attached.
Fixed in Revision
LazTarget
WidgetsetGTK 2
Attached Files

Relationships

related to 0027590 assignedJuha Manninen Example "SingleThreadingExample1" does not compile when Lazarus is installed globally/rpm/deb 
related to 0037509 new Userrights issues for running examples 

Activities

CudaText man

2019-04-25 18:41

reporter  

exampl-btn-size.png (273,472 bytes)

CudaText man

2019-04-25 18:42

reporter   ~0115805

Also checkbox "Include all subdirs" is too small, overlapped by edit.

CudaText man

2019-04-25 18:58

reporter   ~0115807

Also dialog "Code Templates" has 3 too small buttons Add/Delete/Rename.

CudaText man

2019-04-25 18:59

reporter   ~0115808

Also dlg "Configure Build Lazarus" has small button "..." near top combobox.

CudaText man

2019-04-25 20:33

reporter   ~0115810

fix attached (all 3 dialogs).
lay.diff (28,887 bytes)   
Index: ide/buildlazdialog.lfm
===================================================================
--- ide/buildlazdialog.lfm	(revision 61056)
+++ ide/buildlazdialog.lfm	(working copy)
@@ -15,24 +15,24 @@
   OnResize = FormResize
   OnShow = FormShow
   Position = poScreenCenter
-  LCLVersion = '1.9.0.0'
+  LCLVersion = '2.1.0.0'
   object CBLDBtnPanel: TPanel
     AnchorSideTop.Side = asrBottom
     Left = 0
-    Height = 38
-    Top = 442
+    Height = 41
+    Top = 439
     Width = 700
     Align = alBottom
     AutoSize = True
     BevelOuter = bvNone
-    ClientHeight = 38
+    ClientHeight = 41
     ClientWidth = 700
     TabOrder = 0
     object CancelButton: TBitBtn
-      Left = 612
-      Height = 26
+      Left = 618
+      Height = 29
       Top = 6
-      Width = 82
+      Width = 76
       Align = alRight
       AutoSize = True
       BorderSpacing.Around = 6
@@ -44,9 +44,9 @@
     end
     object SaveSettingsButton: TBitBtn
       Left = 512
-      Height = 26
+      Height = 29
       Top = 6
-      Width = 94
+      Width = 100
       Align = alRight
       AutoSize = True
       BorderSpacing.Around = 6
@@ -55,10 +55,10 @@
       TabOrder = 3
     end
     object CompileButton: TBitBtn
-      Left = 302
-      Height = 26
+      Left = 295
+      Height = 29
       Top = 6
-      Width = 71
+      Width = 68
       Align = alRight
       AutoSize = True
       BorderSpacing.Around = 6
@@ -68,9 +68,9 @@
     end
     object HelpButton: TBitBtn
       Left = 6
-      Height = 26
+      Height = 29
       Top = 6
-      Width = 71
+      Width = 63
       Align = alLeft
       AutoSize = True
       BorderSpacing.Around = 6
@@ -80,10 +80,10 @@
       TabOrder = 0
     end
     object CompileAdvancedButton: TBitBtn
-      Left = 379
-      Height = 26
+      Left = 369
+      Height = 29
       Top = 6
-      Width = 127
+      Width = 137
       Align = alRight
       AutoSize = True
       BorderSpacing.Around = 6
@@ -94,7 +94,7 @@
   end
   object PageControl1: TPageControl
     Left = 0
-    Height = 442
+    Height = 439
     Top = 0
     Width = 700
     ActivePage = BuildTabSheet
@@ -103,18 +103,18 @@
     TabOrder = 1
     object BuildTabSheet: TTabSheet
       Caption = 'BuildTabSheet'
-      ClientHeight = 414
-      ClientWidth = 692
+      ClientHeight = 408
+      ClientWidth = 696
       object DetailsPanel: TPanel
         Left = 0
-        Height = 414
+        Height = 408
         Top = 0
-        Width = 692
+        Width = 696
         Align = alClient
         AutoSize = True
         BevelOuter = bvNone
-        ClientHeight = 414
-        ClientWidth = 692
+        ClientHeight = 408
+        ClientWidth = 696
         TabOrder = 0
         object BuildProfileLabel: TLabel
           AnchorSideLeft.Control = DetailsPanel
@@ -121,9 +121,9 @@
           AnchorSideTop.Control = BuildProfileComboBox
           AnchorSideTop.Side = asrCenter
           Left = 6
-          Height = 15
+          Height = 17
           Top = 11
-          Width = 83
+          Width = 109
           BorderSpacing.Top = 5
           BorderSpacing.Around = 6
           Caption = 'Profile to Build'
@@ -136,15 +136,15 @@
           AnchorSideLeft.Side = asrBottom
           AnchorSideTop.Side = asrCenter
           AnchorSideRight.Control = BuildProfileButton
-          Left = 95
-          Height = 23
+          Left = 121
+          Height = 31
           Hint = 'Name of the active profile.'
-          Top = 7
-          Width = 560
+          Top = 4
+          Width = 538
           Anchors = [akTop, akLeft, akRight]
           BorderSpacing.Left = 6
           BorderSpacing.Right = 6
-          ItemHeight = 15
+          ItemHeight = 0
           OnSelect = BuildProfileComboBoxSelect
           ParentShowHint = False
           ShowHint = True
@@ -153,16 +153,16 @@
         end
         object BuildProfileButton: TButton
           AnchorSideTop.Control = BuildProfileComboBox
-          AnchorSideTop.Side = asrCenter
           AnchorSideRight.Control = DetailsPanel
           AnchorSideRight.Side = asrBottom
+          AnchorSideBottom.Control = BuildProfileComboBox
           AnchorSideBottom.Side = asrBottom
-          Left = 661
-          Height = 25
+          Left = 665
+          Height = 31
           Hint = 'Manage profiles'
-          Top = 6
+          Top = 4
           Width = 25
-          Anchors = [akTop, akRight]
+          Anchors = [akTop, akRight, akBottom]
           BorderSpacing.Left = 6
           BorderSpacing.Right = 6
           Caption = '...'
@@ -176,9 +176,9 @@
           AnchorSideTop.Control = LCLWidgetTypeComboBox
           AnchorSideTop.Side = asrBottom
           Left = 6
-          Height = 15
-          Top = 80
-          Width = 42
+          Height = 17
+          Top = 95
+          Width = 54
           Alignment = taRightJustify
           BorderSpacing.Top = 6
           Caption = 'Options'
@@ -194,8 +194,8 @@
           Left = 6
           Height = 56
           Hint = 'Options passed to compiler'
-          Top = 95
-          Width = 680
+          Top = 112
+          Width = 684
           Anchors = [akTop, akLeft, akRight]
           Lines.Strings = (
             ''
@@ -211,9 +211,9 @@
           AnchorSideTop.Control = TargetDirectoryComboBox
           AnchorSideTop.Side = asrBottom
           Left = 6
-          Height = 15
-          Top = 201
-          Width = 39
+          Height = 17
+          Top = 226
+          Width = 50
           BorderSpacing.Left = 6
           BorderSpacing.Top = 6
           Caption = 'Defines'
@@ -226,10 +226,10 @@
           AnchorSideRight.Control = CleanUpGroupBox
           AnchorSideBottom.Control = CommonsDividerBevel
           Left = 6
-          Height = 133
+          Height = 98
           Hint = 'Defines without -d'
-          Top = 216
-          Width = 491
+          Top = 243
+          Width = 453
           Anchors = [akTop, akLeft, akRight, akBottom]
           ItemHeight = 0
           ParentShowHint = False
@@ -236,6 +236,7 @@
           PopupMenu = OptionsPopupMenu
           ShowHint = True
           TabOrder = 2
+          TopIndex = -1
         end
         object LCLWidgetTypeLabel: TLabel
           AnchorSideLeft.Control = BuildProfileLabel
@@ -242,9 +243,9 @@
           AnchorSideTop.Control = BuildProfileComboBox
           AnchorSideTop.Side = asrBottom
           Left = 6
-          Height = 15
-          Top = 36
-          Width = 89
+          Height = 17
+          Top = 41
+          Width = 111
           BorderSpacing.Top = 6
           Caption = 'LCL Widget Type'
           ParentColor = False
@@ -255,10 +256,10 @@
           AnchorSideTop.Side = asrBottom
           AnchorSideRight.Side = asrBottom
           Left = 6
-          Height = 23
-          Top = 51
+          Height = 31
+          Top = 58
           Width = 209
-          ItemHeight = 15
+          ItemHeight = 0
           Style = csDropDownList
           TabOrder = 3
         end
@@ -267,9 +268,9 @@
           AnchorSideTop.Control = OptionsMemo
           AnchorSideTop.Side = asrBottom
           Left = 6
-          Height = 15
-          Top = 157
-          Width = 84
+          Height = 17
+          Top = 174
+          Width = 109
           Alignment = taRightJustify
           BorderSpacing.Top = 6
           Caption = 'Target Directory'
@@ -281,12 +282,12 @@
           AnchorSideTop.Side = asrBottom
           AnchorSideRight.Control = TargetDirectoryButton
           Left = 6
-          Height = 23
-          Top = 172
-          Width = 649
+          Height = 29
+          Top = 191
+          Width = 653
           Anchors = [akTop, akLeft, akRight]
           BorderSpacing.Right = 6
-          ItemHeight = 15
+          ItemHeight = 0
           TabOrder = 5
         end
         object TargetOSLabel: TLabel
@@ -295,9 +296,9 @@
           AnchorSideTop.Control = BuildProfileComboBox
           AnchorSideTop.Side = asrBottom
           Left = 221
-          Height = 15
-          Top = 36
-          Width = 51
+          Height = 17
+          Top = 41
+          Width = 65
           Alignment = taRightJustify
           BorderSpacing.Left = 6
           BorderSpacing.Top = 6
@@ -310,9 +311,9 @@
           AnchorSideTop.Control = BuildProfileComboBox
           AnchorSideTop.Side = asrBottom
           Left = 451
-          Height = 15
-          Top = 36
-          Width = 59
+          Height = 17
+          Top = 41
+          Width = 74
           Alignment = taRightJustify
           BorderSpacing.Left = 6
           BorderSpacing.Top = 6
@@ -324,11 +325,11 @@
           AnchorSideLeft.Side = asrBottom
           AnchorSideTop.Control = ConfirmBuildCheckBox
           AnchorSideBottom.Side = asrBottom
-          Left = 434
-          Height = 19
+          Left = 526
+          Height = 24
           Hint = 'Increment revision? (ToDo: get a better hint)'
-          Top = 373
-          Width = 170
+          Top = 366
+          Width = 217
           BorderSpacing.Left = 12
           Caption = 'UpdateRevisionIncCheckBox'
           ParentShowHint = False
@@ -342,11 +343,11 @@
           AnchorSideRight.Control = OptionsMemo
           AnchorSideRight.Side = asrBottom
           Left = 451
-          Height = 23
-          Top = 51
-          Width = 235
+          Height = 29
+          Top = 58
+          Width = 239
           Anchors = [akTop, akLeft, akRight]
-          ItemHeight = 15
+          ItemHeight = 0
           TabOrder = 8
         end
         object CommonsDividerBevel: TDividerBevel
@@ -355,9 +356,9 @@
           AnchorSideRight.Control = DetailsPanel
           AnchorSideRight.Side = asrBottom
           Left = 6
-          Height = 15
-          Top = 349
-          Width = 680
+          Height = 17
+          Top = 341
+          Width = 684
           Caption = 'CommonsDividerBevel'
           Anchors = [akLeft, akRight, akBottom]
           BorderSpacing.Left = 6
@@ -372,11 +373,11 @@
           AnchorSideTop.Control = DefinesButton
           AnchorSideTop.Side = asrCenter
           AnchorSideBottom.Side = asrBottom
-          Left = 106
-          Height = 19
+          Left = 110
+          Height = 24
           Hint = 'Restart Lazarus automatically after building the IDE. Has no effect when building other parts'
-          Top = 373
-          Width = 161
+          Top = 366
+          Width = 212
           BorderSpacing.Left = 12
           BorderSpacing.Top = 7
           Caption = 'RestartAfterBuildCheckBox'
@@ -388,11 +389,11 @@
           AnchorSideLeft.Control = RestartAfterBuildCheckBox
           AnchorSideLeft.Side = asrBottom
           AnchorSideTop.Control = RestartAfterBuildCheckBox
-          Left = 279
-          Height = 19
+          Left = 334
+          Height = 24
           Hint = 'Show confirmation dialog when building directly from Tools menu'
-          Top = 373
-          Width = 143
+          Top = 366
+          Width = 180
           BorderSpacing.Left = 12
           Caption = 'ConfirmBuildCheckBox'
           ParentShowHint = False
@@ -406,10 +407,10 @@
           AnchorSideRight.Side = asrBottom
           AnchorSideBottom.Side = asrBottom
           Left = 6
-          Height = 25
+          Height = 29
           Hint = 'Edit list of defines which can be used by any profile'
-          Top = 370
-          Width = 88
+          Top = 364
+          Width = 92
           AutoSize = True
           BorderSpacing.Right = 6
           Caption = 'Edit Defines'
@@ -421,15 +422,15 @@
         object TargetDirectoryButton: TButton
           AnchorSideLeft.Side = asrBottom
           AnchorSideTop.Control = TargetDirectoryComboBox
-          AnchorSideTop.Side = asrCenter
           AnchorSideRight.Control = DetailsPanel
           AnchorSideRight.Side = asrBottom
+          AnchorSideBottom.Control = TargetDirectoryComboBox
           AnchorSideBottom.Side = asrBottom
-          Left = 661
-          Height = 25
-          Top = 171
+          Left = 665
+          Height = 29
+          Top = 191
           Width = 25
-          Anchors = [akTop, akRight]
+          Anchors = [akTop, akRight, akBottom]
           BorderSpacing.Left = 6
           BorderSpacing.Right = 6
           Caption = '...'
@@ -443,10 +444,10 @@
           AnchorSideRight.Control = LCLWidgetTypeComboBox
           AnchorSideRight.Side = asrBottom
           Left = 221
-          Height = 23
-          Top = 51
+          Height = 29
+          Top = 58
           Width = 224
-          ItemHeight = 15
+          ItemHeight = 0
           TabOrder = 7
         end
         object CleanUpGroupBox: TGroupBox
@@ -457,10 +458,10 @@
           AnchorSideRight.Control = DetailsPanel
           AnchorSideRight.Side = asrBottom
           AnchorSideBottom.Control = CommonsDividerBevel
-          Left = 503
-          Height = 148
-          Top = 201
-          Width = 183
+          Left = 465
+          Height = 115
+          Top = 226
+          Width = 225
           Anchors = [akTop, akRight, akBottom]
           AutoSize = True
           BorderSpacing.Left = 6
@@ -474,8 +475,8 @@
           ChildSizing.ShrinkVertical = crsScaleChilds
           ChildSizing.Layout = cclLeftToRightThenTopToBottom
           ChildSizing.ControlsPerLine = 1
-          ClientHeight = 128
-          ClientWidth = 179
+          ClientHeight = 96
+          ClientWidth = 221
           ParentShowHint = False
           ShowHint = True
           TabOrder = 13
@@ -483,9 +484,9 @@
             AnchorSideTop.Control = CleanCommonCheckBox
             AnchorSideTop.Side = asrBottom
             Left = 6
-            Height = 19
-            Top = 31
-            Width = 142
+            Height = 24
+            Top = 36
+            Width = 181
             BorderSpacing.Top = 6
             Caption = 'CleanAutoRadioButton'
             Checked = True
@@ -497,9 +498,9 @@
             AnchorSideTop.Control = CleanAutoRadioButton
             AnchorSideTop.Side = asrBottom
             Left = 6
-            Height = 19
-            Top = 56
-            Width = 167
+            Height = 24
+            Top = 66
+            Width = 209
             BorderSpacing.Top = 6
             Caption = 'CleanCommonRadioButton'
             OnClick = CleanRadioButtonClick
@@ -509,9 +510,9 @@
             AnchorSideTop.Control = CleanCommonRadioButton
             AnchorSideTop.Side = asrBottom
             Left = 6
-            Height = 19
-            Top = 81
-            Width = 130
+            Height = 24
+            Top = 96
+            Width = 166
             BorderSpacing.Top = 6
             Caption = 'CleanAllRadioButton'
             OnClick = CleanRadioButtonClick
@@ -521,9 +522,9 @@
             AnchorSideTop.Control = CleanAllRadioButton
             AnchorSideTop.Side = asrBottom
             Left = 6
-            Height = 19
-            Top = 106
-            Width = 130
+            Height = 24
+            Top = 126
+            Width = 163
             BorderSpacing.Top = 6
             Caption = 'CleanOnceCheckBox'
             TabOrder = 3
@@ -531,9 +532,9 @@
           object CleanCommonCheckBox: TCheckBox
             AnchorSideTop.Control = CleanUpGroupBox
             Left = 6
-            Height = 19
+            Height = 24
             Top = 6
-            Width = 153
+            Width = 190
             BorderSpacing.Top = 6
             Caption = 'CleanCommonCheckBox'
             OnClick = CleanCommonCheckBoxClick
@@ -545,8 +546,8 @@
     end
     object InfoTabSheet: TTabSheet
       Caption = 'InfoTabSheet'
-      ClientHeight = 414
-      ClientWidth = 692
+      ClientHeight = 408
+      ClientWidth = 696
       object InhTreeView: TTreeView
         Left = 0
         Height = 414
@@ -560,8 +561,8 @@
     end
   end
   object OptionsPopupMenu: TPopupMenu
-    left = 320
-    top = 592
+    Left = 320
+    Top = 592
     object ShowOptsMenuItem: TMenuItem
       Caption = 'Show options and defines for cmd line'
       OnClick = ShowOptsMenuItemClick
Index: ide/codetemplatesdlg.lfm
===================================================================
--- ide/codetemplatesdlg.lfm	(revision 61056)
+++ ide/codetemplatesdlg.lfm	(working copy)
@@ -11,10 +11,10 @@
   OnCreate = FormCreate
   OnShow = FormShow
   Position = poScreenCenter
-  LCLVersion = '1.9.0.0'
+  LCLVersion = '2.1.0.0'
   object FilenameGroupBox: TGroupBox
     Left = 6
-    Height = 43
+    Height = 46
     Top = 6
     Width = 717
     Align = alTop
@@ -21,7 +21,7 @@
     AutoSize = True
     BorderSpacing.Around = 6
     Caption = 'FilenameGroupBox'
-    ClientHeight = 23
+    ClientHeight = 27
     ClientWidth = 713
     TabOrder = 0
     object FilenameEdit: TFileNameEdit
@@ -29,7 +29,7 @@
       AnchorSideRight.Control = FilenameGroupBox
       AnchorSideRight.Side = asrBottom
       Left = 6
-      Height = 23
+      Height = 27
       Top = 0
       Width = 701
       FileName = 'FilenameEdit'
@@ -48,12 +48,12 @@
   object TemplatesGroupBox: TGroupBox
     Left = 6
     Height = 167
-    Top = 55
+    Top = 58
     Width = 717
     Align = alTop
     BorderSpacing.Around = 6
     Caption = 'TemplatesGroupBox'
-    ClientHeight = 147
+    ClientHeight = 148
     ClientWidth = 713
     TabOrder = 1
     object TemplateListBox: TListBox
@@ -63,9 +63,9 @@
       AnchorSideBottom.Control = TemplatesGroupBox
       AnchorSideBottom.Side = asrBottom
       Left = 6
-      Height = 135
+      Height = 136
       Top = 6
-      Width = 547
+      Width = 555
       Anchors = [akTop, akLeft, akRight, akBottom]
       BorderSpacing.Left = 6
       BorderSpacing.Top = 6
@@ -73,20 +73,23 @@
       BorderSpacing.Bottom = 6
       ItemHeight = 0
       OnSelectionChange = TemplateListBoxSelectionChange
-      ScrollWidth = 545
+      ScrollWidth = 553
       TabOrder = 0
+      TopIndex = -1
     end
     object AddButton: TButton
       AnchorSideTop.Control = TemplateListBox
       AnchorSideRight.Control = TemplatesGroupBox
       AnchorSideRight.Side = asrBottom
-      Left = 559
-      Height = 25
+      Left = 567
+      Height = 29
       Top = 6
-      Width = 148
+      Width = 140
       Anchors = [akTop, akRight]
+      AutoSize = True
       BorderSpacing.Right = 6
       Caption = 'AddButton'
+      Constraints.MinWidth = 140
       OnClick = AddButtonClick
       TabOrder = 1
     end
@@ -96,11 +99,12 @@
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Control = AddButton
       AnchorSideRight.Side = asrBottom
-      Left = 559
-      Height = 25
-      Top = 37
-      Width = 148
+      Left = 567
+      Height = 29
+      Top = 41
+      Width = 140
       Anchors = [akTop, akLeft, akRight]
+      AutoSize = True
       BorderSpacing.Top = 6
       Caption = 'DeleteButton'
       OnClick = DeleteButtonClick
@@ -112,11 +116,12 @@
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Control = DeleteButton
       AnchorSideRight.Side = asrBottom
-      Left = 559
-      Height = 25
-      Top = 68
-      Width = 148
+      Left = 567
+      Height = 29
+      Top = 76
+      Width = 140
       Anchors = [akTop, akLeft, akRight]
+      AutoSize = True
       BorderSpacing.Top = 6
       Caption = 'RenameButton'
       OnClick = RenameButtonClick
@@ -128,13 +133,13 @@
     AnchorSideRight.Control = Owner
     AnchorSideBottom.Control = FilenameGroupBox
     Left = 6
-    Height = 274
-    Top = 228
+    Height = 268
+    Top = 231
     Width = 717
     Align = alClient
     BorderSpacing.Around = 6
     Caption = 'EditTemplateGroupBox'
-    ClientHeight = 254
+    ClientHeight = 249
     ClientWidth = 713
     TabOrder = 2
     inline TemplateSynEdit: TSynEdit
@@ -145,7 +150,7 @@
       AnchorSideBottom.Control = EditTemplateGroupBox
       AnchorSideBottom.Side = asrBottom
       Left = 6
-      Height = 170
+      Height = 165
       Top = 78
       Width = 701
       BorderSpacing.Around = 6
@@ -674,10 +679,10 @@
       AnchorSideTop.Control = EditTemplateGroupBox
       AnchorSideRight.Control = EditTemplateGroupBox
       AnchorSideRight.Side = asrBottom
-      Left = 168
+      Left = 210
       Height = 70
       Top = 2
-      Width = 543
+      Width = 501
       Anchors = [akTop, akLeft, akRight]
       AutoFill = True
       AutoSize = True
@@ -701,21 +706,21 @@
       AnchorSideLeft.Control = EditTemplateGroupBox
       AnchorSideTop.Control = EditTemplateGroupBox
       Left = 0
-      Height = 81
+      Height = 95
       Top = 0
-      Width = 158
+      Width = 200
       AutoSize = True
       BevelOuter = bvNone
-      ClientHeight = 81
-      ClientWidth = 158
+      ClientHeight = 95
+      ClientWidth = 200
       TabOrder = 0
       object KeepSubIndentCheckBox: TCheckBox
         AnchorSideLeft.Control = OptionsPanel
         AnchorSideTop.Control = OptionsPanel
         Left = 6
-        Height = 19
+        Height = 24
         Top = 6
-        Width = 152
+        Width = 194
         BorderSpacing.Left = 6
         BorderSpacing.Top = 6
         Caption = 'KeepSubIndentCheckBox'
@@ -728,9 +733,9 @@
         AnchorSideTop.Control = KeepSubIndentCheckBox
         AnchorSideTop.Side = asrBottom
         Left = 6
-        Height = 19
-        Top = 25
-        Width = 130
+        Height = 24
+        Top = 30
+        Width = 167
         BorderSpacing.Left = 6
         Caption = 'UseMacrosCheckBox'
         OnChange = UseMacrosCheckBoxChange
@@ -744,9 +749,9 @@
         AnchorSideTop.Side = asrBottom
         AnchorSideRight.Side = asrBottom
         Left = 6
-        Height = 25
-        Top = 50
-        Width = 125
+        Height = 29
+        Top = 60
+        Width = 140
         AutoSize = True
         BorderSpacing.Around = 6
         Caption = 'InsertMacroButton'
@@ -757,8 +762,8 @@
   end
   object ButtonPanel: TButtonPanel
     Left = 6
-    Height = 26
-    Top = 508
+    Height = 29
+    Top = 505
     Width = 717
     OKButton.Name = 'OKButton'
     OKButton.DefaultCaption = True
@@ -779,7 +784,8 @@
     Enabled = False
     CompilerMode = pcmObjFPC
     NestedComments = True
-    left = 304
-    top = 344
+    TypeHelpers = False
+    Left = 304
+    Top = 344
   end
 end
Index: ide/examplemanager.lfm
===================================================================
--- ide/examplemanager.lfm	(revision 61056)
+++ ide/examplemanager.lfm	(working copy)
@@ -10,17 +10,17 @@
   OnClose = FormClose
   OnCreate = FormCreate
   Position = poScreenCenter
-  LCLVersion = '1.5'
+  LCLVersion = '2.1.0.0'
   object ProjectsGroupBox: TGroupBox
     Left = 0
-    Height = 326
+    Height = 331
     Top = 123
     Width = 457
     Align = alClient
     BorderSpacing.Top = 3
     Caption = 'Projects'
-    ClientHeight = 310
-    ClientWidth = 455
+    ClientHeight = 312
+    ClientWidth = 453
     TabOrder = 1
     object ProjectsListBox: TListBox
       AnchorSideLeft.Control = ProjectsGroupBox
@@ -31,15 +31,15 @@
       AnchorSideBottom.Control = ProjectsGroupBox
       AnchorSideBottom.Side = asrBottom
       Left = 6
-      Height = 276
-      Top = 28
-      Width = 443
+      Height = 272
+      Top = 34
+      Width = 441
       Anchors = [akTop, akLeft, akRight, akBottom]
       BorderSpacing.Around = 6
       ItemHeight = 0
       MultiSelect = True
       OnSelectionChange = ProjectsListBoxSelectionChange
-      ScrollWidth = 441
+      ScrollWidth = 439
       TabOrder = 2
       TopIndex = -1
     end
@@ -46,7 +46,7 @@
     object ProjectFilter: TListFilterEdit
       AnchorSideLeft.Control = ProjectsListBox
       Left = 6
-      Height = 21
+      Height = 27
       Top = 1
       Width = 221
       OnAfterFilter = ProjectFilterAfterFilter
@@ -62,9 +62,9 @@
       AnchorSideTop.Control = ProjectFilter
       AnchorSideTop.Side = asrCenter
       Left = 252
-      Height = 22
-      Top = 0
-      Width = 108
+      Height = 24
+      Top = 2
+      Width = 121
       BorderSpacing.Left = 25
       Caption = 'Relative paths'
       OnClick = cbRelativePathClick
@@ -73,8 +73,8 @@
   end
   object ButtonPanel1: TButtonPanel
     Left = 6
-    Height = 34
-    Top = 455
+    Height = 29
+    Top = 460
     Width = 858
     OKButton.Name = 'OKButton'
     OKButton.DefaultCaption = True
@@ -91,7 +91,7 @@
   object ActionGroupBox: TGroupBox
     AnchorSideLeft.Side = asrBottom
     Left = 465
-    Height = 326
+    Height = 331
     Top = 123
     Width = 405
     Align = alRight
@@ -99,8 +99,8 @@
     BorderSpacing.Left = 3
     BorderSpacing.Top = 3
     Caption = 'Action'
-    ClientHeight = 310
-    ClientWidth = 403
+    ClientHeight = 312
+    ClientWidth = 401
     TabOrder = 2
     object OpenSelectedButton: TBitBtn
       AnchorSideLeft.Control = ActionGroupBox
@@ -107,10 +107,11 @@
       AnchorSideTop.Control = ActionGroupBox
       AnchorSideRight.Control = lblCenter
       Left = 6
-      Height = 25
+      Height = 29
       Top = 6
-      Width = 189
+      Width = 188
       Anchors = [akTop, akLeft, akRight]
+      AutoSize = True
       BorderSpacing.Around = 6
       Caption = 'Open First Selected'
       Enabled = False
@@ -124,10 +125,11 @@
       AnchorSideRight.Control = lblCenter
       AnchorSideRight.Side = asrBottom
       Left = 6
-      Height = 25
-      Top = 43
-      Width = 190
+      Height = 29
+      Top = 47
+      Width = 189
       Anchors = [akTop, akLeft, akRight]
+      AutoSize = True
       BorderSpacing.Top = 6
       BorderSpacing.Around = 6
       Caption = 'Build All Selected'
@@ -142,11 +144,12 @@
       AnchorSideTop.Control = ActionGroupBox
       AnchorSideRight.Control = ActionGroupBox
       AnchorSideRight.Side = asrBottom
-      Left = 208
-      Height = 25
+      Left = 207
+      Height = 29
       Top = 6
-      Width = 189
+      Width = 188
       Anchors = [akTop, akLeft, akRight]
+      AutoSize = True
       BorderSpacing.Around = 6
       Caption = 'Select All'
       OnClick = SelectAllButtonClick
@@ -159,11 +162,12 @@
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Control = ActionGroupBox
       AnchorSideRight.Side = asrBottom
-      Left = 208
-      Height = 25
-      Top = 43
-      Width = 189
+      Left = 207
+      Height = 29
+      Top = 47
+      Width = 188
       Anchors = [akTop, akLeft, akRight]
+      AutoSize = True
       BorderSpacing.Top = 6
       BorderSpacing.Around = 6
       Caption = 'Select None'
@@ -180,9 +184,9 @@
       AnchorSideBottom.Control = ActionGroupBox
       AnchorSideBottom.Side = asrBottom
       Left = 6
-      Height = 230
-      Top = 74
-      Width = 391
+      Height = 224
+      Top = 82
+      Width = 389
       Anchors = [akTop, akLeft, akRight, akBottom]
       BorderSpacing.Around = 6
       ReadOnly = True
@@ -193,7 +197,7 @@
       AnchorSideLeft.Control = ActionGroupBox
       AnchorSideLeft.Side = asrCenter
       AnchorSideTop.Control = ActionGroupBox
-      Left = 201
+      Left = 200
       Height = 1
       Top = 0
       Width = 1
@@ -211,13 +215,14 @@
     ClientWidth = 870
     TabOrder = 0
     object cbIncludeAllDirs: TCheckBox
+      AnchorSideTop.Control = edRootDirectory
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Control = edRootDirectory
       AnchorSideRight.Side = asrBottom
-      Left = 289
-      Height = 22
-      Top = 56
-      Width = 175
+      Left = 270
+      Height = 24
+      Top = 54
+      Width = 194
       Anchors = [akTop, akRight]
       BorderSpacing.Top = 3
       Caption = 'Include all subdirectories'
@@ -229,7 +234,7 @@
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Side = asrBottom
       Left = 8
-      Height = 21
+      Height = 27
       Top = 24
       Width = 456
       ShowHidden = False
@@ -259,8 +264,8 @@
       ChildSizing.ShrinkVertical = crsScaleChilds
       ChildSizing.Layout = cclLeftToRightThenTopToBottom
       ChildSizing.ControlsPerLine = 4
-      ClientHeight = 99
-      ClientWidth = 367
+      ClientHeight = 96
+      ClientWidth = 365
       Columns = 4
       Items.Strings = (
         'example'
@@ -280,9 +285,9 @@
     end
     object lbRootDirectory: TLabel
       Left = 8
-      Height = 15
+      Height = 17
       Top = 8
-      Width = 85
+      Width = 99
       Caption = 'Root Directory'
       ParentColor = False
     end
@@ -291,9 +296,9 @@
       AnchorSideBottom.Control = SelectPanel
       AnchorSideBottom.Side = asrBottom
       Left = 8
-      Height = 15
-      Top = 94
-      Width = 88
+      Height = 17
+      Top = 92
+      Width = 102
       Anchors = [akLeft, akBottom]
       BorderSpacing.Bottom = 11
       Caption = 'lbProjectCount'
@@ -302,7 +307,7 @@
   end
   object Splitter1: TSplitter
     Left = 457
-    Height = 329
+    Height = 334
     Top = 120
     Width = 5
     Align = alRight
lay.diff (28,887 bytes)   

Juha Manninen

2019-04-26 18:00

developer   ~0115829

I would like to have a totally redesigned and simplified Example Projects window.
A ListView would be more logical control than ListBox. I could have separate colums for project name and directory and maybe other info.
When I made the GUI many years ago, ListView had serious problems with some widgetsets. I guess it is better now.

The "Include subdirectories" should go to the global options dialog as a new page, if needed at all.
I remember digging hardcoded subdirectories from the original code and then made it configurable. I don't know if it was a good idea.

How has CodeTyphon improved this? I must install it again some day.
Should we copy their accomplishments?
Alexey Tor., do you want to work on a new Examples GUI?

CudaText man

2019-04-27 10:33

reporter   ~0115842

I dont want, sorry.

CudaText man

2019-04-28 18:07

reporter   ~0115879

Last edited: 2019-04-28 18:07

View 2 revisions

Pls apply the patch, coz Examples overhaul can be made, but this fix is needed

Juha Manninen

2019-04-30 14:45

developer   ~0115921

I applied the patch in r61085.
I will keep the issue open for now ...

Issue History

Date Modified Username Field Change
2019-04-25 18:41 CudaText man New Issue
2019-04-25 18:41 CudaText man File Added: exampl-btn-size.png
2019-04-25 18:42 CudaText man Note Added: 0115805
2019-04-25 18:58 CudaText man Note Added: 0115807
2019-04-25 18:59 CudaText man Note Added: 0115808
2019-04-25 20:33 CudaText man File Added: lay.diff
2019-04-25 20:33 CudaText man Note Added: 0115810
2019-04-26 18:00 Juha Manninen Note Added: 0115829
2019-04-27 10:33 CudaText man Note Added: 0115842
2019-04-28 18:07 CudaText man Note Added: 0115879
2019-04-28 18:07 CudaText man Note Edited: 0115879 View Revisions
2019-04-30 14:29 Juha Manninen Assigned To => Juha Manninen
2019-04-30 14:29 Juha Manninen Status new => assigned
2019-04-30 14:45 Juha Manninen Note Added: 0115921
2020-08-09 10:36 Juha Manninen Relationship added related to 0037509
2020-08-09 10:43 Juha Manninen Relationship added related to 0027590