View Issue Details
ID | Project | Category | View Status | Date Submitted | Last Update |
---|---|---|---|---|---|
0034547 | Lazarus | IDE | public | 2018-11-12 23:16 | 2018-11-14 12:24 |
Reporter | CudaText man | Assigned To | Juha Manninen | ||
Priority | normal | Severity | minor | Reproducibility | always |
Status | resolved | Resolution | fixed | ||
Platform | Linux gtk2 x64 | OS | Ubuntu 18.04 | ||
Product Version | 2.1 (SVN) | ||||
Summary | 0034547: IDE Publish Project dlg has truncated Combobox | ||||
Description | combobox is truncated on top/bottom, ie top/bottom borders are not visible (left/right are). | ||||
Tags | No tags attached. | ||||
Fixed in Revision | r59544 | ||||
LazTarget | - | ||||
Widgetset | GTK 2 | ||||
Attached Files |
|
|
|
|
fix.diff (4,729 bytes)
Index: ide/publishmoduledlg.lfm =================================================================== --- ide/publishmoduledlg.lfm (revision 59542) +++ ide/publishmoduledlg.lfm (working copy) @@ -10,7 +10,7 @@ OnClose = FormClose OnCreate = FormCreate Position = poScreenCenter - LCLVersion = '1.9.0.0' + LCLVersion = '2.1.0.0' object DestDirGroupBox: TGroupBox Left = 6 Height = 66 @@ -21,17 +21,17 @@ Caption = 'Destination directory' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 - ClientHeight = 46 + ClientHeight = 47 ClientWidth = 626 TabOrder = 0 object DestDirComboBox: TComboBox AnchorSideRight.Control = BrowseDestDirBitBtn Left = 6 - Height = 23 + Height = 29 Top = 6 - Width = 589 + Width = 564 Anchors = [akTop, akLeft, akRight] - ItemHeight = 15 + ItemHeight = 0 TabOrder = 0 Text = 'DestDirComboBox' end @@ -40,10 +40,10 @@ AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = DestDirComboBox AnchorSideBottom.Side = asrBottom - Left = 595 - Height = 23 + Left = 570 + Height = 29 Top = 6 - Width = 25 + Width = 50 Anchors = [akTop, akRight, akBottom] BorderSpacing.Right = 6 Caption = '...' @@ -55,24 +55,24 @@ AnchorSideTop.Control = FilterCombobox AnchorSideTop.Side = asrBottom Left = 6 - Height = 51 - Top = 189 + Height = 55 + Top = 166 Width = 628 Anchors = [akTop, akLeft, akRight] AutoSize = True - BorderSpacing.Around = 18 + BorderSpacing.Around = 6 Caption = 'Options' ChildSizing.TopBottomSpacing = 6 - ClientHeight = 31 + ClientHeight = 36 ClientWidth = 624 - TabOrder = 1 + TabOrder = 4 object CompressCheckbox: TCheckBox AnchorSideRight.Side = asrBottom Left = 6 - Height = 19 + Height = 24 Hint = 'Compress the whole directory into a ZIP file.' Top = 6 - Width = 73 + Width = 94 BorderSpacing.Around = 6 Caption = 'Compress' ParentShowHint = False @@ -82,10 +82,10 @@ object OpenInFileManCheckbox: TCheckBox AnchorSideRight.Side = asrBottom Left = 108 - Height = 19 + Height = 24 Hint = 'Open destination directory in file manager' Top = 6 - Width = 131 + Width = 163 BorderSpacing.Around = 6 Caption = 'Open in file manager' ParentShowHint = False @@ -95,8 +95,8 @@ end object ButtonPanel1: TButtonPanel Left = 6 - Height = 26 - Top = 288 + Height = 29 + Top = 285 Width = 630 OKButton.Name = 'OKButton' OKButton.DefaultCaption = True @@ -106,7 +106,7 @@ CloseButton.DefaultCaption = True CancelButton.Name = 'CancelButton' CancelButton.DefaultCaption = True - TabOrder = 2 + TabOrder = 5 ShowBevel = False end object UseFiltersCheckbox: TCheckBox @@ -113,21 +113,21 @@ AnchorSideTop.Control = NoteLabel AnchorSideTop.Side = asrBottom Left = 6 - Height = 19 - Top = 111 - Width = 136 - BorderSpacing.Around = 18 + Height = 24 + Top = 101 + Width = 181 + BorderSpacing.Around = 6 Caption = 'Use filter for extra files' OnClick = UseFiltersCheckboxClick - TabOrder = 3 + TabOrder = 1 end object NoteLabel: TLabel AnchorSideTop.Control = DestDirGroupBox AnchorSideTop.Side = asrBottom Left = 6 - Height = 15 + Height = 17 Top = 78 - Width = 350 + Width = 431 BorderSpacing.Around = 6 Caption = 'Files belonging to project / package will be included automatically.' Font.Color = clMaroon @@ -141,14 +141,13 @@ AnchorSideTop.Side = asrBottom AnchorSideRight.Control = FilterSimpleSyntaxCheckbox Left = 24 - Height = 23 - Top = 148 - Width = 480 + Height = 29 + Top = 131 + Width = 460 Anchors = [akTop, akLeft, akRight] - AutoSize = False BorderSpacing.Left = 18 - ItemHeight = 15 - TabOrder = 4 + ItemHeight = 0 + TabOrder = 2 Text = 'FilterCombobox' end object FilterSimpleSyntaxCheckbox: TCheckBox @@ -155,15 +154,15 @@ AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = FilterCombobox AnchorSideTop.Side = asrCenter - Left = 517 - Height = 19 - Top = 150 - Width = 93 + Left = 490 + Height = 24 + Top = 133 + Width = 120 Anchors = [akTop, akRight] - BorderSpacing.Around = 13 + BorderSpacing.Around = 6 Caption = 'Simple Syntax' ParentShowHint = False ShowHint = True - TabOrder = 5 + TabOrder = 3 end end |
|
fix.diff added. -fixed subj. -fixed TabOrder -fixed BorderSpacing for n controls: it was 13..18, made 6 -made wider ... button |
|
Applied, thanks. |
Date Modified | Username | Field | Change |
---|---|---|---|
2018-11-12 23:16 | CudaText man | New Issue | |
2018-11-12 23:16 | CudaText man | File Added: Screenshot from 2018-11-13 01-10-05.png | |
2018-11-14 09:56 | CudaText man | File Added: fix.diff | |
2018-11-14 09:57 | CudaText man | Note Added: 0111965 | |
2018-11-14 11:06 | Juha Manninen | Assigned To | => Juha Manninen |
2018-11-14 11:06 | Juha Manninen | Status | new => assigned |
2018-11-14 12:24 | Juha Manninen | Fixed in Revision | => r59544 |
2018-11-14 12:24 | Juha Manninen | LazTarget | => - |
2018-11-14 12:24 | Juha Manninen | Note Added: 0111969 | |
2018-11-14 12:24 | Juha Manninen | Status | assigned => resolved |
2018-11-14 12:24 | Juha Manninen | Resolution | open => fixed |