Chip 2001 December/Chip_2001-12_cd1.bin/zkuste/delphi/kolekce/d456/VOLGAPAK.ZIP/Demo/MainBook.dfm/MainBook.txt

Text File | 2001-09-20 | 8.6 KB | 341 lines

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 635
  Height = 448
  Caption = 'Volga component library demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 627
    Height = 421
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Authors and books'
      object Label1: TLabel
        Left = 24
        Top = 24
        Width = 31
        Height = 13
        Caption = 'Author'
      end
      object Label2: TLabel
        Left = 24
        Top = 58
        Width = 54
        Height = 13
        Caption = 'Book name'
      end
      object Label3: TLabel
        Left = 24
        Top = 91
        Width = 42
        Height = 13
        Caption = 'Category'
      end
      object VolgaDBGrid1: TVolgaDBGrid
        Left = 0
        Top = 120
        Width = 619
        Height = 273
        Hint = 'Click on column title to sort'
        Align = alBottom
        AllowDelete = False
        AllowInsert = False
        DataSource = DataBook
        Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgCancelOnExit]
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnDrawTitleAttr = VolgaDBGrid1DrawTitleAttr
        OnTitleClick = VolgaDBGrid1TitleClick
        Columns = <
          item
            CanClick = True
            FieldName = 'Author'
            Width = 194
            Visible = True
          end
          item
            CanClick = True
            FieldName = 'BookName'
            Width = 398
            Visible = True
          end>
      end
      object VolgaDBEdit1: TVolgaDBEdit
        Left = 96
        Top = 20
        Width = 265
        Height = 21
        Hint = 'Move between controls with ENTER, DOWN, UP buttons'
        DataField = 'Author'
        DataSource = DataBook
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
      end
      object VolgaDBEdit2: TVolgaDBEdit
        Left = 96
        Top = 54
        Width = 489
        Height = 21
        DataField = 'BookName'
        DataSource = DataBook
        TabOrder = 2
      end
      object VolgaDBEdit3: TVolgaDBEdit
        Left = 96
        Top = 88
        Width = 314
        Height = 21
        Hint = 'Click or press SPACE button to select category'
        DataField = 'Category'
        DataSource = DataBook
        DialogStyle = vdsTree
        LookupDataSet = Cat
        LookupProps.SourceKeyField = 'Category'
        LookupProps.LookupKeyField = 'Category'
        LookupProps.ListFieldNames = 'CatName'
        ParentShowHint = False
        ShowHint = True
        Style = vcsDropDownList
        TabOrder = 3
        TreeProps.LevelField = 'Level'
        TreeProps.TextField = 'CatName'
        TreeProps.UniqueField = 'Category'
      end
      object DBNavigator1: TDBNavigator
        Left = 441
        Top = 90
        Width = 174
        Height = 25
        DataSource = DataBook
        VisibleButtons = [nbFirst, nbLast, nbInsert, nbDelete, nbPost, nbCancel]
        TabOrder = 4
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'What books I already readed'
      ImageIndex = 1
      object Label4: TLabel
        Left = 16
        Top = 16
        Width = 30
        Height = 13
        Caption = 'Period'
      end
      object Period: TVolgaPeriod
        Left = 56
        Top = 8
        Width = 153
        Height = 26
        Hint =
          'Click on UpDown button for change period'#13#10'Change kind of period ' +
          'on right button click'
        KindRange = ksMonth
        Year = 2000
        Month = 12
        OnChange = PeriodChange
        ButtonWidth = 17
        EnablePopup = True
        ShowHint = True
      end
      object VolgaDBGrid2: TVolgaDBGrid
        Left = 0
        Top = 48
        Width = 619
        Height = 345
        Hint = 'Sort on the fly by clicking on column title'
        Align = alBottom
        DataSource = DataReadB
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnDrawCellAttr = VolgaDBGrid2DrawCellAttr
        OnDrawTitleAttr = VolgaDBGrid1DrawTitleAttr
        OnTitleClick = VolgaDBGrid1TitleClick
        Columns = <
          item
            ButtonStyle = cbsCalendar
            CanClick = True
            FieldName = 'DataStart'
            Title.Caption = 'Start read at'
            Width = 89
            Visible = True
          end
          item
            ButtonStyle = cbsCalendar
            CanClick = True
            FieldName = 'DataEnd'
            Title.Caption = 'Stop read at'
            Width = 87
            Visible = True
          end
          item
            AutoDropDown = True
            ButtonStyle = cbsLookup
            CanClick = True
            DropDownWidth = 300
            FieldName = 'BookID'
            LookupDropDownFields = 'BookName;Author'
            LookupKeyField = 'BookID'
            LookupLinkField = 'BookID'
            LookupDataSet = Book
            Title.Caption = 'Book name'
            Width = 253
            Visible = True
          end
          item
            ButtonStyle = cbsCombo
            CanClick = True
            FieldName = 'Ball'
            PickList.Strings = (
              'Excellent'
              'Good'
              'Mediocre'
              'Uninteresting'
              'Break to read')
            PickValues.Strings = (
              '5'
              '4'
              '3'
              '2'
              '1')
            Width = 81
            Visible = True
          end
          item
            ButtonStyle = cbsCheck
            CanClick = True
            FieldName = 'MyBook'
            Title.Caption = 'Is it my book?'
            ValueChecked = '1'
            ValueUnChecked = '0'
            Visible = True
          end>
      end
      object DBNavigator2: TDBNavigator
        Left = 441
        Top = 18
        Width = 174
        Height = 25
        DataSource = DataReadB
        VisibleButtons = [nbFirst, nbLast, nbInsert, nbDelete, nbPost, nbCancel]
        TabOrder = 2
      end
    end
  end
  object Cat: TVolgaTable
    AfterPost = BookAfterPost
    TableName = 'catb.d'
    LoadMode = lmFile
    Left = 464
    object CatIndex: TIntegerField
      FieldName = 'Index'
    end
    object CatLevel: TIntegerField
      FieldName = 'Level'
    end
    object CatCategory: TStringField
      DefaultExpression = 'UNICOD'
      FieldName = 'Category'
      Size = 8
    end
    object CatCatName: TStringField
      FieldName = 'CatName'
      Size = 30
    end
  end
  object Book: TVolgaTable
    IndexFieldNames = 'Author'
    UniqueFieldNames = 'BookID'
    Active = True
    AfterPost = BookAfterPost
    OnNewRecord = BookNewRecord
    TableName = 'books.d'
    LoadMode = lmFile
    Left = 428
    object BookBookID: TStringField
      DefaultExpression = 'UNICOD'
      FieldName = 'BookID'
      Size = 8
    end
    object BookAuthor: TStringField
      FieldName = 'Author'
      Size = 30
    end
    object BookBookName: TStringField
      FieldName = 'BookName'
      Size = 70
    end
    object BookCategory: TStringField
      FieldName = 'Category'
      Size = 8
    end
  end
  object DataBook: TDataSource
    DataSet = Book
    Left = 396
  end
  object DataCat: TDataSource
    DataSet = Cat
    Left = 496
  end
  object ReadB: TVolgaTable
    IndexFieldNames = 'DataStart'
    RangeFieldNames = 'DataStart'
    Active = True
    AfterPost = BookAfterPost
    OnNewRecord = ReadBNewRecord
    TableName = 'readb.d'
    LoadMode = lmFile
    Left = 320
    object ReadBDataStart: TDateField
      DefaultExpression = 'TODAY'
      FieldName = 'DataStart'
    end
    object ReadBDataEnd: TDateField
      DefaultExpression = 'TODAY'
      FieldName = 'DataEnd'
    end
    object ReadBBookID: TStringField
      FieldName = 'BookID'
      Size = 8
    end
    object ReadBBall: TIntegerField
      FieldName = 'Ball'
    end
    object ReadBMyBook: TStringField
      FieldName = 'MyBook'
      Size = 1
    end
  end
  object DataReadB: TDataSource
    DataSet = ReadB
    Left = 288
  end
end