mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-05 17:18:25 +02:00
104 lines
2.5 KiB
Plaintext
104 lines
2.5 KiB
Plaintext
object DSFieldsEditorFrm: TDSFieldsEditorFrm
|
|
Caption = 'Fields Editor'
|
|
ClientHeight = 288
|
|
ClientWidth = 180
|
|
OnClose = FieldsEditorFrmClose
|
|
OnDestroy = FieldsEditorFrmDestroy
|
|
PixelsPerInch = 96
|
|
HorzScrollBar.Page = 179
|
|
VertScrollBar.Page = 287
|
|
Left = 228
|
|
Height = 288
|
|
Top = 96
|
|
Width = 180
|
|
object FieldsListBox: TListBox
|
|
Align = alClient
|
|
ExtendedSelect = True
|
|
MultiSelect = True
|
|
OnClick = ListBox1Click
|
|
OnKeyDown = FieldsListBoxKeyDown
|
|
PopupMenu = PopupMenu1
|
|
TabOrder = 0
|
|
Height = 288
|
|
Width = 180
|
|
end
|
|
object PopupMenu1: TPopupMenu
|
|
left = 8
|
|
top = 144
|
|
object MenuItem1: TMenuItem
|
|
Action = AddFieldsActn
|
|
OnClick = AddFieldsActnExecute
|
|
end
|
|
object MenuItem2: TMenuItem
|
|
Action = DeleteFieldsActn
|
|
OnClick = DeleteFieldsActnExecute
|
|
end
|
|
object MenuItem5: TMenuItem
|
|
Action = NewActn
|
|
OnClick = NewActnExecute
|
|
end
|
|
object MenuItem3: TMenuItem
|
|
Action = MoveUpActn
|
|
OnClick = MoveUpActnExecute
|
|
end
|
|
object MenuItem4: TMenuItem
|
|
Action = MoveDownActn
|
|
OnClick = MoveDownActnExecute
|
|
end
|
|
object MenuItem6: TMenuItem
|
|
Action = SelectAllActn
|
|
OnClick = SelectAllActnExecute
|
|
end
|
|
object MenuItem7: TMenuItem
|
|
Action = UnselectAllActn
|
|
OnClick = UnselectAllActnExecute
|
|
end
|
|
end
|
|
object ActionList1: TActionList
|
|
left = 40
|
|
top = 144
|
|
object AddFieldsActn: TAction
|
|
Caption = '&Add fields'
|
|
Hint = 'Add fields from FieldDefs'
|
|
OnExecute = AddFieldsActnExecute
|
|
ShortCut = 16429
|
|
Category = 'Fields'
|
|
end
|
|
object DeleteFieldsActn: TAction
|
|
Caption = '&Delete'
|
|
Hint = 'Delete selected field(s)'
|
|
OnExecute = DeleteFieldsActnExecute
|
|
ShortCut = 46
|
|
Category = 'Fields'
|
|
end
|
|
object NewActn: TAction
|
|
Caption = '&New'
|
|
Hint = 'Create new field and add it at current position'
|
|
OnExecute = NewActnExecute
|
|
ShortCut = 45
|
|
Category = 'Fields'
|
|
end
|
|
object MoveUpActn: TAction
|
|
Caption = 'Move &Up'
|
|
OnExecute = MoveUpActnExecute
|
|
Category = 'Fields'
|
|
end
|
|
object MoveDownActn: TAction
|
|
Caption = 'Move &Down'
|
|
OnExecute = MoveDownActnExecute
|
|
Category = 'Fields'
|
|
end
|
|
object SelectAllActn: TAction
|
|
Caption = '&Select all'
|
|
OnExecute = SelectAllActnExecute
|
|
ShortCut = 16449
|
|
Category = 'Fields'
|
|
end
|
|
object UnselectAllActn: TAction
|
|
Caption = '&Unselect all'
|
|
OnExecute = UnselectAllActnExecute
|
|
Category = 'Fields'
|
|
end
|
|
end
|
|
end
|