object frmSrwLabel: TfrmSrwLabel Left = 310 Top = 15 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Choose Label Format' ClientHeight = 258 ClientWidth = 313 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] KeyPreview = True PixelsPerInch = 96 Position = poScreenCenter OnCreate = FormCreate OnKeyDown = FormKeyDown TextHeight = 13 object panMain: TPanel Left = 4 Top = 4 Width = 211 Height = 251 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 0 object Label4: TLabel Left = 8 Top = 10 Width = 51 Height = 13 Caption = '&Category' FocusControl = cmbLabels Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object cmbLabels: TComboBox Left = 64 Top = 8 Width = 137 Height = 21 Style = csDropDownList ItemHeight = 13 Items.Strings = ( 'Avery Standard' 'Avery Mini' 'Avery A4' 'Avery A4 Mini' 'Avery Continuous') TabOrder = 0 OnChange = cmbLabelsChange end object grdLabels: TDBGrid Left = 8 Top = 36 Width = 193 Height = 205 DataSource = srcLabels Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Options = [dgTabs, dgConfirmDelete, dgCancelOnExit] ParentFont = False TabOrder = 1 TitleFont.Color = clNavy TitleFont.Height = -11 TitleFont.Name = 'Arial' TitleFont.Style = [fsBold] OnDblClick = cmdOKClick end end object cmdOK: TBitBtn Left = 220 Top = 4 Width = 89 Height = 25 Caption = '&OK' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = cmdOKClick Style = bsNew end object cmdCancel: TBitBtn Left = 220 Top = 36 Width = 89 Height = 25 Caption = '&Cancel' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ModalResult = 2 ParentFont = False TabOrder = 2 Style = bsNew end object cmdHelp: TBitBtn Left = 220 Top = 68 Width = 89 Height = 25 Caption = '&Help' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = cmdHelpClick Style = bsNew end object qryLabels: TQuery SQL.Strings = ( '') RequestLive = True Left = 232 Top = 224 object qryLabelsVendor: TStringField FieldName = 'Vendor' Visible = False Size = 10 end object qryLabelsPaper: TStringField FieldName = 'Paper' Visible = False Size = 3 end object qryLabelsDesc: TStringField FieldName = 'Desc' Size = 35 end object qryLabelsTop: TFloatField FieldName = 'Top' Visible = False end object qryLabelsLeft: TFloatField FieldName = 'Left' Visible = False end object qryLabelsHeight: TFloatField FieldName = 'Height' Visible = False end object qryLabelsWidth: TFloatField FieldName = 'Width' Visible = False end object qryLabelsVertGap: TFloatField FieldName = 'VertGap' Visible = False end object qryLabelsHorzGap: TFloatField FieldName = 'HorzGap' Visible = False end object qryLabelsAcross: TSmallintField FieldName = 'Across' Visible = False end object qryLabelsDown: TSmallintField FieldName = 'Down' Visible = False end end object srcLabels: TDataSource DataSet = qryLabels Left = 264 Top = 224 end end