HttpComponent/UfrmHeadersEditor.dfm at main · marcieldeg/HttpComponent · 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
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
object FHeadersEditor: TFHeadersEditor
  Left = 0
  Top = 0
  BorderStyle = bsSizeToolWin
  Caption = 'Headers'
  ClientHeight = 245
  ClientWidth = 466
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 466
    Height = 216
    Align = alClient
    DataSource = DataSource
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'NAME'
        PickList.Strings = (
          'A-IM'
          'Accept'
          'Accept-Charset'
          'Accept-Encoding'
          'Accept-Language'
          'Accept-Datetime'
          'Access-Control-Request-Method'
          'Access-Control-Request-Headers'
          'Authorization'
          'Cache-Control'
          'Connection'
          'Content-Length'
          'Content-Type'
          'Cookie'
          'Date'
          'Expect'
          'Forwarded'
          'From'
          'Host'
          'If-Match'
          'If-Modified-Since'
          'If-None-Match'
          'If-Range'
          'If-Unmodified-Since'
          'Max-Forwards'
          'Origin'
          'Pragma'
          'Proxy-Authorization'
          'Range'
          'Referer'
          'TE'
          'User-Agent'
          'Upgrade'
          'Via'
          'Warning')
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'VALUE'
        Visible = True
      end>
  end
  object Panel1: TPanel
    Left = 0
    Top = 216
    Width = 466
    Height = 29
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object DBNavigator1: TDBNavigator
      AlignWithMargins = True
      Left = 3
      Top = 3
      Width = 54
      Height = 23
      Margins.Right = 0
      DataSource = DataSource
      VisibleButtons = [nbInsert, nbDelete]
      Align = alLeft
      ConfirmDelete = False
      TabOrder = 0
    end
    object BCancel: TButton
      AlignWithMargins = True
      Left = 388
      Top = 3
      Width = 75
      Height = 23
      Align = alRight
      Cancel = True
      Caption = 'Cancel'
      ModalResult = 2
      TabOrder = 1
    end
    object BOk: TButton
      AlignWithMargins = True
      Left = 307
      Top = 3
      Width = 75
      Height = 23
      Align = alRight
      Caption = 'OK'
      Default = True
      ModalResult = 1
      TabOrder = 2
    end
    object Button1: TButton
      AlignWithMargins = True
      Left = 57
      Top = 3
      Width = 40
      Height = 23
      Margins.Left = 0
      Align = alLeft
      Caption = 'Clear'
      TabOrder = 3
      TabStop = False
      OnClick = Button1Click
    end
  end
  object ClientDataSet: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 280
    Top = 48
    Data = {
      4D0000009619E0BD0100000018000000020000000000030000004D00044E414D
      4501004900000001000557494454480200020032000556414C55450200490000
      00010005574944544802000200A00F0000}
    object ClientDataSetNAME: TStringField
      DisplayLabel = 'Header Name'
      DisplayWidth = 20
      FieldName = 'NAME'
      Size = 50
    end
    object ClientDataSetVALUE: TStringField
      DisplayLabel = 'Header Value'
      DisplayWidth = 50
      FieldName = 'VALUE'
      Size = 4000
    end
  end
  object DataSource: TDataSource
    DataSet = ClientDataSet
    Left = 144
    Top = 48
  end
end