Chip: Shareware for Win 95/Chip-Shareware-Win95.bin/ostatni/happyc/_setup.1/HaCa.exe/0/RCDATA/TFRMHACA/TFRMHACA.txt

Text File | 1997-04-11 | 7KB | 289 lines

object frmHaCa: TfrmHaCa
  Left = 834
  Top = 242
  Width = 190
  Height = 199
  HelpContext = 1
  BorderIcons = []
  Caption = ' HaCa'
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  Position = poDefault
  PrintScale = poPrintToFit
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnPaint = FormPaint
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object pnlBordo: TPanel
    Left = 0
    Top = 0
    Width = 182
    Height = 172
    Align = alClient
    BevelInner = bvRaised
    TabOrder = 0
    object pnlHaCa: TPanel
      Left = 2
      Top = 2
      Width = 178
      Height = 168
      Align = alClient
      BevelInner = bvLowered
      BevelOuter = bvLowered
      Color = clWhite
      PopupMenu = popHaCa
      TabOrder = 0
      OnMouseDown = lblGiornoMouseDown
      OnMouseMove = lblGiornoMouseMove
      OnMouseUp = lblGiornoMouseUp
      OnResize = pnlHaCaResize
      object pnlAnno: TPanel
        Left = 2
        Top = 2
        Width = 174
        Height = 25
        Align = alTop
        BevelOuter = bvNone
        Color = clWhite
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        OnDblClick = lblAnnoDblClick
        OnMouseDown = lblGiornoMouseDown
        OnMouseMove = lblGiornoMouseMove
        OnMouseUp = lblGiornoMouseUp
      end
      object pnlMese: TPanel
        Left = 2
        Top = 27
        Width = 174
        Height = 25
        Align = alTop
        BevelOuter = bvNone
        Color = clWhite
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        OnDblClick = lblMeseDblClick
        OnMouseDown = lblGiornoMouseDown
        OnMouseMove = lblGiornoMouseMove
        OnMouseUp = lblGiornoMouseUp
      end
      object pnlGiorno: TPanel
        Left = 2
        Top = 52
        Width = 174
        Height = 41
        Align = alTop
        BevelOuter = bvNone
        Color = clWhite
        Font.Color = clBlack
        Font.Height = -37
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnDblClick = lblGiornoDblClick
        OnMouseDown = lblGiornoMouseDown
        OnMouseMove = lblGiornoMouseMove
        OnMouseUp = lblGiornoMouseUp
      end
      object pnlWeekDay: TPanel
        Left = 2
        Top = 93
        Width = 174
        Height = 21
        Align = alTop
        BevelOuter = bvNone
        Color = clWhite
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 3
        OnDblClick = lblWeekDayDblClick
        OnMouseDown = lblGiornoMouseDown
        OnMouseMove = lblGiornoMouseMove
        OnMouseUp = lblGiornoMouseUp
      end
      object pnlSanto: TPanel
        Left = 2
        Top = 114
        Width = 174
        Height = 21
        Align = alTop
        BevelOuter = bvNone
        Color = clWhite
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
        TabOrder = 4
        OnMouseDown = lblGiornoMouseDown
        OnMouseMove = lblGiornoMouseMove
        OnMouseUp = lblGiornoMouseUp
      end
      object pnlOrario: TPanel
        Left = 2
        Top = 135
        Width = 174
        Height = 26
        Align = alTop
        BevelOuter = bvNone
        Color = clWhite
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
        OnDblClick = lblGiornoDblClick
        OnMouseDown = lblGiornoMouseDown
        OnMouseMove = lblGiornoMouseMove
        OnMouseUp = lblGiornoMouseUp
        object imgMemo: TImage
          Left = 1
          Top = 1
          Width = 16
          Height = 16
        end
      end
    end
  end
  object timHaCa: TTimer
    Enabled = False
    OnTimer = timHaCaTimer
    Left = 92
    Top = 32
  end
  object popHaCa: TPopupMenu
    OnPopup = popHaCaPopup
    Left = 95
    Top = 63
    object mnuQuickAlarm: TMenuItem
      Caption = '&Quick Alarm'
      ShortCut = 0
      OnClick = mnuQuickAlarmClick
    end
    object mnuAddEvent: TMenuItem
      Caption = 'Add &Event'
      ShortCut = 0
      OnClick = mnuAddEventClick
    end
    object TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object mnuSave: TMenuItem
      Caption = '&Save data'
      ShortCut = 0
      OnClick = mnuSaveClick
    end
    object mnuHide: TMenuItem
      Caption = 'Hi&de'
      ShortCut = 0
      OnClick = mnuHideClick
    end
    object mnuClose: TMenuItem
      Caption = 'E&xit (saving)'
      ShortCut = 0
      OnClick = mnuCloseClick
    end
    object TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object mnuStyle: TMenuItem
      Caption = 'St&yle'
      ShortCut = 0
      object mnuWall: TMenuItem
        Caption = 'Wall Calendar'
        GroupIndex = 1
        RadioItem = True
        ShortCut = 0
        OnClick = mnuWallClick
      end
      object mnuOneRow: TMenuItem
        Caption = 'One Row'
        GroupIndex = 1
        RadioItem = True
        ShortCut = 0
        object mnuLongTime: TMenuItem
          GroupIndex = 1
          RadioItem = True
          ShortCut = 0
          OnClick = mnuLongTimeClick
        end
        object mnuShortTime: TMenuItem
          GroupIndex = 1
          RadioItem = True
          ShortCut = 0
          OnClick = mnuShortTimeClick
        end
        object mnuDate: TMenuItem
          GroupIndex = 1
          RadioItem = True
          ShortCut = 0
          OnClick = mnuDateClick
        end
        object mnuDateTime: TMenuItem
          GroupIndex = 1
          RadioItem = True
          ShortCut = 0
          OnClick = mnuDateTimeClick
        end
      end
    end
    object N1: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object mnuAbout: TMenuItem
      Caption = '&About'
      ShortCut = 0
      OnClick = mnuAboutClick
    end
    object Properties1: TMenuItem
      Caption = '&Properties'
      ShortCut = 0
      OnClick = Properties1Click
    end
  end
  object TrayIcon1: TTrayIcon
    Icon.Data = {<image000.ico>}
    PopupMenu = popHaCa
    OnClick = TrayIcon1Click
    OnDblClick = lblGiornoDblClick
    Left = 133
    Top = 19
  end
  object valHaCa: TValidator
    RandSeed = 88113311
    RegKey = 'Software\Happy Calendar'
    Left = 104
    Top = 95
  end
  object PrintDialog1: TPrintDialog
    Left = 142
    Top = 68
  end
  object BF: TBlowFish
    InputType = InFile
    InputLength = 0
    Left = 36
    Top = 70
  end
end