photoopunit.dfm

jvcl driver development envionment

          end
          item
            Color = clBlack
            CellDate = 37271
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37272
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37273
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37274
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37275
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37276
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37277
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37278
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37279
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37280
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37281
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37282
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37283
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37284
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37285
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37286
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37287
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37288
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37289
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37290
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37291
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37292
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37293
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37294
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37295
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37296
            CellPics = <>
            CanSelect = True
          end>
        GapSize = 0
        TitleAttr.Visible = False
        TitleAttr.TxtAttr.Font.Charset = DEFAULT_CHARSET
        TitleAttr.TxtAttr.Font.Color = clWindowText
        TitleAttr.TxtAttr.Font.Height = -21
        TitleAttr.TxtAttr.Font.Name = 'MS Sans Serif'
        TitleAttr.TxtAttr.Font.Style = [fsBold]
        TitleAttr.Title = 'January 2002'
        CellAttr.Font.Charset = DEFAULT_CHARSET
        CellAttr.Font.Color = clWindowText
        CellAttr.Font.Height = -11
        CellAttr.Font.Name = 'MS Sans Serif'
        CellAttr.Font.Style = []
        CellAttr.TitleAttr.Color = clWhite
        CellAttr.TitleAttr.DayTxtAttr.Font.Charset = DEFAULT_CHARSET
        CellAttr.TitleAttr.DayTxtAttr.Font.Color = clWindowText
        CellAttr.TitleAttr.DayTxtAttr.Font.Height = -11
        CellAttr.TitleAttr.DayTxtAttr.Font.Name = 'MS Sans Serif'
        CellAttr.TitleAttr.DayTxtAttr.Font.Style = []
        CellAttr.DrawBottomLine = False
        SelCellAttr.Font.Charset = DEFAULT_CHARSET
        SelCellAttr.Font.Color = clWindowText
        SelCellAttr.Font.Height = -11
        SelCellAttr.Font.Name = 'MS Sans Serif'
        SelCellAttr.Font.Style = []
        SelCellAttr.TitleAttr.Color = clNavy
        SelCellAttr.TitleAttr.DayTxtAttr.Font.Charset = DEFAULT_CHARSET
        SelCellAttr.TitleAttr.DayTxtAttr.Font.Color = clWhite
        SelCellAttr.TitleAttr.DayTxtAttr.Font.Height = -11
        SelCellAttr.TitleAttr.DayTxtAttr.Font.Name = 'MS Sans Serif'
        SelCellAttr.TitleAttr.DayTxtAttr.Font.Style = []
        SelCellAttr.DrawBottomLine = False
        Viewer = GlanceTextViewer2
        DateFormat = 'ddddd'
        TimeFormat = 't'
        Align = alClient
        ParentColor = True
        TabOrder = 0
        Month = 1
        Year = 2002
        DisplayDate = 37270
        DWNames.DWN_Sunday = 'S'
        DWNames.DWN_Monday = 'M'
        DWNames.DWN_Tuesday = 'T'
        DWNames.DWN_Wednesday = 'W'
        DWNames.DWN_Thursday = 'T'
        DWNames.DWN_Friday = 'F'
        DWNames.DWN_Saturday = 'S'
        DWTitleAttr.FrameAttr.Style = fs3DRaised
        DWTitleAttr.Height = 20
        DWTitleAttr.TxtAttr.Font.Charset = DEFAULT_CHARSET
        DWTitleAttr.TxtAttr.Font.Color = clWindowText
        DWTitleAttr.TxtAttr.Font.Height = -11
        DWTitleAttr.TxtAttr.Font.Name = 'MS Sans Serif'
        DWTitleAttr.TxtAttr.Font.Style = []
        ExtraDayCellAttr.Font.Charset = DEFAULT_CHARSET
        ExtraDayCellAttr.Font.Color = clWindowText
        ExtraDayCellAttr.Font.Height = -11
        ExtraDayCellAttr.Font.Name = 'MS Sans Serif'
        ExtraDayCellAttr.Font.Style = []
        ExtraDayCellAttr.TitleAttr.Color = clWhite
        ExtraDayCellAttr.TitleAttr.DayTxtAttr.Font.Charset = DEFAULT_CHARSET
        ExtraDayCellAttr.TitleAttr.DayTxtAttr.Font.Color = clWindowText
        ExtraDayCellAttr.TitleAttr.DayTxtAttr.Font.Height = -11
        ExtraDayCellAttr.TitleAttr.DayTxtAttr.Font.Name = 'MS Sans Serif'
        ExtraDayCellAttr.TitleAttr.DayTxtAttr.Font.Style = []
        ExtraDayCellAttr.DrawBottomLine = False
        OffDayCellAttr.Font.Charset = DEFAULT_CHARSET
        OffDayCellAttr.Font.Color = clWindowText
        OffDayCellAttr.Font.Height = -11
        OffDayCellAttr.Font.Name = 'MS Sans Serif'
        OffDayCellAttr.Font.Style = []
        OffDayCellAttr.TitleAttr.Color = clWhite
        OffDayCellAttr.TitleAttr.DayTxtAttr.Font.Charset = DEFAULT_CHARSET
        OffDayCellAttr.TitleAttr.DayTxtAttr.Font.Color = clWindowText
        OffDayCellAttr.TitleAttr.DayTxtAttr.Font.Height = -11
        OffDayCellAttr.TitleAttr.DayTxtAttr.Font.Name = 'MS Sans Serif'
        OffDayCellAttr.TitleAttr.DayTxtAttr.Font.Style = []
        OffDayCellAttr.DrawBottomLine = False
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 452
    Height = 73
    Align = alTop
    TabOrder = 1
    object ResourceCombo: TComboBox
      Left = 198
      Top = 40
      Width = 131
      Height = 21
      Hint = 'Display Resource'
      Style = csDropDownList
      ItemHeight = 13
      ParentShowHint = False
      ShowHint = True
      TabOrder = 11
      OnChange = ResourceComboChange
    end
    object PrevDateButton: TBitBtn
      Left = 16
      Top = 8
      Width = 24
      Height = 24
      Hint = 'Previous Day'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      TabStop = False
      OnClick = PrevDateButtonClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00111111111111
        1111111111111111111111111111111111111111111111111111111119999991
        111111111F8888811111111119999991111111111FFFFFF11111111111111111
        1111111111111111111111111B1111B11111111118111181111111B111B11B11
        1B111181118118111811111B11B11B11B1111118118118118111111111111111
        11111111111111111111CCBBBBBBBBBBBBCC77F8888888888F77BCCBBBBBBBBB
        BCCC877F88888888F777CCCCBBBBBBBBCCBC7777FF8888FF7787CBCCCCBBBBCC
        CCCB787777FFFF777778BCCCBCCCCCCCCBCC8777877777777877CCCBCCCBCCBC
        CCBC7778777877877787CCBCCCCBCCCBCCCC7787777877787777}
      NumGlyphs = 2
    end
    object NextDateButton: TBitBtn
      Left = 154
      Top = 8
      Width = 24
      Height = 24
      Hint = 'Next Day'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      TabStop = False
      OnClick = NextDateButtonClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00111111199111
        11111111111F8111111111111119911111111111111F81111111111119999991
        111111111F8888811111111119999991111111111FFF88811111111111199111
        11111111111F8111111111111B1991B111111111181F8181111111B111B11B11
        1B111181118118111811111B11B11B11B1111118118118118111111111111111
        11111111111111111111CCBBBBBBBBBBBBCC77F8888888888F77BCCBBBBBBBBB
        BCCC877F88888888F777CCCCBBBBBBBBCCBC7777FF8888FF7787CBCCCCBBBBCC
        CCCB787777FFFF777778BCCCBCCCCCCCCBCC8777877777777877CCCBCCCBCCBC
        CCBC7778777877877787CCBCCCCBCCCBCCCC7787777877787777}
      NumGlyphs = 2
    end
    object NewApptButton: TBitBtn
      Left = 198
      Top = 8
      Width = 24
      Height = 24
      Hint = 'New Appointment'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      TabStop = False
      OnClick = NewApptButtonClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        003338888888888888F330FFFFFFFFFFF033383333FFFFF338F330FFF80008FF
        F03B38333888883F3888BBBF07FFF70FFBB3888383333383F8F330F87FFFFF78
        F0333838F3333338F8F330F0FFFFFFF0F0333838F333FFF8F8F330F0FFF900F0
        F0333838F3388838F8F330F0FFF0FFF0F0333838F338F338F8F3BBB87FF0FF78
        FBBB88883F38F338388830FF07F0F70FF033383383F8FF8338F330FFF80008FF
        F03338333888883338F330FFFFFFFF00003338333333338888F330B99999990F
        0B3338888888888F88333BFFFBFFFB0033B338FFF8FFF8883383B0000B0000B3
        333B888888888883333833333B3333B333333333383333833333}
      NumGlyphs = 2
    end
    object EditApptButton: TBitBtn
      Left = 225
      Top = 8
      Width = 24
      Height = 24
      Hint = 'Edit Appointment'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      TabStop = False
      OnClick = EditApptButtonClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000000000