Chip 2002 September/Chip_2002-09_cd1.bin/zkuste/delphi/kolekce/d56/XMLCOMP.ZIP/test/FMain.dfm

Text File | 2002-06-16 | 6KB | 255 lines

object Form1: TForm1
  Left = 192
  Top = 103
  Width = 585
  Height = 401
  Caption = 'XML Test App'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 400
    Top = 57
    Width = 3
    Height = 269
    Cursor = crHSplit
    Align = alRight
    Beveled = True
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 577
    Height = 57
    Align = alTop
    TabOrder = 0
    object Button1: TButton
      Left = 4
      Top = 4
      Width = 87
      Height = 25
      Caption = 'Save Testmodel'
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 92
      Top = 4
      Width = 86
      Height = 25
      Caption = 'Load Testmodel'
      TabOrder = 1
      OnClick = Button2Click
    end
    object cbReadOnlyProps: TCheckBox
      Left = 430
      Top = 32
      Width = 139
      Height = 17
      Anchors = [akTop, akRight]
      Caption = 'Write readonly properties'
      TabOrder = 2
      OnClick = cbReadOnlyPropsClick
    end
    object Button3: TButton
      Left = 496
      Top = 4
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = 'Clear Dict.'
      TabOrder = 3
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 4
      Top = 28
      Width = 87
      Height = 25
      Caption = 'Save Form'
      TabOrder = 4
      OnClick = Button4Click
    end
    object Button5: TButton
      Left = 92
      Top = 28
      Width = 86
      Height = 25
      Caption = 'Load Form'
      TabOrder = 5
      OnClick = Button5Click
    end
    object Button6: TButton
      Left = 180
      Top = 4
      Width = 83
      Height = 25
      Caption = 'Populate Model'
      TabOrder = 6
      OnClick = Button6Click
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 326
    Width = 577
    Height = 46
    Align = alBottom
    BorderWidth = 2
    Caption = 'Panel2'
    TabOrder = 1
    object Label1: TLabel
      Left = 3
      Top = 3
      Width = 571
      Height = 27
      Align = alClient
      AutoSize = False
      Caption =
        '     This program demonstrates the use of the Dnote xml reader a' +
        'nd writer to make components persistent. (c)2002 Dnote Software.'
      WordWrap = True
    end
    object Image1: TImage
      Left = 4
      Top = 4
      Width = 12
      Height = 12
      AutoSize = True
      Picture.Data = {
        07544269746D6170D6000000424DD60000000000000076000000280000000C00
        00000C000000010004000000000060000000C40E0000C40E0000100000000000
        000000000000000080000080000000808000800000008000800080800000C0C0
        C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
        FF00DDD000000DDD0000DD0FFFFFF0DD0000D0FFCCCCFF0D00000FFFFCCFFFF0
        00000FFFFCCFFFF000000FFFFCCFFFF000000FFFFCCFFFF000000FFFCCCFFFF0
        00000FFFFFFFFFF00000D0FFFCCFFF0D0000DD0FFFFFF0DD0000DDD000000DDD
        0000}
      Transparent = True
    end
    object Label2: TLabel
      Left = 3
      Top = 30
      Width = 571
      Height = 13
      Cursor = crHandPoint
      Align = alBottom
      Caption =
        'See http://sourceforge.net/projects/xmlcomp/ for more informatio' +
        'n.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsUnderline]
      ParentFont = False
      OnClick = Label2Click
    end
  end
  object ListView1: TListView
    Left = 403
    Top = 57
    Width = 174
    Height = 269
    Align = alRight
    Columns = <
      item
        Caption = 'ID'
        Width = 85
      end
      item
        Caption = 'ClassName'
        Width = 85
      end>
    TabOrder = 2
    ViewStyle = vsReport
  end
  object Panel3: TPanel
    Left = 0
    Top = 57
    Width = 400
    Height = 269
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 3
    object Splitter2: TSplitter
      Left = 0
      Top = 177
      Width = 400
      Height = 3
      Cursor = crVSplit
      Align = alBottom
      Beveled = True
    end
    object WebBrowser1: TWebBrowser
      Left = 0
      Top = 0
      Width = 400
      Height = 177
      Align = alClient
      TabOrder = 0
      ControlData = {
        4C000000572900004B1200000000000000000000000000000000000000000000
        000000004C000000000000000000000001000000E0D057007335CF11AE690800
        2B2E126208000000000000004C0000000114020000000000C000000000000046
        8000000000000000000000000000000000000000000000000000000000000000
        00000000000000000100000000000000000000000000000000000000}
    end
    object Memo1: TMemo
      Left = 0
      Top = 180
      Width = 400
      Height = 89
      Align = alBottom
      TabOrder = 1
    end
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'xml'
    Filter = '*.xml|*.xml'
    Options = [ofFileMustExist, ofEnableSizing]
    Title = 'Open XML file...'
    Left = 292
    Top = 36
  end
  object DnXmlReader1: TDnXmlReader
    Dictionary = DnXmlDictionary1
    SetObjPropMode = sopmFreeAndSet
    ReadNameProperty = False
    ReadTagProperty = False
    Left = 348
    Top = 36
  end
  object DnXmlWriter1: TDnXmlWriter
    TopNodeName = 'topobj'
    StoreTagProperty = False
    StoreNameProperty = False
    Dictionary = DnXmlDictionary1
    Left = 376
    Top = 36
  end
  object DnXmlDictionary1: TDnXmlDictionary
    Left = 320
    Top = 36
  end
  object dlgSave: TSaveDialog
    DefaultExt = 'xml'
    Filter = '*.xml|*.xml'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Title = 'Save to xml...'
    Left = 264
    Top = 36
  end
  object DnTestModel1: TDnTestModel
    Left = 264
    Top = 64
  end
end