usel.lfm

object fvelg: Tfvelg
  Left = 1423
  Height = 543
  Top = 184
  Width = 687
  Caption = 'rsVelg'
  ClientHeight = 543
  ClientWidth = 687
  OnActivate = FormActivate
  OnClose = FormClose
  object dbg1: TDBGrid
    Left = 16
    Height = 438
    Top = 8
    Width = 655
    Anchors = [akTop, akLeft, akRight, akBottom]
    AutoAdvance = aaNone
    Color = clWindow
    Columns = <>
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    PopupMenu = PopupMenu1
    TabOrder = 1
    OnDblClick = dbg1DblClick
    OnKeyDown = dbg1KeyDown
    OnTitleClick = dbg1TitleClick
  end
  object Edit1: TEdit
    AnchorSideLeft.Control = Label2
    AnchorSideLeft.Side = asrBottom
    Left = 78
    Height = 24
    Top = 451
    Width = 585
    Anchors = [akLeft, akRight, akBottom]
    OnChange = Edit1Change
    TabOrder = 0
  end
  object Label1: TLabel
    Left = 16
    Height = 16
    Top = 459
    Width = 41
    Anchors = [akLeft, akBottom]
    Caption = 'Label1'
  end
  object Label2: TLabel
    AnchorSideLeft.Control = Label1
    AnchorSideLeft.Side = asrBottom
    Left = 57
    Height = 16
    Top = 502
    Width = 21
    Anchors = [akLeft, akBottom]
    Caption = '  :    '
  end
  object Panel1: TPanel
    Left = 0
    Height = 50
    Top = 493
    Width = 687
    Align = alBottom
    ClientHeight = 50
    ClientWidth = 687
    TabOrder = 2
    object Button1: TButton
      Left = 599
      Height = 25
      Top = 16
      Width = 75
      Anchors = [akTop, akRight]
      Caption = 'rsVelg'
      TabOrder = 0
    end
    object Button2: TButton
      Left = 511
      Height = 25
      Top = 16
      Width = 75
      Anchors = [akTop, akRight]
      Caption = 'rsFortryd'
      Default = True
      TabOrder = 1
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 480
    Top = 112
    object MenuItem1: TMenuItem
      Action = ASelectFields
    end
    object MenuItem2: TMenuItem
      Action = APrint
    end
    object MenuItem3: TMenuItem
      Caption = 'AExport'
    end
  end
  object ActionList1: TActionList
    Left = 592
    Top = 56
    object ASelectFields: TAction
      Caption = 'Vælg felter'
      OnExecute = ASelectFieldsExecute
    end
    object APrint: TAction
      Caption = 'Print'
      OnExecute = APrintExecute
    end
  end
  object PG1: TFrPrintGrid
    DBGrid = dbg1
    Caption = 'Grid'
    PrinterIndex = -1
    ShowCaption = True
    Left = 488
    Top = 24
  end
end