Demos > XI > Features > CalendarForm.dfm

object formCalendar: TformCalendar

Left = 0

Top = 0

Width = 623

Height = 650

RenderInvisibleControls = False

AllowPageAccess = True

ConnectionMode = cmAny

Title = 'Calendar demonstration'

SupportedBrowsers = [brNetscape7, brIE, brOpera, brNetscape6]

OnCreate = IWAppFormCreate

OnDestroy = IWAppFormDestroy

Background.Fixed = False

HandleTabs = False

LeftToRight = True

LockUntilLoaded = True

LockOnSubmit = True

ShowHint = True

XPTheme = True

DesignLeft = 8

DesignTop = 8

object lbActivities: TIWListbox

Left = 8

Top = 520

Width = 601

Height = 89

Cursor = crAuto

IW50Hint = False

ParentShowHint = False

ShowHint = True

ZIndex = 0

RenderSize = True

StyleRenderOptions.RenderSize = True

StyleRenderOptions.RenderPosition = True

StyleRenderOptions.RenderFont = True

StyleRenderOptions.RenderZIndex = True

StyleRenderOptions.RenderVisibility = True

StyleRenderOptions.RenderStatus = True

StyleRenderOptions.RenderAbsolute = True

BGColor = clNone

Font.Color = clNone

Font.Size = 10

Font.Style = []

FocusColor = clNone

AutoHideOnMenuActivation = False

ItemsHaveValues = False

NoSelectionText = '-- No Selection --'

Required = False

RequireSelection = True

ScriptEvents = <>

OnChange = lbActivitiesChange

UseSize = True

DoSubmitValidation = True

Editable = True

TabOrder = 0

SubmitOnAsyncEvent = True

MaxItems = 0

FriendlyName = 'lbActivities'

ItemIndex = -1

MultiSelect = False

Sorted = False

end

object edActivity: TIWEdit

Left = 8

Top = 616

Width = 601

Height = 21

Cursor = crAuto

IW50Hint = False

ParentShowHint = False

ShowHint = True

ZIndex = 0

RenderSize = True

StyleRenderOptions.RenderSize = True

StyleRenderOptions.RenderPosition = True

StyleRenderOptions.RenderFont = True

StyleRenderOptions.RenderZIndex = True

StyleRenderOptions.RenderVisibility = True

StyleRenderOptions.RenderStatus = True

StyleRenderOptions.RenderAbsolute = True

Alignment = taLeftJustify

BGColor = clNone

FocusColor = clNone

DoSubmitValidation = True

Editable = True

NonEditableAsLabel = True

Font.Color = clNone

Font.Size = 10

Font.Style = []

FriendlyName = 'IWEdit1'

MaxLength = 0

ReadOnly = False

Required = False

ScriptEvents = <>

SubmitOnAsyncEvent = True

TabOrder = 1

PasswordPrompt = False

end

object IWButton1: TIWButton

Left = 8

Top = 648

Width = 81

Height = 25

Cursor = crAuto

IW50Hint = False

ParentShowHint = False

ShowHint = True

ZIndex = 0

RenderSize = True

StyleRenderOptions.RenderSize = True

StyleRenderOptions.RenderPosition = True

StyleRenderOptions.RenderFont = True

StyleRenderOptions.RenderZIndex = True

StyleRenderOptions.RenderVisibility = True

StyleRenderOptions.RenderStatus = True

StyleRenderOptions.RenderAbsolute = True

Caption = 'Add'

DoSubmitValidation = True

Color = clBtnFace

Font.Color = clNone

Font.Size = 10

Font.Style = []

FriendlyName = 'IWButton1'

ScriptEvents = <>

TabOrder = 2

OnClick = IWButton1Click

end

object IWButton2: TIWButton

Left = 96

Top = 648

Width = 81

Height = 25

Cursor = crAuto

IW50Hint = False

ParentShowHint = False

ShowHint = True

ZIndex = 0

RenderSize = True

StyleRenderOptions.RenderSize = True

StyleRenderOptions.RenderPosition = True

StyleRenderOptions.RenderFont = True

StyleRenderOptions.RenderZIndex = True

StyleRenderOptions.RenderVisibility = True

StyleRenderOptions.RenderStatus = True

StyleRenderOptions.RenderAbsolute = True

Caption = 'Modify'

DoSubmitValidation = True

Color = clBtnFace

Font.Color = clNone

Font.Size = 10

Font.Style = []

FriendlyName = 'IWButton2'

ScriptEvents = <>

TabOrder = 3

OnClick = IWButton2Click

end

object IWButton3: TIWButton

Left = 184

Top = 648

Width = 81

Height = 25

Cursor = crAuto

IW50Hint = False

ParentShowHint = False

ShowHint = True

ZIndex = 0

RenderSize = True

StyleRenderOptions.RenderSize = True

StyleRenderOptions.RenderPosition = True

StyleRenderOptions.RenderFont = True

StyleRenderOptions.RenderZIndex = True

StyleRenderOptions.RenderVisibility = True

StyleRenderOptions.RenderStatus = True

StyleRenderOptions.RenderAbsolute = True

Caption = 'Delete'

DoSubmitValidation = True

Color = clBtnFace

Font.Color = clNone

Font.Size = 10

Font.Style = []

FriendlyName = 'IWButton3'

