object frmEditElement: TfrmEditElement Left = 288 Height = 446 Top = 321 Width = 487 HorzScrollBar.Page = 378 VertScrollBar.Page = 444 AutoSize = True BorderStyle = bsDialog Caption = 'Edit Element' ClientHeight = 446 ClientWidth = 487 OnCreate = FormCreate OnShow = FormShow Position = poScreenCenter LCLVersion = '2.3.0.0' object gbCaption: TGroupBox Left = 12 Height = 54 Top = 351 Width = 463 Align = alTop AutoSize = True BorderSpacing.Left = 12 BorderSpacing.Top = 12 BorderSpacing.Right = 12 BorderSpacing.Bottom = 6 Caption = ' Caption ' ClientHeight = 34 ClientWidth = 459 Font.Style = [fsBold] ParentFont = False TabOrder = 4 object lblCaptionText: TLabel AnchorSideLeft.Control = gbCaption AnchorSideTop.Control = edCaptionText AnchorSideTop.Side = asrCenter Left = 8 Height = 15 Top = 6 Width = 27 BorderSpacing.Left = 8 Caption = 'Text: ' FocusControl = edCaptionText ParentColor = False ParentFont = False end object btnCaptionFont: TButton AnchorSideTop.Control = edCaptionText AnchorSideTop.Side = asrCenter AnchorSideRight.Control = gbCaption AnchorSideRight.Side = asrBottom Left = 392 Height = 25 Top = 1 Width = 59 Anchors = [akTop, akRight] AutoSize = True BorderSpacing.Right = 8 BorderSpacing.Bottom = 8 Caption = 'Font...' OnClick = btnCaptionFontClick ParentFont = False TabOrder = 1 end object edCaptionText: TEdit AnchorSideLeft.Control = lblCaptionText AnchorSideLeft.Side = asrBottom AnchorSideRight.Control = btnCaptionFont Left = 43 Height = 23 Top = 2 Width = 345 Anchors = [akTop, akLeft, akRight] BorderSpacing.Left = 8 BorderSpacing.Top = 2 BorderSpacing.Right = 4 BorderSpacing.Bottom = 8 OnChange = edCaptionTextChange ParentFont = False TabOrder = 0 end end object Panel1: TPanel Left = 12 Height = 23 Top = 8 Width = 463 Align = alTop AutoSize = True BorderSpacing.Left = 12 BorderSpacing.Top = 8 BorderSpacing.Right = 12 BorderSpacing.Bottom = 8 BevelOuter = bvNone ClientHeight = 23 ClientWidth = 463 TabOrder = 0 object lblName: TLabel AnchorSideTop.Control = edName AnchorSideTop.Side = asrCenter Left = 0 Height = 15 Top = 4 Width = 38 Caption = 'Name: ' ParentColor = False end object edName: TEdit AnchorSideLeft.Control = lblName AnchorSideLeft.Side = asrBottom Left = 42 Height = 23 Top = 0 Width = 421 Align = alRight Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Left = 4 TabOrder = 0 end end object DayOffsetPanel: TPanel Left = 12 Height = 51 Top = 152 Width = 465 Align = alTop AutoSize = True BorderSpacing.Left = 12 BorderSpacing.Top = 12 BorderSpacing.Right = 10 BevelOuter = bvNone ClientHeight = 51 ClientWidth = 465 TabOrder = 2 object gbDayOffset: TGroupBox AnchorSideTop.Control = DayOffsetPanel AnchorSideBottom.Control = rgDayOffsetUnit AnchorSideBottom.Side = asrBottom Left = 0 Height = 51 Top = 0 Width = 96 Anchors = [akTop, akLeft, akBottom] AutoSize = True Caption = 'Day Offset' ClientHeight = 31 ClientWidth = 92 Font.Style = [fsBold] ParentFont = False TabOrder = 0 object edOffset: TEdit AnchorSideLeft.Control = gbDayOffset AnchorSideTop.Control = gbDayOffset Left = 8 Height = 23 Top = 3 Width = 64 Alignment = taRightJustify BorderSpacing.Left = 8 BorderSpacing.Top = 3 BorderSpacing.Bottom = 8 ParentFont = False TabOrder = 0 Text = '0' end object udOffset: TUpDown AnchorSideLeft.Control = edOffset AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = edOffset AnchorSideTop.Side = asrCenter Left = 72 Height = 23 Top = 3 Width = 12 Associate = edOffset BorderSpacing.Right = 8 BorderSpacing.Bottom = 8 Min = 0 Position = 0 TabOrder = 1 end end object rgDayOffsetUnit: TRadioGroup AnchorSideLeft.Control = gbDayOffset AnchorSideLeft.Side = asrBottom AnchorSideRight.Control = DayOffsetPanel AnchorSideRight.Side = asrBottom Left = 112 Height = 51 Top = 0 Width = 353 Anchors = [akTop, akLeft, akRight] AutoFill = True AutoSize = True BorderSpacing.Left = 16 Caption = ' Day Offset Unit ' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 4 ClientHeight = 31 ClientWidth = 349 Columns = 4 ItemIndex = 0 Items.Strings = ( 'Day' 'Week' 'Month' 'Year' ) ParentFont = False TabOrder = 1 end end object ButtonPanel: TPanel Left = 12 Height = 25 Top = 413 Width = 463 Align = alTop BorderSpacing.Left = 12 BorderSpacing.Top = 8 BorderSpacing.Right = 12 BorderSpacing.Bottom = 8 BevelOuter = bvNone ClientHeight = 25 ClientWidth = 463 TabOrder = 5 object btnShape: TButton Left = 0 Height = 25 Top = 0 Width = 67 Align = alLeft AutoSize = True Caption = 'Shape...' Enabled = False OnClick = btnShapeClick TabOrder = 0 end object btnOk: TButton Left = 355 Height = 25 Top = 0 Width = 42 Align = alRight AutoSize = True BorderSpacing.Right = 4 Caption = 'OK' OnClick = btnOkClick TabOrder = 1 end object btnCancel: TButton Left = 401 Height = 25 Top = 0 Width = 62 Align = alRight AutoSize = True Caption = 'Cancel' OnClick = btnCancelClick TabOrder = 2 end end object ItemTypePanel: TPanel Left = 12 Height = 97 Top = 43 Width = 465 Align = alTop AutoSize = True BorderSpacing.Left = 12 BorderSpacing.Top = 12 BorderSpacing.Right = 10 BevelOuter = bvNone ClientHeight = 97 ClientWidth = 465 TabOrder = 1 object rgItemType: TRadioGroup Left = 0 Height = 97 Top = 0 Width = 465 Align = alClient AutoFill = True BorderSpacing.InnerBorder = 4 Caption = 'Item Type ' ChildSizing.LeftRightSpacing = 16 ChildSizing.TopBottomSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 3 ClientHeight = 77 ClientWidth = 461 Columns = 3 ItemIndex = 0 Items.Strings = ( 'DayView' 'WeekView' 'MonthView' 'Calendar' 'Shape' 'Caption' 'Tasks' 'Contacts' 'GanttView' ) OnClick = rgItemTypeClick ParentFont = False TabOrder = 0 end end object PositionPanel: TPanel Left = 12 Height = 124 Top = 215 Width = 475 Align = alTop AutoSize = True BorderSpacing.Left = 12 BorderSpacing.Top = 12 BevelOuter = bvNone ClientHeight = 124 ClientWidth = 475 TabOrder = 3 object rgRotation: TRadioGroup AnchorSideLeft.Control = PositionPanel AnchorSideTop.Control = PositionPanel Left = 0 Height = 116 Top = 0 Width = 85 AutoFill = True AutoSize = True BorderSpacing.Bottom = 8 BorderSpacing.InnerBorder = 4 Caption = ' Rotation ' ChildSizing.LeftRightSpacing = 16 ChildSizing.TopBottomSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 ClientHeight = 96 ClientWidth = 81 ItemIndex = 0 Items.Strings = ( '0°' '90°' '180°' '270°' ) ParentFont = False TabOrder = 0 end object gbPosition: TGroupBox AnchorSideLeft.Control = rgRotation AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = rgRotation AnchorSideBottom.Control = rgRotation AnchorSideBottom.Side = asrBottom Left = 101 Height = 116 Top = 0 Width = 362 Anchors = [akTop, akLeft, akBottom] AutoSize = True BorderSpacing.Left = 16 BorderSpacing.Right = 12 Caption = 'Position' ClientHeight = 96 ClientWidth = 358 TabOrder = 1 object TopLeftPanel: TPanel AnchorSideLeft.Control = gbPosition AnchorSideTop.Control = gbPosition Left = 16 Height = 55 Top = 4 Width = 104 AutoSize = True BorderSpacing.Left = 16 BorderSpacing.Top = 4 BevelOuter = bvNone ClientHeight = 55 ClientWidth = 104 ParentFont = False TabOrder = 0 object BevelTopLeft: TBevel AnchorSideTop.Control = TopLeftPanel AnchorSideTop.Side = asrCenter AnchorSideRight.Control = TopLeftPanel AnchorSideRight.Side = asrBottom Left = 32 Height = 8 Top = 23 Width = 72 Anchors = [akTop, akLeft, akRight] end object LblTop: TLabel AnchorSideTop.Control = edTop AnchorSideTop.Side = asrCenter AnchorSideRight.Control = edTop Left = 2 Height = 15 Top = 4 Width = 22 Anchors = [akTop, akRight] BorderSpacing.Left = 1 BorderSpacing.Right = 8 Caption = 'Top:' FocusControl = edTop ParentColor = False end object edTop: TEdit AnchorSideRight.Control = udTop AnchorSideBottom.Control = BevelTopLeft Left = 32 Height = 23 Top = 0 Width = 60 Alignment = taRightJustify Anchors = [akRight, akBottom] OnEnter = PosEditEnter OnExit = PosEditExit TabOrder = 0 Text = '0.00' end object udTop: TUpDown AnchorSideLeft.Side = asrBottom AnchorSideTop.Side = asrCenter AnchorSideRight.Control = TopLeftPanel AnchorSideRight.Side = asrBottom Left = 92 Height = 23 Top = 0 Width = 12 Anchors = [akTop, akRight] Associate = edTop Min = 0 OnClick = UpDownClick Position = 0 TabOrder = 1 end object udLeft: TUpDown AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = edLeft AnchorSideTop.Side = asrCenter AnchorSideRight.Control = TopLeftPanel AnchorSideRight.Side = asrBottom Left = 92 Height = 23 Top = 32 Width = 12 Anchors = [akTop, akRight] Associate = edLeft Min = 0 OnClick = UpDownClick Position = 0 TabOrder = 3 end object edLeft: TEdit AnchorSideLeft.Control = edTop AnchorSideTop.Side = asrBottom AnchorSideRight.Control = udLeft Left = 32 Height = 23 Top = 32 Width = 60 Alignment = taRightJustify Anchors = [akTop, akRight] OnEnter = PosEditEnter OnExit = PosEditExit TabOrder = 2 Text = '0.00' end object LblLeft: TLabel AnchorSideTop.Control = edLeft AnchorSideTop.Side = asrCenter AnchorSideRight.Control = edLeft Left = 1 Height = 15 Top = 36 Width = 23 Anchors = [akTop, akRight] BorderSpacing.Left = 1 BorderSpacing.Right = 8 Caption = 'Left:' FocusControl = edLeft ParentColor = False end end object HeightWidthPanel: TPanel AnchorSideLeft.Control = TopLeftPanel AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = TopLeftPanel AnchorSideBottom.Side = asrBottom Left = 136 Height = 54 Top = 4 Width = 119 AutoSize = True BorderSpacing.Left = 16 BorderSpacing.Right = 12 BevelOuter = bvNone ClientHeight = 54 ClientWidth = 119 ParentFont = False TabOrder = 1 object LblHeight: TLabel AnchorSideTop.Control = edHeight AnchorSideTop.Side = asrCenter AnchorSideRight.Control = edHeight Left = 0 Height = 15 Top = 4 Width = 39 Anchors = [akTop, akRight] BorderSpacing.Right = 8 Caption = 'Height:' FocusControl = edHeight ParentColor = False end object edHeight: TEdit AnchorSideTop.Control = BevelHeightWidth AnchorSideTop.Side = asrBottom AnchorSideRight.Control = udHeight AnchorSideBottom.Control = BevelHeightWidth Left = 47 Height = 23 Top = 0 Width = 60 Alignment = taRightJustify Anchors = [akRight, akBottom] OnEnter = PosEditEnter OnExit = PosEditExit TabOrder = 0 Text = '0.00' end object udHeight: TUpDown AnchorSideTop.Control = edHeight AnchorSideTop.Side = asrCenter AnchorSideRight.Control = HeightWidthPanel AnchorSideRight.Side = asrBottom Left = 107 Height = 23 Top = 0 Width = 12 Anchors = [akTop, akRight] Associate = edHeight Min = 0 OnClick = UpDownClick Position = 0 TabOrder = 1 end object LblWidth: TLabel AnchorSideTop.Control = edWidth AnchorSideTop.Side = asrCenter AnchorSideRight.Control = edWidth Left = 4 Height = 15 Top = 35 Width = 35 Anchors = [akTop, akRight] BorderSpacing.Right = 8 Caption = 'Width:' FocusControl = edWidth ParentColor = False end object edWidth: TEdit AnchorSideTop.Control = BevelHeightWidth AnchorSideTop.Side = asrBottom AnchorSideRight.Control = udWidth Left = 47 Height = 23 Top = 31 Width = 60 Alignment = taRightJustify Anchors = [akTop, akRight] OnEnter = PosEditEnter OnExit = PosEditExit TabOrder = 2 Text = '0.00' end object udWidth: TUpDown AnchorSideTop.Control = edWidth AnchorSideTop.Side = asrCenter AnchorSideRight.Control = HeightWidthPanel AnchorSideRight.Side = asrBottom Left = 107 Height = 23 Top = 31 Width = 12 Anchors = [akTop, akRight] Associate = edWidth Min = 0 OnClick = UpDownClick Position = 0 TabOrder = 3 end object BevelHeightWidth: TBevel AnchorSideLeft.Control = HeightWidthPanel AnchorSideTop.Control = HeightWidthPanel AnchorSideTop.Side = asrCenter AnchorSideRight.Control = HeightWidthPanel AnchorSideRight.Side = asrBottom Left = 0 Height = 8 Top = 23 Width = 119 Anchors = [akTop, akLeft, akRight] end end object chkVisible: TCheckBox AnchorSideLeft.Control = BevelTopLeft1 AnchorSideLeft.Side = asrCenter AnchorSideTop.Side = asrBottom AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = gbPosition AnchorSideBottom.Side = asrBottom Left = 109 Height = 19 Top = 73 Width = 52 Anchors = [akLeft, akBottom] BorderSpacing.Bottom = 4 Caption = 'Visible' ParentFont = False TabOrder = 2 end object Panel2: TPanel AnchorSideLeft.Control = HeightWidthPanel AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = gbPosition AnchorSideBottom.Control = gbPosition AnchorSideBottom.Side = asrBottom Left = 287 Height = 94 Top = 0 Width = 59 Anchors = [akTop, akLeft, akBottom] AutoSize = True BorderSpacing.Left = 32 BorderSpacing.Right = 12 BorderSpacing.Bottom = 2 Caption = 'Panel2' ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsHomogenousChildResize ChildSizing.ShrinkVertical = crsHomogenousChildResize ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 ClientHeight = 94 ClientWidth = 59 TabOrder = 3 object rbPixels: TRadioButton Left = 0 Height = 24 Top = 0 Width = 59 Caption = 'Pixels' OnChange = MeasurementUnitChange TabOrder = 0 end object rbPercent: TRadioButton Left = 0 Height = 24 Top = 24 Width = 59 Caption = 'Percent' Checked = True OnChange = MeasurementUnitChange TabOrder = 1 TabStop = True end object rbInches: TRadioButton Left = 0 Height = 24 Top = 48 Width = 59 Caption = 'Inches' OnChange = MeasurementUnitChange TabOrder = 2 end object rbCentimeters: TRadioButton Left = 0 Height = 22 Top = 72 Width = 59 Caption = 'cm' OnChange = MeasurementUnitChange TabOrder = 3 end end object BevelTopLeft1: TBevel AnchorSideLeft.Control = TopLeftPanel AnchorSideRight.Control = HeightWidthPanel AnchorSideRight.Side = asrBottom Left = 16 Height = 8 Top = 64 Width = 239 Anchors = [akTop, akLeft, akRight] Shape = bsSpacer end end end object FontDialog1: TFontDialog Font.Height = -11 Font.Name = 'MS Sans Serif' MinFontSize = 0 MaxFontSize = 0 Left = 192 Top = 352 end end