PC World Komputer 1998 April A/Pcwk4a98.iso/Ftp/Leapftp/lftp22.exe/0/RCDATA/TFRMMAIN/TFRMMAIN.txt

Text File | 1998-02-05 | 5.1 KB | 247 lines

object frmMain: TfrmMain
  Left = 125
  Top = 112
  Width = 675
  Height = 426
  BorderIcons = [biSystemMenu]
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  WindowState = wsMaximized
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 120
  TextHeight = 16
  object Gradient1: TGradient
    Left = 0
    Top = 0
    Width = 667
    Height = 399
    ColorStart = clBlue
    ColorEnd = clBlack
  end
  object lblShadowName: TLabel
    Left = 14
    Top = 12
    Width = 328
    Height = 67
    Caption = 'LeapFTP 1.4'
    Font.Color = clBlack
    Font.Height = -60
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
    Transparent = True
  end
  object lblTopName: TLabel
    Left = 12
    Top = 8
    Width = 328
    Height = 67
    Caption = 'LeapFTP 1.4'
    Font.Color = clWhite
    Font.Height = -60
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
    Transparent = True
  end
  object Label4: TLabel
    Left = 12
    Top = 84
    Width = 218
    Height = 31
    Caption = 'by: LeapWare, Inc.'
    Font.Color = clBlack
    Font.Height = -27
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
    Transparent = True
  end
  object Label3: TLabel
    Left = 9
    Top = 81
    Width = 218
    Height = 31
    Caption = 'by: LeapWare, Inc.'
    Font.Color = clWhite
    Font.Height = -27
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
    Transparent = True
  end
  object WelcomePanel: TPanel
    Left = 10
    Top = 204
    Width = 295
    Height = 181
    BevelWidth = 2
    TabOrder = 0
    object imgIcon: TImage
      Left = 16
      Top = 30
      Width = 69
      Height = 79
      Picture.Data = {<image000.bmp>}
    end
    object lblProgramName: TLabel
      Left = 114
      Top = 62
      Width = 3
      Height = 16
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object lblWelcome: TLabel
      Left = 100
      Top = 28
      Width = 170
      Height = 16
      Caption = 'Welcome to LeapFTP Setup'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 100
      Top = 56
      Width = 3
      Height = 16
      WordWrap = True
    end
    object lblProgram: TLabel
      Left = 100
      Top = 56
      Width = 153
      Height = 32
      Caption = 'This program will install LeapFTP on your system.'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      WordWrap = True
    end
    object Label1: TLabel
      Left = 100
      Top = 96
      Width = 141
      Height = 17
      Caption = 'Click Cancel to abort.'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      WordWrap = True
    end
    object btnContinue: TButton
      Left = 35
      Top = 129
      Width = 90
      Height = 28
      HelpContext = 1003
      Caption = 'Continue'
      Default = True
      ModalResult = 1
      TabOrder = 0
      OnClick = btnContinueClick
    end
    object btnCancel: TButton
      Left = 150
      Top = 129
      Width = 91
      Height = 29
      HelpContext = 1003
      Caption = 'Cancel'
      ModalResult = 1
      TabOrder = 1
      OnClick = btnCancelClick
    end
  end
  object PathPanel: TPanel
    Left = 344
    Top = 112
    Width = 314
    Height = 272
    BevelWidth = 2
    Caption = 'PathPanel'
    TabOrder = 1
    object lblDestDir: TLabel
      Left = 18
      Top = 18
      Width = 194
      Height = 16
      Caption = 'Select a directory  for installation:'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object txtDestPath: TEdit
      Left = 16
      Top = 44
      Width = 281
      Height = 24
      TabOrder = 0
    end
    object btnDirContinue: TButton
      Left = 208
      Top = 81
      Width = 89
      Height = 29
      HelpContext = 1003
      Caption = 'Continue'
      Default = True
      ModalResult = 1
      TabOrder = 1
      OnClick = btnDirContinueClick
    end
    object btnDestCancel: TButton
      Left = 208
      Top = 117
      Width = 89
      Height = 29
      HelpContext = 1003
      Caption = 'Cancel'
      ModalResult = 1
      TabOrder = 2
      OnClick = btnCancelClick
    end
    object dir: TDirectoryListBox
      Left = 16
      Top = 80
      Width = 177
      Height = 133
      ItemHeight = 16
      TabOrder = 3
      OnChange = dirChange
    end
    object drive: TDriveComboBox
      Left = 16
      Top = 224
      Width = 177
      Height = 22
      TabOrder = 4
      OnChange = driveChange
      OnClick = driveClick
    end
  end
  object RegProgram: TRegProgram
    ProgName = 'LeapFTP'
    ProgramID = '214065'
    Expired = False
    Left = 88
    Top = 144
  end
end