Chip 1999 June/Chip_1999-06_cd.bin/tema/Diadema/Demo/setup.exe/Pantheon.csy/RCDATA/TLOADSTOREFORM/TLOADSTOREFORM.txt

Text File | 1999-04-22 | 6.2 KB | 297 lines

object LoadStoreForm: TLoadStoreForm
  Left = 211
  Top = 111
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  ClientHeight = 296
  ClientWidth = 404
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object BottomPanel: TPanel
    Left = 0
    Top = 288
    Width = 404
    Height = 8
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
  end
  object Notebook: TNotebook
    Left = 0
    Top = 252
    Width = 404
    Height = 36
    Align = alBottom
    TabOrder = 1
    object TPage
      Left = 0
      Top = 0
      Caption = 'DBLoad'
      object VybratBtn: TButton
        Left = 240
        Top = 8
        Width = 75
        Height = 25
        Caption = '&Vybrat'
        Default = True
        TabOrder = 0
        OnClick = VybratBtnClick
      end
      object StornoBtn: TButton
        Left = 320
        Top = 8
        Width = 75
        Height = 25
        Cancel = True
        Caption = 'Storno'
        ModalResult = 2
        TabOrder = 1
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'DBSave'
      object NazevLabel: TLabel
        Left = 8
        Top = 16
        Width = 68
        Height = 13
        Caption = 'Popis polo�ky:'
      end
      object DBSaveEdit: TEdit
        Left = 80
        Top = 8
        Width = 313
        Height = 21
        TabOrder = 0
        OnChange = DBSaveEditChange
      end
      object UlozitBtn: TButton
        Left = 240
        Top = 40
        Width = 75
        Height = 25
        Caption = 'Ulo�it'
        Default = True
        Enabled = False
        TabOrder = 1
        OnClick = UlozitBtnClick
      end
      object StornoBtn2: TButton
        Left = 320
        Top = 40
        Width = 75
        Height = 25
        Caption = 'Storno'
        ModalResult = 2
        TabOrder = 2
      end
    end
  end
  object TopPanel: TPanel
    Left = 0
    Top = 26
    Width = 404
    Height = 23
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    object PopisLabel: TLabel
      Left = 8
      Top = 8
      Width = 5
      Height = 13
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBNavigator: TDBNavigator
      Left = 316
      Top = 4
      Width = 80
      Height = 18
      DataSource = DS
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
      Flat = True
      Hints.Strings = (
        'Prvn�'
        'P�edchoz�'
        'N�sleduj�c�'
        'Posledn�')
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
  end
  object DBGrid: TDBGrid
    Left = 9
    Top = 49
    Width = 386
    Height = 203
    Align = alClient
    DataSource = DS
    Options = [dgTitles, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        FieldName = 'Popis'
        Width = 284
      end
      item
        FieldName = 'Datum'
        Width = 81
      end>
  end
  object RightPanel: TPanel
    Left = 395
    Top = 49
    Width = 9
    Height = 203
    Align = alRight
    BevelOuter = bvNone
    TabOrder = 4
  end
  object LeftPanel: TPanel
    Left = 0
    Top = 49
    Width = 9
    Height = 203
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 5
  end
  object LoadSaveCoolBar: TCoolBar
    Left = 0
    Top = 0
    Width = 404
    Height = 26
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 22
        Width = 400
      end>
    object ToolBar1: TToolBar
      Left = 0
      Top = 0
      Width = 396
      Height = 22
      Align = alBottom
      ButtonWidth = 26
      EdgeBorders = []
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      HotImages = PomocneDM.BtnHotImages
      Images = PomocneDM.BtnImages
      TabOrder = 0
      object VymazatSBtn: TToolButton
        Left = 0
        Top = 0
        Width = 26
        Height = 22
        Caption = 'Vymazat'
        ImageIndex = 3
        OnClick = VymazatSBtnClick
      end
      object PrejmenovatSBtn: TToolButton
        Left = 26
        Top = 0
        Width = 26
        Height = 22
        Caption = 'P�ejmenovat'
        ImageIndex = 14
        OnClick = PrejmenovatSBtnClick
      end
      object FileSBtn: TToolButton
        Left = 52
        Top = 0
        Width = 26
        Height = 22
        ImageIndex = 18
        OnClick = FileSBtnClick
      end
    end
  end
  object MainMenu: TMainMenu
    Left = 312
    Top = 96
    object OperaceMnI: TMenuItem
      Caption = '&Operace'
      object VymazatMnI: TMenuItem
        Caption = '&Vymazat polo�ku'
        OnClick = VymazatSBtnClick
      end
      object PrejmenovatMnI: TMenuItem
        Caption = '&P�ejmenovat polo�ku'
        OnClick = PrejmenovatSBtnClick
      end
      object FileMnI: TMenuItem
        OnClick = FileSBtnClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object ZavritMnI: TMenuItem
        Caption = 'Zav��t'
        OnClick = ZavritMnIClick
      end
    end
  end
  object DS: TDataSource
    DataSet = FiltryTbl
    OnDataChange = DSDataChange
    Left = 320
    Top = 144
  end
  object FiltryTbl: TTable
    DatabaseName = 'RealityDB'
    TableName = 'Filtry.db'
    Left = 152
    Top = 64
  end
  object SkupinyTbl: TTable
    DatabaseName = 'RealityDB'
    TableName = 'Skupiny.db'
    Left = 152
    Top = 168
  end
  object OpenDialog: TOpenDialog
    FilterIndex = 0
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
    Left = 232
    Top = 56
  end
  object SaveDialog: TSaveDialog
    FilterIndex = 0
    Options = [ofOverwritePrompt, ofHideReadOnly, ofNoChangeDir]
    Left = 232
    Top = 104
  end
  object MaskyTbl: TTable
    DatabaseName = 'RealityDB'
    TableName = 'SetParov.DB'
    Left = 152
    Top = 112
  end
end