Datatid 2000 #2/Datatid-2000-02.iso/internet/databox/_setup.1/DataBox.exe/0/RCDATA/TPUBLISHSETUPFORM/TPUBLISHSETUPFORM.txt

Text File | 1999-12-11 | 12.3 KB | 576 lines

object PublishSetupForm: TPublishSetupForm
  Left = 5
  Top = 0
  Width = 619
  Height = 452
  Caption = 'PublishSetupForm'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  TextHeight = 13
  object Image2: TImage
    Left = 120
    Top = 135
    Width = 81
    Height = 89
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 40
    Width = 609
    Height = 105
    Caption = 'Internet Connection details'
    TabOrder = 0
    object Label2: TLabel
      Left = 8
      Top = 32
      Width = 54
      Height = 17
      Caption = 'Account ID'
    end
    object Label1: TLabel
      Left = 8
      Top = 16
      Width = 63
      Height = 17
      Caption = 'Host Address'
    end
    object Label3: TLabel
      Left = 310
      Top = 33
      Width = 46
      Height = 17
      Caption = 'Password'
    end
    object Label5: TLabel
      Left = 310
      Top = 16
      Width = 19
      Height = 13
      Caption = 'Port'
    end
    object Label10: TLabel
      Left = 8
      Top = 50
      Width = 101
      Height = 17
      Hint =
        'Only enter this if your published files should reside in a sub-d' +
        'irectory on your Web Hosts Server.'
      Caption = 'WebSite subdirectory'
      ParentShowHint = False
      ShowHint = True
    end
    object FTPAccountID: TEdit
      Left = 119
      Top = 30
      Width = 129
      Height = 21
      MaxLength = 199
      TabOrder = 1
      Text = 'anonymous'
      OnChange = FTPAccountIDChange
    end
    object FTPhost: TEdit
      Left = 119
      Top = 13
      Width = 185
      Height = 21
      MaxLength = 199
      TabOrder = 0
      Text = 'upload.youraccount.net'
      OnChange = FTPhostChange
    end
    object FTPPassword: TEdit
      Left = 366
      Top = 32
      Width = 129
      Height = 21
      MaxLength = 199
      PasswordChar = '*'
      TabOrder = 2
      Text = 'anything'
      OnChange = FTPPasswordChange
    end
    object FTPPort: TEdit
      Left = 366
      Top = 13
      Width = 33
      Height = 21
      MaxLength = 5
      TabOrder = 4
      Text = '21'
      OnChange = FTPPortChange
    end
    object BitBtn1: TBitBtn
      Left = 520
      Top = 9
      Width = 65
      Height = 25
      TabOrder = 5
      OnClick = BitBtn1Click
      Kind = bkCancel
    end
    object BitBtn2: TBitBtn
      Left = 520
      Top = 39
      Width = 65
      Height = 25
      TabOrder = 6
      OnClick = BitBtn2Click
      Kind = bkOK
    end
    object FTPHostDir: TEdit
      Left = 119
      Top = 47
      Width = 129
      Height = 21
      TabOrder = 3
      Text = 'sfx'
      OnChange = FTPHostDirChange
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 609
    Height = 41
    TabOrder = 1
    object SimpleWebFXLogo: TImage
      Tag = 1
      Left = 2
      Top = 5
      Width = 205
      Height = 36
      Picture.Data = {<image000.bmp>}
    end
    object HeaderText1: TEdit
      Left = 200
      Top = 5
      Width = 401
      Height = 19
      BorderStyle = bsNone
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = 'AdLib BT'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      Text = '                                WebSite Upload'
    end
    object HeaderText2: TEdit
      Left = 200
      Top = 20
      Width = 401
      Height = 17
      BorderStyle = bsNone
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -12
      Font.Name = 'AdLib BT'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 1
      Text = '                                     Manager'
    end
  end
  object GroupBox2: TGroupBox
    Left = -1
    Top = 104
    Width = 610
    Height = 321
    Caption = 'Publishing Options'
    TabOrder = 2
    object Label4: TLabel
      Left = 11
      Top = 13
      Width = 169
      Height = 13
      Caption = 'Page Background (Image or Colour)'
    end
    object Label6: TLabel
      Left = 405
      Top = 13
      Width = 197
      Height = 13
      Caption = 'Web Table Background (Image or Colour)'
    end
    object Label7: TLabel
      Left = 8
      Top = 252
      Width = 134
      Height = 13
      Caption = 'Publish Instruction Text Font'
    end
    object Label8: TLabel
      Left = 228
      Top = 13
      Width = 149
      Height = 13
      Caption = 'Table Heading (Image or Text)'
    end
    object Label9: TLabel
      Left = 225
      Top = 250
      Width = 125
      Height = 13
      Caption = 'Publish from local directory'
    end
    object Label11: TLabel
      Left = 8
      Top = 296
      Width = 84
      Height = 13
      Caption = 'Quick View Fields'
    end
    object OlePageBackground: TImage
      Left = 120
      Top = 135
      Width = 81
      Height = 89
      Stretch = True
    end
    object OleTableHeading: TImage
      Left = 324
      Top = 135
      Width = 81
      Height = 89
    end
    object OleTableBackground: TImage
      Left = 523
      Top = 135
      Width = 81
      Height = 89
      Stretch = True
    end
    object Label12: TLabel
      Left = 8
      Top = 274
      Width = 113
      Height = 13
      Hint =
        'Check this box if all published Images should be scaled, else le' +
        'ave Blank for original Image Size'
      Caption = 'Publish Images to Scale'
      ParentShowHint = False
      ShowHint = True
    end
    object DirectoryListBackground: TDirectoryListBox
      Left = 8
      Top = 63
      Width = 193
      Height = 65
      FileList = FileListBackground
      ItemHeight = 16
      TabOrder = 2
    end
    object FileListBackground: TFileListBox
      Left = 8
      Top = 131
      Width = 113
      Height = 110
      ItemHeight = 13
      Mask = '*.jpg;*.gif'
      TabOrder = 3
      OnClick = FileListBackgroundClick
    end
    object PageBackgroundColour: TComboBox
      Left = 70
      Top = 27
      Width = 73
      Height = 21
      Hint = 'Select an Image file or a colour for the Page background'
      DropDownCount = 17
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ItemHeight = 13
      Items.Strings = (
        'Image'
        'Black'
        'Maroon'
        'Green'
        'Olive'
        'Navy'
        'Purple'
        'Teal'
        'Gray'
        'Silver'
        'Red'
        'Lime'
        'Yellow'
        'Blue'
        'Fuschia'
        'Aqua'
        'White')
      ParentFont = False
      TabOrder = 0
      Text = 'Image'
      OnChange = PageBackgroundColourChange
    end
    object DirectoryListTableBackground: TDirectoryListBox
      Left = 410
      Top = 63
      Width = 193
      Height = 65
      FileList = FileListTableBackground
      ItemHeight = 16
      TabOrder = 5
    end
    object FileListTableBackground: TFileListBox
      Left = 410
      Top = 131
      Width = 113
      Height = 110
      ItemHeight = 13
      Mask = '*.gif;*.jpg'
      TabOrder = 7
      OnClick = FileListTableBackgroundClick
    end
    object TableBackgroundColour: TComboBox
      Left = 463
      Top = 25
      Width = 73
      Height = 21
      Hint = 'Select a colour or an Image file for the Table background'
      DropDownCount = 17
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ItemHeight = 13
      Items.Strings = (
        'Image'
        'Black'
        'Maroon'
        'Green'
        'Olive'
        'Navy'
        'Purple'
        'Teal'
        'Gray'
        'Silver'
        'Red'
        'Lime'
        'Yellow'
        'Blue'
        'Fuschia'
        'Aqua'
        'White')
      ParentFont = False
      TabOrder = 1
      Text = 'Image'
      OnChange = TableBackgroundColourChange
    end
    object TableHeader: TEdit
      Left = 287
      Top = 26
      Width = 96
      Height = 21
      TabOrder = 4
      Text = 'DataBox'
    end
    object PublishDirectory: TDirectoryListBox
      Left = 358
      Top = 268
      Width = 169
      Height = 51
      FileList = PublishFileList
      ItemHeight = 16
      TabOrder = 10
      OnClick = PublishDirectoryClick
      OnDblClick = PublishDirectoryClick
    end
    object TableHeadingImageFile: TEdit
      Left = 322
      Top = 224
      Width = 81
      Height = 21
      TabOrder = 6
    end
    object PageBackgroundImageFile: TEdit
      Left = 120
      Top = 224
      Width = 81
      Height = 21
      TabOrder = 8
    end
    object TableBackgroundImageFile: TEdit
      Left = 522
      Top = 224
      Width = 81
      Height = 21
      TabOrder = 9
    end
    object PublishFileList: TFileListBox
      Left = 568
      Top = 168
      Width = 145
      Height = 97
      ItemHeight = 13
      Mask = 'sfx*.*'
      TabOrder = 11
      Visible = False
    end
    object QuickViewFields: TEdit
      Left = 119
      Top = 292
      Width = 89
      Height = 21
      Hint = 'Enter the field numbers for QuickView separated by commas.'
      MaxLength = 60
      TabOrder = 12
      Text = '1,2,3,4,5,6,7,8'
      OnChange = QuickViewFieldsChange
    end
    object DriveComboBox1: TDriveComboBox
      Left = 8
      Top = 48
      Width = 193
      Height = 19
      DirList = DirectoryListBackground
      TabOrder = 13
    end
    object DriveComboBox2: TDriveComboBox
      Left = 210
      Top = 48
      Width = 193
      Height = 19
      DirList = DirectoryListHeader
      TabOrder = 14
    end
    object DriveComboBox3: TDriveComboBox
      Left = 410
      Top = 48
      Width = 193
      Height = 19
      DirList = DirectoryListTableBackground
      TabOrder = 15
    end
    object DriveComboBox4: TDriveComboBox
      Left = 358
      Top = 249
      Width = 169
      Height = 19
      DirList = PublishDirectory
      TabOrder = 16
    end
    object TableHeaderColour: TComboBox
      Left = 210
      Top = 25
      Width = 73
      Height = 21
      Hint = 'Select the colour for the Table heading if its not an Image file'
      DropDownCount = 17
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ItemHeight = 13
      Items.Strings = (
        'Image'
        'Black'
        'Maroon'
        'Green'
        'Olive'
        'Navy'
        'Purple'
        'Teal'
        'Gray'
        'Silver'
        'Red'
        'Lime'
        'Yellow'
        'Blue'
        'Fuschia'
        'Aqua'
        'White')
      ParentFont = False
      TabOrder = 17
      Text = 'Image'
      OnChange = TableHeaderColourChange
    end
    object InstructionColour: TEdit
      Left = 160
      Top = 250
      Width = 17
      Height = 21
      Hint =
        'Double Click to select the Font for Instructions for Web Publica' +
        'tion'
      Color = clYellow
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clYellow
      Font.Height = -1
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 18
      OnDblClick = InstructionColourDblClick
    end
    object ScaleImages: TCheckBox
      Left = 162
      Top = 272
      Width = 25
      Height = 17
      Hint =
        'Check this box if all published Images should be scaled, else le' +
        'ave Blank for original Image Size'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 19
    end
    object HeaderColour: TEdit
      Left = 384
      Top = 26
      Width = 17
      Height = 21
      Hint = 'Double Click to select the Header Font for Web Publication'
      Color = clYellow
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clYellow
      Font.Height = -1
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 20
      OnDblClick = HeaderColourDblClick
    end
  end
  object DirectoryListHeader: TDirectoryListBox
    Left = 209
    Top = 168
    Width = 193
    Height = 65
    FileList = FileListHeader
    ItemHeight = 16
    TabOrder = 3
  end
  object FileListHeader: TFileListBox
    Left = 209
    Top = 235
    Width = 113
    Height = 110
    ItemHeight = 13
    Mask = '*.jpg;*.gif'
    TabOrder = 4
    OnClick = FileListHeaderClick
  end
end