paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 09:19:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: codetoolsdefines dialog: high-DPI. Patch by AlexeyT, issue #31774

Browse Source 
git-svn-id: trunk@54915 -
This commit is contained in:
ondrej 2017-05-14 09:33:45 +00:00
parent 3f56e69dc6
commit 9551b8b6c1
1 changed files with 123 additions and 68 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

191
ide/codetoolsdefines.lfm
View File

@ -1,11 +1,11 @@
object CodeToolsDefinesEditor: TCodeToolsDefinesEditor object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
Left = 382 Left = 330
Height = 500 Height = 500
Top = 228 Top = 375
Width = 544 Width = 544
BorderIcons = [biSystemMenu, biMaximize] BorderIcons = [biSystemMenu, biMaximize]
Caption = 'CodeToolsDefinesEditor' Caption = 'CodeToolsDefinesEditor'
ClientHeight = 479 ClientHeight = 480
ClientWidth = 544 ClientWidth = 544
KeyPreview = True KeyPreview = True
Menu = MainMenu Menu = MainMenu
@ -14,7 +14,7 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
OnKeyDown = CodeToolsDefinesEditorKeyDown OnKeyDown = CodeToolsDefinesEditorKeyDown
OnKeyUp = CodeToolsDefinesEditorKeyUp OnKeyUp = CodeToolsDefinesEditorKeyUp
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.5' LCLVersion = '1.9.0.0'
object DefineTreeView: TTreeView object DefineTreeView: TTreeView
Left = 6 Left = 6
Height = 123 Height = 123
@ -30,7 +30,7 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
end end
object SelectedItemGroupBox: TGroupBox object SelectedItemGroupBox: TGroupBox
Left = 6 Left = 6
Height = 293 Height = 296
Top = 146 Top = 146
Width = 532 Width = 532
Align = alClient Align = alClient
@ -40,20 +40,24 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
ClientWidth = 528 ClientWidth = 528
TabOrder = 2 TabOrder = 2
object NameLabel: TLabel object NameLabel: TLabel
Left = 10 AnchorSideLeft.Control = TypeLabel
AnchorSideTop.Control = NameEdit
AnchorSideTop.Side = asrCenter
Left = 6
Height = 15 Height = 15
Top = 26 Top = 31
Width = 61 Width = 60
BorderSpacing.Right = 6
Caption = 'NameLabel' Caption = 'NameLabel'
ParentColor = False ParentColor = False
end end
object DescriptionLabel: TLabel object DescriptionLabel: TLabel
Left = 10 AnchorSideLeft.Control = TypeLabel
AnchorSideTop.Control = DescriptionEdit
AnchorSideTop.Side = asrCenter
Left = 6
Height = 15 Height = 15
Top = 53 Top = 56
Width = 93 Width = 88
BorderSpacing.Right = 6
Caption = 'DescriptionLabel' Caption = 'DescriptionLabel'
ParentColor = False ParentColor = False
end end
@ -68,33 +72,38 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
ParentColor = False ParentColor = False
end end
object VariableLabel: TLabel object VariableLabel: TLabel
Left = 10 AnchorSideLeft.Control = TypeLabel
AnchorSideTop.Control = VariableEdit
AnchorSideTop.Side = asrCenter
Left = 6
Height = 15 Height = 15
Top = 78 Top = 81
Width = 74 Width = 69
BorderSpacing.Right = 6
Caption = 'VariableLabel' Caption = 'VariableLabel'
ParentColor = False ParentColor = False
end end
object ValueNoteBook: TPageControl object ValueNoteBook: TPageControl
AnchorSideTop.Control = VariableEdit
AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 164 Height = 162
Top = 106 Top = 108
Width = 516 Width = 516
ActivePage = ValueAsTextPage ActivePage = ValueAsPathsPage
Align = alBottom Align = alBottom
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 2
BorderSpacing.Around = 6 BorderSpacing.Around = 6
TabIndex = 0 TabIndex = 1
TabOrder = 3 TabOrder = 3
OnChange = ValueNoteBookPageChanged OnChange = ValueNoteBookPageChanged
object ValueAsTextPage: TTabSheet object ValueAsTextPage: TTabSheet
Caption = 'ValueAsTextPage' Caption = 'ValueAsTextPage'
ClientHeight = 135 ClientHeight = 137
ClientWidth = 512 ClientWidth = 512
inline ValueAsTextSynEdit: TSynEdit inline ValueAsTextSynEdit: TSynEdit
Left = 0 Left = 0
Height = 135 Height = 152
Top = 0 Top = 0
Width = 512 Width = 512
Align = alClient Align = alClient
@ -107,7 +116,7 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
TabOrder = 0 TabOrder = 0
BookMarkOptions.Xoffset = -18 BookMarkOptions.Xoffset = -18
Gutter.Visible = False Gutter.Visible = False
Gutter.Width = 61 Gutter.Width = 59
Gutter.MouseActions = < Gutter.MouseActions = <
item item
ClickCount = ccAny ClickCount = ccAny
@ -544,7 +553,7 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
MouseActions = <> MouseActions = <>
end end
object TSynGutterLineNumber object TSynGutterLineNumber
Width = 21 Width = 19
MouseActions = <> MouseActions = <>
MarkupInfo.Background = clBtnFace MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone MarkupInfo.Foreground = clNone
@ -621,14 +630,14 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
end end
object ValueAsPathsPage: TTabSheet object ValueAsPathsPage: TTabSheet
Caption = 'ValueAsPathsPage' Caption = 'ValueAsPathsPage'
ClientHeight = 135 ClientHeight = 134
ClientWidth = 512 ClientWidth = 508
inline ValueAsFilePathsSynEdit: TSynEdit inline ValueAsFilePathsSynEdit: TSynEdit
AnchorSideRight.Control = DeleteFilePathBitBtn AnchorSideRight.Control = MoveFilePathUpBitBtn
Left = 0 Left = 0
Height = 168 Height = 134
Top = 0 Top = 0
Width = 420 Width = 351
Align = alLeft Align = alLeft
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
@ -641,7 +650,7 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
TabOrder = 0 TabOrder = 0
BookMarkOptions.Xoffset = -18 BookMarkOptions.Xoffset = -18
Gutter.Visible = False Gutter.Visible = False
Gutter.Width = 61 Gutter.Width = 59
Gutter.MouseActions = < Gutter.MouseActions = <
item item
ClickCount = ccAny ClickCount = ccAny
@ -1078,7 +1087,7 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
MouseActions = <> MouseActions = <>
end end
object TSynGutterLineNumber object TSynGutterLineNumber
Width = 21 Width = 19
MouseActions = <> MouseActions = <>
MarkupInfo.Background = clBtnFace MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone MarkupInfo.Foreground = clNone
@ -1153,41 +1162,70 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
end end
end end
object MoveFilePathUpBitBtn: TBitBtn object MoveFilePathUpBitBtn: TBitBtn
Left = 426 AnchorSideLeft.Control = ValueAsFilePathsSynEdit
Height = 30 AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = ValueAsPathsPage
AnchorSideRight.Side = asrBottom
Left = 357
Height = 25
Top = 2 Top = 2
Width = 75 Width = 145
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'MoveFilePathUpBitBtn' Caption = 'MoveFilePathUpBitBtn'
Constraints.MinWidth = 80
OnClick = MoveFilePathUpBitBtnClick OnClick = MoveFilePathUpBitBtnClick
TabOrder = 1 TabOrder = 1
end end
object MoveFilePathDownBitBtn: TBitBtn object MoveFilePathDownBitBtn: TBitBtn
Left = 426 AnchorSideLeft.Control = MoveFilePathUpBitBtn
Height = 30 AnchorSideTop.Control = MoveFilePathUpBitBtn
Top = 34 AnchorSideTop.Side = asrBottom
Width = 75 AnchorSideRight.Control = MoveFilePathUpBitBtn
Anchors = [akTop, akRight] AnchorSideRight.Side = asrBottom
Left = 357
Height = 25
Top = 31
Width = 145
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 4
Caption = 'MoveFilePathDownBitBtn' Caption = 'MoveFilePathDownBitBtn'
OnClick = MoveNodeDownMenuItemClick OnClick = MoveNodeDownMenuItemClick
TabOrder = 2 TabOrder = 2
end end
object DeleteFilePathBitBtn: TBitBtn object DeleteFilePathBitBtn: TBitBtn
Left = 426 AnchorSideLeft.Control = MoveFilePathDownBitBtn
Height = 30 AnchorSideTop.Control = MoveFilePathDownBitBtn
Top = 66 AnchorSideTop.Side = asrBottom
Width = 75 AnchorSideRight.Control = MoveFilePathUpBitBtn
Anchors = [akTop, akRight] AnchorSideRight.Side = asrBottom
Left = 357
Height = 25
Top = 60
Width = 145
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 4
Caption = 'DeleteFilePathBitBtn' Caption = 'DeleteFilePathBitBtn'
OnClick = DeleteFilePathBitBtnClick OnClick = DeleteFilePathBitBtnClick
TabOrder = 3 TabOrder = 3
end end
object InsertFilePathBitBtn: TBitBtn object InsertFilePathBitBtn: TBitBtn
Left = 426 AnchorSideLeft.Control = MoveFilePathUpBitBtn
Height = 30 AnchorSideTop.Control = DeleteFilePathBitBtn
Top = 98 AnchorSideTop.Side = asrBottom
Width = 75 AnchorSideRight.Control = MoveFilePathUpBitBtn
Anchors = [akTop, akRight] AnchorSideRight.Side = asrBottom
Left = 357
Height = 25
Top = 89
Width = 145
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 4
Caption = 'InsertFilePathBitBtn' Caption = 'InsertFilePathBitBtn'
OnClick = InsertFilePathBitBtnClick OnClick = InsertFilePathBitBtnClick
TabOrder = 4 TabOrder = 4
@ -1195,31 +1233,48 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
end end
end end
object NameEdit: TEdit object NameEdit: TEdit
Left = 128 AnchorSideLeft.Control = DescriptionLabel
Height = 25 AnchorSideLeft.Side = asrBottom
Top = 23 AnchorSideTop.Control = TypeLabel
Width = 394 AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = TypeLabel
AnchorSideRight.Side = asrBottom
Left = 100
Height = 23
Top = 27
Width = 422
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Left = 6
TabOrder = 0 TabOrder = 0
Text = 'NameEdit' Text = 'NameEdit'
end end
object DescriptionEdit: TEdit object DescriptionEdit: TEdit
Left = 128 AnchorSideLeft.Control = NameEdit
Height = 25 AnchorSideTop.Control = NameEdit
Top = 50 AnchorSideTop.Side = asrBottom
Width = 394 AnchorSideRight.Control = NameEdit
AnchorSideRight.Side = asrBottom
Left = 100
Height = 23
Top = 52
Width = 422
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Top = 2
TabOrder = 1 TabOrder = 1
Text = 'DescriptionEdit' Text = 'DescriptionEdit'
end end
object VariableEdit: TEdit object VariableEdit: TEdit
Left = 128 AnchorSideLeft.Control = NameEdit
Height = 25 AnchorSideTop.Control = DescriptionEdit
Top = 76 AnchorSideTop.Side = asrBottom
Width = 394 AnchorSideRight.Control = NameEdit
AnchorSideRight.Side = asrBottom
Left = 100
Height = 23
Top = 77
Width = 422
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 2
TabOrder = 2 TabOrder = 2
Text = 'VariableEdit' Text = 'VariableEdit'
end end
@ -1235,8 +1290,8 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
end end
object ButtonPanel1: TButtonPanel object ButtonPanel1: TButtonPanel
Left = 6 Left = 6
Height = 28 Height = 26
Top = 445 Top = 448
Width = 532 Width = 532
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True OKButton.DefaultCaption = True
@ -1252,8 +1307,8 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
ShowBevel = False ShowBevel = False
end end
object MainMenu: TMainMenu object MainMenu: TMainMenu
left = 46 Left = 46
top = 72 Top = 72
object EditMenuItem: TMenuItem object EditMenuItem: TMenuItem
Caption = 'EditMenuItem' Caption = 'EditMenuItem'
object MoveNodeUpMenuItem: TMenuItem object MoveNodeUpMenuItem: TMenuItem