bookSearchForm.lfm

object bookSearchFrm: TbookSearchFrm
  Left = 401
  Height = 672
  Top = 116
  Width = 925
  ActiveControl = optionPanel
  Caption = 'Suche in den Katalogen'
  ClientHeight = 672
  ClientWidth = 925
  DesignTimePPI = 98
  KeyPreview = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  OnDestroy = FormDestroy
  OnKeyUp = FormKeyUp
  Position = poScreenCenter
  LCLVersion = '2.3.0.0'
  Scaled = False
  object optionPanel: TPanel
    Left = 0
    Height = 649
    Top = 0
    Width = 243
    Align = alLeft
    ClientHeight = 649
    ClientWidth = 243
    TabOrder = 0
    OnClick = optionPanelClick
    object Label1: TLabel
      Left = 7
      Height = 19
      Top = 7
      Width = 229
      Align = alTop
      BorderSpacing.Around = 6
      Caption = 'Suche in:'
      Color = clDefault
      ParentColor = False
    end
    object searchSelectionList: TCheckListBox
      Left = 7
      Height = 77
      Top = 111
      Width = 229
      Align = alTop
      BorderSpacing.Around = 6
      ItemHeight = 0
      OnClickCheck = searchSelectionListClickCheck
      TabOrder = 0
      TopIndex = -1
    end
    object startSearch: TButton
      AnchorSideTop.Control = SearchParamsBox
      AnchorSideTop.Side = asrBottom
      Left = 7
      Height = 29
      Top = 557
      Width = 229
      Align = alBottom
      AutoSize = True
      BorderSpacing.Around = 6
      Caption = '&Suche starten'
      Default = True
      Font.Style = [fsBold]
      OnClick = startSearchClick
      ParentFont = False
      TabOrder = 1
    end
    object searchLocation: TComboBox
      Left = 7
      Height = 31
      Top = 70
      Width = 229
      Align = alTop
      BorderSpacing.Top = 1
      BorderSpacing.Bottom = 4
      BorderSpacing.Around = 6
      ItemHeight = 0
      OnSelect = searchLocationSelect
      Style = csDropDownList
      TabOrder = 2
    end
    object displayInternalProperties: TCheckBox
      Left = 6
      Height = 23
      Top = 620
      Width = 231
      Align = alBottom
      Anchors = [akLeft, akBottom]
      BorderSpacing.Around = 5
      Caption = 'alle Eigenschaften auflisten'
      OnChange = displayInternalPropertiesChange
      TabOrder = 3
    end
    object displayImage: TCheckBox
      Left = 5
      Height = 23
      Top = 592
      Width = 233
      Align = alBottom
      Anchors = [akLeft, akBottom]
      BorderSpacing.Around = 4
      Caption = 'Bild anzeigen'
      Checked = True
      OnChange = displayImageChange
      State = cbChecked
      TabOrder = 4
    end
    object SearchParamsBox: TScrollBox
      Left = 1
      Height = 352
      Top = 199
      Width = 241
      HorzScrollBar.Page = 1
      VertScrollBar.Page = 1
      Align = alClient
      TabOrder = 5
    end
    object startAutoSearchButton: TButton
      Left = 136
      Height = 25
      Top = 582
      Width = 96
      Anchors = [akLeft, akBottom]
      Caption = 'Auto-Suche'
      OnClick = startAutoSearchButtonClick
      TabOrder = 6
      Visible = False
    end
    object searchLocationRegion: TComboBox
      Left = 7
      Height = 31
      Top = 32
      Width = 229
      Align = alTop
      BorderSpacing.Around = 6
      ItemHeight = 0
      OnSelect = searchLocationRegionSelect
      Style = csDropDownList
      TabOrder = 7
    end
    object Splitter2: TSplitter
      Cursor = crVSplit
      Left = 1
      Height = 5
      Top = 194
      Width = 241
      Align = alTop
      ResizeAnchor = akTop
    end
  end
  object bookListPanel: TPanel
    Left = 248
    Height = 649
    Top = 0
    Width = 677
    Align = alClient
    ClientHeight = 649
    ClientWidth = 677
    TabOrder = 1
    object detailPanelHolder: TPanel
      Left = 1
      Height = 240
      Top = 389
      Width = 675
      Align = alBottom
      BevelOuter = bvNone
      ClientHeight = 240
      ClientWidth = 675
      TabOrder = 0
      OnClick = detailPanelHolderClick
      object Image1: TImage
        Left = 569
        Height = 240
        Top = 0
        Width = 106
        Align = alRight
        Proportional = True
      end
      object Splitter3: TSplitter
        Left = 564
        Height = 240
        Top = 0
        Width = 5
        Align = alRight
        ResizeAnchor = akRight
      end
      object detailPanel: TPanel
        Left = 0
        Height = 240
        Top = 0
        Width = 564
        Align = alClient
        Caption = 'detailPanel'
        ClientHeight = 240
        ClientWidth = 564
        TabOrder = 1
        object holdingsSplitter: TSplitter
          Cursor = crVSplit
          Left = 1
          Height = 5
          Top = 132
          Width = 562
          Align = alBottom
          Beveled = True
          ResizeAnchor = akBottom
          Visible = False
        end
        object holdingsPanel: TPanel
          Left = 1
          Height = 102
          Top = 137
          Width = 562
          Align = alBottom
          Caption = 'holdingsPanel'
          TabOrder = 1
          Visible = False
        end
      end
    end
    object Panel1: TPanel
      Left = 1
      Height = 19
      Top = 629
      Width = 675
      Align = alBottom
      AutoSize = True
      BevelOuter = bvNone
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 4
      ClientHeight = 19
      ClientWidth = 675
      TabOrder = 1
      OnClick = Panel1Click
      object Label12: TLabel
        Cursor = crHandPoint
        Left = 0
        Height = 19
        Top = 0
        Width = 169
        Alignment = taCenter
        Caption = 'Speichern'
        Color = clDefault
        Font.Color = clBlue
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
        OnClick = Label12Click
      end
      object LabelSaveTo: TLabel
        Cursor = crHandPoint
        Left = 169
        Height = 19
        Top = 0
        Width = 128
        Caption = 'in \/'
        Color = clDefault
        Font.Color = clBlue
        Font.Style = [fsItalic]
        ParentColor = False
        ParentFont = False
        PopupMenu = saveToAccountMenu
        OnClick = LabelSaveToClick
      end
      object LabelOrder: TLabel
        Cursor = crHandPoint
        Left = 297
        Height = 19
        Top = 0
        Width = 246
        Caption = 'Vormerken/Bestellen'
        Color = clDefault
        Font.Color = clBlue
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
        OnClick = LabelOrderClick
      end
      object LabelOrderFor: TLabel
        Cursor = crHandPoint
        Left = 543
        Height = 19
        Top = 0
        Width = 132
        Caption = 'für \/'
        Color = clDefault
        Font.Color = clBlue
        Font.Style = [fsItalic]
        ParentColor = False
        ParentFont = False
        OnClick = LabelOrderForClick
      end
    end
    object bookListPanel2: TPanel
      Left = 1
      Height = 383
      Top = 1
      Width = 675
      Align = alClient
      TabOrder = 2
    end
    object Splitter4: TSplitter
      Cursor = crVSplit
      Left = 1
      Height = 5
      Top = 384
      Width = 675
      Align = alBottom
      ResizeAnchor = akBottom
    end
  end
  object Splitter1: TSplitter
    Left = 243
    Height = 649
    Top = 0
    Width = 5
    Beveled = True
  end
  object StatusBar1: TStatusBar
    Left = 0
    Height = 23
    Top = 649
    Width = 925
    Panels = <    
      item
        Width = 350
      end    
      item
        Width = 150
      end    
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object saveToAccountMenu: TPopupMenu
    Left = 400
    Top = 400
  end
  object orderForAccountMenu: TPopupMenu
    Left = 640
    Top = 448
  end
  object autoSearchContinueTimer: TTimer
    Enabled = False
    Interval = 100
    OnTimer = autoSearchContinueTimerTimer
    Left = 112
    Top = 504
  end
  object PopupMenu1: TPopupMenu
    Left = 528
    Top = 488
    object menuCopyValue: TMenuItem
      Caption = 'Wert kopieren'
      OnClick = menuCopyValueClick
    end
    object menuCopyRow: TMenuItem
      Caption = 'Zeile kopieren'
      OnClick = menuCopyRowClick
    end
  end
end