Hot Shareware 32/hot34.iso/ficheros/9APLI/GRS1_20.ZIP/_SETUP.1/Pace.exe/0/RCDATA/TMAINFORM/TMAINFORM.txt

Text File | 1998-04-09 | 7KB | 316 lines

object MainForm: TMainForm
  Left = 233
  Top = 137
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Labmyc Pace'
  ClientHeight = 199
  ClientWidth = 329
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DistanceBox: TGroupBox
    Left = 0
    Top = 0
    Width = 105
    Height = 177
    Caption = 'Distance'
    TabOrder = 0
    object MileButton: TRadioButton
      Left = 8
      Top = 152
      Width = 73
      Height = 17
      Hint = 'Select for miles'
      Caption = 'miles'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = MileButtonClick
      OnEnter = MileButtonEnter
    end
    object KiloButton: TRadioButton
      Left = 8
      Top = 136
      Width = 81
      Height = 17
      Hint = 'Select for kilometers'
      Caption = 'kilometers'
      Checked = True
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      TabStop = True
      OnClick = KiloButtonClick
      OnEnter = KiloButtonEnter
    end
    object DistanceList: TListBox
      Left = 8
      Top = 56
      Width = 89
      Height = 73
      Hint = 'Select distance'
      ItemHeight = 13
      Items.Strings = (
        '10 km'
        '15 km'
        '10 mile'
        '21.1 km'
        '32 km'
        '20 mile'
        '42.2 km'
        '56 km'
        'Other')
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = DistanceListClick
    end
    object DistanceEdit: TEdit
      Left = 8
      Top = 24
      Width = 89
      Height = 21
      Hint = 'Enter distance'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Text = '10'
      OnChange = DistanceEditChange
      OnEnter = DistanceEditEnter
    end
  end
  object PaceBox: TGroupBox
    Left = 112
    Top = 0
    Width = 105
    Height = 177
    Caption = 'Pace'
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 107
      Width = 73
      Height = 15
      Alignment = taCenter
      AutoSize = False
      Caption = 'min/km'
    end
    object MinLabel: TLabel
      Left = 16
      Top = 45
      Width = 57
      Height = 15
      Alignment = taCenter
      AutoSize = False
      Caption = 'minutes'
    end
    object SecLabel: TLabel
      Left = 16
      Top = 86
      Width = 57
      Height = 15
      Alignment = taCenter
      AutoSize = False
      Caption = 'seconds'
    end
    object PaceMinEdit: TEdit
      Left = 16
      Top = 24
      Width = 57
      Height = 21
      Hint = 'Enter pace minutes'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnChange = PaceMinEditChange
      OnExit = PaceMinEditExit
    end
    object UpDownMin: TUpDown
      Left = 73
      Top = 24
      Width = 16
      Height = 21
      Min = -1
      Max = 60
      Position = 4
      TabOrder = 3
      Wrap = False
      OnClick = UpDownMinClick
    end
    object UpDownSec: TUpDown
      Left = 72
      Top = 64
      Width = 16
      Height = 21
      Min = -1
      Max = 60
      Position = 0
      TabOrder = 4
      Wrap = False
      OnClick = UpDownSecClick
    end
    object PaceSecEdit: TEdit
      Left = 16
      Top = 64
      Width = 57
      Height = 21
      Hint = 'Enter pace seconds'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnChange = PaceSecEditChange
      OnExit = PaceSecEditExit
    end
    object PaceButton: TButton
      Left = 8
      Top = 144
      Width = 89
      Height = 25
      Hint = 'Press to calculate pace'
      Caption = 'Calculate &Pace'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = PaceCalc
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 178
    Width = 329
    Height = 21
    Panels = <
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object TimeBox: TGroupBox
    Left = 224
    Top = 0
    Width = 105
    Height = 177
    Caption = 'Duration'
    TabOrder = 2
    object Label3: TLabel
      Left = 16
      Top = 85
      Width = 57
      Height = 15
      Alignment = taCenter
      AutoSize = False
      Caption = 'minutes'
    end
    object Label4: TLabel
      Left = 16
      Top = 126
      Width = 57
      Height = 15
      Alignment = taCenter
      AutoSize = False
      Caption = 'seconds'
    end
    object Label5: TLabel
      Left = 16
      Top = 45
      Width = 57
      Height = 15
      Alignment = taCenter
      AutoSize = False
      Caption = 'hours'
    end
    object TimeMinEdit: TEdit
      Left = 16
      Top = 64
      Width = 57
      Height = 21
      Hint = 'Enter duration minutes'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnChange = TimeMinEditChange
      OnExit = TimeMinEditExit
    end
    object UpDownTMin: TUpDown
      Left = 73
      Top = 64
      Width = 16
      Height = 21
      Min = -1
      Max = 60
      Position = 0
      TabOrder = 5
      Wrap = False
      OnClick = UpDownTMinClick
    end
    object UpDownTSec: TUpDown
      Left = 72
      Top = 104
      Width = 16
      Height = 21
      Min = -1
      Max = 60
      Position = 0
      TabOrder = 6
      Wrap = False
      OnClick = UpDownTSecClick
    end
    object TimeSecEdit: TEdit
      Left = 16
      Top = 104
      Width = 57
      Height = 21
      Hint = 'Enter duration seconds'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnChange = TimeSecEditChange
      OnExit = TimeSecEditExit
    end
    object TimeHourEdit: TEdit
      Left = 16
      Top = 24
      Width = 57
      Height = 21
      Hint = 'Enter duration hours'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnChange = TimeHourEditChange
      OnExit = TimeHourEditExit
    end
    object UpDownTHour: TUpDown
      Left = 73
      Top = 24
      Width = 16
      Height = 21
      Min = 0
      Max = 1000
      Position = 0
      TabOrder = 4
      Wrap = False
      OnClick = UpDownTHourClick
    end
    object TimeButton: TButton
      Left = 8
      Top = 144
      Width = 89
      Height = 25
      Hint = 'Press to calculate duration'
      Caption = 'Calculate &Time'
      Default = True
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = TimeCalc
    end
  end
end