ScriptEvents = <>

TabOrder = 4

OnClick = IWButton3Click

end

object DateText: TIWLabel

Left = 8

Top = 488

Width = 137

Height = 19

Cursor = crAuto

IW50Hint = False

ParentShowHint = False

ShowHint = True

ZIndex = 0

RenderSize = True

StyleRenderOptions.RenderSize = True

StyleRenderOptions.RenderPosition = True

StyleRenderOptions.RenderFont = True

StyleRenderOptions.RenderZIndex = True

StyleRenderOptions.RenderVisibility = True

StyleRenderOptions.RenderStatus = True

StyleRenderOptions.RenderAbsolute = True

Alignment = taCenter

BGColor = clNone

Font.Color = clWebDARKBLUE

Font.Size = 12

Font.Style = [fsBold]

NoWrap = False

ConvertSpaces = False

HasTabOrder = False

FriendlyName = 'DateText'

Caption = 'No date selected'

RawText = False

end

object IWLabel1: TIWLabel

Left = 12

Top = 72

Width = 246

Height = 24

Cursor = crAuto

IW50Hint = False

ParentShowHint = False

ShowHint = True

ZIndex = 0

RenderSize = True

StyleRenderOptions.RenderSize = True

StyleRenderOptions.RenderPosition = True

StyleRenderOptions.RenderFont = True

StyleRenderOptions.RenderZIndex = True

StyleRenderOptions.RenderVisibility = True

StyleRenderOptions.RenderStatus = True

StyleRenderOptions.RenderAbsolute = True

Alignment = taLeftJustify

BGColor = clNone

Font.Color = clWebDARKBLUE

Font.Size = 14

Font.Style = [fsBold]

NoWrap = False

ConvertSpaces = False

HasTabOrder = False

AutoSize = False

FriendlyName = 'IWLabel1'

Caption = 'Calendar Demonstration'

RawText = False

end

object IWLabel2: TIWLabel

Left = 12

Top = 104

Width = 491

Height = 16

Cursor = crAuto

IW50Hint = False

ParentShowHint = False

ShowHint = True

ZIndex = 0

RenderSize = True

StyleRenderOptions.RenderSize = True

StyleRenderOptions.RenderPosition = True

StyleRenderOptions.RenderFont = True

StyleRenderOptions.RenderZIndex = True

StyleRenderOptions.RenderVisibility = True

StyleRenderOptions.RenderStatus = True

StyleRenderOptions.RenderAbsolute = True

Alignment = taLeftJustify

BGColor = clNone

Font.Color = clWebDARKBLUE

Font.Size = 10

Font.Style = [fsBold]

NoWrap = False

ConvertSpaces = False

HasTabOrder = False

AutoSize = False

FriendlyName = 'IWLabel2'

Caption = 'This page demonstrates the use of the TIWCalendar conmponent'

RawText = False

end

object DemoDiary: TIWCalendar

Left = 8

Top = 128

Width = 601

Height = 353

Cursor = crAuto

IW50Hint = False

ParentShowHint = False

ShowHint = True

ZIndex = 0

RenderSize = True

StyleRenderOptions.RenderSize = True

StyleRenderOptions.RenderPosition = True

StyleRenderOptions.RenderFont = True

StyleRenderOptions.RenderZIndex = True

StyleRenderOptions.RenderVisibility = True

StyleRenderOptions.RenderStatus = True

StyleRenderOptions.RenderAbsolute = True

BorderColors.Color = clNone

BorderColors.Light = clNone

BorderColors.Dark = clNone

BGColor = clNone

BorderSize = 1

BorderStyle = tfDefault

CellPadding = 0

CellSpacing = 0

Font.Color = clNone

Font.Size = 10

Font.Style = []

FrameBuffer = 40

Lines = tlAll

UseFrame = False

UseSize = True

CurrentDayImage.Filename = 'D:\kudzu\Intraweb Projects\playground\Files\today.png'

PreviousMonthImage.Filename = 'D:\kudzu\Intraweb Projects\playground\Files\bprev32.JPG'

NextMonthImage.Filename = 'D:\kudzu\Intraweb Projects\playground\Files\bnext32.JPG'

CalendarFont.Color = clNone

CalendarFont.Size = 8

CalendarFont.Style = []

CalendarHeaderFont.Color = clNone

CalendarHeaderFont.Size = 10

CalendarHeaderFont.Style = [fsBold]

CheckerBoard = True

SelectedDate = 38687.000000000000000000

FriendlyName = 'DemoDiary'

StartDate = 38702.950946712960000000

UseLongDayNames = True

OnDateChange = DemoDiaryDateChange

OnGetDateInformation = DemoDiaryGetDateInformation

DisplayYear = True

end

inline framMenu1: TframMenu

Left = 0

Top = 0

Width = 623

Height = 33

HorzScrollBar.Range = 185

HorzScrollBar.Visible = False

VertScrollBar.Range = 468

VertScrollBar.Visible = False

Align = alTop

Color = clWhite

ParentColor = False

TabOrder = 0

TabStop = True

ExplicitWidth = 623

ExplicitHeight = 33

inherited IWFrameRegion: TIWRegion

Width = 623

TabOrder = 5

ExplicitWidth = 623

inherited IWMenu1: TIWMenu

Width = 623

ExplicitWidth = 623

end