Fieldeditor GUI:

- Adjust position of controls
- Add shortcuts / focuscontrols
Seems like 8px is a good choice for margins to form edges.
This commit is contained in:
Ansgar Becker
2007-10-10 21:59:39 +00:00
parent db81b8af50
commit 0c611991e2

View File

@ -31,75 +31,81 @@ object FieldEditForm: TFieldEditForm
Caption = 'Field' Caption = 'Field'
ImageIndex = 62 ImageIndex = 62
object lblName: TLabel object lblName: TLabel
Left = 16 Left = 8
Top = 40 Top = 40
Width = 31 Width = 31
Height = 13 Height = 13
Caption = 'Name:' Caption = '&Name:'
FocusControl = EditFieldname
end end
object lblType: TLabel object lblType: TLabel
Left = 16 Left = 8
Top = 64 Top = 64
Width = 28 Width = 28
Height = 13 Height = 13
Caption = 'Type:' Caption = '&Type:'
FocusControl = ComboBoxType
end end
object lblLengthSet: TLabel object lblLengthSet: TLabel
Left = 16 Left = 8
Top = 88 Top = 88
Width = 63 Width = 63
Height = 13 Height = 13
Caption = 'Length / Set:' Caption = '&Length / Set:'
FocusControl = EditLength
end end
object lblDefault: TLabel object lblDefault: TLabel
Left = 16 Left = 8
Top = 112 Top = 112
Width = 39 Width = 39
Height = 13 Height = 13
Caption = 'Default:' Caption = '&Default:'
FocusControl = EditDefault
end end
object lblPosition: TLabel object lblPosition: TLabel
Left = 16 Left = 8
Top = 16 Top = 17
Width = 41 Width = 41
Height = 13 Height = 13
Caption = 'Position:' Caption = '&Position:'
FocusControl = ComboBoxPosition
end end
object lblComment: TLabel object lblComment: TLabel
Left = 16 Left = 8
Top = 136 Top = 136
Width = 49 Width = 49
Height = 13 Height = 13
Caption = 'Comment:' Caption = '&Comment:'
FocusControl = EditComment
end end
object btnDatatypeHelp: TButton object btnDatatypeHelp: TButton
Left = 252 Left = 259
Top = 61 Top = 61
Width = 21 Width = 21
Height = 21 Height = 21
Hint = 'Help on selected datatype' Hint = 'Help on selected datatype'
Caption = '?' Caption = '?'
TabOrder = 7 TabOrder = 3
OnClick = btnDatatypeHelpClick OnClick = btnDatatypeHelpClick
end end
object EditDefault: TEdit object EditDefault: TEdit
Left = 88 Left = 88
Top = 109 Top = 109
Width = 185 Width = 192
Height = 21 Height = 21
TabOrder = 4 TabOrder = 5
end end
object EditLength: TEdit object EditLength: TEdit
Left = 88 Left = 88
Top = 85 Top = 85
Width = 185 Width = 192
Height = 21 Height = 21
TabOrder = 3 TabOrder = 4
end end
object ComboBoxType: TComboBox object ComboBoxType: TComboBox
Left = 88 Left = 88
Top = 61 Top = 61
Width = 158 Width = 165
Height = 21 Height = 21
Style = csDropDownList Style = csDropDownList
ItemHeight = 13 ItemHeight = 13
@ -109,19 +115,19 @@ object FieldEditForm: TFieldEditForm
object EditFieldname: TEdit object EditFieldname: TEdit
Left = 88 Left = 88
Top = 37 Top = 37
Width = 185 Width = 192
Height = 21 Height = 21
TabOrder = 1 TabOrder = 1
end end
object GroupBoxAttributes: TGroupBox object GroupBoxAttributes: TGroupBox
Left = 16 Left = 8
Top = 168 Top = 168
Width = 257 Width = 272
Height = 113 Height = 113
Caption = 'Attributes' Caption = 'Attributes'
TabOrder = 6 TabOrder = 7
object CheckBoxBinary: TCheckBox object CheckBoxBinary: TCheckBox
Left = 32 Left = 16
Top = 24 Top = 24
Width = 65 Width = 65
Height = 17 Height = 17
@ -129,7 +135,7 @@ object FieldEditForm: TFieldEditForm
TabOrder = 0 TabOrder = 0
end end
object CheckBoxUnsigned: TCheckBox object CheckBoxUnsigned: TCheckBox
Left = 32 Left = 16
Top = 48 Top = 48
Width = 65 Width = 65
Height = 17 Height = 17
@ -137,7 +143,7 @@ object FieldEditForm: TFieldEditForm
TabOrder = 1 TabOrder = 1
end end
object CheckBoxZerofill: TCheckBox object CheckBoxZerofill: TCheckBox
Left = 32 Left = 16
Top = 72 Top = 72
Width = 57 Width = 57
Height = 17 Height = 17
@ -164,7 +170,7 @@ object FieldEditForm: TFieldEditForm
object ComboBoxPosition: TComboBox object ComboBoxPosition: TComboBox
Left = 88 Left = 88
Top = 14 Top = 14
Width = 185 Width = 192
Height = 21 Height = 21
Style = csDropDownList Style = csDropDownList
ItemHeight = 13 ItemHeight = 13
@ -173,9 +179,9 @@ object FieldEditForm: TFieldEditForm
object EditComment: TEdit object EditComment: TEdit
Left = 88 Left = 88
Top = 133 Top = 133
Width = 185 Width = 192
Height = 21 Height = 21
TabOrder = 5 TabOrder = 6
end end
end end
object tabIndexes: TTabSheet object tabIndexes: TTabSheet
@ -185,10 +191,11 @@ object FieldEditForm: TFieldEditForm
ShowHint = True ShowHint = True
object lblIndexName: TLabel object lblIndexName: TLabel
Left = 8 Left = 8
Top = 10 Top = 11
Width = 63 Width = 63
Height = 13 Height = 13
Caption = 'Index-Name:' Caption = '&Index-Name:'
FocusControl = ComboBoxKeys
end end
object lblColumnsUsed: TLabel object lblColumnsUsed: TLabel
Left = 8 Left = 8