main.dfm

Clock 桌面时钟 日历 阴历 看到的delphi程序 转发

object frmMain: TfrmMain
  Left = 407
  Top = 382
  BorderIcons = []
  BorderStyle = bsNone
  ClientHeight = 338
  ClientWidth = 402
  Color = clBtnFace
  Constraints.MaxHeight = 872
  Constraints.MaxWidth = 1160
  Constraints.MinHeight = 50
  Constraints.MinWidth = 125
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object MacPic: TMacBody
    Left = 0
    Top = 22
    Width = 402
    Height = 294
    Align = alClient
    Visible = False
    OnMouseMove = MacPicMouseMove
    NoBorder = False
    object CalLunar: TLunarPanel
      Left = 40
      Top = 21
      Width = 323
      Height = 249
      BackFont.Charset = DEFAULT_CHARSET
      BackFont.Color = clYellow
      BackFont.Height = -107
      BackFont.Name = 'MS Sans Serif'
      BackFont.Style = [fsBold]
      LunarFont.Charset = GB2312_CHARSET
      LunarFont.Color = clWindowText
      LunarFont.Height = -13
      LunarFont.Name = #26999#20307'_GB2312'
      LunarFont.Style = [fsBold]
      WeekFont.Charset = DEFAULT_CHARSET
      WeekFont.Color = clWindowText
      WeekFont.Height = -16
      WeekFont.Name = 'MS Sans Serif'
      WeekFont.Style = [fsBold]
      SolarFont.Charset = DEFAULT_CHARSET
      SolarFont.Color = clWindowText
      SolarFont.Height = -19
      SolarFont.Name = 'MS Sans Serif'
      SolarFont.Style = [fsBold]
      CalendarType = liSolarLunar
      EnWeekName = True
      ShowGrid = True
      ShowMonth = True
      BorderColor = clLime
      TermColor = 16744448
      TodayColor = clLime
      WeekEndColor = clRed
      GridColor = clSilver
      ShowBorder = True
      PopupMenu = pmCal
    end
    object PrevYear: TMacPrevMonth
      Left = 40
      Top = 271
      Width = 10
      Height = 10
      Cursor = crHandPoint
      Hint = #19978#19968#24180
      OnClick = PrevYearClick
    end
    object NextYear: TMacNextMonth
      Left = 353
      Top = 272
      Width = 10
      Height = 10
      Cursor = crHandPoint
      Hint = #19979#19968#24180
      OnClick = NextYearClick
    end
    object NextMonth: TMacNextYear
      Left = 274
      Top = 272
      Width = 10
      Height = 10
      Cursor = crHandPoint
      Hint = #19979#19968#26376
      OnClick = NextMonthClick
    end
    object PrevMonth: TMacPrevYear
      Left = 118
      Top = 272
      Width = 10
      Height = 10
      Cursor = crHandPoint
      Hint = #19978#19968#26376
      OnClick = PrevMonthClick
    end
    object Current: TMacCurrent
      Left = 196
      Top = 272
      Width = 10
      Height = 10
      Cursor = crHandPoint
      Hint = #20170#22825
      OnClick = CurrentClick
    end
  end
  object MacLunar: TMacBody
    Left = 0
    Top = 22
    Width = 402
    Height = 294
    Align = alClient
    Visible = False
    NoBorder = False
    object lblTime: TLabel
      Left = 216
      Top = 16
      Width = 160
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Transparent = True
    end
    object picList: TPictureListBox
      Left = 24
      Top = 60
      Width = 353
      Height = 210
      Popupmenu = pmList
    end
    object MacOpen: TMacSmallButton
      Left = 360
      Top = 274
      Width = 16
      Height = 12
      Cursor = crHandPoint
      Hint = 'Open'
      OnClick = MacOpenClick
    end
    object chkChgWall: TCheckBox
      Left = 26
      Top = 12
      Width = 151
      Height = 16
      Caption = #33258#21160#26356#25442#26700#38754#22721#32440
      Checked = True
      Color = clWindow
      ParentColor = False
      State = cbChecked
      TabOrder = 2
      OnClick = chkChgWallClick
    end
    object MacSpin: TMacSpinEdit
      Left = 280
      Top = 34
      Width = 97
      Height = 22
      AutoSize = False
      MaxValue = 600
      MinValue = 1
      ParentShowHint = False
      ShowHint = False
      TabOrder = 3
      Value = 1
      OnChange = MacSpinChange
      BevelKind = bkFlat
      BevelOuter = bvSpace
      BorderStyle = bsNone
    end
    object cbbTime: TComboBox
      Left = 24
      Top = 34
      Width = 153
      Height = 21
      AutoComplete = False
      BevelKind = bkFlat
      BevelOuter = bvNone
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 4
      OnChange = cbbTimeChange
      Items.Strings = (
        #27599#20845#23567#26102
        #27599#20116#23567#26102
        #27599#22235#23567#26102
        #27599#19977#23567#26102
        #27599#20004#23567#26102
        #27599#23567#26102
        #27599#21322#23567#26102
        #27599#21313#20116#20998#38047
        #27599#20116#20998#38047
        #27599#20998#38047)
    end
    object cbbStyle: TComboBox
      Left = 280
      Top = 8
      Width = 97
      Height = 21
      BevelKind = bkFlat
      BevelOuter = bvNone
      ItemHeight = 13
      TabOrder = 5
      Text = #25289#20280
      Items.Strings = (
        #23621#20013
        #24179#38138
        #25289#20280)
    end
  end
  object MacButtom: TMacPanel
    Left = 0
    Top = 316
    Width = 402
    Height = 22
    Align = alBottom
    NoBorder = False
    object MacLeft: TMacLeftButton
      Left = 1
      Top = 1
      Width = 23
      Height = 20
      Cursor = crHandPoint
      OnClick = MacLeftClick
    end
    object MacRight: TMacRightButton
      Left = 378
      Top = 1
      Width = 23
      Height = 20
      Cursor = crHandPoint
      OnClick = MacRightClick
    end
  end
  object MacHeader: TMacHeader
    Left = 0
    Top = 0
    Width = 402
    Height = 22
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -10
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    OnCloseClick = popExitClick
  end
  object pmCal: TPopupMenu
    AutoHotkeys = maManual
    OnPopup = pmCalPopup
    Left = 120
    Top = 61
    object popShadow: TMenuItem
      AutoCheck = True
      Caption = #23383#20307#38452#24433'(&S)'
      OnClick = popShadowClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object popCnWeek: TMenuItem
      AutoCheck = True
      Caption = #20013#25991#21608#25968'(&N)'
      OnClick = popCnWeekClick
    end
    object popGrid: TMenuItem
      AutoCheck = True
      Caption = #26174#31034#32593#26684'(&G)'
      OnClick = popGridClick
    end
    object popBorder: TMenuItem
      AutoCheck = True
      Caption = #26174#31034#36793#26694'(&B)'
      OnClick = popBorderClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object popColor: TMenuItem
      Caption = #39068#33394'(&C)'
      object popGridColor: TMenuItem
        Caption = #32593#26684#39068#33394'(&G)'
        OnClick = popGridColorClick
      end
      object popBorderColor: TMenuItem
        Caption = #36793#26694#39068#33394'(&B)'
        OnClick = popBorderColorClick
      end
      object popWeekEndColor: TMenuItem
        Caption = #21608#26411#39068#33394'(&W)'
        OnClick = popWeekEndColorClick
      end
      object popTermColor: TMenuItem
        Caption = #33410#27668#39068#33394'(&T)'
        OnClick = popTermColorClick
      end
      object popTodayColor: TMenuItem
        Caption = #20170#22825#39068#33394'(&D)'
        OnClick = popTodayColorClick
      end
    end
    object popCalType: TMenuItem
      Caption = #26085#21382#31867#22411'(&T)'
      object popSolar: TMenuItem
        AutoCheck = True
        Caption = #38451#21382'(&O)'
        RadioItem = True
        OnClick = popCalTypeClick
      end
      object popLunar: TMenuItem
        Tag = 1
        AutoCheck = True
        Caption = #38452#21382'(&L)'
        RadioItem = True
        OnClick = popCalTypeClick
      end
      object popSLunar: TMenuItem
        Tag = 2
        AutoCheck = True
        Caption = #38451#21382#38452#21382'(&S)'
        RadioItem = True
        OnClick = popCalTypeClick
      end
      object popLSunar: TMenuItem
        Tag = 3
        AutoCheck = True
        Caption = #38452#21382#38451#21382'(&L)'
        RadioItem = True
        OnClick = popCalTypeClick
      end
    end
    object popFont: TMenuItem
      Caption = #23383#20307'(&F)'
      object popLFont: TMenuItem
        Caption = #38451#21382#23383#20307'(&S)'
        OnClick = popLFontClick
      end
      object popSFont: TMenuItem
        Caption = #38452#21382#23383#20307'(&L)'
        OnClick = popSFontClick
      end
      object popYFont: TMenuItem
        Caption = #24180#26376#23383#20307'(&Y)'
        OnClick = popYFontClick
      end
      object popWFont: TMenuItem
        Caption = #21608#23383#20307'(&M)'
        OnClick = popWFontClick
      end
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object popExit: TMenuItem
      Caption = #36864#20986'(&X)'
      OnClick = popExitClick
    end
  end
  object pmList: TPopupMenu
    AutoHotkeys = maManual
    OnPopup = pmListPopup
    Left = 152
    Top = 64
    object popDefIcon: TMenuItem
      AutoCheck = True
      Caption = #40664#35748#22270#26631
      RadioItem = True
      OnClick = popPrevIconClick
    end
    object popPrevIcon: TMenuItem
      Tag = 1
      AutoCheck = True
      Caption = #39044#35272#22270#26631
      RadioItem = True
      OnClick = popPrevIconClick
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object popChgNow: TMenuItem
      Caption = #35774#20026#26700#38754#22721#32440
      OnClick = popChgNowClick
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object pmClear: TMenuItem
      Caption = #28165#38500
      OnClick = pmClearClick
    end
  end
end