object MainForm: TMainForm Left = 263 Height = 405 Top = 119 Width = 644 Caption = 'VarBlockSerializer demo' ClientHeight = 405 ClientWidth = 644 OnShow = FormShow LCLVersion = '0.9.31' object PageControl1: TPageControl Left = 8 Height = 392 Top = 8 Width = 632 ActivePage = TabSheet1 Anchors = [akTop, akLeft, akRight, akBottom] TabIndex = 0 TabOrder = 0 object TabSheet1: TTabSheet Caption = 'Simple types' ClientHeight = 366 ClientWidth = 624 object GroupBox1: TGroupBox Left = 8 Height = 64 Top = 8 Width = 608 Caption = 'Unsigned integer (UInt)' ClientHeight = 46 ClientWidth = 604 TabOrder = 0 object SpinEditUInt: TSpinEdit Left = 6 Height = 21 Top = 8 Width = 152 MaxValue = 1000000000 TabOrder = 0 Value = 1 end object ButtonUIntEncode: TButton Left = 246 Height = 25 Top = 8 Width = 75 Caption = 'Encode >>' OnClick = ButtonUIntEncodeClick TabOrder = 1 end object EditUInt: TEdit Left = 326 Height = 21 Top = 8 Width = 269 TabOrder = 2 Text = '00' end object ButtonUIntDecode: TButton Left = 166 Height = 25 Top = 8 Width = 75 Caption = '<< Decode' OnClick = ButtonUIntDecodeClick TabOrder = 3 end end object GroupBox2: TGroupBox Left = 8 Height = 64 Top = 80 Width = 608 Caption = 'Signed integer (SInt)' ClientHeight = 46 ClientWidth = 604 TabOrder = 1 object SpinEditSInt: TSpinEdit Left = 6 Height = 21 Top = 8 Width = 152 MaxValue = 1000000000 MinValue = -1000000000 TabOrder = 0 Value = -1 end object ButtonSIntEncode: TButton Left = 246 Height = 25 Top = 8 Width = 75 Caption = 'Encode >>' OnClick = ButtonSIntEncodeClick TabOrder = 1 end object EditSInt: TEdit Left = 326 Height = 21 Top = 8 Width = 269 TabOrder = 2 Text = '00' end object ButtonSIntDecode: TButton Left = 166 Height = 25 Top = 8 Width = 75 Caption = '<< Decode' OnClick = ButtonSIntDecodeClick TabOrder = 3 end end object GroupBox3: TGroupBox Left = 8 Height = 64 Top = 152 Width = 608 Caption = 'String' ClientHeight = 46 ClientWidth = 604 TabOrder = 2 object ButtonEncodeString: TButton Left = 246 Height = 25 Top = 8 Width = 75 Caption = 'Encode >>' OnClick = ButtonEncodeStringClick TabOrder = 0 end object EditStringData: TEdit Left = 326 Height = 21 Top = 8 Width = 269 TabOrder = 1 Text = '00' end object ButtonDecodeString: TButton Left = 166 Height = 25 Top = 8 Width = 75 Caption = '<< Decode' OnClick = ButtonDecodeStringClick TabOrder = 2 end object EditString: TEdit Left = 6 Height = 21 Top = 8 Width = 152 TabOrder = 3 Text = 'Hello world' end end object GroupBox4: TGroupBox Left = 8 Height = 64 Top = 224 Width = 608 Caption = 'Raw data (Block)' ClientHeight = 46 ClientWidth = 604 TabOrder = 3 object ButtonEncodeRaw: TButton Left = 246 Height = 25 Top = 8 Width = 75 Caption = 'Encode >>' OnClick = ButtonEncodeRawClick TabOrder = 0 end object EditRawData: TEdit Left = 326 Height = 21 Top = 8 Width = 269 TabOrder = 1 Text = '00' end object ButtonDecodeRaw: TButton Left = 166 Height = 25 Top = 8 Width = 75 Caption = '<< Decode' OnClick = ButtonDecodeRawClick TabOrder = 2 end object EditRaw: TEdit Left = 6 Height = 21 Top = 8 Width = 152 TabOrder = 3 Text = '01 23 45 67 89 AB CD EF' end end object GroupBox5: TGroupBox Left = 8 Height = 64 Top = 296 Width = 608 Caption = 'Float' ClientHeight = 46 ClientWidth = 604 TabOrder = 4 object ButtonFloatEncode1: TButton Left = 246 Height = 25 Top = 8 Width = 75 Caption = 'Encode >>' OnClick = ButtonFloatEncode1Click TabOrder = 0 end object EditFloat: TEdit Left = 326 Height = 21 Top = 8 Width = 269 TabOrder = 1 Text = '00' end object ButtonFloatDecode1: TButton Left = 166 Height = 25 Top = 7 Width = 75 Caption = '<< Decode' OnClick = ButtonFloatDecode1Click TabOrder = 2 end object FloatSpinEdit1: TFloatSpinEdit Left = 6 Height = 21 Top = 7 Width = 96 DecimalPlaces = 8 Increment = 1 MaxValue = 1000000000 MinValue = -100000000 TabOrder = 3 Value = 0 end object SpinEditFloat: TSpinEdit Left = 110 Height = 21 Top = 16 Width = 50 MaxValue = 16 MinValue = 2 TabOrder = 4 Value = 2 end object Label1: TLabel Left = 111 Height = 14 Top = 0 Width = 24 Caption = 'Base' ParentColor = False end end end object TabSheet2: TTabSheet Caption = 'Indexed structure' ClientHeight = 366 ClientWidth = 624 object EditIndexedItem1: TEdit Left = 36 Height = 21 Top = 34 Width = 224 TabOrder = 0 Text = '11 22' end object Label2: TLabel Left = 10 Height = 14 Top = 38 Width = 14 Caption = '0: ' ParentColor = False end object Label3: TLabel Left = 10 Height = 14 Top = 61 Width = 11 Caption = '1:' ParentColor = False end object EditIndexedItem2: TEdit Left = 36 Height = 21 Top = 58 Width = 224 TabOrder = 1 Text = '33 44' end object EditIndexedItem3: TEdit Left = 36 Height = 21 Top = 86 Width = 224 TabOrder = 2 Text = '55 66' end object Label4: TLabel Left = 10 Height = 14 Top = 89 Width = 11 Caption = '2:' ParentColor = False end object ButtonEncodeIndexed: TButton Left = 156 Height = 25 Top = 122 Width = 75 Caption = 'Encode >>' OnClick = ButtonEncodeIndexedClick TabOrder = 3 end object ButtonDecodeIndexed: TButton Left = 68 Height = 25 Top = 122 Width = 75 Caption = '<< Decode' OnClick = ButtonDecodeIndexedClick TabOrder = 4 end object EditIndexed: TEdit Left = 10 Height = 21 Top = 154 Width = 588 TabOrder = 5 end object CheckBoxMask1: TCheckBox Left = 284 Height = 17 Top = 34 Width = 20 Checked = True State = cbChecked TabOrder = 6 end object CheckBoxMask2: TCheckBox Left = 284 Height = 17 Top = 59 Width = 20 Checked = True State = cbChecked TabOrder = 7 end object CheckBoxMask3: TCheckBox Left = 284 Height = 17 Top = 88 Width = 20 Checked = True State = cbChecked TabOrder = 8 end object Label5: TLabel Left = 268 Height = 14 Top = 18 Width = 40 Caption = 'Bit mask' ParentColor = False end object Label6: TLabel Left = 8 Height = 14 Top = 11 Width = 29 Caption = 'Index' ParentColor = False end end end end