Chip 2003 January/Chip_2003-01_cd1.bin/zkuste/delphi/nastroje/d234567/PRODEL.ZIP/PROFONLI.DF2/PROFONLI.txt

Text File | 2002-05-12 | 5KB | 244 lines

object OnlineProform: TOnlineProform
  Left = 44
  Top = 384
  BorderStyle = bsToolWindow
  Caption = 'ProDelphi  -  online operation'
  ClientHeight = 236
  ClientWidth = 296
  Color = clPurple
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Position = poDefaultPosOnly
  Visible = True
  OnCreate = Erzeugen
  OnDestroy = Zerstoeren
  PixelsPerInch = 96
  TextHeight = 13
  object Panel2: TPanel
    Left = 2
    Top = 100
    Width = 290
    Height = 73
    BevelOuter = bvNone
    Color = clPurple
    TabOrder = 5
    object RunId: TLabel
      Left = 252
      Top = 4
      Width = 31
      Height = 13
      AutoSize = False
      Caption = '1'
      Font.Color = clYellow
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label5: TLabel
      Left = 10
      Top = 4
      Width = 233
      Height = 13
      AutoSize = False
      Caption = 'Next runtimes will be stored with Run-Id:'
      Font.Color = clYellow
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label1: TLabel
      Left = 10
      Top = 28
      Width = 73
      Height = 17
      AutoSize = False
      Caption = 'CPU-Speed:'
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object CPUFrequenz: TLabel
      Left = 10
      Top = 45
      Width = 29
      Height = 17
      Alignment = taRightJustify
      AutoSize = False
      Caption = '2000'
      Color = clPurple
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object Label3: TLabel
      Left = 45
      Top = 45
      Width = 26
      Height = 17
      AutoSize = False
      Caption = 'MHz'
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object GroupBox2: TGroupBox
      Left = 78
      Top = 24
      Width = 208
      Height = 41
      Caption = 'Comment for the next stored runtimes: '
      Color = clPurple
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      TabOrder = 0
      object Edit1: TEdit
        Left = 6
        Top = 15
        Width = 195
        Height = 22
        Color = clWhite
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        Text = 'none'
      end
    end
  end
  object Button1: TButton
    Left = 8
    Top = 8
    Width = 281
    Height = 17
    Caption = 'Start measurement and collect runtimes in memory'
    Font.Color = clMaroon
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = StarteMessung
  end
  object Button2: TButton
    Left = 8
    Top = 32
    Width = 281
    Height = 17
    Caption = 'Stop measurement and collecting runtimes in memory'
    TabOrder = 1
    OnClick = StoppeMessung
  end
  object Button3: TButton
    Left = 8
    Top = 80
    Width = 281
    Height = 17
    Caption = 'Add collected runtimes to file and delete in memory'
    TabOrder = 2
    OnClick = Anhaengen
  end
  object Button4: TButton
    Left = 8
    Top = 56
    Width = 281
    Height = 17
    Caption = 'Delete runtimes collected in memory'
    TabOrder = 3
    OnClick = ResultatLoeschen
  end
  object Panel1: TPanel
    Left = 8
    Top = 174
    Width = 281
    Height = 55
    TabOrder = 4
    object MinLab: TLabel
      Left = 197
      Top = 5
      Width = 17
      Height = 13
      Alignment = taCenter
      AutoSize = False
      Caption = '30'
      Color = clBtnFace
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object Label6: TLabel
      Left = 216
      Top = 5
      Width = 45
      Height = 13
      AutoSize = False
      Caption = 'minute(s)'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object CycBut: TCheckBox
      Left = 16
      Top = 4
      Width = 181
      Height = 17
      Caption = 'Cyclic measurement storage every'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = ActDeact
    end
    object FrequAnz: TTrackBar
      Left = 3
      Top = 22
      Width = 273
      Height = 29
      Max = 60
      Min = 1
      Orientation = trHorizontal
      ParentShowHint = False
      Frequency = 1
      Position = 30
      SelEnd = 1
      SelStart = 60
      ShowHint = False
      TabOrder = 1
      TickMarks = tmBottomRight
      TickStyle = tsNone
      OnChange = TickChange
    end
  end
  object CycTimer: TTimer
    Enabled = False
    Interval = 1800000
    OnTimer = CycAppend
    Left = 248
    Top = 62
  end
end