home *** CD-ROM | disk | FTP | other *** search
- object Form6: TForm6
- Left = 405
- Top = 290
- ActiveControl = EventTime
- BorderStyle = bsDialog
- Caption = 'Add event'
- ClientHeight = 79
- ClientWidth = 354
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Scaled = False
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Bevel1: TBevel
- Left = 0
- Top = 0
- Width = 354
- Height = 79
- Align = alClient
- Shape = bsFrame
- end
- object Bevel2: TBevel
- Left = 8
- Top = 8
- Width = 337
- Height = 62
- end
- object SpeedButton94: TSpeedButton
- Left = 191
- Top = 40
- Width = 73
- Height = 25
- Caption = '&Ok'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- OnClick = SpeedButton94Click
- end
- object SpeedButton2: TSpeedButton
- Left = 264
- Top = 40
- Width = 73
- Height = 25
- Caption = '&Cancel'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- OnClick = SpeedButton2Click
- end
- object EventText: TEdit
- Left = 64
- Top = 16
- Width = 273
- Height = 21
- MaxLength = 50
- TabOrder = 1
- Text = 'EventText'
- OnKeyDown = EventTextKeyDown
- end
- object EventTime: TMaskEdit
- Left = 16
- Top = 16
- Width = 41
- Height = 21
- EditMask = '!90:00;1;_'
- MaxLength = 5
- TabOrder = 0
- Text = ' : '
- OnKeyDown = EventTimeKeyDown
- end
- end
-