Chip Hitware 10/Chip_Hitware_Vol_10.iso/chiphit/tools/95calend/calendez.exe/0/RCDATA/TMAINFORM/TMAINFORM.txt

Text File | 1997-12-15 | 6.2 KB | 273 lines

object MainForm: TMainForm
  Left = 150
  Top = 30
  Width = 642
  Height = 446
  Caption = 'CalendEzy'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  KeyPreview = True
  Menu = MainMenu
  Position = poDefault
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object ButtonPanel: TPanel
    Left = 0
    Top = 343
    Width = 634
    Height = 57
    Align = alBottom
    TabOrder = 0
    object MessageEdit: TEdit
      Left = 8
      Top = 4
      Width = 541
      Height = 21
      TabOrder = 0
      Text = 'xxx'
      OnKeyDown = MessageEditKeyDown
    end
    object DateTimePanel: TPanel
      Left = 228
      Top = 28
      Width = 205
      Height = 25
      BevelWidth = 4
      TabOrder = 1
      object HourLabel: TLabel
        Left = 12
        Top = 4
        Width = 52
        Height = 15
        Caption = '11:15 am'
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object DayLabel: TLabel
        Left = 76
        Top = 4
        Width = 42
        Height = 15
        Caption = 'Wed 23'
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object MonthLabel: TLabel
        Left = 132
        Top = 4
        Width = 20
        Height = 15
        Caption = 'Mar'
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object YearLabel: TLabel
        Left = 164
        Top = 4
        Width = 28
        Height = 15
        Caption = '1997'
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
    end
  end
  object CalendarPanel: TPanel
    Left = 0
    Top = 0
    Width = 634
    Height = 343
    Align = alClient
    TabOrder = 1
    object CalendarPaintBox: TPaintBox
      Left = 1
      Top = 1
      Width = 632
      Height = 341
      Align = alClient
      Color = clAqua
      ParentColor = False
      ParentShowHint = False
      ShowHint = True
      OnMouseDown = CalendarPaintBoxMouseDown
      OnMouseUp = ButtonMouseUp
      OnPaint = CalendarPaintBoxPaint
    end
  end
  object ZoomTimer: TTimer
    Enabled = False
    Interval = 500
    OnTimer = ZoomTimerTimer
    Left = 8
    Top = 8
  end
  object MainMenu: TMainMenu
    Left = 44
    Top = 8
    object FileMenu: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object ViewItm: TMenuItem
        Caption = 'View &Log...'
        ShortCut = 16460
        OnClick = ViewItmClick
      end
      object ExitItm: TMenuItem
        Caption = 'E&xit'
        ShortCut = 16472
        OnClick = ExitItmClick
      end
    end
    object Level1: TMenuItem
      Caption = '&Level'
      ShortCut = 0
      object YrItm: TMenuItem
        Caption = '&Year'
        ShortCut = 16473
        OnClick = LevelItmClick
      end
      object MthhItm: TMenuItem
        Tag = 1
        Caption = '&Month'
        ShortCut = 16461
        OnClick = LevelItmClick
      end
      object DayItm: TMenuItem
        Tag = 2
        Caption = '&Day'
        ShortCut = 16452
        OnClick = LevelItmClick
      end
      object HrItm: TMenuItem
        Tag = 3
        Caption = '&Hour'
        ShortCut = 16456
        OnClick = LevelItmClick
      end
      object QtrhrItm: TMenuItem
        Tag = 4
        Caption = '&Qtr. Hour'
        ShortCut = 16465
        OnClick = LevelItmClick
      end
    end
    object OptionsMenu: TMenuItem
      Caption = '&Options'
      ShortCut = 0
      object HintItm: TMenuItem
        Caption = '&Hints'
        ShortCut = 0
        OnClick = HintItmClick
      end
      object ZoomControlsItm: TMenuItem
        Caption = '&Zoom Controls...'
        ShortCut = 16474
        OnClick = ZoomControlsItmClick
      end
      object SetFontsItm: TMenuItem
        Caption = 'Set &Fonts...'
        ShortCut = 0
        object TitlesFontItm: TMenuItem
          Caption = '&Titles (Font and Color only)...'
          ShortCut = 16468
          OnClick = TitlesFontItmClick
        end
        object MessagesFontItm: TMenuItem
          Caption = '&Messages...'
          ShortCut = 16461
          OnClick = MessagesFontItmClick
        end
      end
      object SetColrsItm: TMenuItem
        Caption = 'Set &Colors...'
        ShortCut = 0
        object BlocksItm: TMenuItem
          Caption = '&Blocks...'
          ShortCut = 16450
          OnClick = BlocksItmClick
        end
        object CrossHairItm: TMenuItem
          Caption = '&Crosshair...'
          ShortCut = 16451
          OnClick = CrossHairItmClick
        end
        object BackgroundItm: TMenuItem
          Caption = 'Bac&kground...'
          ShortCut = 16459
          OnClick = BackgroundItmClick
        end
      end
      object GraphicsLevelItm: TMenuItem
        Caption = '&Graphics...'
        ShortCut = 16455
        OnClick = GraphicsLevelItmClick
      end
      object ExpiryDays: TMenuItem
        Caption = '&Expiry Days...'
        ShortCut = 16453
        OnClick = ExpiryDaysClick
      end
    end
    object HelpMenu: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      object TutorialItm: TMenuItem
        Caption = '&Tutorial...'
        ShortCut = 0
        OnClick = TutorialItmClick
      end
      object IndexItm: TMenuItem
        Caption = '&Index...'
        ShortCut = 112
        OnClick = IndexItmClick
      end
      object AboutItm: TMenuItem
        Caption = '&About...'
        ShortCut = 16449
        OnClick = AboutItmClick
      end
    end
    object ORDERItm: TMenuItem
      Caption = 'OR&DER...'
      ShortCut = 0
      OnClick = ORDERItmClick
    end
  end
  object ColorDialog: TColorDialog
    Ctl3D = True
    Left = 80
    Top = 8
  end
  object FontDialog: TFontDialog
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 5
    MaxFontSize = 18
    Left = 116
    Top = 8
  end
end