caseGenerator/caseGenerator_role.fmx at master · fabrizio-turchi/caseGenerator · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
object formRole: TformRole
  Left = 0
  Top = 0
  Caption = 'Role'
  ClientHeight = 359
  ClientWidth = 551
  FormFactor.Width = 320
  FormFactor.Height = 480
  FormFactor.Devices = [Desktop]
  OnShow = FormShow
  DesignerMasterStyle = 0
  object Label1: TLabel
    StyledSettings = [Family, Style, FontColor]
    Position.X = 16.000000000000000000
    Position.Y = 139.000000000000000000
    Size.Width = 105.000000000000000000
    Size.Height = 33.000000000000000000
    Size.PlatformDefault = False
    TextSettings.Font.Size = 18.000000000000000000
    Text = 'Roles'
    TabOrder = 0
  end
  object lbRole: TListBox
    Position.X = 16.000000000000000000
    Position.Y = 168.000000000000000000
    Size.Width = 521.000000000000000000
    Size.Height = 137.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 1
    DisableFocusEffect = True
    DefaultItemStyles.ItemStyle = ''
    DefaultItemStyles.GroupHeaderStyle = ''
    DefaultItemStyles.GroupFooterStyle = ''
    OnChange = lbRoleChange
    Viewport.Width = 517.000000000000000000
    Viewport.Height = 133.000000000000000000
  end
  object edName: TEdit
    Touch.InteractiveGestures = [LongTap, DoubleTap]
    TabOrder = 3
    Position.X = 136.000000000000000000
    Position.Y = 80.000000000000000000
    Size.Width = 353.000000000000000000
    Size.Height = 25.000000000000000000
    Size.PlatformDefault = False
  end
  object Label2: TLabel
    Position.X = 40.000000000000000000
    Position.Y = 88.000000000000000000
    Text = 'Name'
    TabOrder = 4
  end
  object btnClose: TButton
    Position.X = 168.000000000000000000
    Position.Y = 328.000000000000000000
    Size.Width = 97.000000000000000000
    Size.Height = 22.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 6
    Text = 'Save and close'
    OnClick = btnCloseClick
  end
  object btnAddRole: TButton
    Position.X = 128.000000000000000000
    Position.Y = 136.000000000000000000
    Size.Width = 73.000000000000000000
    Size.Height = 22.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 7
    Text = 'Add role'
    OnClick = btnAddRoleClick
  end
  object btnDeleteRole: TButton
    Position.X = 312.000000000000000000
    Position.Y = 136.000000000000000000
    Size.Width = 89.000000000000000000
    Size.Height = 22.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 8
    Text = 'Delete role'
    OnClick = btnDeleteRoleClick
  end
  object Label3: TLabel
    Position.X = 40.000000000000000000
    Position.Y = 48.000000000000000000
    Text = 'Default names'
    TabOrder = 2
  end
  object cbDefaultNames: TComboBox
    Items.Strings = (
      'Forensic Expert'
      'Investigator'
      'Judge'
      'Offender'
      'Police Officer'
      'Victim')
    Position.X = 136.000000000000000000
    Position.Y = 48.000000000000000000
    Size.Width = 353.000000000000000000
    Size.Height = 22.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 9
    OnChange = cbDefaultNamesChange
  end
  object btnModifyRole: TButton
    Position.X = 216.000000000000000000
    Position.Y = 136.000000000000000000
    TabOrder = 10
    Text = 'Modify Role'
    OnClick = btnModifyRoleClick
  end
  object btnCancel: TButton
    Position.X = 280.000000000000000000
    Position.Y = 328.000000000000000000
    TabOrder = 12
    Text = 'Cancel'
    OnClick = btnCancelClick
  end
end