main.~dfm

一个delphi实现的时钟程序。在桌面上可任意移动。对钩子感兴趣的朋友可以看下。

object FmMain: TFmMain
  Left = 459
  Top = 318
  BorderStyle = bsNone
  Caption = 'FmMain'
  ClientHeight = 129
  ClientWidth = 132
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PopupMenu = pmMain
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnMouseMove = FormMouseMove
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object pngBg: TPNGButton
    Left = 0
    Top = 0
    Width = 130
    Height = 130
    FontOver.Charset = DEFAULT_CHARSET
    FontOver.Color = clWindowText
    FontOver.Height = -11
    FontOver.Name = 'MS Sans Serif'
    FontOver.Style = []
    ImageNormal = '..\Out\Images\Blue.png'
    OnMouseMove = FormMouseMove
    AutoSize = True
  end
  object pngHour: TPNGButton
    Left = 58
    Top = 1
    Width = 13
    Height = 129
    FontOver.Charset = DEFAULT_CHARSET
    FontOver.Color = clWindowText
    FontOver.Height = -11
    FontOver.Name = 'MS Sans Serif'
    FontOver.Style = []
    ImageNormal = '..\Out\Images\Blue_h.png'
    OnMouseMove = FormMouseMove
    AutoSize = True
  end
  object pngMinute: TPNGButton
    Left = 58
    Top = 1
    Width = 13
    Height = 129
    FontOver.Charset = DEFAULT_CHARSET
    FontOver.Color = clWindowText
    FontOver.Height = -11
    FontOver.Name = 'MS Sans Serif'
    FontOver.Style = []
    ImageNormal = '..\Out\Images\Blue_m.png'
    OnMouseMove = FormMouseMove
    AutoSize = True
  end
  object pngSecond: TPNGButton
    Left = 58
    Top = 1
    Width = 13
    Height = 129
    FontOver.Charset = DEFAULT_CHARSET
    FontOver.Color = clWindowText
    FontOver.Height = -11
    FontOver.Name = 'MS Sans Serif'
    FontOver.Style = []
    ImageNormal = '..\Out\Images\Blue_s.png'
    OnMouseMove = FormMouseMove
    AutoSize = True
  end
  object pngDot: TPNGButton
    Left = 58
    Top = 1
    Width = 13
    Height = 129
    FontOver.Charset = DEFAULT_CHARSET
    FontOver.Color = clWindowText
    FontOver.Height = -11
    FontOver.Name = 'MS Sans Serif'
    FontOver.Style = []
    ImageNormal = '..\Out\Images\Blue_dot.png'
    OnMouseMove = FormMouseMove
    AutoSize = True
  end
  object pngHighLights: TPNGButton
    Left = 0
    Top = 0
    Width = 130
    Height = 130
    FontOver.Charset = DEFAULT_CHARSET
    FontOver.Color = clWindowText
    FontOver.Height = -11
    FontOver.Name = 'MS Sans Serif'
    FontOver.Style = []
    ImageNormal = '..\Out\Images\Blue_highlights.png'
    OnMouseMove = FormMouseMove
  end
  object dlgSave: TSaveDialog
    Filter = 'PNG|*.png'
    Left = 16
    Top = 72
  end
  object tmrDrawClock: TTimer
    Interval = 200
    OnTimer = tmrDrawClockTimer
    Left = 72
    Top = 80
  end
  object pmMain: TPopupMenu
    OnPopup = pmMainPopup
    Left = 24
    Top = 16
    object mniStartwithwindow: TMenuItem
      AutoCheck = True
      Caption = 'Start with window'
      OnClick = mniStartwithwindowClick
    end
    object mniAllwithontop: TMenuItem
      AutoCheck = True
      Caption = 'All with on top'
      OnClick = mniAllwithontopClick
    end
    object mniransparent: TMenuItem
      Caption = 'Transparent'
      object mniTransparent10: TMenuItem
        Caption = '10'
        RadioItem = True
        OnClick = mniTransparent10Click
      end
      object mniTransparent20: TMenuItem
        Caption = '20'
        RadioItem = True
        OnClick = mniTransparent20Click
      end
      object mniTransparent40: TMenuItem
        Caption = '40'
        RadioItem = True
        OnClick = mniTransparent40Click
      end
      object mniTransparent60: TMenuItem
        Caption = '60'
        RadioItem = True
        OnClick = mniTransparent60Click
      end
      object mniTransparent80: TMenuItem
        Caption = '80'
        RadioItem = True
        OnClick = mniTransparent80Click
      end
      object mniTransparent100: TMenuItem
        Caption = '100'
        RadioItem = True
        OnClick = mniTransparent100Click
      end
    end
    object mniSkin: TMenuItem
      Caption = 'Skin'
      object mniBlue: TMenuItem
        Caption = 'Blue'
        RadioItem = True
        OnClick = mniBlueClick
      end
      object mniBlack: TMenuItem
        Caption = 'Black'
        RadioItem = True
        OnClick = mniBlackClick
      end
    end
    object mniN2: TMenuItem
      Caption = '-'
    end
    object mniFlashwindow: TMenuItem
      Caption = 'Flash window'
      OnClick = mniFlashwindowClick
    end
    object mniSetremindtime: TMenuItem
      Caption = 'Set remind time'
      OnClick = mniSetremindtimeClick
    end
    object mniN1: TMenuItem
      Caption = '-'
    end
    object mniQuit: TMenuItem
      Caption = 'Quit'
      OnClick = mniQuitClick
    end
    object mniAbout: TMenuItem
      Caption = 'About'
      OnClick = mniAboutClick
    end
  end
  object TrayIcon: TTrayIcon
    PopupMenu = pmMain
    Visible = True
    Left = 80
    Top = 16
  end
end