object MainForm: TMainForm Left = 263 Height = 608 Top = 119 Width = 966 Caption = 'VarBlockSerializer demo' ClientHeight = 608 ClientWidth = 966 DesignTimePPI = 144 OnShow = FormShow LCLVersion = '3.4.0.0' object PageControl1: TPageControl Left = 12 Height = 588 Top = 12 Width = 948 ActivePage = TabSheet1 Anchors = [akTop, akLeft, akRight, akBottom] TabIndex = 0 TabOrder = 0 object TabSheet1: TTabSheet Caption = 'Simple types' ClientHeight = 548 ClientWidth = 938 object GroupBox1: TGroupBox Left = 12 Height = 96 Top = 12 Width = 912 Caption = 'Unsigned integer (UInt)' ClientHeight = 69 ClientWidth = 910 TabOrder = 0 object SpinEditUInt: TSpinEdit Left = 9 Height = 43 Top = 12 Width = 228 MaxValue = 1000000000 TabOrder = 0 Value = 1 end object ButtonUIntEncode: TButton Left = 369 Height = 38 Top = 12 Width = 112 Caption = 'Encode >>' TabOrder = 1 OnClick = ButtonUIntEncodeClick end object EditUInt: TEdit Left = 489 Height = 43 Top = 12 Width = 404 TabOrder = 2 Text = '00' end object ButtonUIntDecode: TButton Left = 249 Height = 38 Top = 12 Width = 112 Caption = '<< Decode' TabOrder = 3 OnClick = ButtonUIntDecodeClick end end object GroupBox2: TGroupBox Left = 12 Height = 96 Top = 120 Width = 912 Caption = 'Signed integer (SInt)' ClientHeight = 69 ClientWidth = 910 TabOrder = 1 object SpinEditSInt: TSpinEdit Left = 9 Height = 43 Top = 12 Width = 228 MaxValue = 1000000000 MinValue = -1000000000 TabOrder = 0 Value = -1 end object ButtonSIntEncode: TButton Left = 369 Height = 38 Top = 12 Width = 112 Caption = 'Encode >>' TabOrder = 1 OnClick = ButtonSIntEncodeClick end object EditSInt: TEdit Left = 489 Height = 43 Top = 12 Width = 404 TabOrder = 2 Text = '00' end object ButtonSIntDecode: TButton Left = 249 Height = 38 Top = 12 Width = 112 Caption = '<< Decode' TabOrder = 3 OnClick = ButtonSIntDecodeClick end end object GroupBox3: TGroupBox Left = 12 Height = 96 Top = 228 Width = 912 Caption = 'String' ClientHeight = 69 ClientWidth = 910 TabOrder = 2 object ButtonEncodeString: TButton Left = 369 Height = 38 Top = 12 Width = 112 Caption = 'Encode >>' TabOrder = 0 OnClick = ButtonEncodeStringClick end object EditStringData: TEdit Left = 489 Height = 43 Top = 12 Width = 404 TabOrder = 1 Text = '00' end object ButtonDecodeString: TButton Left = 249 Height = 38 Top = 12 Width = 112 Caption = '<< Decode' TabOrder = 2 OnClick = ButtonDecodeStringClick end object EditString: TEdit Left = 9 Height = 43 Top = 12 Width = 228 TabOrder = 3 Text = 'Hello world' end end object GroupBox4: TGroupBox Left = 12 Height = 96 Top = 336 Width = 912 Caption = 'Raw data (Block)' ClientHeight = 69 ClientWidth = 910 TabOrder = 3 object ButtonEncodeRaw: TButton Left = 369 Height = 38 Top = 12 Width = 112 Caption = 'Encode >>' TabOrder = 0 OnClick = ButtonEncodeRawClick end object EditRawData: TEdit Left = 489 Height = 43 Top = 12 Width = 404 TabOrder = 1 Text = '00' end object ButtonDecodeRaw: TButton Left = 249 Height = 38 Top = 12 Width = 112 Caption = '<< Decode' TabOrder = 2 OnClick = ButtonDecodeRawClick end object EditRaw: TEdit Left = 9 Height = 43 Top = 12 Width = 228 TabOrder = 3 Text = '01 23 45 67 89 AB CD EF' end end object GroupBox5: TGroupBox Left = 12 Height = 96 Top = 444 Width = 912 Caption = 'Float' ClientHeight = 69 ClientWidth = 910 TabOrder = 4 object ButtonFloatEncode1: TButton Left = 369 Height = 38 Top = 12 Width = 112 Caption = 'Encode >>' TabOrder = 0 OnClick = ButtonFloatEncode1Click end object EditFloat: TEdit Left = 489 Height = 43 Top = 12 Width = 404 TabOrder = 1 Text = '00' end object ButtonFloatDecode1: TButton Left = 249 Height = 38 Top = 10 Width = 112 Caption = '<< Decode' TabOrder = 2 OnClick = ButtonFloatDecode1Click end object FloatSpinEdit1: TFloatSpinEdit Left = 9 Height = 43 Top = 10 Width = 144 DecimalPlaces = 8 MaxValue = 1000000000 MinValue = -100000000 TabOrder = 3 end object SpinEditFloat: TSpinEdit Left = 165 Height = 43 Top = 24 Width = 75 MaxValue = 16 MinValue = 2 TabOrder = 4 Value = 2 end object Label1: TLabel Left = 166 Height = 26 Top = 0 Width = 41 Caption = 'Base' ParentColor = False end end end object TabSheet2: TTabSheet Caption = 'Indexed structure' ClientHeight = 548 ClientWidth = 938 object EditIndexedItem1: TEdit Left = 54 Height = 43 Top = 51 Width = 336 TabOrder = 0 Text = '11 22' end object Label2: TLabel Left = 15 Height = 26 Top = 57 Width = 20 Caption = '0: ' ParentColor = False end object Label3: TLabel Left = 15 Height = 26 Top = 92 Width = 15 Caption = '1:' ParentColor = False end object EditIndexedItem2: TEdit Left = 54 Height = 43 Top = 87 Width = 336 TabOrder = 1 Text = '33 44' end object EditIndexedItem3: TEdit Left = 54 Height = 43 Top = 129 Width = 336 TabOrder = 2 Text = '55 66' end object Label4: TLabel Left = 15 Height = 26 Top = 134 Width = 15 Caption = '2:' ParentColor = False end object ButtonEncodeIndexed: TButton Left = 234 Height = 38 Top = 183 Width = 112 Caption = 'Encode >>' TabOrder = 3 OnClick = ButtonEncodeIndexedClick end object ButtonDecodeIndexed: TButton Left = 102 Height = 38 Top = 183 Width = 112 Caption = '<< Decode' TabOrder = 4 OnClick = ButtonDecodeIndexedClick end object EditIndexed: TEdit Left = 15 Height = 43 Top = 231 Width = 882 TabOrder = 5 end object CheckBoxMask1: TCheckBox Left = 426 Height = 23 Top = 51 Width = 23 Checked = True State = cbChecked TabOrder = 6 end object CheckBoxMask2: TCheckBox Left = 426 Height = 23 Top = 88 Width = 23 Checked = True State = cbChecked TabOrder = 7 end object CheckBoxMask3: TCheckBox Left = 426 Height = 23 Top = 132 Width = 23 Checked = True State = cbChecked TabOrder = 8 end object Label5: TLabel Left = 402 Height = 26 Top = 27 Width = 74 Caption = 'Bit mask' ParentColor = False end object Label6: TLabel Left = 12 Height = 26 Top = 16 Width = 48 Caption = 'Index' ParentColor = False end end end end