object TypeForm: TTypeForm Left = 505 Height = 118 Top = 600 Width = 764 AutoSize = True BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Type' ClientHeight = 118 ClientWidth = 764 OnShow = FormShow Position = poScreenCenter LCLVersion = '1.6.0.4' object Panel1: TPanel AnchorSideLeft.Control = Owner AnchorSideTop.Control = Owner Left = 0 Height = 71 Top = 0 Width = 220 AutoSize = True BorderSpacing.Bottom = 4 BevelOuter = bvNone ClientHeight = 71 ClientWidth = 220 TabOrder = 0 object Label1: TLabel AnchorSideLeft.Control = Panel1 AnchorSideTop.Control = Panel1 AnchorSideRight.Control = Panel1 AnchorSideRight.Side = asrBottom Left = 10 Height = 15 Top = 0 Width = 200 Anchors = [akTop, akLeft, akRight] BorderSpacing.Left = 10 BorderSpacing.Right = 10 Caption = 'Select the new type:' ParentColor = False end object VarType: TComboBox AnchorSideLeft.Control = Panel1 AnchorSideTop.Control = Label1 AnchorSideTop.Side = asrBottom AnchorSideRight.Control = Panel1 AnchorSideRight.Side = asrBottom Left = 10 Height = 23 Top = 15 Width = 200 Anchors = [akTop, akLeft, akRight] BorderSpacing.Left = 10 BorderSpacing.Right = 10 Constraints.MinWidth = 200 DropDownCount = 9 ItemHeight = 15 Items.Strings = ( 'Binary' 'Byte' '2 Bytes' '4 Bytes' '8 Bytes' 'Float' 'Double' 'Text' 'Array of Bytes' ) OnChange = VarTypeChange Style = csDropDownList TabOrder = 0 end object Button1: TButton AnchorSideTop.Control = VarType AnchorSideTop.Side = asrBottom AnchorSideRight.Control = Panel2 Left = 17 Height = 25 Top = 46 Width = 90 Anchors = [akTop, akRight] AutoSize = True BorderSpacing.Top = 8 Caption = 'OK' Constraints.MinWidth = 90 Default = True OnClick = Button1Click TabOrder = 1 end object Button2: TButton AnchorSideLeft.Control = Panel2 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Button1 Left = 114 Height = 25 Top = 46 Width = 90 AutoSize = True Cancel = True Caption = 'Cancel' Constraints.MinWidth = 90 OnClick = Button2Click TabOrder = 2 end object Panel2: TPanel AnchorSideLeft.Control = Panel1 AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = VarType AnchorSideTop.Side = asrBottom Left = 107 Height = 20 Top = 38 Width = 7 BevelOuter = bvNone TabOrder = 3 end end object Panel3: TPanel AnchorSideLeft.Control = Panel1 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Panel1 Left = 220 Height = 76 Top = 0 Width = 241 AutoSize = True BorderSpacing.Right = 1 BevelOuter = bvNone ClientHeight = 76 ClientWidth = 241 TabOrder = 1 object lengthlabel: TLabel AnchorSideLeft.Control = Panel3 AnchorSideTop.Control = Panel3 Left = 0 Height = 15 Top = 0 Width = 37 Caption = 'Length' ParentColor = False end object LengthPanel: TPanel AnchorSideLeft.Control = Panel3 AnchorSideTop.Control = lengthlabel AnchorSideTop.Side = asrBottom Left = 0 Height = 23 Top = 15 Width = 189 AutoSize = True BevelOuter = bvNone ClientHeight = 23 ClientWidth = 189 TabOrder = 0 object Edit1: TEdit AnchorSideLeft.Control = LengthPanel AnchorSideTop.Control = LengthPanel Left = 0 Height = 23 Top = 0 Width = 45 TabOrder = 0 Text = '10' end object cbunicode: TCheckBox AnchorSideLeft.Control = Edit1 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Edit1 AnchorSideTop.Side = asrCenter Left = 47 Height = 19 Top = 2 Width = 64 BorderSpacing.Left = 2 Caption = 'Unicode' OnChange = cbunicodeChange TabOrder = 1 end object cbCodePage: TCheckBox AnchorSideLeft.Control = cbunicode AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = cbunicode Left = 115 Height = 19 Top = 2 Width = 74 BorderSpacing.Left = 4 Caption = 'Codepage' OnChange = cbCodePageChange TabOrder = 2 end end object BitPanel: TPanel AnchorSideLeft.Control = Panel3 AnchorSideTop.Control = LengthPanel AnchorSideTop.Side = asrBottom Left = 0 Height = 38 Top = 38 Width = 241 AutoSize = True BevelOuter = bvNone ClientHeight = 38 ClientWidth = 241 TabOrder = 1 object Label4: TLabel AnchorSideLeft.Control = RadioButton1 AnchorSideTop.Control = BitPanel Left = 3 Height = 15 Top = 0 Width = 6 BorderSpacing.Left = 3 Caption = '0' ParentColor = False end object Label5: TLabel AnchorSideLeft.Control = RadioButton2 AnchorSideTop.Control = BitPanel Left = 23 Height = 15 Top = 0 Width = 6 BorderSpacing.Left = 3 Caption = '1' ParentColor = False end object Label6: TLabel AnchorSideLeft.Control = RadioButton3 AnchorSideTop.Control = BitPanel Left = 43 Height = 15 Top = 0 Width = 6 BorderSpacing.Left = 3 Caption = '2' ParentColor = False end object Label7: TLabel AnchorSideLeft.Control = RadioButton4 AnchorSideTop.Control = BitPanel Left = 63 Height = 15 Top = 0 Width = 6 BorderSpacing.Left = 3 Caption = '3' ParentColor = False end object Label8: TLabel AnchorSideLeft.Control = RadioButton5 AnchorSideTop.Control = BitPanel Left = 83 Height = 15 Top = 0 Width = 6 BorderSpacing.Left = 3 Caption = '4' ParentColor = False end object Label9: TLabel AnchorSideLeft.Control = RadioButton6 AnchorSideTop.Control = BitPanel Left = 103 Height = 15 Top = 0 Width = 6 BorderSpacing.Left = 3 Caption = '5' ParentColor = False end object Label10: TLabel AnchorSideLeft.Control = RadioButton7 AnchorSideTop.Control = BitPanel Left = 123 Height = 15 Top = 0 Width = 6 BorderSpacing.Left = 3 Caption = '6' ParentColor = False end object Label11: TLabel AnchorSideLeft.Control = RadioButton8 AnchorSideTop.Control = BitPanel Left = 143 Height = 15 Top = 0 Width = 6 BorderSpacing.Left = 3 Caption = '7' ParentColor = False end object Label2: TLabel AnchorSideLeft.Control = RadioButton8 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Edit2 AnchorSideTop.Side = asrCenter Left = 160 Height = 15 Top = 19 Width = 37 Caption = 'Length' ParentColor = False Visible = False end object RadioButton1: TRadioButton AnchorSideLeft.Control = BitPanel AnchorSideTop.Control = Label4 AnchorSideTop.Side = asrBottom Left = 0 Height = 19 Top = 15 Width = 20 Checked = True TabOrder = 0 TabStop = True end object RadioButton2: TRadioButton AnchorSideLeft.Control = RadioButton1 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Label4 AnchorSideTop.Side = asrBottom Left = 20 Height = 19 Top = 15 Width = 20 TabOrder = 1 end object RadioButton3: TRadioButton AnchorSideLeft.Control = RadioButton2 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Label4 AnchorSideTop.Side = asrBottom Left = 40 Height = 19 Top = 15 Width = 20 TabOrder = 2 end object RadioButton4: TRadioButton AnchorSideLeft.Control = RadioButton3 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Label4 AnchorSideTop.Side = asrBottom Left = 60 Height = 19 Top = 15 Width = 20 TabOrder = 3 end object RadioButton5: TRadioButton AnchorSideLeft.Control = RadioButton4 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Label4 AnchorSideTop.Side = asrBottom Left = 80 Height = 19 Top = 15 Width = 20 TabOrder = 4 end object RadioButton6: TRadioButton AnchorSideLeft.Control = RadioButton5 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Label4 AnchorSideTop.Side = asrBottom Left = 100 Height = 19 Top = 15 Width = 20 TabOrder = 5 end object RadioButton7: TRadioButton AnchorSideLeft.Control = RadioButton6 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Label4 AnchorSideTop.Side = asrBottom Left = 120 Height = 19 Top = 15 Width = 20 TabOrder = 6 end object RadioButton8: TRadioButton AnchorSideLeft.Control = RadioButton7 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Label4 AnchorSideTop.Side = asrBottom Left = 140 Height = 19 Top = 15 Width = 20 TabOrder = 7 end object Edit2: TEdit AnchorSideLeft.Control = Label2 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = RadioButton1 Left = 197 Height = 23 Top = 15 Width = 40 BorderSpacing.Right = 4 TabOrder = 8 Text = '1' Visible = False end end end end