mwmapmain.dfm

来自「Delphi XML & XPATH源代码」· DFM 代码 · 共 701 行 · 第 1/2 页

object frmMWMap: TfrmMWMap
  Left = 233
  Top = 133
  Width = 705
  Height = 564
  Caption = 'Movie-Watcher Mapper'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  DesignSize = (
    697
    537)
  PixelsPerInch = 96
  TextHeight = 13
  object pgcMovieWatcher: TPageControl
    Left = 0
    Top = 0
    Width = 697
    Height = 501
    ActivePage = tabMovies
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabIndex = 0
    TabOrder = 0
    object tabMovies: TTabSheet
      Caption = 'Movies'
      object Splitter1: TSplitter
        Left = 0
        Top = 222
        Width = 689
        Height = 4
        Cursor = crVSplit
        Align = alTop
      end
      object grdMovies: TDBGrid
        Left = 0
        Top = 33
        Width = 689
        Height = 189
        Align = alTop
        DataSource = srcMovies
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'id'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'rating'
            PickList.Strings = (
              'G'
              'NR'
              'PG'
              'PG-13'
              'R')
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'name'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'length'
            Width = 38
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'director'
            Visible = True
          end
          item
            ButtonStyle = cbsEllipsis
            Expanded = False
            FieldName = 'synopsis'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'logo-url'
            Width = 296
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'url'
            Width = 268
            Visible = True
          end>
      end
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 689
        Height = 33
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 1
        object navMovies: TDBNavigator
          Left = 0
          Top = 4
          Width = 240
          Height = 25
          DataSource = srcMovies
          TabOrder = 0
        end
      end
      object grdStars: TDBGrid
        Left = 0
        Top = 259
        Width = 689
        Height = 214
        Align = alClient
        DataSource = srcStars
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object Panel2: TPanel
        Left = 0
        Top = 226
        Width = 689
        Height = 33
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 3
        object navStars: TDBNavigator
          Left = 0
          Top = 4
          Width = 240
          Height = 25
          DataSource = srcStars
          TabOrder = 0
        end
      end
    end
    object tabCinemas: TTabSheet
      Caption = 'Cinemas'
      ImageIndex = 1
      object Splitter2: TSplitter
        Left = 0
        Top = 222
        Width = 689
        Height = 4
        Cursor = crVSplit
        Align = alTop
      end
      object grdCinemas: TDBGrid
        Left = 0
        Top = 33
        Width = 689
        Height = 189
        Align = alTop
        DataSource = srcCinemas
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object Panel3: TPanel
        Left = 0
        Top = 0
        Width = 689
        Height = 33
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 1
        object navCinemas: TDBNavigator
          Left = 0
          Top = 4
          Width = 240
          Height = 25
          DataSource = srcCinemas
          TabOrder = 0
        end
      end
      object grdPrices: TDBGrid
        Left = 0
        Top = 259
        Width = 689
        Height = 214
        Align = alClient
        DataSource = srcPrices
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object Panel4: TPanel
        Left = 0
        Top = 226
        Width = 689
        Height = 33
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 3
        object navPrices: TDBNavigator
          Left = 0
          Top = 4
          Width = 240
          Height = 25
          DataSource = srcPrices
          TabOrder = 0
        end
      end
    end
    object tabScreenings: TTabSheet
      Caption = 'Screenings'
      ImageIndex = 2
      object Splitter3: TSplitter
        Left = 0
        Top = 222
        Width = 689
        Height = 4
        Cursor = crVSplit
        Align = alTop
      end
      object grdScreenings: TDBGrid
        Left = 0
        Top = 33
        Width = 689
        Height = 189
        Align = alTop
        DataSource = srcScreenings
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object Panel5: TPanel
        Left = 0
        Top = 0
        Width = 689
        Height = 33
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 1
        object navScreenings: TDBNavigator
          Left = 0
          Top = 4
          Width = 240
          Height = 25
          DataSource = srcScreenings
          TabOrder = 0
        end
      end
      object grdSessions: TDBGrid
        Left = 0
        Top = 259
        Width = 689
        Height = 214
        Align = alClient
        DataSource = srcSessions
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object Panel6: TPanel
        Left = 0
        Top = 226
        Width = 689
        Height = 33
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 3
        object navSessions: TDBNavigator
          Left = 0
          Top = 4
          Width = 240
          Height = 25
          DataSource = srcSessions
          TabOrder = 0
        end
      end
    end
  end
  object btnApply: TButton
    Left = 180
    Top = 508
    Width = 89
    Height = 25
    Anchors = [akBottom]
    Caption = 'Apply Updates'
    TabOrder = 1
    OnClick = btnApplyClick
  end
  object btnCancel: TButton
    Left = 304
    Top = 508
    Width = 89
    Height = 25
    Anchors = [akBottom]
    Caption = 'Cancel Updates'
    TabOrder = 2
    OnClick = btnCancelClick
  end
  object btnSave: TButton
    Left = 428
    Top = 508
    Width = 89
    Height = 25
    Anchors = [akBottom]
    Caption = 'Save Datapacket'
    TabOrder = 3
    OnClick = btnSaveClick
  end
  object prvTransform: TXMLTransformProvider
    TransformRead.TransformationFile = 'MWToDp.xtr'
    TransformWrite.TransformationFile = 'MWToXml.xtr'
    XMLDataFile = 'movie-watcher.xml'
    CacheData = True
    Left = 64
    Top = 392
  end
  object cdsMovieWatcher: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'prvTransform'
    Left = 148
    Top = 392
    object cdsMovieWatcherid: TStringField
      FieldName = 'id'
      Required = True
      Size = 3
    end
    object cdsMovieWatchermovie: TDataSetField