| 1 | object MainForm: TMainForm
|
|---|
| 2 | Left = 263
|
|---|
| 3 | Height = 405
|
|---|
| 4 | Top = 119
|
|---|
| 5 | Width = 644
|
|---|
| 6 | Caption = 'VarBlockSerializer demo'
|
|---|
| 7 | ClientHeight = 405
|
|---|
| 8 | ClientWidth = 644
|
|---|
| 9 | OnShow = FormShow
|
|---|
| 10 | LCLVersion = '0.9.31'
|
|---|
| 11 | object PageControl1: TPageControl
|
|---|
| 12 | Left = 8
|
|---|
| 13 | Height = 392
|
|---|
| 14 | Top = 8
|
|---|
| 15 | Width = 632
|
|---|
| 16 | ActivePage = TabSheet1
|
|---|
| 17 | Anchors = [akTop, akLeft, akRight, akBottom]
|
|---|
| 18 | TabIndex = 0
|
|---|
| 19 | TabOrder = 0
|
|---|
| 20 | object TabSheet1: TTabSheet
|
|---|
| 21 | Caption = 'Simple types'
|
|---|
| 22 | ClientHeight = 366
|
|---|
| 23 | ClientWidth = 624
|
|---|
| 24 | object GroupBox1: TGroupBox
|
|---|
| 25 | Left = 8
|
|---|
| 26 | Height = 64
|
|---|
| 27 | Top = 8
|
|---|
| 28 | Width = 608
|
|---|
| 29 | Caption = 'Unsigned integer (UInt)'
|
|---|
| 30 | ClientHeight = 46
|
|---|
| 31 | ClientWidth = 604
|
|---|
| 32 | TabOrder = 0
|
|---|
| 33 | object SpinEditUInt: TSpinEdit
|
|---|
| 34 | Left = 6
|
|---|
| 35 | Height = 21
|
|---|
| 36 | Top = 8
|
|---|
| 37 | Width = 152
|
|---|
| 38 | MaxValue = 1000000000
|
|---|
| 39 | TabOrder = 0
|
|---|
| 40 | Value = 1
|
|---|
| 41 | end
|
|---|
| 42 | object ButtonUIntEncode: TButton
|
|---|
| 43 | Left = 246
|
|---|
| 44 | Height = 25
|
|---|
| 45 | Top = 8
|
|---|
| 46 | Width = 75
|
|---|
| 47 | Caption = 'Encode >>'
|
|---|
| 48 | OnClick = ButtonUIntEncodeClick
|
|---|
| 49 | TabOrder = 1
|
|---|
| 50 | end
|
|---|
| 51 | object EditUInt: TEdit
|
|---|
| 52 | Left = 326
|
|---|
| 53 | Height = 21
|
|---|
| 54 | Top = 8
|
|---|
| 55 | Width = 269
|
|---|
| 56 | TabOrder = 2
|
|---|
| 57 | Text = '00'
|
|---|
| 58 | end
|
|---|
| 59 | object ButtonUIntDecode: TButton
|
|---|
| 60 | Left = 166
|
|---|
| 61 | Height = 25
|
|---|
| 62 | Top = 8
|
|---|
| 63 | Width = 75
|
|---|
| 64 | Caption = '<< Decode'
|
|---|
| 65 | OnClick = ButtonUIntDecodeClick
|
|---|
| 66 | TabOrder = 3
|
|---|
| 67 | end
|
|---|
| 68 | end
|
|---|
| 69 | object GroupBox2: TGroupBox
|
|---|
| 70 | Left = 8
|
|---|
| 71 | Height = 64
|
|---|
| 72 | Top = 80
|
|---|
| 73 | Width = 608
|
|---|
| 74 | Caption = 'Signed integer (SInt)'
|
|---|
| 75 | ClientHeight = 46
|
|---|
| 76 | ClientWidth = 604
|
|---|
| 77 | TabOrder = 1
|
|---|
| 78 | object SpinEditSInt: TSpinEdit
|
|---|
| 79 | Left = 6
|
|---|
| 80 | Height = 21
|
|---|
| 81 | Top = 8
|
|---|
| 82 | Width = 152
|
|---|
| 83 | MaxValue = 1000000000
|
|---|
| 84 | MinValue = -1000000000
|
|---|
| 85 | TabOrder = 0
|
|---|
| 86 | Value = -1
|
|---|
| 87 | end
|
|---|
| 88 | object ButtonSIntEncode: TButton
|
|---|
| 89 | Left = 246
|
|---|
| 90 | Height = 25
|
|---|
| 91 | Top = 8
|
|---|
| 92 | Width = 75
|
|---|
| 93 | Caption = 'Encode >>'
|
|---|
| 94 | OnClick = ButtonSIntEncodeClick
|
|---|
| 95 | TabOrder = 1
|
|---|
| 96 | end
|
|---|
| 97 | object EditSInt: TEdit
|
|---|
| 98 | Left = 326
|
|---|
| 99 | Height = 21
|
|---|
| 100 | Top = 8
|
|---|
| 101 | Width = 269
|
|---|
| 102 | TabOrder = 2
|
|---|
| 103 | Text = '00'
|
|---|
| 104 | end
|
|---|
| 105 | object ButtonSIntDecode: TButton
|
|---|
| 106 | Left = 166
|
|---|
| 107 | Height = 25
|
|---|
| 108 | Top = 8
|
|---|
| 109 | Width = 75
|
|---|
| 110 | Caption = '<< Decode'
|
|---|
| 111 | OnClick = ButtonSIntDecodeClick
|
|---|
| 112 | TabOrder = 3
|
|---|
| 113 | end
|
|---|
| 114 | end
|
|---|
| 115 | object GroupBox3: TGroupBox
|
|---|
| 116 | Left = 8
|
|---|
| 117 | Height = 64
|
|---|
| 118 | Top = 152
|
|---|
| 119 | Width = 608
|
|---|
| 120 | Caption = 'String'
|
|---|
| 121 | ClientHeight = 46
|
|---|
| 122 | ClientWidth = 604
|
|---|
| 123 | TabOrder = 2
|
|---|
| 124 | object ButtonEncodeString: TButton
|
|---|
| 125 | Left = 246
|
|---|
| 126 | Height = 25
|
|---|
| 127 | Top = 8
|
|---|
| 128 | Width = 75
|
|---|
| 129 | Caption = 'Encode >>'
|
|---|
| 130 | OnClick = ButtonEncodeStringClick
|
|---|
| 131 | TabOrder = 0
|
|---|
| 132 | end
|
|---|
| 133 | object EditStringData: TEdit
|
|---|
| 134 | Left = 326
|
|---|
| 135 | Height = 21
|
|---|
| 136 | Top = 8
|
|---|
| 137 | Width = 269
|
|---|
| 138 | TabOrder = 1
|
|---|
| 139 | Text = '00'
|
|---|
| 140 | end
|
|---|
| 141 | object ButtonDecodeString: TButton
|
|---|
| 142 | Left = 166
|
|---|
| 143 | Height = 25
|
|---|
| 144 | Top = 8
|
|---|
| 145 | Width = 75
|
|---|
| 146 | Caption = '<< Decode'
|
|---|
| 147 | OnClick = ButtonDecodeStringClick
|
|---|
| 148 | TabOrder = 2
|
|---|
| 149 | end
|
|---|
| 150 | object EditString: TEdit
|
|---|
| 151 | Left = 6
|
|---|
| 152 | Height = 21
|
|---|
| 153 | Top = 8
|
|---|
| 154 | Width = 152
|
|---|
| 155 | TabOrder = 3
|
|---|
| 156 | Text = 'Hello world'
|
|---|
| 157 | end
|
|---|
| 158 | end
|
|---|
| 159 | object GroupBox4: TGroupBox
|
|---|
| 160 | Left = 8
|
|---|
| 161 | Height = 64
|
|---|
| 162 | Top = 224
|
|---|
| 163 | Width = 608
|
|---|
| 164 | Caption = 'Raw data (Block)'
|
|---|
| 165 | ClientHeight = 46
|
|---|
| 166 | ClientWidth = 604
|
|---|
| 167 | TabOrder = 3
|
|---|
| 168 | object ButtonEncodeRaw: TButton
|
|---|
| 169 | Left = 246
|
|---|
| 170 | Height = 25
|
|---|
| 171 | Top = 8
|
|---|
| 172 | Width = 75
|
|---|
| 173 | Caption = 'Encode >>'
|
|---|
| 174 | OnClick = ButtonEncodeRawClick
|
|---|
| 175 | TabOrder = 0
|
|---|
| 176 | end
|
|---|
| 177 | object EditRawData: TEdit
|
|---|
| 178 | Left = 326
|
|---|
| 179 | Height = 21
|
|---|
| 180 | Top = 8
|
|---|
| 181 | Width = 269
|
|---|
| 182 | TabOrder = 1
|
|---|
| 183 | Text = '00'
|
|---|
| 184 | end
|
|---|
| 185 | object ButtonDecodeRaw: TButton
|
|---|
| 186 | Left = 166
|
|---|
| 187 | Height = 25
|
|---|
| 188 | Top = 8
|
|---|
| 189 | Width = 75
|
|---|
| 190 | Caption = '<< Decode'
|
|---|
| 191 | OnClick = ButtonDecodeRawClick
|
|---|
| 192 | TabOrder = 2
|
|---|
| 193 | end
|
|---|
| 194 | object EditRaw: TEdit
|
|---|
| 195 | Left = 6
|
|---|
| 196 | Height = 21
|
|---|
| 197 | Top = 8
|
|---|
| 198 | Width = 152
|
|---|
| 199 | TabOrder = 3
|
|---|
| 200 | Text = '01 23 45 67 89 AB CD EF'
|
|---|
| 201 | end
|
|---|
| 202 | end
|
|---|
| 203 | object GroupBox5: TGroupBox
|
|---|
| 204 | Left = 8
|
|---|
| 205 | Height = 64
|
|---|
| 206 | Top = 296
|
|---|
| 207 | Width = 608
|
|---|
| 208 | Caption = 'Float'
|
|---|
| 209 | ClientHeight = 46
|
|---|
| 210 | ClientWidth = 604
|
|---|
| 211 | TabOrder = 4
|
|---|
| 212 | object ButtonFloatEncode1: TButton
|
|---|
| 213 | Left = 246
|
|---|
| 214 | Height = 25
|
|---|
| 215 | Top = 8
|
|---|
| 216 | Width = 75
|
|---|
| 217 | Caption = 'Encode >>'
|
|---|
| 218 | OnClick = ButtonFloatEncode1Click
|
|---|
| 219 | TabOrder = 0
|
|---|
| 220 | end
|
|---|
| 221 | object EditFloat: TEdit
|
|---|
| 222 | Left = 326
|
|---|
| 223 | Height = 21
|
|---|
| 224 | Top = 8
|
|---|
| 225 | Width = 269
|
|---|
| 226 | TabOrder = 1
|
|---|
| 227 | Text = '00'
|
|---|
| 228 | end
|
|---|
| 229 | object ButtonFloatDecode1: TButton
|
|---|
| 230 | Left = 166
|
|---|
| 231 | Height = 25
|
|---|
| 232 | Top = 7
|
|---|
| 233 | Width = 75
|
|---|
| 234 | Caption = '<< Decode'
|
|---|
| 235 | OnClick = ButtonFloatDecode1Click
|
|---|
| 236 | TabOrder = 2
|
|---|
| 237 | end
|
|---|
| 238 | object FloatSpinEdit1: TFloatSpinEdit
|
|---|
| 239 | Left = 6
|
|---|
| 240 | Height = 21
|
|---|
| 241 | Top = 7
|
|---|
| 242 | Width = 96
|
|---|
| 243 | DecimalPlaces = 8
|
|---|
| 244 | Increment = 1
|
|---|
| 245 | MaxValue = 1000000000
|
|---|
| 246 | MinValue = -100000000
|
|---|
| 247 | TabOrder = 3
|
|---|
| 248 | Value = 0
|
|---|
| 249 | end
|
|---|
| 250 | object SpinEditFloat: TSpinEdit
|
|---|
| 251 | Left = 110
|
|---|
| 252 | Height = 21
|
|---|
| 253 | Top = 16
|
|---|
| 254 | Width = 50
|
|---|
| 255 | MaxValue = 16
|
|---|
| 256 | MinValue = 2
|
|---|
| 257 | TabOrder = 4
|
|---|
| 258 | Value = 2
|
|---|
| 259 | end
|
|---|
| 260 | object Label1: TLabel
|
|---|
| 261 | Left = 111
|
|---|
| 262 | Height = 14
|
|---|
| 263 | Top = 0
|
|---|
| 264 | Width = 24
|
|---|
| 265 | Caption = 'Base'
|
|---|
| 266 | ParentColor = False
|
|---|
| 267 | end
|
|---|
| 268 | end
|
|---|
| 269 | end
|
|---|
| 270 | object TabSheet2: TTabSheet
|
|---|
| 271 | Caption = 'Indexed structure'
|
|---|
| 272 | ClientHeight = 366
|
|---|
| 273 | ClientWidth = 624
|
|---|
| 274 | object EditIndexedItem1: TEdit
|
|---|
| 275 | Left = 36
|
|---|
| 276 | Height = 21
|
|---|
| 277 | Top = 34
|
|---|
| 278 | Width = 224
|
|---|
| 279 | TabOrder = 0
|
|---|
| 280 | Text = '11 22'
|
|---|
| 281 | end
|
|---|
| 282 | object Label2: TLabel
|
|---|
| 283 | Left = 10
|
|---|
| 284 | Height = 14
|
|---|
| 285 | Top = 38
|
|---|
| 286 | Width = 14
|
|---|
| 287 | Caption = '0: '
|
|---|
| 288 | ParentColor = False
|
|---|
| 289 | end
|
|---|
| 290 | object Label3: TLabel
|
|---|
| 291 | Left = 10
|
|---|
| 292 | Height = 14
|
|---|
| 293 | Top = 61
|
|---|
| 294 | Width = 11
|
|---|
| 295 | Caption = '1:'
|
|---|
| 296 | ParentColor = False
|
|---|
| 297 | end
|
|---|
| 298 | object EditIndexedItem2: TEdit
|
|---|
| 299 | Left = 36
|
|---|
| 300 | Height = 21
|
|---|
| 301 | Top = 58
|
|---|
| 302 | Width = 224
|
|---|
| 303 | TabOrder = 1
|
|---|
| 304 | Text = '33 44'
|
|---|
| 305 | end
|
|---|
| 306 | object EditIndexedItem3: TEdit
|
|---|
| 307 | Left = 36
|
|---|
| 308 | Height = 21
|
|---|
| 309 | Top = 86
|
|---|
| 310 | Width = 224
|
|---|
| 311 | TabOrder = 2
|
|---|
| 312 | Text = '55 66'
|
|---|
| 313 | end
|
|---|
| 314 | object Label4: TLabel
|
|---|
| 315 | Left = 10
|
|---|
| 316 | Height = 14
|
|---|
| 317 | Top = 89
|
|---|
| 318 | Width = 11
|
|---|
| 319 | Caption = '2:'
|
|---|
| 320 | ParentColor = False
|
|---|
| 321 | end
|
|---|
| 322 | object ButtonEncodeIndexed: TButton
|
|---|
| 323 | Left = 156
|
|---|
| 324 | Height = 25
|
|---|
| 325 | Top = 122
|
|---|
| 326 | Width = 75
|
|---|
| 327 | Caption = 'Encode >>'
|
|---|
| 328 | OnClick = ButtonEncodeIndexedClick
|
|---|
| 329 | TabOrder = 3
|
|---|
| 330 | end
|
|---|
| 331 | object ButtonDecodeIndexed: TButton
|
|---|
| 332 | Left = 68
|
|---|
| 333 | Height = 25
|
|---|
| 334 | Top = 122
|
|---|
| 335 | Width = 75
|
|---|
| 336 | Caption = '<< Decode'
|
|---|
| 337 | OnClick = ButtonDecodeIndexedClick
|
|---|
| 338 | TabOrder = 4
|
|---|
| 339 | end
|
|---|
| 340 | object EditIndexed: TEdit
|
|---|
| 341 | Left = 10
|
|---|
| 342 | Height = 21
|
|---|
| 343 | Top = 154
|
|---|
| 344 | Width = 588
|
|---|
| 345 | TabOrder = 5
|
|---|
| 346 | end
|
|---|
| 347 | object CheckBoxMask1: TCheckBox
|
|---|
| 348 | Left = 284
|
|---|
| 349 | Height = 17
|
|---|
| 350 | Top = 34
|
|---|
| 351 | Width = 20
|
|---|
| 352 | Checked = True
|
|---|
| 353 | State = cbChecked
|
|---|
| 354 | TabOrder = 6
|
|---|
| 355 | end
|
|---|
| 356 | object CheckBoxMask2: TCheckBox
|
|---|
| 357 | Left = 284
|
|---|
| 358 | Height = 17
|
|---|
| 359 | Top = 59
|
|---|
| 360 | Width = 20
|
|---|
| 361 | Checked = True
|
|---|
| 362 | State = cbChecked
|
|---|
| 363 | TabOrder = 7
|
|---|
| 364 | end
|
|---|
| 365 | object CheckBoxMask3: TCheckBox
|
|---|
| 366 | Left = 284
|
|---|
| 367 | Height = 17
|
|---|
| 368 | Top = 88
|
|---|
| 369 | Width = 20
|
|---|
| 370 | Checked = True
|
|---|
| 371 | State = cbChecked
|
|---|
| 372 | TabOrder = 8
|
|---|
| 373 | end
|
|---|
| 374 | object Label5: TLabel
|
|---|
| 375 | Left = 268
|
|---|
| 376 | Height = 14
|
|---|
| 377 | Top = 18
|
|---|
| 378 | Width = 40
|
|---|
| 379 | Caption = 'Bit mask'
|
|---|
| 380 | ParentColor = False
|
|---|
| 381 | end
|
|---|
| 382 | object Label6: TLabel
|
|---|
| 383 | Left = 8
|
|---|
| 384 | Height = 14
|
|---|
| 385 | Top = 11
|
|---|
| 386 | Width = 29
|
|---|
| 387 | Caption = 'Index'
|
|---|
| 388 | ParentColor = False
|
|---|
| 389 | end
|
|---|
| 390 | end
|
|---|
| 391 | end
|
|---|
| 392 | end
|
|---|