photoopunit.dfm

jvcl driver development envionment

object PhotoOpMain: TPhotoOpMain
  Left = 212
  Top = 138
  Width = 460
  Height = 546
  Caption = 'UTF Demo 1: PhotoOp'
  Color = clBtnFace
  Constraints.MinHeight = 400
  Constraints.MinWidth = 445
  DefaultMonitor = dmDesktop
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poDesktopCenter
  Scaled = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 73
    Width = 452
    Height = 439
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Day View'
      object JvTFDays1: TJvTFDays
        Left = 0
        Top = 0
        Width = 444
        Height = 411
        ScheduleManager = utfScheduleManager1
        ColHdrHeight = 30
        Cols = <
          item
            Title = ' - '
            Width = 373
          end>
        Template.CompDate = 36406
        Template.LinearDayCount = 1
        Template.LinearEndDate = 36406
        Template.LinearStartDate = 36406
        Grouping = grNone
        TimeBlocks = <>
        TimeBlockProps.BlockHdrAttr.Font.Charset = DEFAULT_CHARSET
        TimeBlockProps.BlockHdrAttr.Font.Color = clWindowText
        TimeBlockProps.BlockHdrAttr.Font.Height = -11
        TimeBlockProps.BlockHdrAttr.Font.Name = 'MS Sans Serif'
        TimeBlockProps.BlockHdrAttr.Font.Style = []
        TimeBlockProps.BlockHdrAttr.FrameColor = clBlack
        TimeBlockProps.SelBlockHdrAttr.Font.Charset = DEFAULT_CHARSET
        TimeBlockProps.SelBlockHdrAttr.Font.Color = clBlack
        TimeBlockProps.SelBlockHdrAttr.Font.Height = -11
        TimeBlockProps.SelBlockHdrAttr.Font.Name = 'MS Sans Serif'
        TimeBlockProps.SelBlockHdrAttr.Font.Style = []
        TimeBlockProps.SelBlockHdrAttr.ParentFont = False
        TimeBlockProps.SelBlockHdrAttr.FrameColor = clBlack
        ApptAttr.Color = clWhite
        ApptAttr.Font.Charset = DEFAULT_CHARSET
        ApptAttr.Font.Color = clWindowText
        ApptAttr.Font.Height = -13
        ApptAttr.Font.Name = 'MS Sans Serif'
        ApptAttr.Font.Style = []
        ApptAttr.ParentFont = False
        SelApptAttr.Color = clWhite
        SelApptAttr.Font.Charset = DEFAULT_CHARSET
        SelApptAttr.Font.Color = clWindowText
        SelApptAttr.Font.Height = -13
        SelApptAttr.Font.Name = 'MS Sans Serif'
        SelApptAttr.Font.Style = []
        SelApptAttr.ParentFont = False
        HdrAttr.Font.Charset = DEFAULT_CHARSET
        HdrAttr.Font.Color = clWindowText
        HdrAttr.Font.Height = -13
        HdrAttr.Font.Name = 'MS Sans Serif'
        HdrAttr.Font.Style = []
        HdrAttr.ParentFont = False
        HdrAttr.FrameColor = clBlack
        SelHdrAttr.Font.Charset = DEFAULT_CHARSET
        SelHdrAttr.Font.Color = clBlack
        SelHdrAttr.Font.Height = -11
        SelHdrAttr.Font.Name = 'MS Sans Serif'
        SelHdrAttr.Font.Style = []
        SelHdrAttr.ParentFont = False
        SelHdrAttr.FrameColor = clBlack
        FancyRowHdrAttr.Hr2400 = False
        FancyRowHdrAttr.MinorFont.Charset = DEFAULT_CHARSET
        FancyRowHdrAttr.MinorFont.Color = clWindowText
        FancyRowHdrAttr.MinorFont.Height = -11
        FancyRowHdrAttr.MinorFont.Name = 'MS Sans Serif'
        FancyRowHdrAttr.MinorFont.Style = []
        FancyRowHdrAttr.MajorFont.Charset = DEFAULT_CHARSET
        FancyRowHdrAttr.MajorFont.Color = clWindowText
        FancyRowHdrAttr.MajorFont.Height = -21
        FancyRowHdrAttr.MajorFont.Name = 'MS Sans Serif'
        FancyRowHdrAttr.MajorFont.Style = []
        SelFancyRowHdrAttr.Hr2400 = False
        SelFancyRowHdrAttr.MinorFont.Charset = DEFAULT_CHARSET
        SelFancyRowHdrAttr.MinorFont.Color = clBlack
        SelFancyRowHdrAttr.MinorFont.Height = -11
        SelFancyRowHdrAttr.MinorFont.Name = 'MS Sans Serif'
        SelFancyRowHdrAttr.MinorFont.Style = []
        SelFancyRowHdrAttr.MajorFont.Charset = DEFAULT_CHARSET
        SelFancyRowHdrAttr.MajorFont.Color = clBlack
        SelFancyRowHdrAttr.MajorFont.Height = -21
        SelFancyRowHdrAttr.MajorFont.Name = 'MS Sans Serif'
        SelFancyRowHdrAttr.MajorFont.Style = []
        SelFancyRowHdrAttr.TickColor = clBlack
        PrimeTime.StartTime = 0.333333333333333
        PrimeTime.EndTime = 0.708333333333333
        PrimeTime.Color = clYellow
        GroupHdrAttr.Font.Charset = DEFAULT_CHARSET
        GroupHdrAttr.Font.Color = clWindowText
        GroupHdrAttr.Font.Height = -11
        GroupHdrAttr.Font.Name = 'MS Sans Serif'
        GroupHdrAttr.Font.Style = []
        GroupHdrAttr.FrameColor = clBlack
        SelGroupHdrAttr.Font.Charset = DEFAULT_CHARSET
        SelGroupHdrAttr.Font.Color = clBlack
        SelGroupHdrAttr.Font.Height = -11
        SelGroupHdrAttr.Font.Name = 'MS Sans Serif'
        SelGroupHdrAttr.Font.Style = []
        SelGroupHdrAttr.ParentFont = False
        SelGroupHdrAttr.FrameColor = clBlack
        LeftCol = 0
        OnDateChanging = JvTFDays1DateChanging
        OnDateChanged = JvTFDays1DateChanged
        OnGranularityChanged = JvTFDays1GranularityChanged
        DateFormat = 'ddddd'
        TimeFormat = 't'
        Align = alClient
        Color = clWhite
        TabOrder = 0
        OnDblClick = JvTFDays1DblClick
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Week View'
      ImageIndex = 1
      object JvTFWeeks1: TJvTFWeeks
        Left = 0
        Top = 0
        Width = 444
        Height = 411
        ScheduleManager = utfScheduleManager1
        Cells = <
          item
            Color = clBlack
            CellDate = 37270
            CellPics = <>
            CanSelect = True
          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>
        GapSize = 4
        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 = 'Week of Jan 14, 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.FrameAttr.Color = clGray
        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
        CellPics = StateImageList
        Viewer = GlanceTextViewer1
        DateFormat = 'ddddd'
        TimeFormat = 't'
        Align = alClient
        ParentColor = True
        TabOrder = 0
        DisplayDate = 37270
        DisplayOrder = doLeftRight
        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.Height = 20
        DWTitleAttr.Visible = False
        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 = [fsBold]
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Month View'
      ImageIndex = 2
      object JvTFMonths1: TJvTFMonths
        Left = 0
        Top = 0
        Width = 444
        Height = 411
        ScheduleManager = utfScheduleManager1
        Cells = <
          item
            Color = clBlack
            CellDate = 37255
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37256
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37257
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37258
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37259
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37260
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37261
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37262
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37263
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37264
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37265
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37266
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37267
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37268
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37269
            CellPics = <>
            CanSelect = True
          end
          item
            Color = clBlack
            CellDate = 37270
            CellPics = <>
            CanSelect = True