Chip 1999 January/Chip_1999-01_cd.bin/zkuste/delphi/D3/EDTOOL.ZIP/PVLTEDIT.DFM/PVLTEDIT.txt

Text File | 1997-09-23 | 3KB | 140 lines

object FrmVisTimeEdit: TFrmVisTimeEdit
  Left = 317
  Top = 174
  BorderStyle = bsNone
  Caption = 'FrmVisTimeEdit'
  ClientHeight = 93
  ClientWidth = 156
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  KeyPreview = True
  Position = poDefaultPosOnly
  Scaled = False
  OnClose = FormClose
  OnKeyUp = FormKeyUp
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 156
    Height = 93
    Align = alClient
    TabOrder = 0
    object pm: TSpeedButton
      Left = 112
      Top = 32
      Width = 25
      Height = 16
      GroupIndex = 1
      Caption = 'PM'
      Spacing = 0
      OnClick = amClick
    end
    object am: TSpeedButton
      Left = 112
      Top = 8
      Width = 25
      Height = 16
      GroupIndex = 1
      Down = True
      Caption = 'AM'
      Spacing = 0
      OnClick = amClick
    end
    object Clock: TpvlClock
      Left = 27
      Top = 3
      Width = 57
      Height = 57
      Style.BackgroundColor = clBtnFace
      Style.MajorColor = clAqua
      Style.LineColor = clBlack
      Style.ShowSeconds = False
      Style.ShowCircle = False
      Style.ShowMinor = True
      OnClick = ClockClick
      OnDblClick = clockDblClick
    end
    object uph: TpvlSpeedButton
      Left = 32
      Top = 64
      Width = 17
      Height = 10
      OnClick = uphClick
    end
    object dnh: TpvlSpeedButton
      Left = 32
      Top = 73
      Width = 17
      Height = 10
      OnClick = dnhClick
    end
    object upm: TpvlSpeedButton
      Left = 88
      Top = 64
      Width = 17
      Height = 10
      OnClick = upmClick
    end
    object dnm: TpvlSpeedButton
      Left = 88
      Top = 73
      Width = 17
      Height = 10
      OnClick = dnmClick
    end
    object ups: TpvlSpeedButton
      Left = 136
      Top = 64
      Width = 17
      Height = 10
      OnClick = upsClick
    end
    object dns: TpvlSpeedButton
      Left = 136
      Top = 73
      Width = 17
      Height = 10
      OnClick = dnsClick
    end
    object Edith: TEdit
      Left = 5
      Top = 64
      Width = 23
      Height = 21
      TabStop = False
      MaxLength = 2
      ReadOnly = True
      TabOrder = 0
      Text = 'Edith'
    end
    object Editm: TEdit
      Left = 56
      Top = 62
      Width = 23
      Height = 21
      TabStop = False
      MaxLength = 2
      ReadOnly = True
      TabOrder = 1
      Text = 'Edit1'
    end
    object Edits: TEdit
      Left = 104
      Top = 62
      Width = 23
      Height = 21
      TabStop = False
      MaxLength = 2
      ReadOnly = True
      TabOrder = 2
      Text = 'Edits'
    end
  end
end