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

IDE: Try to improve the custom defines GUI.

Browse Source 
git-svn-id: trunk@42475 -
This commit is contained in:
juha 2013-08-24 09:08:12 +00:00
parent 2e6dcd7875
commit aaa84e717b
1 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
ide/customdefines.lfm
View File

@ -14,26 +14,26 @@ object CustomDefinesForm: TCustomDefinesForm
LCLVersion = '1.1' LCLVersion = '1.1'
object gbNewDefine: TGroupBox object gbNewDefine: TGroupBox
Left = 6 Left = 6
Height = 78 Height = 79
Top = 6 Top = 6
Width = 329 Width = 329
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'gbNewDefine' Caption = 'gbNewDefine'
ClientHeight = 59 ClientHeight = 60
ClientWidth = 325 ClientWidth = 325
TabOrder = 0 TabOrder = 0
object AddBtn: TBitBtn object AddBtn: TBitBtn
AnchorSideTop.Side = asrBottom AnchorSideTop.Control = RemoveBtn
AnchorSideRight.Control = RemoveBtn AnchorSideRight.Control = RemoveBtn
Left = 163 Left = 163
Height = 26 Height = 26
Top = 33 Top = 31
Width = 75 Width = 75
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Right = 6
Caption = '&Add' Caption = '&Add'
Constraints.MinHeight = 25 Constraints.MinHeight = 25
Constraints.MinWidth = 75 Constraints.MinWidth = 75
@ -42,16 +42,18 @@ object CustomDefinesForm: TCustomDefinesForm
end end
object RemoveBtn: TBitBtn object RemoveBtn: TBitBtn
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = AddBtn AnchorSideTop.Control = edDefine
AnchorSideRight.Control = gbNewDefine AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edDefine
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 244 Left = 244
Height = 26 Height = 26
Top = 33 Top = 31
Width = 75 Width = 75
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Right = 6 BorderSpacing.Top = 6
BorderSpacing.Bottom = 3
Caption = '&Remove' Caption = '&Remove'
Constraints.MinHeight = 25 Constraints.MinHeight = 25
Constraints.MinWidth = 75 Constraints.MinWidth = 75
@ -74,8 +76,8 @@ object CustomDefinesForm: TCustomDefinesForm
end end
object DefinesCheckList: TCheckListBox object DefinesCheckList: TCheckListBox
Left = 6 Left = 6
Height = 183 Height = 182
Top = 90 Top = 91
Width = 329 Width = 329
Align = alClient Align = alClient
Anchors = [akTop, akBottom] Anchors = [akTop, akBottom]