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

IDE: unit info dlg: imporved layout

Browse Source 
git-svn-id: branches/fixes_1_8@56107 -
This commit is contained in:
mattias 2017-10-17 16:28:16 +00:00
parent f4d1596096
commit a5c1dc506e
1 changed files with 26 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
ide/unitinfodlg.lfm
View File

@ -10,13 +10,13 @@ object UnitInfoDialog: TUnitInfoDialog
ClientWidth = 500 ClientWidth = 500
OnCreate = FormCreate OnCreate = FormCreate
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.5' LCLVersion = '1.9.0.0'
object OkButton: TBitBtn object OkButton: TBitBtn
AnchorSideBottom.Control = Owner AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 419 Left = 419
Height = 26 Height = 28
Top = 275 Top = 273
Width = 75 Width = 75
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
AutoSize = True AutoSize = True
@ -32,7 +32,7 @@ object UnitInfoDialog: TUnitInfoDialog
object Notebook: TPageControl object Notebook: TPageControl
AnchorSideBottom.Control = OkButton AnchorSideBottom.Control = OkButton
Left = 6 Left = 6
Height = 263 Height = 261
Top = 6 Top = 6
Width = 488 Width = 488
ActivePage = GeneralPage ActivePage = GeneralPage
@ -43,36 +43,37 @@ object UnitInfoDialog: TUnitInfoDialog
TabOrder = 1 TabOrder = 1
object GeneralPage: TTabSheet object GeneralPage: TTabSheet
Caption = 'GeneralPage' Caption = 'GeneralPage'
ClientHeight = 235 ClientHeight = 234
ClientWidth = 480 ClientWidth = 484
object ClearIncludedBy: TButton object ClearIncludedBy: TButton
Left = 6 Left = 6
Height = 25 Height = 25
Top = 204 Top = 203
Width = 112 Width = 101
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Top = 20 BorderSpacing.Top = 6
Caption = 'ClearIncludedBy' Caption = 'ClearIncludedBy'
OnClick = clearIncludedByClick OnClick = clearIncludedByClick
TabOrder = 0 TabOrder = 0
end end
object ListValues: TListView object ListValues: TListView
AnchorSideBottom.Control = ClearIncludedBy
Left = 6 Left = 6
Height = 191 Height = 191
Top = 6 Top = 6
Width = 468 Width = 472
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
Columns = < Columns = <
item item
AutoSize = True AutoSize = True
Caption = '(name)' Caption = '(name)'
Width = 464 Width = 0
end end
item item
AutoSize = True AutoSize = True
Caption = '(value)' Caption = '(value)'
Width = 48 Width = 470
end> end>
ReadOnly = True ReadOnly = True
RowSelect = True RowSelect = True
@ -84,8 +85,8 @@ object UnitInfoDialog: TUnitInfoDialog
end end
object UnitPathsPage: TTabSheet object UnitPathsPage: TTabSheet
Caption = 'UnitPathsPage' Caption = 'UnitPathsPage'
ClientHeight = 235 ClientHeight = 234
ClientWidth = 480 ClientWidth = 484
object UnitPathMemo: TMemo object UnitPathMemo: TMemo
Left = 6 Left = 6
Height = 223 Height = 223
@ -100,8 +101,8 @@ object UnitInfoDialog: TUnitInfoDialog
end end
object IncludePathsPage: TTabSheet object IncludePathsPage: TTabSheet
Caption = 'IncludePathsPage' Caption = 'IncludePathsPage'
ClientHeight = 235 ClientHeight = 234
ClientWidth = 480 ClientWidth = 484
object IncludePathMemo: TMemo object IncludePathMemo: TMemo
Left = 6 Left = 6
Height = 223 Height = 223
@ -116,8 +117,8 @@ object UnitInfoDialog: TUnitInfoDialog
end end
object CompleteUnitPathsPage: TTabSheet object CompleteUnitPathsPage: TTabSheet
Caption = 'CompleteUnitPathsPage' Caption = 'CompleteUnitPathsPage'
ClientHeight = 235 ClientHeight = 234
ClientWidth = 480 ClientWidth = 484
object SrcPathMemo: TMemo object SrcPathMemo: TMemo
Left = 6 Left = 6
Height = 223 Height = 223
@ -136,9 +137,9 @@ object UnitInfoDialog: TUnitInfoDialog
AnchorSideBottom.Control = OkButton AnchorSideBottom.Control = OkButton
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 26 Height = 28
Top = 275 Top = 273
Width = 142 Width = 133
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
AutoSize = True AutoSize = True
Caption = 'CodeToolsDefsButton' Caption = 'CodeToolsDefsButton'
@ -150,10 +151,10 @@ object UnitInfoDialog: TUnitInfoDialog
AnchorSideRight.Control = OkButton AnchorSideRight.Control = OkButton
AnchorSideBottom.Control = OkButton AnchorSideBottom.Control = OkButton
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 240 Left = 244
Height = 26 Height = 28
Top = 275 Top = 273
Width = 173 Width = 169
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Right = 6 BorderSpacing.Right = 6