Chip 2004 November/CMCD1104.ISO/Software/Freeware/Comunicatii/poster/tptinstall.exe/%MAINDIR%/Toaster.exe/0/RCDATA/TFRMTEST/TFRMTEST.txt

Text File | 2004-09-23 | 16.8 KB | 791 lines

object frmTest: TfrmTest
  Left = 239
  Top = 165
  Width = 651
  Height = 473
  Caption = 'Test Window'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object btnTest: TButton
    Left = 24
    Top = 8
    Width = 75
    Height = 25
    Caption = 'Test'
    TabOrder = 0
    OnClick = btnTestClick
  end
  object Edit1: TEdit
    Left = 104
    Top = 8
    Width = 297
    Height = 21
    TabOrder = 1
    Text = 'Edit1'
  end
  object Memo1: TMemo
    Left = 16
    Top = 40
    Width = 307
    Height = 81
    Lines.Strings = (
      'Memo1')
    TabOrder = 2
  end
  object Memo2: TMemo
    Left = 16
    Top = 136
    Width = 306
    Height = 89
    Lines.Strings = (
      'Memo2')
    TabOrder = 3
  end
  object wwDBNavigator1: TwwDBNavigator
    Left = 24
    Top = 392
    Width = 350
    Height = 25
    DataSource = DataSource1
    RepeatInterval.InitialDelay = 500
    RepeatInterval.Interval = 100
    object wwDBNavigator1First: TwwNavButton
      Left = 0
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Move to first record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1First'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 0
      Style = nbsFirst
    end
    object wwDBNavigator1PriorPage: TwwNavButton
      Left = 25
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Move backward 10 records'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1PriorPage'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 1
      Style = nbsPriorPage
    end
    object wwDBNavigator1Prior: TwwNavButton
      Left = 50
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Move to prior record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Prior'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 2
      Style = nbsPrior
    end
    object wwDBNavigator1Next: TwwNavButton
      Left = 75
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Move to next record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Next'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 3
      Style = nbsNext
    end
    object wwDBNavigator1NextPage: TwwNavButton
      Left = 100
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Move forward 10 records'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1NextPage'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 4
      Style = nbsNextPage
    end
    object wwDBNavigator1Last: TwwNavButton
      Left = 125
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Move to last record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Last'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 5
      Style = nbsLast
    end
    object wwDBNavigator1Insert: TwwNavButton
      Left = 150
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Insert new record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Insert'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 6
      Style = nbsInsert
    end
    object wwDBNavigator1Delete: TwwNavButton
      Left = 175
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Delete current record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Delete'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 7
      Style = nbsDelete
    end
    object wwDBNavigator1Edit: TwwNavButton
      Left = 200
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Edit current record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Edit'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 8
      Style = nbsEdit
    end
    object wwDBNavigator1Post: TwwNavButton
      Left = 225
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Post changes of current record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Post'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 9
      Style = nbsPost
    end
    object wwDBNavigator1Cancel: TwwNavButton
      Left = 250
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Cancel changes made to current record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Cancel'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 10
      Style = nbsCancel
    end
    object wwDBNavigator1Refresh: TwwNavButton
      Left = 275
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Refresh the contents of the dataset'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Refresh'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 11
      Style = nbsRefresh
    end
    object wwDBNavigator1SaveBookmark: TwwNavButton
      Left = 300
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Bookmark current record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1SaveBookmark'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 12
      Style = nbsSaveBookmark
    end
    object wwDBNavigator1RestoreBookmark: TwwNavButton
      Left = 325
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Go back to saved bookmark'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1RestoreBookmark'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 13
      Style = nbsRestoreBookmark
    end
  end
  object Button1: TButton
    Left = 344
    Top = 232
    Width = 161
    Height = 25
    Caption = 'Get RUName / SetReturnURL'
    TabOrder = 5
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 352
    Top = 264
    Width = 137
    Height = 25
    Caption = 'Get Attributes and Values'
    TabOrder = 6
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 520
    Top = 232
    Width = 121
    Height = 25
    Caption = 'GetCategoryAttributes'
    TabOrder = 7
    OnClick = Button3Click
  end
  object Edit2: TEdit
    Left = 120
    Top = 328
    Width = 49
    Height = 21
    TabOrder = 8
    Text = '0'
  end
  object Button4: TButton
    Left = 376
    Top = 184
    Width = 75
    Height = 25
    Caption = 'Category SQL'
    TabOrder = 9
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 488
    Top = 152
    Width = 91
    Height = 25
    Caption = 'Replace function'
    TabOrder = 10
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 32
    Top = 328
    Width = 75
    Height = 25
    Caption = 'create combo'
    TabOrder = 11
    OnClick = Button6Click
  end
  object wwDBComboBox1: TwwDBComboBox
    Left = 440
    Top = 392
    Width = 121
    Height = 21
    ShowButton = True
    Style = csDropDown
    MapList = True
    AllowClearKey = False
    DropDownCount = 8
    ItemHeight = 0
    Items.Strings = (
      'test'#9'1'
      'test2'#9'2')
    Sorted = False
    TabOrder = 12
    UnboundDataType = wwDefault
    OnChange = wwDBComboBox1Change
  end
  object Button7: TButton
    Left = 520
    Top = 257
    Width = 75
    Height = 25
    Caption = 'GetDomains'
    TabOrder = 13
    OnClick = Button7Click
  end
  object Button8: TButton
    Left = 144
    Top = 280
    Width = 75
    Height = 25
    Caption = 'remove quotes'
    TabOrder = 14
    OnClick = Button8Click
  end
  object CheckBox1: TCheckBox
    Left = 270
    Top = 231
    Width = 97
    Height = 17
    Caption = 'CheckBox1'
    TabOrder = 15
  end
  object wwDBDateTimePicker1: TwwDBDateTimePicker
    Left = 405
    Top = 8
    Width = 121
    Height = 21
    CalendarAttributes.Font.Charset = DEFAULT_CHARSET
    CalendarAttributes.Font.Color = clWindowText
    CalendarAttributes.Font.Height = -11
    CalendarAttributes.Font.Name = 'MS Sans Serif'
    CalendarAttributes.Font.Style = []
    CalendarAttributes.PopupYearOptions.YearsPerColumn = 3
    CalendarAttributes.PopupYearOptions.StartYear = 2000
    Epoch = 1950
    ShowButton = True
    TabOrder = 16
    UnboundDataType = wwDTEdtDate
  end
  object Button9: TButton
    Left = 268
    Top = 263
    Width = 75
    Height = 25
    Caption = 'SetToken'
    TabOrder = 17
    OnClick = Button9Click
  end
  object wwDBDateTimePicker2: TwwDBDateTimePicker
    Left = 331
    Top = 58
    Width = 135
    Height = 21
    CalendarAttributes.Font.Charset = DEFAULT_CHARSET
    CalendarAttributes.Font.Color = clWindowText
    CalendarAttributes.Font.Height = -11
    CalendarAttributes.Font.Name = 'MS Sans Serif'
    CalendarAttributes.Font.Style = []
    Epoch = 1950
    ShowButton = True
    TabOrder = 18
    DisplayFormat = 'ddddd hh:nn ampm'
  end
  object edtGMT: TEdit
    Left = 472
    Top = 59
    Width = 154
    Height = 21
    TabOrder = 19
    Text = 'edtGMT'
  end
  object edtLocal: TEdit
    Left = 472
    Top = 86
    Width = 154
    Height = 21
    TabOrder = 20
    Text = 'edtLocal'
  end
  object Button10: TButton
    Left = 384
    Top = 144
    Width = 75
    Height = 25
    Caption = 'Button10'
    TabOrder = 21
    OnClick = Button10Click
  end
  object Button11: TButton
    Left = 48
    Top = 280
    Width = 75
    Height = 25
    Caption = 'Remove CRLF'
    TabOrder = 22
  end
  object Button12: TButton
    Left = 336
    Top = 336
    Width = 75
    Height = 25
    Caption = 'copy cats'
    TabOrder = 23
  end
  object ProgressBar1: TProgressBar
    Left = 0
    Top = 422
    Width = 643
    Height = 17
    Align = alBottom
    Min = 0
    Max = 100
    TabOrder = 24
  end
  object Button13: TButton
    Left = 424
    Top = 336
    Width = 89
    Height = 25
    Caption = 'Import From CSV'
    TabOrder = 25
    OnClick = Button13Click
  end
  object Button14: TButton
    Left = 424
    Top = 296
    Width = 75
    Height = 25
    Caption = 'Import EbayCS'
    TabOrder = 26
    OnClick = Button14Click
  end
  object DataSource1: TDataSource
    DataSet = AdsTable1
    Left = 504
    Top = 184
  end
  object AdsTable1: TAdsTable
    IndexDefs = <
      item
        Name = 'TITLE'
        Fields = 'TITLE'
      end
      item
        Name = 'AUCTIONID'
        Fields = 'AUCTIONID'
      end
      item
        Name = 'ADID'
        Fields = 'ADID'
        Options = [ixUnique]
      end>
    StoreActive = True
    Version = '6.2 (ACE 6.20)'
    FieldDefs = <
      item
        Name = 'AdID'
        DataType = ftAutoInc
      end
      item
        Name = 'Title'
        DataType = ftString
        Size = 45
      end
      item
        Name = 'Description'
        DataType = ftMemo
        Size = 1
      end
      item
        Name = 'Quantity'
        DataType = ftSmallint
      end
      item
        Name = 'MinimumBid'
        DataType = ftFloat
      end
      item
        Name = 'Duration'
        DataType = ftSmallint
      end
      item
        Name = 'ReservePrice'
        DataType = ftFloat
      end
      item
        Name = 'Cost'
        DataType = ftFloat
      end
      item
        Name = 'ShippingHandlingCosts'
        DataType = ftFloat
      end
      item
        Name = 'InsuranceFee'
        DataType = ftFloat
      end
      item
        Name = 'InsureFor'
        DataType = ftFloat
      end
      item
        Name = 'DoNotEdit'
        DataType = ftBoolean
      end
      item
        Name = 'StockNo'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'RecType'
        DataType = ftString
        Size = 8
      end
      item
        Name = 'AuctionID'
        DataType = ftInteger
      end
      item
        Name = 'AuctionUserID'
        DataType = ftString
        Size = 64
      end
      item
        Name = 'AuctionName'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'StockFlag'
        DataType = ftBoolean
      end
      item
        Name = 'FolderId'
        DataType = ftInteger
      end
      item
        Name = 'SiteId'
        DataType = ftInteger
      end
      item
        Name = 'Format'
        DataType = ftInteger
      end
      item
        Name = 'Modified'
        DataType = ftDateTime
      end
      item
        Name = 'StartTime'
        DataType = ftDateTime
      end
      item
        Name = 'EndTime'
        DataType = ftDateTime
      end
      item
        Name = 'ItemXML'
        DataType = ftMemo
        Size = 1
      end
      item
        Name = 'ebayItemId'
        DataType = ftString
        Size = 255
      end
      item
        Name = 'Fees'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'ComputedAttributes'
        DataType = ftMemo
        Size = 1
      end
      item
        Name = 'ErrorMessage'
        DataType = ftMemo
        Size = 1
      end
      item
        Name = 'batchID'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FTPID'
        DataType = ftInteger
      end
      item
        Name = 'PostStatus'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'PostDate'
        DataType = ftDateTime
      end>
    StoreDefs = True
    TableName = 'Ads'
    Left = 432
    Top = 88
  end
  object OpenDialog1: TOpenDialog
    Left = 519
    Top = 30
  end
  object tblCategories: TAdsTable
    DatabaseName = 'frmPosterMain.AdsConnection1'
    IndexDefs = <
      item
        Name = 'TOPPARENTID'
        Fields = 'TOPPARENTID'
      end
      item
        Name = 'PRIMARY'
        Fields = 'SITEID;CATEGORYID'
        Options = [ixUnique]
      end
      item
        Name = 'CATEGORYID'
        Fields = 'CATEGORYID'
      end
      item
        Name = 'PARENTID'
        Fields = 'PARENTID'
      end
      item
        Name = 'LEVEL'
        Fields = 'LEVEL'
      end>
    StoreActive = True
    Version = '6.2 (ACE 6.20)'
    FieldDefs = <
      item
        Name = 'CategoryId'
        DataType = ftInteger
      end
      item
        Name = 'SiteId'
        DataType = ftInteger
      end
      item
        Name = 'FormatId'
        DataType = ftInteger
      end
      item
        Name = 'ParentId'
        DataType = ftInteger
      end
      item
        Name = 'Level'
        DataType = ftInteger
      end
      item
        Name = 'IsLeaf'
        DataType = ftInteger
      end
      item
        Name = 'TopParentId'
        DataType = ftInteger
      end
      item
        Name = 'IsExpired'
        DataType = ftInteger
      end
      item
        Name = 'IsVirtual'
        DataType = ftInteger
      end
      item
        Name = 'CatName'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'FullName'
        DataType = ftString
        Size = 255
      end>
    StoreDefs = True
    TableName = 'EbayCategories'
    Left = 192
    Top = 328
  end
  object AdsQuery1: TAdsQuery
    DatabaseName = 'frmPosterMain.AdsConnection1'
    StoreActive = True
    Version = '6.2 (ACE 6.20)'
    ReadAllColumns = False
    SQL.Strings = (
      'Delete from EbayCategories')
    Left = 296
    Top = 304
    ParamData = <>
  end
  object tblEbayCS: TAdsTable
    DatabaseName = 'frmPosterMain.AdsConnection1'
    StoreActive = True
    Version = '6.2 (ACE 6.20)'
    TableName = 'EbayCS'
    Left = 256
    Top = 336
  end
end