QBasic & Borland Pascal & C/Delphi5.iso/Delphi.5/Samples/sourceD5/browutil.exe/BROWSER/COMPARE.DFM/COMPARE.txt

Text File | 2000-01-03 | 6.5 KB | 301 lines

object FrmCompare: TFrmCompare
  Left = -1
  Top = 18
  Width = 643
  Height = 462
  Caption = 'Compare'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  OldCreateOrder = True
  Visible = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 635
    Height = 435
    Align = alClient
    BevelInner = bvLowered
    TabOrder = 0
    object Splitter1: TSplitter
      Left = 2
      Top = 281
      Width = 631
      Height = 3
      Cursor = crVSplit
      Align = alBottom
    end
    object GroupBox1: TGroupBox
      Left = 2
      Top = 2
      Width = 163
      Height = 279
      Align = alLeft
      Caption = 'Source'
      TabOrder = 0
      object DriveComboBox1: TDriveComboBox
        Left = 2
        Top = 12
        Width = 162
        Height = 19
        DirList = DirectoryListBox1
        TabOrder = 0
      end
      object DirectoryListBox1: TDirectoryListBox
        Left = 2
        Top = 30
        Width = 159
        Height = 102
        Align = alBottom
        FileList = FileListBox1
        ItemHeight = 16
        TabOrder = 1
      end
      object FileListBox1: TFileListBox
        Left = 2
        Top = 132
        Width = 159
        Height = 145
        Align = alBottom
        ItemHeight = 13
        Mask = '*.db;*.dbf'
        TabOrder = 2
        OnClick = FileListBox1Click
      end
    end
    object GroupBox2: TGroupBox
      Left = 468
      Top = 2
      Width = 165
      Height = 279
      Align = alRight
      Caption = 'Target'
      TabOrder = 1
      object DriveComboBox2: TDriveComboBox
        Left = 2
        Top = 12
        Width = 162
        Height = 19
        DirList = DirectoryListBox2
        TabOrder = 0
      end
      object DirectoryListBox2: TDirectoryListBox
        Left = 2
        Top = 30
        Width = 161
        Height = 102
        Align = alBottom
        FileList = FileListBox2
        ItemHeight = 16
        TabOrder = 1
      end
      object FileListBox2: TFileListBox
        Left = 2
        Top = 132
        Width = 161
        Height = 145
        Align = alBottom
        ItemHeight = 13
        Mask = '*.db;*.dbf'
        TabOrder = 2
        OnClick = FileListBox2Click
      end
    end
    object Panel4: TPanel
      Left = 2
      Top = 284
      Width = 631
      Height = 149
      Align = alBottom
      BevelInner = bvLowered
      TabOrder = 2
      object Splitter2: TSplitter
        Left = 316
        Top = 2
        Width = 5
        Height = 145
        Cursor = crHSplit
      end
      object DBGSource: TDBGrid
        Left = 2
        Top = 2
        Width = 314
        Height = 145
        Align = alLeft
        DataSource = SrcSource
        PopupMenu = PopupMenu1
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object DBGTarget: TDBGrid
        Left = 321
        Top = 2
        Width = 308
        Height = 145
        Align = alClient
        DataSource = SrcTarget
        PopupMenu = PopupMenu1
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
    object Panel2: TPanel
      Left = 165
      Top = 2
      Width = 303
      Height = 279
      Align = alClient
      BevelInner = bvLowered
      TabOrder = 3
      object GroupBox4: TGroupBox
        Left = 2
        Top = 28
        Width = 299
        Height = 249
        Align = alClient
        Caption = 'Result'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object Memo1: TMemo
          Left = 2
          Top = 15
          Width = 295
          Height = 232
          Align = alClient
          ScrollBars = ssBoth
          TabOrder = 0
        end
      end
      object Panel3: TPanel
        Left = 2
        Top = 2
        Width = 299
        Height = 26
        Align = alTop
        BevelInner = bvLowered
        TabOrder = 1
        object BtnStart: TButton
          Left = 2
          Top = 3
          Width = 37
          Height = 20
          Caption = '&Start'
          ModalResult = 1
          TabOrder = 0
          OnClick = BtnStartClick
        end
        object BtnCancel: TButton
          Left = 42
          Top = 3
          Width = 42
          Height = 20
          Caption = '&Cancel'
          ModalResult = 1
          TabOrder = 1
          OnClick = BtnCancelClick
        end
        object BtnClose: TButton
          Left = 88
          Top = 3
          Width = 37
          Height = 20
          Cancel = True
          Caption = 'C&lose'
          ModalResult = 2
          TabOrder = 2
          OnClick = BtnCloseClick
        end
        object BtnCheck: TButton
          Left = 129
          Top = 3
          Width = 39
          Height = 20
          Caption = 'Check'
          TabOrder = 3
          OnClick = BtnCheckClick
        end
      end
    end
  end
  object tblSource: TTable
    Left = 98
    Top = 2
  end
  object tblTarget: TTable
    Left = 530
    Top = 2
  end
  object SrcSource: TDataSource
    DataSet = tblSource
    Left = 127
    Top = 51
  end
  object SrcTarget: TDataSource
    DataSet = tblTarget
    Left = 569
    Top = 53
  end
  object PopupMenu1: TPopupMenu
    Left = 176
    Top = 312
    object Scatter1: TMenuItem
      Caption = 'Scatter'
      OnClick = Scatter1Click
    end
    object Gather1: TMenuItem
      Caption = 'Gather'
      OnClick = Gather1Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object New1: TMenuItem
      Caption = 'New'
      OnClick = New1Click
    end
    object Insert1: TMenuItem
      Caption = 'Insert'
      OnClick = Insert1Click
    end
    object Edit1: TMenuItem
      Caption = 'Edit'
      OnClick = Edit1Click
    end
    object Delete1: TMenuItem
      Caption = 'Delete'
      OnClick = Delete1Click
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object Save1: TMenuItem
      Caption = 'Save'
      OnClick = Save1Click
    end
    object Revert1: TMenuItem
      Caption = 'Revert'
      OnClick = Revert1Click
    end
  end
end