Chip 2002 December/Chip_2002-12_cd1.bin/ctenari/Srubar/_SETUP.1/Videoteka.exe/0/RCDATA/TFVYPUJCKY/TFVYPUJCKY.txt

Text File | 2002-11-02 | 5.6 KB | 247 lines

object FVypujcky: TFVypujcky
  Left = 192
  Top = 107
  BorderStyle = bsDialog
  Caption = 'Seznam v�p�j�ek'
  ClientHeight = 320
  ClientWidth = 523
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel
    Left = 40
    Top = 16
    Width = 61
    Height = 13
    Caption = 'Kazeta ��slo:'
  end
  object DBText1: TDBText
    Left = 112
    Top = 16
    Width = 42
    Height = 13
    AutoSize = True
    DataField = 'Cislo_kazety'
    DataSource = DM.DS1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object DBText2: TDBText
    Left = 112
    Top = 32
    Width = 42
    Height = 13
    AutoSize = True
    DataField = 'Titulek'
    DataSource = DM.DS1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 64
    Top = 32
    Width = 35
    Height = 13
    Caption = 'Titulek:'
  end
  object Panel1: TPanel
    Left = 8
    Top = 80
    Width = 505
    Height = 225
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object bul: TSquareButton
      Left = 160
      Top = 192
      Width = 89
      Height = 17
      Cursor = crHandPoint
      Caption = 'Ulo�it zm�ny'
      Color = clBtnFace
      ColorBorder = clBlack
      Enabled = True
      OnClick = bulClick
      ColorOverCaption = clWhite
      Alignment = taLeftJustify
      ColorOverBorder = clBlack
      BorderWidth = 2
      DownBorderColor = clWhite
      ShowHint = True
      ParentShowHint = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
    end
    object bzp: TSquareButton
      Left = 264
      Top = 192
      Width = 89
      Height = 17
      Cursor = crHandPoint
      Caption = 'Zp�t zm�ny'
      Color = clBtnFace
      ColorBorder = clBlack
      Enabled = True
      OnClick = bzpClick
      ColorOverCaption = clWhite
      Alignment = taLeftJustify
      ColorOverBorder = clBlack
      BorderWidth = 2
      DownBorderColor = clWhite
      ShowHint = True
      ParentShowHint = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
    end
    object bup: TSquareButton
      Left = 160
      Top = 168
      Width = 89
      Height = 17
      Cursor = crHandPoint
      Caption = 'Upravit z�znam'
      Color = clBtnFace
      ColorBorder = clBlack
      Enabled = True
      OnClick = bupClick
      ColorOverCaption = clWhite
      Alignment = taLeftJustify
      ColorOverBorder = clBlack
      BorderWidth = 2
      DownBorderColor = clWhite
      ShowHint = True
      ParentShowHint = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
    end
    object bsm: TSquareButton
      Left = 264
      Top = 168
      Width = 89
      Height = 17
      Cursor = crHandPoint
      Caption = 'Smazat z�znam'
      Color = clBtnFace
      ColorBorder = clBlack
      Enabled = True
      OnClick = bsmClick
      ColorOverCaption = clWhite
      Alignment = taLeftJustify
      ColorOverBorder = clBlack
      BorderWidth = 2
      DownBorderColor = clWhite
      ShowHint = True
      ParentShowHint = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
    end
    object DBNavigator2: TDBNavigator
      Left = 24
      Top = 160
      Width = 120
      Height = 25
      Cursor = crHandPoint
      DataSource = DM.DS4
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
      Flat = True
      Hints.Strings = (
        'Prvn�'
        'P�edchoz�'
        'N�sleduj�c�'
        'Posledn�')
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
    object DBG1: TDBGrid
      Left = 16
      Top = 16
      Width = 473
      Height = 137
      DataSource = DM.DS4
      ReadOnly = True
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'Datum_puj'
          Title.Caption = 'Datum p�j�en�'
          Width = 75
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Datum_vrac'
          Title.Caption = 'Datum vr�cen�'
          Width = 75
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Jmeno'
          Title.Caption = 'Jm�no'
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Poznamky'
          Title.Caption = 'Pozn�mky'
          Width = 180
          Visible = True
        end>
    end
  end
  object DBNavigator1: TDBNavigator
    Left = 40
    Top = 48
    Width = 148
    Height = 25
    Cursor = crHandPoint
    DataSource = DM.DS1
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
    Flat = True
    Hints.Strings = (
      'Prvn�'
      'P�edchoz�'
      'N�sleduj�c�'
      'Posledn�')
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
  end
end