object frmGetBlockSize: TfrmGetBlockSize Left = 200 Top = 108 Hint = 'Block Dimensions' HorzScrollBar.Visible = False VertScrollBar.Visible = False BorderIcons = [biSystemMenu] AutoScroll = False Caption = 'Block Dimensions' ClientHeight = 130 ClientWidth = 242 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter Scaled = False PixelsPerInch = 96 TextHeight = 13 object Bevel1: TBevel Left = 8 Top = 8 Width = 137 Height = 113 Shape = bsFrame end object lbl_edtStartCol: TEnhLabel Left = 16 Top = 17 Width = 77 Height = 13 Caption = 'Starting &Column:' FocusControl = edtStartCol end object lbl_edtLength: TEnhLabel Left = 16 Top = 73 Width = 61 Height = 13 Caption = 'Block &Width:' FocusControl = edtLength end object edtStartCol: TLblEdit Left = 16 Top = 32 Width = 121 Height = 21 Hint = 'Column from which cutting starts in selected lines' MaxLength = 5 TabOrder = 0 Text = '1' OnKeyPress = CheckKeyPress Alignment = taRightJustify OverwriteMode = False UndoWhenEsc = False WordWrap = False OnEdited = CheckInput LabelPos = lpTop LabelMargin = 2 LabelComponent = lbl_edtStartCol LabelRelLeft = 0 LabelRelTop = -15 end object edtLength: TLblEdit Left = 16 Top = 88 Width = 121 Height = 21 Hint = 'Amount to cut from selected lines' MaxLength = 5 TabOrder = 1 Text = '0' OnKeyPress = CheckKeyPress Alignment = taRightJustify OverwriteMode = False UndoWhenEsc = False WordWrap = False OnEdited = CheckInput LabelPos = lpTop LabelMargin = 2 LabelComponent = lbl_edtLength LabelRelLeft = 0 LabelRelTop = -15 end object btnCancel: TButton Left = 152 Top = 64 Width = 83 Height = 25 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 2 end object btnOk: TButton Left = 152 Top = 96 Width = 83 Height = 25 Caption = 'Ok' Default = True ModalResult = 1 TabOrder = 3 end end