unitmain.dfm

Delphi写的小型桌面日历不错的！

object Form1: TForm1
  Left = 287
  Top = 122
  AlphaBlend = True
  BorderIcons = [biSystemMenu]
  BorderStyle = bsNone
  Caption = 'Form1'
  ClientHeight = 321
  ClientWidth = 387
  Color = clWhite
  TransparentColor = True
  TransparentColorValue = clWhite
  Ctl3D = False
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  OnHide = FormHide
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 0
    Top = 29
    Width = 387
    Height = 212
    Align = alTop
    PopupMenu = PopupMenu2
    OnMouseDown = Image1MouseDown
  end
  object toolBar: TRzToolbar
    Left = 0
    Top = 0
    Width = 387
    Height = 29
    AutoStyle = False
    Images = ImageList1
    BorderInner = fsNone
    BorderOuter = fsNone
    BorderSides = []
    BorderWidth = 0
    Color = clWhite
    TabOrder = 0
    ToolbarControls = (
      BtnExit
      BtnRefresh
      RzSpacer1
      BtnSkipBackward
      BtnMoveLeft
      BtnMoveRight
      BtnSkipForward
      RzSpacer2
      BtnReminder
      BtnNote
      BtnSendEMail
      RzSpacer3
      BtnFont
      BtnUtilities
      RzSpacer4
      BtnHelp)
    object BtnFont: TRzToolButton
      Left = 253
      Top = 2
      DisabledIndex = 1
      Action = actFontSelect
    end
    object BtnSkipBackward: TRzToolButton
      Left = 62
      Top = 2
      DisabledIndex = 3
      Action = actPreDay
    end
    object BtnMoveLeft: TRzToolButton
      Left = 87
      Top = 2
      DisabledIndex = 5
      ImageIndex = 4
      Caption = 'Move Left'
    end
    object BtnMoveRight: TRzToolButton
      Left = 112
      Top = 2
      DisabledIndex = 7
      ImageIndex = 6
      Caption = 'Move Right'
    end
    object BtnSkipForward: TRzToolButton
      Left = 137
      Top = 2
      DisabledIndex = 9
      Action = actNextDay
    end
    object BtnExit: TRzToolButton
      Left = 4
      Top = 2
      DisabledIndex = 11
      Action = actExit
    end
    object RzSpacer1: TRzSpacer
      Left = 54
      Top = 2
    end
    object BtnReminder: TRzToolButton
      Left = 170
      Top = 2
      DisabledIndex = 13
      ImageIndex = 12
      Caption = 'Reminder'
    end
    object BtnNote: TRzToolButton
      Left = 195
      Top = 2
      DisabledIndex = 15
      ImageIndex = 14
      Caption = 'Note'
    end
    object BtnSendEMail: TRzToolButton
      Left = 220
      Top = 2
      DisabledIndex = 17
      ImageIndex = 16
      Caption = 'Send EMail'
    end
    object BtnUtilities: TRzToolButton
      Left = 278
      Top = 2
      DisabledIndex = 19
      ImageIndex = 18
      Caption = 'Utilities'
    end
    object BtnHelp: TRzToolButton
      Left = 311
      Top = 2
      DisabledIndex = 25
      ImageIndex = 24
      Caption = 'Help'
    end
    object RzSpacer2: TRzSpacer
      Left = 162
      Top = 2
    end
    object RzSpacer3: TRzSpacer
      Left = 245
      Top = 2
    end
    object RzSpacer4: TRzSpacer
      Left = 303
      Top = 2
    end
    object BtnRefresh: TRzToolButton
      Left = 29
      Top = 2
      DisabledIndex = 27
      Action = actRefresh
    end
  end
  object Memo1: TMemo
    Left = 0
    Top = 241
    Width = 387
    Height = 89
    Align = alTop
    BorderStyle = bsNone
    Lines.Strings = (
      '')
    ParentColor = True
    TabOrder = 1
  end
  object ActionManager1: TActionManager
    ActionBars = <
      item
        Color = clWhite
        Items = <
          item
            Action = actFontSelect
          end
          item
            Action = actRefresh
          end
          item
            Action = actPreDay
          end
          item
            Action = actNextDay
          end>
      end>
    Images = ImageList1
    Left = 256
    Top = 48
    StyleName = 'XP Style'
    object actFontSelect: TAction
      Caption = #23383#20307
      ImageIndex = 0
      OnExecute = actFontSelectExecute
    end
    object actPreDay: TAction
      Caption = '<'
      ImageIndex = 2
      OnExecute = actPreDayExecute
    end
    object actNextDay: TAction
      Caption = '>'
      ImageIndex = 8
      OnExecute = actNextDayExecute
    end
    object actRefresh: TAction
      Caption = #21047#26032
      ImageIndex = 26
      OnExecute = actRefreshExecute
    end
    object actExit: TAction