object frmCategory: TfrmCategory Left = 136 Top = 58 Width = 273 Height = 391 ActiveControl = Panel1 BorderIcons = [biSystemMenu, biMaximize] Caption = 'Categories' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Position = poScreenCenter PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 0 Width = 265 Height = 41 Align = alTop TabOrder = 0 object Button1: TButton Left = 14 Top = 8 Width = 75 Height = 25 Caption = 'Add' TabOrder = 0 OnClick = Button1Click end object Button2: TButton Left = 100 Top = 8 Width = 75 Height = 25 Caption = 'Delete' TabOrder = 1 OnClick = Button2Click end end object Panel2: TPanel Left = 0 Top = 41 Width = 265 Height = 323 Align = alClient BevelInner = bvLowered BorderWidth = 4 Caption = 'Panel2' TabOrder = 1 object Panel3: TPanel Left = 6 Top = 276 Width = 253 Height = 41 Align = alBottom TabOrder = 0 object BitBtn1: TBitBtn Left = 72 Top = 8 Width = 75 Height = 25 TabOrder = 0 OnClick = BitBtn1Click Kind = bkOK end object BitBtn2: TBitBtn Left = 156 Top = 8 Width = 75 Height = 25 TabOrder = 1 Kind = bkCancel end end object grdMain: TDBGrid Left = 6 Top = 6 Width = 253 Height = 270 Align = alClient Columns = < item FieldName = 'Desc' end> DataSource = frmDataModule.dsCategory Options = [dgEditing, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit] TabOrder = 1 TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] end end end