View Issue Details
| ID | Project | Category | View Status | Date Submitted | Last Update |
|---|---|---|---|---|---|
| 0031774 | Lazarus | IDE | public | 2017-05-08 14:43 | 2017-05-15 12:06 |
| Reporter | CudaText man | Assigned To | Ondrej Pokorny | ||
| Priority | normal | Severity | minor | Reproducibility | always |
| Status | closed | Resolution | fixed | ||
| Platform | Win10 | ||||
| Product Version | 1.9 (SVN) | ||||
| Summary | 0031774: hi-dpi: IDE dialog wrong | ||||
| Description | Picture. 3 edits (combos?) in the center are placed wrong. | ||||
| Tags | No tags attached. | ||||
| Fixed in Revision | 54915 | ||||
| LazTarget | - | ||||
| Widgetset | |||||
| Attached Files |
| ||||
|
|
|
|
|
def-ed.diff (9,085 bytes)
Index: ide/codetoolsdefines.lfm
===================================================================
--- ide/codetoolsdefines.lfm (revision 54907)
+++ ide/codetoolsdefines.lfm (working copy)
@@ -1,11 +1,11 @@
object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
- Left = 382
+ Left = 330
Height = 500
- Top = 228
+ Top = 375
Width = 544
BorderIcons = [biSystemMenu, biMaximize]
Caption = 'CodeToolsDefinesEditor'
- ClientHeight = 479
+ ClientHeight = 500
ClientWidth = 544
KeyPreview = True
Menu = MainMenu
@@ -14,7 +14,7 @@
OnKeyDown = CodeToolsDefinesEditorKeyDown
OnKeyUp = CodeToolsDefinesEditorKeyUp
Position = poScreenCenter
- LCLVersion = '1.5'
+ LCLVersion = '1.9.0.0'
object DefineTreeView: TTreeView
Left = 6
Height = 123
@@ -22,7 +22,6 @@
Width = 532
Align = alTop
BorderSpacing.Around = 6
- DefaultItemHeight = 18
ReadOnly = True
TabOrder = 0
OnSelectionChanged = DefineTreeViewSelectionChanged
@@ -30,36 +29,40 @@
end
object SelectedItemGroupBox: TGroupBox
Left = 6
- Height = 293
+ Height = 313
Top = 146
Width = 532
Align = alClient
BorderSpacing.Around = 6
Caption = 'SelectedItemGroupBox'
- ClientHeight = 276
+ ClientHeight = 294
ClientWidth = 528
TabOrder = 2
object NameLabel: TLabel
- Left = 10
- Height = 15
- Top = 26
- Width = 61
- BorderSpacing.Right = 6
+ AnchorSideLeft.Control = TypeLabel
+ AnchorSideTop.Control = NameEdit
+ AnchorSideTop.Side = asrCenter
+ Left = 6
+ Height = 17
+ Top = 34
+ Width = 77
Caption = 'NameLabel'
ParentColor = False
end
object DescriptionLabel: TLabel
- Left = 10
- Height = 15
- Top = 53
- Width = 93
- BorderSpacing.Right = 6
+ AnchorSideLeft.Control = TypeLabel
+ AnchorSideTop.Control = DescriptionEdit
+ AnchorSideTop.Side = asrCenter
+ Left = 6
+ Height = 17
+ Top = 63
+ Width = 115
Caption = 'DescriptionLabel'
ParentColor = False
end
object TypeLabel: TLabel
Left = 6
- Height = 15
+ Height = 17
Top = 6
Width = 516
Align = alTop
@@ -68,33 +71,37 @@
ParentColor = False
end
object VariableLabel: TLabel
- Left = 10
- Height = 15
- Top = 78
- Width = 74
- BorderSpacing.Right = 6
+ AnchorSideLeft.Control = TypeLabel
+ AnchorSideTop.Control = VariableEdit
+ AnchorSideTop.Side = asrCenter
+ Left = 6
+ Height = 17
+ Top = 92
+ Width = 94
Caption = 'VariableLabel'
ParentColor = False
end
object ValueNoteBook: TPageControl
+ AnchorSideTop.Control = VariableEdit
+ AnchorSideTop.Side = asrBottom
Left = 6
- Height = 164
- Top = 106
+ Height = 168
+ Top = 120
Width = 516
- ActivePage = ValueAsTextPage
+ ActivePage = ValueAsPathsPage
Align = alBottom
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
- TabIndex = 0
+ TabIndex = 1
TabOrder = 3
OnChange = ValueNoteBookPageChanged
object ValueAsTextPage: TTabSheet
Caption = 'ValueAsTextPage'
- ClientHeight = 135
+ ClientHeight = 137
ClientWidth = 512
inline ValueAsTextSynEdit: TSynEdit
Left = 0
- Height = 135
+ Height = 152
Top = 0
Width = 512
Align = alClient
@@ -621,14 +628,14 @@
end
object ValueAsPathsPage: TTabSheet
Caption = 'ValueAsPathsPage'
- ClientHeight = 135
+ ClientHeight = 137
ClientWidth = 512
inline ValueAsFilePathsSynEdit: TSynEdit
- AnchorSideRight.Control = DeleteFilePathBitBtn
+ AnchorSideRight.Control = MoveFilePathUpBitBtn
Left = 0
- Height = 168
+ Height = 137
Top = 0
- Width = 420
+ Width = 335
Align = alLeft
BorderSpacing.Right = 6
Anchors = [akTop, akLeft, akRight, akBottom]
@@ -1153,41 +1160,70 @@
end
end
object MoveFilePathUpBitBtn: TBitBtn
- Left = 426
- Height = 30
+ AnchorSideLeft.Control = ValueAsFilePathsSynEdit
+ AnchorSideLeft.Side = asrBottom
+ AnchorSideRight.Control = ValueAsPathsPage
+ AnchorSideRight.Side = asrBottom
+ Left = 341
+ Height = 29
Top = 2
- Width = 75
+ Width = 165
Anchors = [akTop, akRight]
+ AutoSize = True
+ BorderSpacing.Top = 6
+ BorderSpacing.Right = 6
Caption = 'MoveFilePathUpBitBtn'
+ Constraints.MinWidth = 80
OnClick = MoveFilePathUpBitBtnClick
TabOrder = 1
end
object MoveFilePathDownBitBtn: TBitBtn
- Left = 426
- Height = 30
- Top = 34
- Width = 75
- Anchors = [akTop, akRight]
+ AnchorSideLeft.Control = MoveFilePathUpBitBtn
+ AnchorSideTop.Control = MoveFilePathUpBitBtn
+ AnchorSideTop.Side = asrBottom
+ AnchorSideRight.Control = MoveFilePathUpBitBtn
+ AnchorSideRight.Side = asrBottom
+ Left = 341
+ Height = 29
+ Top = 35
+ Width = 165
+ Anchors = [akTop, akLeft, akRight]
+ AutoSize = True
+ BorderSpacing.Top = 4
Caption = 'MoveFilePathDownBitBtn'
OnClick = MoveNodeDownMenuItemClick
TabOrder = 2
end
object DeleteFilePathBitBtn: TBitBtn
- Left = 426
- Height = 30
- Top = 66
- Width = 75
- Anchors = [akTop, akRight]
+ AnchorSideLeft.Control = MoveFilePathDownBitBtn
+ AnchorSideTop.Control = MoveFilePathDownBitBtn
+ AnchorSideTop.Side = asrBottom
+ AnchorSideRight.Control = MoveFilePathUpBitBtn
+ AnchorSideRight.Side = asrBottom
+ Left = 341
+ Height = 29
+ Top = 68
+ Width = 165
+ Anchors = [akTop, akLeft, akRight]
+ AutoSize = True
+ BorderSpacing.Top = 4
Caption = 'DeleteFilePathBitBtn'
OnClick = DeleteFilePathBitBtnClick
TabOrder = 3
end
object InsertFilePathBitBtn: TBitBtn
- Left = 426
- Height = 30
- Top = 98
- Width = 75
- Anchors = [akTop, akRight]
+ AnchorSideLeft.Control = MoveFilePathUpBitBtn
+ AnchorSideTop.Control = DeleteFilePathBitBtn
+ AnchorSideTop.Side = asrBottom
+ AnchorSideRight.Control = MoveFilePathUpBitBtn
+ AnchorSideRight.Side = asrBottom
+ Left = 341
+ Height = 29
+ Top = 101
+ Width = 165
+ Anchors = [akTop, akLeft, akRight]
+ AutoSize = True
+ BorderSpacing.Top = 4
Caption = 'InsertFilePathBitBtn'
OnClick = InsertFilePathBitBtnClick
TabOrder = 4
@@ -1195,31 +1231,48 @@
end
end
object NameEdit: TEdit
- Left = 128
- Height = 25
- Top = 23
- Width = 394
+ AnchorSideLeft.Control = DescriptionLabel
+ AnchorSideLeft.Side = asrBottom
+ AnchorSideTop.Control = TypeLabel
+ AnchorSideTop.Side = asrBottom
+ AnchorSideRight.Control = TypeLabel
+ AnchorSideRight.Side = asrBottom
+ Left = 127
+ Height = 27
+ Top = 29
+ Width = 395
Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Around = 6
+ BorderSpacing.Left = 6
TabOrder = 0
Text = 'NameEdit'
end
object DescriptionEdit: TEdit
- Left = 128
- Height = 25
- Top = 50
- Width = 394
+ AnchorSideLeft.Control = NameEdit
+ AnchorSideTop.Control = NameEdit
+ AnchorSideTop.Side = asrBottom
+ AnchorSideRight.Control = NameEdit
+ AnchorSideRight.Side = asrBottom
+ Left = 127
+ Height = 27
+ Top = 58
+ Width = 395
Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Around = 6
+ BorderSpacing.Top = 2
TabOrder = 1
Text = 'DescriptionEdit'
end
object VariableEdit: TEdit
- Left = 128
- Height = 25
- Top = 76
- Width = 394
+ AnchorSideLeft.Control = NameEdit
+ AnchorSideTop.Control = DescriptionEdit
+ AnchorSideTop.Side = asrBottom
+ AnchorSideRight.Control = NameEdit
+ AnchorSideRight.Side = asrBottom
+ Left = 127
+ Height = 27
+ Top = 87
+ Width = 395
Anchors = [akTop, akLeft, akRight]
+ BorderSpacing.Top = 2
TabOrder = 2
Text = 'VariableEdit'
end
@@ -1235,8 +1288,8 @@
end
object ButtonPanel1: TButtonPanel
Left = 6
- Height = 28
- Top = 445
+ Height = 29
+ Top = 465
Width = 532
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
|
|
|
Totally redone anchors in CodetoolsDefinesEditor Now fixed |
|
|
Applied, thanks. |
| Date Modified | Username | Field | Change |
|---|---|---|---|
| 2017-05-08 14:43 | CudaText man | New Issue | |
| 2017-05-08 14:43 | CudaText man | File Added: ide-dlg3.png | |
| 2017-05-14 10:37 | CudaText man | File Added: def-ed.diff | |
| 2017-05-14 10:37 | CudaText man | Note Added: 0100296 | |
| 2017-05-14 11:20 | Ondrej Pokorny | Assigned To | => Ondrej Pokorny |
| 2017-05-14 11:20 | Ondrej Pokorny | Status | new => assigned |
| 2017-05-14 11:34 | Ondrej Pokorny | Fixed in Revision | => 54915 |
| 2017-05-14 11:34 | Ondrej Pokorny | LazTarget | => - |
| 2017-05-14 11:34 | Ondrej Pokorny | Status | assigned => resolved |
| 2017-05-14 11:34 | Ondrej Pokorny | Resolution | open => fixed |
| 2017-05-14 11:34 | Ondrej Pokorny | Note Added: 0100299 | |
| 2017-05-15 12:06 | CudaText man | Status | resolved => closed |
