You've already forked lazarus-ccr
tvplanit: Use font "default" (lowercase!) in all forms instead of MS Sans Serif, font size 0
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4704 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
@ -9,8 +9,6 @@ object frmAbout: TfrmAbout
|
||||
Caption = 'About Visual PlanIt'
|
||||
ClientHeight = 312
|
||||
ClientWidth = 471
|
||||
Font.Height = -11
|
||||
Font.Name = 'Default'
|
||||
OnActivate = FormActivate
|
||||
OnMouseMove = FormMouseMove
|
||||
Position = poScreenCenter
|
||||
@ -43,17 +41,17 @@ object frmAbout: TfrmAbout
|
||||
end
|
||||
object VisitUsLabel: TLabel
|
||||
Left = 152
|
||||
Height = 14
|
||||
Height = 15
|
||||
Top = 109
|
||||
Width = 217
|
||||
Width = 235
|
||||
Caption = 'Visit the Visual PlanIt project on SourceForge'
|
||||
ParentColor = False
|
||||
end
|
||||
object GeneralNewsgroupsLabel: TLabel
|
||||
Left = 160
|
||||
Height = 14
|
||||
Height = 15
|
||||
Top = 168
|
||||
Width = 135
|
||||
Width = 148
|
||||
Caption = 'Visual PlanIt support groups'
|
||||
ParentColor = False
|
||||
end
|
||||
@ -91,17 +89,17 @@ object frmAbout: TfrmAbout
|
||||
end
|
||||
object CopyrightLabel: TLabel
|
||||
Left = 7
|
||||
Height = 14
|
||||
Height = 15
|
||||
Top = 273
|
||||
Width = 256
|
||||
Width = 277
|
||||
Caption = '(C) Copyright 2001, TurboPower Software Company.'
|
||||
ParentColor = False
|
||||
end
|
||||
object RightsReservedLabel: TLabel
|
||||
Left = 7
|
||||
Height = 14
|
||||
Height = 15
|
||||
Top = 289
|
||||
Width = 92
|
||||
Width = 97
|
||||
Caption = 'All rights reserved.'
|
||||
ParentColor = False
|
||||
end
|
||||
@ -123,17 +121,17 @@ object frmAbout: TfrmAbout
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 168
|
||||
Height = 14
|
||||
Height = 15
|
||||
Top = 186
|
||||
Width = 24
|
||||
Width = 28
|
||||
Caption = 'Help:'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 168
|
||||
Height = 14
|
||||
Height = 15
|
||||
Top = 217
|
||||
Width = 97
|
||||
Width = 102
|
||||
Caption = 'General Discussion:'
|
||||
ParentColor = False
|
||||
end
|
||||
|
||||
@ -9,8 +9,6 @@ object ContactEditForm: TContactEditForm
|
||||
Caption = 'ContactEdit'
|
||||
ClientHeight = 320
|
||||
ClientWidth = 433
|
||||
Font.Height = -11
|
||||
Font.Name = 'Default'
|
||||
OnCreate = FormCreate
|
||||
OnKeyDown = FormKeyDown
|
||||
OnShow = FormShow
|
||||
@ -21,9 +19,9 @@ object ContactEditForm: TContactEditForm
|
||||
Height = 279
|
||||
Top = 0
|
||||
Width = 433
|
||||
ActivePage = tabMain
|
||||
ActivePage = tabCustom
|
||||
Align = alClient
|
||||
TabIndex = 0
|
||||
TabIndex = 2
|
||||
TabOrder = 0
|
||||
OnChange = tsContactsChange
|
||||
object tabMain: TTabSheet
|
||||
@ -142,7 +140,7 @@ object ContactEditForm: TContactEditForm
|
||||
end
|
||||
object NameEdit: TEdit
|
||||
Left = 136
|
||||
Height = 22
|
||||
Height = 23
|
||||
Top = 4
|
||||
Width = 247
|
||||
MaxLength = 100
|
||||
@ -151,7 +149,7 @@ object ContactEditForm: TContactEditForm
|
||||
end
|
||||
object AddressEdit: TEdit
|
||||
Left = 136
|
||||
Height = 22
|
||||
Height = 23
|
||||
Top = 52
|
||||
Width = 247
|
||||
MaxLength = 100
|
||||
@ -160,7 +158,7 @@ object ContactEditForm: TContactEditForm
|
||||
end
|
||||
object CityEdit: TEdit
|
||||
Left = 136
|
||||
Height = 22
|
||||
Height = 23
|
||||
Top = 76
|
||||
Width = 247
|
||||
MaxLength = 50
|
||||
@ -169,7 +167,7 @@ object ContactEditForm: TContactEditForm
|
||||
end
|
||||
object StateEdit: TEdit
|
||||
Left = 168
|
||||
Height = 22
|
||||
Height = 23
|
||||
Top = 100
|
||||
Width = 247
|
||||
MaxLength = 25
|
||||
@ -178,7 +176,7 @@ object ContactEditForm: TContactEditForm
|
||||
end
|
||||
object ZipCodeEdit: TEdit
|
||||
Left = 136
|
||||
Height = 22
|
||||
Height = 23
|
||||
Top = 124
|
||||
Width = 121
|
||||
MaxLength = 10
|
||||
@ -187,7 +185,7 @@ object ContactEditForm: TContactEditForm
|
||||
end
|
||||
object PositionEdit: TEdit
|
||||
Left = 136
|
||||
Height = 22
|
||||
Height = 23
|
||||
Top = 197
|
||||
Width = 121
|
||||
MaxLength = 50
|
||||
@ -196,7 +194,7 @@ object ContactEditForm: TContactEditForm
|
||||
end
|
||||
object TitleEdit: TEdit
|
||||
Left = 136
|
||||
Height = 22
|
||||
Height = 23
|
||||
Top = 29
|
||||
Width = 121
|
||||
MaxLength = 50
|
||||
@ -205,7 +203,7 @@ object ContactEditForm: TContactEditForm
|
||||
end
|
||||
object CompanyEdit: TEdit
|
||||
Left = 136
|
||||
Height = 22
|
||||
Height = 23
|
||||
Top = 173
|
||||
Width = 121
|
||||
MaxLength = 50
|
||||
@ -217,7 +215,7 @@ object ContactEditForm: TContactEditForm
|
||||
Height = 22
|
||||
Top = 224
|
||||
Width = 121
|
||||
ItemHeight = 14
|
||||
ItemHeight = 15
|
||||
MaxLength = 65535
|
||||
TabOrder = 11
|
||||
end
|
||||
@ -226,14 +224,14 @@ object ContactEditForm: TContactEditForm
|
||||
Height = 22
|
||||
Top = 100
|
||||
Width = 249
|
||||
ItemHeight = 14
|
||||
ItemHeight = 15
|
||||
MaxLength = 65535
|
||||
TabOrder = 4
|
||||
Visible = False
|
||||
end
|
||||
object edtCountry: TEdit
|
||||
Left = 152
|
||||
Height = 22
|
||||
Height = 23
|
||||
Top = 148
|
||||
Width = 249
|
||||
TabOrder = 8
|
||||
@ -258,10 +256,10 @@ object ContactEditForm: TContactEditForm
|
||||
ClientWidth = 425
|
||||
ImageIndex = 1
|
||||
object EMailLbl: TLabel
|
||||
Left = 91
|
||||
Height = 14
|
||||
Left = 84
|
||||
Height = 15
|
||||
Top = 133
|
||||
Width = 38
|
||||
Width = 45
|
||||
Caption = 'EMailLbl'
|
||||
FocusControl = EMailEdit
|
||||
ParentColor = False
|
||||
@ -271,7 +269,7 @@ object ContactEditForm: TContactEditForm
|
||||
Height = 22
|
||||
Top = 8
|
||||
Width = 121
|
||||
ItemHeight = 14
|
||||
ItemHeight = 15
|
||||
MaxLength = 65535
|
||||
TabOrder = 0
|
||||
end
|
||||
@ -280,7 +278,7 @@ object ContactEditForm: TContactEditForm
|
||||
Height = 22
|
||||
Top = 32
|
||||
Width = 121
|
||||
ItemHeight = 14
|
||||
ItemHeight = 15
|
||||
MaxLength = 65535
|
||||
TabOrder = 2
|
||||
end
|
||||
@ -289,7 +287,7 @@ object ContactEditForm: TContactEditForm
|
||||
Height = 22
|
||||
Top = 56
|
||||
Width = 121
|
||||
ItemHeight = 14
|
||||
ItemHeight = 15
|
||||
MaxLength = 65535
|
||||
TabOrder = 4
|
||||
end
|
||||
@ -298,42 +296,42 @@ object ContactEditForm: TContactEditForm
|
||||
Height = 22
|
||||
Top = 80
|
||||
Width = 121
|
||||
ItemHeight = 14
|
||||
ItemHeight = 15
|
||||
MaxLength = 65535
|
||||
TabOrder = 6
|
||||
end
|
||||
object Phone4Edit: TEdit
|
||||
Left = 136
|
||||
Height = 22
|
||||
Height = 23
|
||||
Top = 80
|
||||
Width = 121
|
||||
Width = 281
|
||||
MaxLength = 25
|
||||
OnChange = ItemChanged
|
||||
TabOrder = 7
|
||||
end
|
||||
object Phone3Edit: TEdit
|
||||
Left = 136
|
||||
Height = 22
|
||||
Height = 23
|
||||
Top = 56
|
||||
Width = 121
|
||||
Width = 281
|
||||
MaxLength = 25
|
||||
OnChange = ItemChanged
|
||||
TabOrder = 5
|
||||
end
|
||||
object Phone2Edit: TEdit
|
||||
Left = 136
|
||||
Height = 22
|
||||
Height = 23
|
||||
Top = 32
|
||||
Width = 121
|
||||
Width = 281
|
||||
MaxLength = 25
|
||||
OnChange = ItemChanged
|
||||
TabOrder = 3
|
||||
end
|
||||
object Phone1Edit: TEdit
|
||||
Left = 136
|
||||
Height = 22
|
||||
Height = 23
|
||||
Top = 8
|
||||
Width = 121
|
||||
Width = 281
|
||||
MaxLength = 25
|
||||
OnChange = ItemChanged
|
||||
TabOrder = 1
|
||||
@ -343,24 +341,24 @@ object ContactEditForm: TContactEditForm
|
||||
Height = 22
|
||||
Top = 104
|
||||
Width = 121
|
||||
ItemHeight = 14
|
||||
ItemHeight = 15
|
||||
MaxLength = 65535
|
||||
TabOrder = 8
|
||||
end
|
||||
object Phone5Edit: TEdit
|
||||
Left = 136
|
||||
Height = 22
|
||||
Height = 23
|
||||
Top = 104
|
||||
Width = 121
|
||||
Width = 281
|
||||
MaxLength = 25
|
||||
OnChange = ItemChanged
|
||||
TabOrder = 9
|
||||
end
|
||||
object EMailEdit: TEdit
|
||||
Left = 136
|
||||
Height = 22
|
||||
Height = 23
|
||||
Top = 128
|
||||
Width = 121
|
||||
Width = 281
|
||||
TabOrder = 10
|
||||
end
|
||||
end
|
||||
@ -371,68 +369,68 @@ object ContactEditForm: TContactEditForm
|
||||
ImageIndex = 2
|
||||
object CustomLbl1: TLabel
|
||||
Left = 8
|
||||
Height = 14
|
||||
Height = 15
|
||||
Top = 12
|
||||
Width = 56
|
||||
Width = 64
|
||||
Caption = 'CustomLbl1'
|
||||
ParentColor = False
|
||||
end
|
||||
object CustomLbl2: TLabel
|
||||
Left = 8
|
||||
Height = 14
|
||||
Height = 15
|
||||
Top = 36
|
||||
Width = 56
|
||||
Width = 64
|
||||
Caption = 'CustomLbl2'
|
||||
ParentColor = False
|
||||
end
|
||||
object CustomLbl3: TLabel
|
||||
Left = 8
|
||||
Height = 14
|
||||
Height = 15
|
||||
Top = 60
|
||||
Width = 56
|
||||
Width = 64
|
||||
Caption = 'CustomLbl3'
|
||||
ParentColor = False
|
||||
end
|
||||
object CustomLbl4: TLabel
|
||||
Left = 8
|
||||
Height = 14
|
||||
Height = 15
|
||||
Top = 84
|
||||
Width = 56
|
||||
Width = 64
|
||||
Caption = 'CustomLbl4'
|
||||
ParentColor = False
|
||||
end
|
||||
object Custom1Edit: TEdit
|
||||
Left = 80
|
||||
Height = 22
|
||||
Height = 23
|
||||
Top = 8
|
||||
Width = 121
|
||||
Width = 337
|
||||
MaxLength = 100
|
||||
OnChange = ItemChanged
|
||||
TabOrder = 0
|
||||
end
|
||||
object Custom2Edit: TEdit
|
||||
Left = 80
|
||||
Height = 22
|
||||
Height = 23
|
||||
Top = 32
|
||||
Width = 121
|
||||
Width = 337
|
||||
MaxLength = 100
|
||||
OnChange = ItemChanged
|
||||
TabOrder = 1
|
||||
end
|
||||
object Custom3Edit: TEdit
|
||||
Left = 80
|
||||
Height = 22
|
||||
Height = 23
|
||||
Top = 56
|
||||
Width = 121
|
||||
Width = 337
|
||||
MaxLength = 100
|
||||
OnChange = ItemChanged
|
||||
TabOrder = 2
|
||||
end
|
||||
object Custom4Edit: TEdit
|
||||
Left = 80
|
||||
Height = 22
|
||||
Height = 23
|
||||
Top = 80
|
||||
Width = 121
|
||||
Width = 337
|
||||
MaxLength = 100
|
||||
OnChange = ItemChanged
|
||||
TabOrder = 3
|
||||
|
||||
@ -499,6 +499,8 @@ begin
|
||||
Height := FieldTop + FormHeightOffset
|
||||
else
|
||||
Height := MinFormHeight;
|
||||
|
||||
EMailLbl.Left := EMailEdit.Left - EMailLbl.Width;
|
||||
end;
|
||||
{=====}
|
||||
|
||||
|
||||
@ -9,9 +9,8 @@ object frmDatePropertyEditor: TfrmDatePropertyEditor
|
||||
Caption = 'Select Date'
|
||||
ClientHeight = 193
|
||||
ClientWidth = 219
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Position = poDefaultPosOnly
|
||||
LCLVersion = '1.7'
|
||||
object Button1: TButton
|
||||
Left = 56
|
||||
Height = 25
|
||||
@ -35,18 +34,23 @@ object frmDatePropertyEditor: TfrmDatePropertyEditor
|
||||
Height = 140
|
||||
Top = 8
|
||||
Width = 200
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
ParentFont = False
|
||||
BorderStyle = bsNone
|
||||
Colors.ActiveDay = clRed
|
||||
Colors.ColorScheme = cscalCustom
|
||||
Colors.DayNames = clMaroon
|
||||
Colors.Days = clBlack
|
||||
Colors.InactiveDays = clGray
|
||||
Colors.MonthAndYear = clBlue
|
||||
Colors.Weekend = clRed
|
||||
Colors.EventDays = clBlack
|
||||
DateFormat = dfLong
|
||||
DayNameWidth = 3
|
||||
Options = [cdoShortNames, cdoShowYear, cdoShowRevert, cdoShowToday, cdoShowNavBtns]
|
||||
ReadOnly = False
|
||||
TabOrder = 2
|
||||
TabStop = True
|
||||
WantDblClicks = True
|
||||
WeekStarts = dtSunday
|
||||
end
|
||||
end
|
||||
|
||||
@ -1,24 +1,23 @@
|
||||
object frmEditElement: TfrmEditElement
|
||||
Left = 376
|
||||
Height = 445
|
||||
Height = 427
|
||||
Top = 163
|
||||
Width = 379
|
||||
Width = 413
|
||||
HorzScrollBar.Page = 378
|
||||
VertScrollBar.Page = 444
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'Edit Element'
|
||||
ClientHeight = 445
|
||||
ClientWidth = 379
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
ClientHeight = 427
|
||||
ClientWidth = 413
|
||||
OnCreate = FormCreate
|
||||
OnShow = FormShow
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '1.7'
|
||||
object Label1: TLabel
|
||||
Left = 8
|
||||
Left = 20
|
||||
Height = 15
|
||||
Top = 136
|
||||
Width = 72
|
||||
Width = 58
|
||||
Caption = 'Day Offset:'
|
||||
ParentColor = False
|
||||
end
|
||||
@ -26,7 +25,7 @@ object frmEditElement: TfrmEditElement
|
||||
Left = 12
|
||||
Height = 15
|
||||
Top = 16
|
||||
Width = 48
|
||||
Width = 38
|
||||
Caption = 'Name: '
|
||||
ParentColor = False
|
||||
end
|
||||
@ -34,7 +33,7 @@ object frmEditElement: TfrmEditElement
|
||||
Left = 12
|
||||
Height = 81
|
||||
Top = 44
|
||||
Width = 349
|
||||
Width = 388
|
||||
AutoFill = True
|
||||
Caption = 'Item Type '
|
||||
ChildSizing.LeftRightSpacing = 6
|
||||
@ -46,7 +45,7 @@ object frmEditElement: TfrmEditElement
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 4
|
||||
ClientHeight = 61
|
||||
ClientWidth = 345
|
||||
ClientWidth = 384
|
||||
Columns = 4
|
||||
ItemIndex = 0
|
||||
Items.Strings = (
|
||||
@ -63,10 +62,10 @@ object frmEditElement: TfrmEditElement
|
||||
TabOrder = 1
|
||||
end
|
||||
object rgDayOffset: TRadioGroup
|
||||
Left = 100
|
||||
Height = 37
|
||||
Left = 116
|
||||
Height = 43
|
||||
Top = 136
|
||||
Width = 261
|
||||
Width = 284
|
||||
AutoFill = True
|
||||
Caption = ' Day Offset Unit '
|
||||
ChildSizing.LeftRightSpacing = 6
|
||||
@ -77,8 +76,8 @@ object frmEditElement: TfrmEditElement
|
||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 4
|
||||
ClientHeight = 17
|
||||
ClientWidth = 257
|
||||
ClientHeight = 23
|
||||
ClientWidth = 280
|
||||
Columns = 4
|
||||
ItemIndex = 0
|
||||
Items.Strings = (
|
||||
@ -87,59 +86,59 @@ object frmEditElement: TfrmEditElement
|
||||
'Month'
|
||||
'Year'
|
||||
)
|
||||
TabOrder = 2
|
||||
TabOrder = 3
|
||||
end
|
||||
object btnOk: TButton
|
||||
Left = 212
|
||||
Left = 240
|
||||
Height = 25
|
||||
Top = 412
|
||||
Top = 392
|
||||
Width = 75
|
||||
Caption = 'OK'
|
||||
Default = True
|
||||
OnClick = btnOkClick
|
||||
TabOrder = 6
|
||||
TabOrder = 8
|
||||
end
|
||||
object btnCancel: TButton
|
||||
Left = 292
|
||||
Left = 320
|
||||
Height = 25
|
||||
Top = 412
|
||||
Top = 392
|
||||
Width = 75
|
||||
Cancel = True
|
||||
Caption = 'Cancel'
|
||||
OnClick = btnCancelClick
|
||||
TabOrder = 7
|
||||
TabOrder = 9
|
||||
end
|
||||
object edName: TEdit
|
||||
Left = 56
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 12
|
||||
Width = 241
|
||||
Width = 344
|
||||
TabOrder = 0
|
||||
end
|
||||
object btnShape: TButton
|
||||
Left = 44
|
||||
Left = 12
|
||||
Height = 25
|
||||
Top = 412
|
||||
Top = 392
|
||||
Width = 75
|
||||
Caption = 'Shape...'
|
||||
Enabled = False
|
||||
OnClick = btnShapeClick
|
||||
TabOrder = 5
|
||||
TabOrder = 7
|
||||
end
|
||||
object gbVisual: TGroupBox
|
||||
Left = 12
|
||||
Height = 121
|
||||
Height = 129
|
||||
Top = 184
|
||||
Width = 357
|
||||
Width = 388
|
||||
Caption = ' Visual '
|
||||
ClientHeight = 101
|
||||
ClientWidth = 353
|
||||
TabOrder = 3
|
||||
ClientHeight = 109
|
||||
ClientWidth = 384
|
||||
TabOrder = 5
|
||||
object Label3: TLabel
|
||||
Left = 172
|
||||
Height = 15
|
||||
Top = 20
|
||||
Width = 28
|
||||
Width = 23
|
||||
Caption = 'Top:'
|
||||
ParentColor = False
|
||||
end
|
||||
@ -147,30 +146,30 @@ object frmEditElement: TfrmEditElement
|
||||
Left = 172
|
||||
Height = 15
|
||||
Top = 48
|
||||
Width = 29
|
||||
Width = 23
|
||||
Caption = 'Left:'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 259
|
||||
Left = 276
|
||||
Height = 15
|
||||
Top = 20
|
||||
Width = 47
|
||||
Width = 39
|
||||
Caption = 'Height:'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 263
|
||||
Left = 280
|
||||
Height = 15
|
||||
Top = 48
|
||||
Width = 40
|
||||
Width = 35
|
||||
Caption = 'Width:'
|
||||
ParentColor = False
|
||||
end
|
||||
object rgMeasurement: TRadioGroup
|
||||
Left = 76
|
||||
Height = 80
|
||||
Top = 20
|
||||
Height = 99
|
||||
Top = 0
|
||||
Width = 89
|
||||
AutoFill = True
|
||||
Caption = ' Measurement '
|
||||
@ -182,7 +181,7 @@ object frmEditElement: TfrmEditElement
|
||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 1
|
||||
ClientHeight = 60
|
||||
ClientHeight = 79
|
||||
ClientWidth = 85
|
||||
ItemIndex = 1
|
||||
Items.Strings = (
|
||||
@ -195,8 +194,8 @@ object frmEditElement: TfrmEditElement
|
||||
end
|
||||
object rgRotation: TRadioGroup
|
||||
Left = 8
|
||||
Height = 93
|
||||
Top = 20
|
||||
Height = 99
|
||||
Top = 0
|
||||
Width = 61
|
||||
AutoFill = True
|
||||
Caption = ' Rotation '
|
||||
@ -208,7 +207,7 @@ object frmEditElement: TfrmEditElement
|
||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 1
|
||||
ClientHeight = 73
|
||||
ClientHeight = 79
|
||||
ClientWidth = 57
|
||||
ItemIndex = 0
|
||||
Items.Strings = (
|
||||
@ -220,8 +219,8 @@ object frmEditElement: TfrmEditElement
|
||||
TabOrder = 0
|
||||
end
|
||||
object edTop: TEdit
|
||||
Left = 197
|
||||
Height = 21
|
||||
Left = 208
|
||||
Height = 23
|
||||
Top = 16
|
||||
Width = 40
|
||||
OnEnter = PosEditEnter
|
||||
@ -230,132 +229,152 @@ object frmEditElement: TfrmEditElement
|
||||
Text = '0.00'
|
||||
end
|
||||
object edLeft: TEdit
|
||||
Left = 197
|
||||
Height = 21
|
||||
Left = 208
|
||||
Height = 23
|
||||
Top = 44
|
||||
Width = 40
|
||||
OnEnter = PosEditEnter
|
||||
OnExit = PosEditExit
|
||||
TabOrder = 3
|
||||
Text = '0.00'
|
||||
end
|
||||
object edHeight: TEdit
|
||||
Left = 296
|
||||
Height = 21
|
||||
Top = 16
|
||||
Width = 40
|
||||
OnEnter = PosEditEnter
|
||||
OnExit = PosEditExit
|
||||
TabOrder = 4
|
||||
Text = '0.00'
|
||||
end
|
||||
object edHeight: TEdit
|
||||
Left = 321
|
||||
Height = 23
|
||||
Top = 16
|
||||
Width = 40
|
||||
OnEnter = PosEditEnter
|
||||
OnExit = PosEditExit
|
||||
TabOrder = 6
|
||||
Text = '0.00'
|
||||
end
|
||||
object edWidth: TEdit
|
||||
Left = 296
|
||||
Height = 21
|
||||
Left = 321
|
||||
Height = 23
|
||||
Top = 44
|
||||
Width = 40
|
||||
OnEnter = PosEditEnter
|
||||
OnExit = PosEditExit
|
||||
TabOrder = 5
|
||||
TabOrder = 8
|
||||
Text = '0.00'
|
||||
end
|
||||
object chkVisible: TCheckBox
|
||||
Left = 228
|
||||
Height = 23
|
||||
Height = 19
|
||||
Top = 80
|
||||
Width = 65
|
||||
Width = 54
|
||||
Caption = 'Visible'
|
||||
TabOrder = 6
|
||||
TabOrder = 10
|
||||
end
|
||||
object udTop: TUpDown
|
||||
Left = 237
|
||||
Height = 21
|
||||
Left = 248
|
||||
Height = 23
|
||||
Top = 16
|
||||
Width = 12
|
||||
TabOrder = 7
|
||||
Associate = edTop
|
||||
Min = 0
|
||||
OnClick = UpDownClick
|
||||
Position = 0
|
||||
TabOrder = 3
|
||||
Wrap = False
|
||||
end
|
||||
object udLeft: TUpDown
|
||||
Left = 237
|
||||
Height = 21
|
||||
Left = 248
|
||||
Height = 23
|
||||
Top = 44
|
||||
Width = 12
|
||||
TabOrder = 8
|
||||
Associate = edLeft
|
||||
Min = 0
|
||||
OnClick = UpDownClick
|
||||
Position = 0
|
||||
TabOrder = 5
|
||||
Wrap = False
|
||||
end
|
||||
object udHeight: TUpDown
|
||||
Left = 336
|
||||
Height = 21
|
||||
Left = 361
|
||||
Height = 23
|
||||
Top = 16
|
||||
Width = 12
|
||||
TabOrder = 9
|
||||
Associate = edHeight
|
||||
Min = 0
|
||||
OnClick = UpDownClick
|
||||
Position = 0
|
||||
TabOrder = 7
|
||||
Wrap = False
|
||||
end
|
||||
object udWidth: TUpDown
|
||||
Left = 336
|
||||
Height = 21
|
||||
Left = 361
|
||||
Height = 23
|
||||
Top = 44
|
||||
Width = 12
|
||||
TabOrder = 10
|
||||
Associate = edWidth
|
||||
Min = 0
|
||||
OnClick = UpDownClick
|
||||
Position = 0
|
||||
TabOrder = 9
|
||||
Wrap = False
|
||||
end
|
||||
end
|
||||
object gbCaption: TGroupBox
|
||||
Left = 12
|
||||
Height = 93
|
||||
Height = 69
|
||||
Top = 316
|
||||
Width = 357
|
||||
Width = 388
|
||||
Caption = ' Caption '
|
||||
ClientHeight = 73
|
||||
ClientWidth = 353
|
||||
TabOrder = 4
|
||||
ClientHeight = 49
|
||||
ClientWidth = 384
|
||||
TabOrder = 6
|
||||
object lbCaptionText: TLabel
|
||||
Left = 16
|
||||
Height = 15
|
||||
Top = 24
|
||||
Width = 36
|
||||
Top = 12
|
||||
Width = 27
|
||||
Caption = 'Text: '
|
||||
ParentColor = False
|
||||
end
|
||||
object btnCaptionFont: TButton
|
||||
Left = 24
|
||||
Left = 312
|
||||
Height = 25
|
||||
Top = 48
|
||||
Width = 75
|
||||
Top = 6
|
||||
Width = 67
|
||||
Caption = 'Font...'
|
||||
OnClick = btnCaptionFontClick
|
||||
TabOrder = 1
|
||||
end
|
||||
object edCaptionText: TEdit
|
||||
Left = 52
|
||||
Height = 21
|
||||
Top = 20
|
||||
Width = 293
|
||||
Height = 23
|
||||
Top = 8
|
||||
Width = 253
|
||||
OnChange = edCaptionTextChange
|
||||
TabOrder = 0
|
||||
end
|
||||
end
|
||||
object edOffset: TEdit
|
||||
Left = 20
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 156
|
||||
Width = 54
|
||||
OnKeyDown = nil
|
||||
TabOrder = 8
|
||||
TabOrder = 2
|
||||
Text = '0'
|
||||
end
|
||||
object udOffset: TUpDown
|
||||
Left = 74
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 156
|
||||
Width = 11
|
||||
Associate = edOffset
|
||||
TabOrder = 9
|
||||
Min = 0
|
||||
Position = 0
|
||||
TabOrder = 4
|
||||
Wrap = False
|
||||
end
|
||||
object FontDialog1: TFontDialog
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
left = 4
|
||||
top = 308
|
||||
MinFontSize = 0
|
||||
MaxFontSize = 0
|
||||
left = 176
|
||||
top = 296
|
||||
end
|
||||
end
|
||||
|
||||
@ -1,67 +1,66 @@
|
||||
object frmEditFormat: TfrmEditFormat
|
||||
Left = 403
|
||||
Height = 189
|
||||
Height = 199
|
||||
Top = 199
|
||||
Width = 329
|
||||
HorzScrollBar.Page = 328
|
||||
VertScrollBar.Page = 188
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'Edit Format'
|
||||
ClientHeight = 189
|
||||
ClientHeight = 199
|
||||
ClientWidth = 329
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
OnShow = FormShow
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '1.7'
|
||||
object Label1: TLabel
|
||||
Left = 12
|
||||
Left = 16
|
||||
Height = 15
|
||||
Top = 76
|
||||
Width = 99
|
||||
Width = 80
|
||||
Caption = 'Day Increment:'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 12
|
||||
Left = 16
|
||||
Height = 15
|
||||
Top = 44
|
||||
Width = 81
|
||||
Width = 66
|
||||
Caption = 'Description: '
|
||||
ParentColor = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 12
|
||||
Left = 16
|
||||
Height = 15
|
||||
Top = 16
|
||||
Width = 48
|
||||
Width = 38
|
||||
Caption = 'Name: '
|
||||
ParentColor = False
|
||||
end
|
||||
object btnOk: TButton
|
||||
Left = 160
|
||||
Left = 157
|
||||
Height = 25
|
||||
Top = 156
|
||||
Top = 164
|
||||
Width = 75
|
||||
Caption = 'OK'
|
||||
Default = True
|
||||
OnClick = btnOkClick
|
||||
TabOrder = 3
|
||||
TabOrder = 5
|
||||
end
|
||||
object btnCancel: TButton
|
||||
Left = 240
|
||||
Left = 237
|
||||
Height = 25
|
||||
Top = 156
|
||||
Top = 164
|
||||
Width = 75
|
||||
Cancel = True
|
||||
Caption = 'Cancel'
|
||||
OnClick = btnCancelClick
|
||||
TabOrder = 4
|
||||
TabOrder = 6
|
||||
end
|
||||
object rgDayIncrement: TRadioGroup
|
||||
Left = 16
|
||||
Height = 37
|
||||
Height = 48
|
||||
Top = 104
|
||||
Width = 293
|
||||
Width = 296
|
||||
AutoFill = True
|
||||
Caption = ' Day Increment Unit '
|
||||
ChildSizing.LeftRightSpacing = 6
|
||||
@ -72,8 +71,8 @@ object frmEditFormat: TfrmEditFormat
|
||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 4
|
||||
ClientHeight = 17
|
||||
ClientWidth = 289
|
||||
ClientHeight = 28
|
||||
ClientWidth = 292
|
||||
Columns = 4
|
||||
ItemIndex = 0
|
||||
Items.Strings = (
|
||||
@ -82,38 +81,40 @@ object frmEditFormat: TfrmEditFormat
|
||||
'Month'
|
||||
'Year'
|
||||
)
|
||||
TabOrder = 2
|
||||
TabOrder = 4
|
||||
end
|
||||
object edDescription: TEdit
|
||||
Left = 80
|
||||
Height = 21
|
||||
Left = 88
|
||||
Height = 23
|
||||
Top = 40
|
||||
Width = 241
|
||||
Width = 224
|
||||
TabOrder = 1
|
||||
end
|
||||
object edName: TEdit
|
||||
Left = 56
|
||||
Height = 21
|
||||
Left = 64
|
||||
Height = 23
|
||||
Top = 12
|
||||
Width = 265
|
||||
Width = 248
|
||||
TabOrder = 0
|
||||
end
|
||||
object udIncrement: TUpDown
|
||||
Left = 150
|
||||
Height = 21
|
||||
Left = 158
|
||||
Height = 23
|
||||
Top = 72
|
||||
Width = 16
|
||||
Associate = edIncrement
|
||||
Max = 365
|
||||
TabOrder = 5
|
||||
Min = 0
|
||||
Position = 0
|
||||
TabOrder = 3
|
||||
Wrap = False
|
||||
end
|
||||
object edIncrement: TEdit
|
||||
Left = 96
|
||||
Height = 21
|
||||
Left = 104
|
||||
Height = 23
|
||||
Top = 72
|
||||
Width = 54
|
||||
OnKeyDown = nil
|
||||
TabOrder = 6
|
||||
TabOrder = 2
|
||||
Text = '0'
|
||||
end
|
||||
end
|
||||
|
||||
@ -8,36 +8,34 @@ object frmPrnFormat: TfrmPrnFormat
|
||||
Caption = 'Print Format Designer'
|
||||
ClientHeight = 480
|
||||
ClientWidth = 640
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
OnCloseQuery = FormCloseQuery
|
||||
OnCreate = FormCreate
|
||||
OnShow = FormShow
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '1.7'
|
||||
object Label1: TLabel
|
||||
Left = 8
|
||||
Height = 14
|
||||
Top = 4
|
||||
Width = 44
|
||||
Height = 15
|
||||
Top = 5
|
||||
Width = 46
|
||||
Caption = '&Formats:'
|
||||
FocusControl = lbFormats
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 8
|
||||
Height = 14
|
||||
Height = 15
|
||||
Top = 205
|
||||
Width = 48
|
||||
Width = 51
|
||||
Caption = 'Ele&ments:'
|
||||
FocusControl = lbElements
|
||||
ParentColor = False
|
||||
end
|
||||
object btnMoveElementUp: TSpeedButton
|
||||
Left = 232
|
||||
Left = 248
|
||||
Height = 22
|
||||
Top = 352
|
||||
Width = 23
|
||||
Color = clBtnFace
|
||||
Glyph.Data = {
|
||||
76010000424D7601000000000000760000002800000020000000100000000100
|
||||
0400000000000001000000000000000000001000000010000000000000000000
|
||||
@ -56,11 +54,10 @@ object frmPrnFormat: TfrmPrnFormat
|
||||
OnClick = btnMoveElementUpClick
|
||||
end
|
||||
object btnMoveElementDn: TSpeedButton
|
||||
Left = 232
|
||||
Left = 248
|
||||
Height = 22
|
||||
Top = 380
|
||||
Width = 23
|
||||
Color = clBtnFace
|
||||
Glyph.Data = {
|
||||
76010000424D7601000000000000760000002800000020000000100000000100
|
||||
0400000000000001000000000000000000001000000010000000000000000000
|
||||
@ -79,10 +76,10 @@ object frmPrnFormat: TfrmPrnFormat
|
||||
OnClick = btnMoveElementDnClick
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 220
|
||||
Height = 14
|
||||
Left = 232
|
||||
Height = 15
|
||||
Top = 332
|
||||
Width = 54
|
||||
Width = 58
|
||||
Caption = 'Print Order'
|
||||
ParentColor = False
|
||||
end
|
||||
@ -97,19 +94,22 @@ object frmPrnFormat: TfrmPrnFormat
|
||||
TabOrder = 1
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 334
|
||||
Left = 312
|
||||
Height = 439
|
||||
Width = 306
|
||||
Top = 0
|
||||
Width = 320
|
||||
Align = alRight
|
||||
BorderSpacing.Right = 8
|
||||
Caption = 'Panel1'
|
||||
ClientHeight = 439
|
||||
ClientWidth = 306
|
||||
ClientWidth = 320
|
||||
TabOrder = 8
|
||||
object PrintPreview: TVpPrintPreview
|
||||
Left = 1
|
||||
Height = 437
|
||||
Top = 1
|
||||
Width = 304
|
||||
Width = 318
|
||||
CurPage = 0
|
||||
EndDate = 37377.6447728357
|
||||
StartDate = 37370.6447728357
|
||||
ZoomFactor = zfActualSize
|
||||
@ -121,10 +121,10 @@ object frmPrnFormat: TfrmPrnFormat
|
||||
end
|
||||
object lbFormats: TListBox
|
||||
Left = 8
|
||||
Height = 170
|
||||
Top = 28
|
||||
Height = 173
|
||||
Top = 25
|
||||
Width = 201
|
||||
ItemHeight = 13
|
||||
ItemHeight = 0
|
||||
OnClick = lbFormatsClick
|
||||
Sorted = True
|
||||
TabOrder = 0
|
||||
@ -134,7 +134,7 @@ object frmPrnFormat: TfrmPrnFormat
|
||||
Height = 180
|
||||
Top = 225
|
||||
Width = 201
|
||||
ItemHeight = 13
|
||||
ItemHeight = 0
|
||||
OnClick = lbElementsClick
|
||||
OnDragDrop = lbElementsDragDrop
|
||||
OnDragOver = lbElementsDragOver
|
||||
@ -192,6 +192,7 @@ object frmPrnFormat: TfrmPrnFormat
|
||||
TabOrder = 7
|
||||
end
|
||||
object Panel2: TPanel
|
||||
Left = 0
|
||||
Height = 41
|
||||
Top = 439
|
||||
Width = 640
|
||||
@ -243,8 +244,8 @@ object frmPrnFormat: TfrmPrnFormat
|
||||
DefaultExt = '.xml'
|
||||
FileName = '*.xml'
|
||||
Filter = 'Filter Files (.xml)|*.xml|All Files (*.*)|*.*'
|
||||
left = 215
|
||||
top = 156
|
||||
left = 400
|
||||
top = 128
|
||||
end
|
||||
object SaveDialog1: TSaveDialog
|
||||
Title = 'Save formats as'
|
||||
@ -252,7 +253,7 @@ object frmPrnFormat: TfrmPrnFormat
|
||||
FileName = '*.xml'
|
||||
Filter = 'Filter Files (.xml)|*.xml|All Files (*.*)|*.*'
|
||||
Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
|
||||
left = 247
|
||||
top = 156
|
||||
left = 400
|
||||
top = 200
|
||||
end
|
||||
end
|
||||
|
||||
@ -9,14 +9,12 @@ object frmEditShape: TfrmEditShape
|
||||
Caption = 'Edit Shape'
|
||||
ClientHeight = 314
|
||||
ClientWidth = 363
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
OnCreate = FormCreate
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '1.7'
|
||||
object rgShapeType: TRadioGroup
|
||||
Left = 8
|
||||
Height = 84
|
||||
Height = 88
|
||||
Top = 8
|
||||
Width = 345
|
||||
AutoFill = True
|
||||
@ -29,7 +27,7 @@ object frmEditShape: TfrmEditShape
|
||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 3
|
||||
ClientHeight = 66
|
||||
ClientHeight = 68
|
||||
ClientWidth = 341
|
||||
Columns = 3
|
||||
ItemIndex = 0
|
||||
@ -67,26 +65,26 @@ object frmEditShape: TfrmEditShape
|
||||
end
|
||||
object gbBrush: TGroupBox
|
||||
Left = 188
|
||||
Height = 165
|
||||
Top = 92
|
||||
Height = 158
|
||||
Top = 100
|
||||
Width = 165
|
||||
Caption = ' Brush '
|
||||
ClientHeight = 147
|
||||
ClientHeight = 138
|
||||
ClientWidth = 161
|
||||
TabOrder = 2
|
||||
object Label1: TLabel
|
||||
Left = 6
|
||||
Height = 13
|
||||
Top = 112
|
||||
Width = 26
|
||||
Height = 15
|
||||
Top = 111
|
||||
Width = 28
|
||||
Caption = 'Style:'
|
||||
ParentColor = False
|
||||
end
|
||||
object cbBrushStyle: TComboBox
|
||||
Left = 42
|
||||
Left = 48
|
||||
Height = 22
|
||||
Top = 108
|
||||
Width = 97
|
||||
Width = 99
|
||||
ItemHeight = 16
|
||||
OnDrawItem = cbBrushStyleDrawItem
|
||||
Style = csOwnerDrawFixed
|
||||
@ -104,49 +102,49 @@ object frmEditShape: TfrmEditShape
|
||||
TabOrder = 1
|
||||
object Label2: TLabel
|
||||
Left = 8
|
||||
Height = 13
|
||||
Top = 104
|
||||
Width = 26
|
||||
Height = 15
|
||||
Top = 103
|
||||
Width = 28
|
||||
Caption = 'Style:'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 8
|
||||
Height = 13
|
||||
Height = 15
|
||||
Top = 132
|
||||
Width = 31
|
||||
Width = 35
|
||||
Caption = 'Width:'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 8
|
||||
Height = 13
|
||||
Height = 15
|
||||
Top = 160
|
||||
Width = 30
|
||||
Width = 34
|
||||
Caption = 'Mode:'
|
||||
ParentColor = False
|
||||
end
|
||||
object cbPenStyle: TComboBox
|
||||
Left = 44
|
||||
Height = 19
|
||||
Left = 52
|
||||
Height = 22
|
||||
Top = 100
|
||||
Width = 105
|
||||
ItemHeight = 13
|
||||
Width = 97
|
||||
ItemHeight = 16
|
||||
OnDrawItem = cbPenStyleDrawItem
|
||||
Style = csOwnerDrawFixed
|
||||
TabOrder = 0
|
||||
end
|
||||
object cbPenMode: TComboBox
|
||||
Left = 44
|
||||
Left = 52
|
||||
Height = 21
|
||||
Top = 156
|
||||
Width = 105
|
||||
ItemHeight = 13
|
||||
Width = 97
|
||||
ItemHeight = 15
|
||||
TabOrder = 1
|
||||
end
|
||||
object udPenWidth: TUpDown
|
||||
Left = 98
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 128
|
||||
Width = 11
|
||||
Associate = edPenWidth
|
||||
@ -156,10 +154,10 @@ object frmEditShape: TfrmEditShape
|
||||
Wrap = False
|
||||
end
|
||||
object edPenWidth: TEdit
|
||||
Left = 44
|
||||
Height = 21
|
||||
Left = 52
|
||||
Height = 23
|
||||
Top = 128
|
||||
Width = 54
|
||||
Width = 46
|
||||
TabOrder = 2
|
||||
Text = '0'
|
||||
end
|
||||
|
||||
@ -9,8 +9,6 @@ object DlgEventEdit: TDlgEventEdit
|
||||
ClientWidth = 697
|
||||
Constraints.MinHeight = 378
|
||||
Constraints.MinWidth = 594
|
||||
Font.Height = -11
|
||||
Font.Name = 'Default'
|
||||
OnCreate = FormCreate
|
||||
OnShow = FormShow
|
||||
Position = poScreenCenter
|
||||
@ -41,7 +39,7 @@ object DlgEventEdit: TDlgEventEdit
|
||||
ParentFont = False
|
||||
end
|
||||
object OKBtn: TButton
|
||||
Left = 518
|
||||
Left = 509
|
||||
Height = 25
|
||||
Top = 8
|
||||
Width = 85
|
||||
@ -53,7 +51,7 @@ object DlgEventEdit: TDlgEventEdit
|
||||
TabStop = False
|
||||
end
|
||||
object CancelBtn: TButton
|
||||
Left = 606
|
||||
Left = 602
|
||||
Height = 25
|
||||
Top = 8
|
||||
Width = 85
|
||||
@ -77,10 +75,9 @@ object DlgEventEdit: TDlgEventEdit
|
||||
TabOrder = 0
|
||||
object DescriptionLbl: TLabel
|
||||
Left = 5
|
||||
Height = 13
|
||||
Height = 15
|
||||
Top = 15
|
||||
Width = 77
|
||||
AutoSize = False
|
||||
Width = 63
|
||||
Caption = 'Description:'
|
||||
ParentColor = False
|
||||
end
|
||||
@ -100,15 +97,14 @@ object DlgEventEdit: TDlgEventEdit
|
||||
end
|
||||
object CategoryLbl: TLabel
|
||||
Left = 5
|
||||
Height = 13
|
||||
Height = 15
|
||||
Top = 41
|
||||
Width = 77
|
||||
AutoSize = False
|
||||
Width = 51
|
||||
Caption = 'Category:'
|
||||
ParentColor = False
|
||||
end
|
||||
object StartTimeLbl: TLabel
|
||||
Left = 32
|
||||
Left = 33
|
||||
Height = 13
|
||||
Top = 108
|
||||
Width = 59
|
||||
@ -118,7 +114,7 @@ object DlgEventEdit: TDlgEventEdit
|
||||
ParentColor = False
|
||||
end
|
||||
object EndTimeLbl: TLabel
|
||||
Left = 33
|
||||
Left = 35
|
||||
Height = 13
|
||||
Top = 135
|
||||
Width = 57
|
||||
@ -276,7 +272,7 @@ object DlgEventEdit: TDlgEventEdit
|
||||
end
|
||||
object DescriptionEdit: TEdit
|
||||
Left = 86
|
||||
Height = 22
|
||||
Height = 23
|
||||
Top = 11
|
||||
Width = 580
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
@ -287,7 +283,7 @@ object DlgEventEdit: TDlgEventEdit
|
||||
Left = 38
|
||||
Height = 19
|
||||
Top = 170
|
||||
Width = 68
|
||||
Width = 74
|
||||
Caption = '&Reminder:'
|
||||
OnClick = AlarmSetClick
|
||||
TabOrder = 11
|
||||
@ -297,7 +293,7 @@ object DlgEventEdit: TDlgEventEdit
|
||||
Height = 22
|
||||
Top = 104
|
||||
Width = 93
|
||||
ItemHeight = 14
|
||||
ItemHeight = 15
|
||||
OnChangeBounds = StartTimeChange
|
||||
OnExit = StartTimeExit
|
||||
TabOrder = 4
|
||||
@ -307,7 +303,7 @@ object DlgEventEdit: TDlgEventEdit
|
||||
Height = 22
|
||||
Top = 131
|
||||
Width = 93
|
||||
ItemHeight = 14
|
||||
ItemHeight = 15
|
||||
OnChangeBounds = EndTimeChange
|
||||
OnExit = EndTimeExit
|
||||
TabOrder = 6
|
||||
@ -328,16 +324,17 @@ object DlgEventEdit: TDlgEventEdit
|
||||
Height = 22
|
||||
Top = 104
|
||||
Width = 187
|
||||
ItemHeight = 14
|
||||
ItemHeight = 15
|
||||
OnChange = RecurringTypeChange
|
||||
Style = csDropDownList
|
||||
TabOrder = 7
|
||||
end
|
||||
object IntervalUpDown: TUpDown
|
||||
Left = 654
|
||||
Height = 24
|
||||
Top = 103
|
||||
Width = 19
|
||||
Left = 652
|
||||
Height = 23
|
||||
Top = 104
|
||||
Width = 16
|
||||
Associate = edtUnusedPlaceholder
|
||||
Max = 32767
|
||||
Min = 0
|
||||
OnClick = IntervalUpDownClick
|
||||
@ -350,15 +347,16 @@ object DlgEventEdit: TDlgEventEdit
|
||||
Height = 22
|
||||
Top = 167
|
||||
Width = 93
|
||||
ItemHeight = 14
|
||||
ItemHeight = 15
|
||||
Style = csDropDownList
|
||||
TabOrder = 14
|
||||
end
|
||||
object AdvanceUpDown: TUpDown
|
||||
Left = 196
|
||||
Height = 24
|
||||
Top = 167
|
||||
Width = 19
|
||||
Left = 194
|
||||
Height = 23
|
||||
Top = 168
|
||||
Width = 14
|
||||
Associate = AlarmAdvance
|
||||
Max = 120
|
||||
Min = 1
|
||||
OnClick = AdvanceUpDownClick
|
||||
@ -370,14 +368,14 @@ object DlgEventEdit: TDlgEventEdit
|
||||
Left = 104
|
||||
Height = 19
|
||||
Top = 80
|
||||
Width = 84
|
||||
Width = 89
|
||||
Caption = 'All Day Event'
|
||||
OnClick = CBAllDayClick
|
||||
TabOrder = 2
|
||||
end
|
||||
object edtUnusedPlaceholder: TEdit
|
||||
Left = 587
|
||||
Height = 22
|
||||
Height = 23
|
||||
Top = 104
|
||||
Width = 65
|
||||
TabOrder = 8
|
||||
@ -386,7 +384,7 @@ object DlgEventEdit: TDlgEventEdit
|
||||
end
|
||||
object StartDate: TDateEdit
|
||||
Left = 104
|
||||
Height = 22
|
||||
Height = 23
|
||||
Top = 104
|
||||
Width = 104
|
||||
CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
|
||||
@ -437,7 +435,7 @@ object DlgEventEdit: TDlgEventEdit
|
||||
end
|
||||
object EndDate: TDateEdit
|
||||
Left = 104
|
||||
Height = 22
|
||||
Height = 23
|
||||
Top = 131
|
||||
Width = 104
|
||||
CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
|
||||
@ -488,7 +486,7 @@ object DlgEventEdit: TDlgEventEdit
|
||||
end
|
||||
object RepeatUntil: TDateEdit
|
||||
Left = 440
|
||||
Height = 22
|
||||
Height = 23
|
||||
Top = 131
|
||||
Width = 100
|
||||
CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
|
||||
@ -538,7 +536,7 @@ object DlgEventEdit: TDlgEventEdit
|
||||
end
|
||||
object AlarmAdvance: TEdit
|
||||
Left = 130
|
||||
Height = 22
|
||||
Height = 23
|
||||
Top = 168
|
||||
Width = 64
|
||||
OnChange = AlarmAdvanceChange
|
||||
|
||||
@ -1,33 +1,31 @@
|
||||
object frmFieldMapper: TfrmFieldMapper
|
||||
Left = 281
|
||||
Height = 537
|
||||
Height = 533
|
||||
Top = 112
|
||||
Width = 409
|
||||
HorzScrollBar.Page = 408
|
||||
VertScrollBar.Page = 536
|
||||
BorderStyle = bsToolWindow
|
||||
Caption = 'FlexDataStore Field Mapping Designer'
|
||||
ClientHeight = 537
|
||||
ClientHeight = 533
|
||||
ClientWidth = 409
|
||||
Font.Height = -11
|
||||
Font.Name = 'Default'
|
||||
OnClose = FormClose
|
||||
OnShow = FormShow
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '1.7'
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Height = 57
|
||||
Top = 480
|
||||
Height = 45
|
||||
Top = 488
|
||||
Width = 409
|
||||
Align = alBottom
|
||||
ClientHeight = 57
|
||||
ClientHeight = 45
|
||||
ClientWidth = 409
|
||||
TabOrder = 1
|
||||
object Button2: TButton
|
||||
Left = 325
|
||||
Height = 25
|
||||
Top = 16
|
||||
Top = 8
|
||||
Width = 75
|
||||
Caption = 'Close'
|
||||
OnClick = Button2Click
|
||||
@ -36,7 +34,7 @@ object frmFieldMapper: TfrmFieldMapper
|
||||
end
|
||||
object PageControl1: TPageControl
|
||||
Left = 0
|
||||
Height = 480
|
||||
Height = 488
|
||||
Top = 0
|
||||
Width = 409
|
||||
ActivePage = TabSheet1
|
||||
@ -45,7 +43,7 @@ object frmFieldMapper: TfrmFieldMapper
|
||||
TabOrder = 0
|
||||
object TabSheet1: TTabSheet
|
||||
Caption = 'Field Mapping Designer'
|
||||
ClientHeight = 453
|
||||
ClientHeight = 460
|
||||
ClientWidth = 401
|
||||
object Bevel1: TBevel
|
||||
Left = 5
|
||||
@ -54,34 +52,34 @@ object frmFieldMapper: TfrmFieldMapper
|
||||
Width = 390
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 10
|
||||
Height = 14
|
||||
Left = 11
|
||||
Height = 15
|
||||
Top = 36
|
||||
Width = 118
|
||||
Width = 126
|
||||
Caption = 'Available Dataset Fields:'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 35
|
||||
Height = 14
|
||||
Height = 15
|
||||
Top = 329
|
||||
Width = 74
|
||||
Width = 84
|
||||
Caption = 'Field Mappings:'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 242
|
||||
Height = 14
|
||||
Height = 15
|
||||
Top = 36
|
||||
Width = 139
|
||||
Width = 151
|
||||
Caption = 'Available Visual PlanIt Fields:'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 12
|
||||
Height = 14
|
||||
Left = 11
|
||||
Height = 15
|
||||
Top = 13
|
||||
Width = 40
|
||||
Width = 42
|
||||
Caption = 'Dataset:'
|
||||
ParentColor = False
|
||||
end
|
||||
@ -119,18 +117,18 @@ object frmFieldMapper: TfrmFieldMapper
|
||||
Left = 259
|
||||
Height = 25
|
||||
Top = 349
|
||||
Width = 97
|
||||
Width = 109
|
||||
Caption = 'Delete Mapping'
|
||||
Enabled = False
|
||||
OnClick = btnDeleteMappingClick
|
||||
TabOrder = 5
|
||||
end
|
||||
object DatasetCombo: TComboBox
|
||||
Left = 56
|
||||
Left = 64
|
||||
Height = 22
|
||||
Top = 10
|
||||
Width = 145
|
||||
ItemHeight = 14
|
||||
ItemHeight = 15
|
||||
OnChange = DatasetComboChange
|
||||
TabOrder = 0
|
||||
Text = 'DatasetCombo'
|
||||
@ -140,7 +138,7 @@ object frmFieldMapper: TfrmFieldMapper
|
||||
Height = 49
|
||||
Top = 136
|
||||
Width = 69
|
||||
Caption = 'Add Field Mapping'
|
||||
Caption = 'Add'
|
||||
Enabled = False
|
||||
OnClick = btnAddMappingClick
|
||||
TabOrder = 2
|
||||
@ -149,7 +147,7 @@ object frmFieldMapper: TfrmFieldMapper
|
||||
Left = 259
|
||||
Height = 25
|
||||
Top = 381
|
||||
Width = 97
|
||||
Width = 109
|
||||
Caption = 'Clear All '
|
||||
Enabled = False
|
||||
OnClick = btnClearMappingsClick
|
||||
|
||||
@ -1,56 +1,56 @@
|
||||
object frmNavBarEd: TfrmNavBarEd
|
||||
Left = 374
|
||||
Height = 323
|
||||
Height = 326
|
||||
Top = 236
|
||||
Width = 426
|
||||
HorzScrollBar.Page = 425
|
||||
VertScrollBar.Page = 322
|
||||
Caption = 'Nav Bar Layout Tool'
|
||||
ClientHeight = 323
|
||||
ClientHeight = 326
|
||||
ClientWidth = 426
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
FormStyle = fsStayOnTop
|
||||
OnClose = FormClose
|
||||
OnCreate = FormCreate
|
||||
OnResize = FormResize
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '1.7'
|
||||
object pnlItems: TPanel
|
||||
Left = 217
|
||||
Height = 223
|
||||
Height = 224
|
||||
Top = 0
|
||||
Width = 209
|
||||
Align = alClient
|
||||
ClientHeight = 223
|
||||
ClientHeight = 224
|
||||
ClientWidth = 209
|
||||
TabOrder = 1
|
||||
object lbItems: TListBox
|
||||
Left = 1
|
||||
Height = 200
|
||||
Top = 22
|
||||
Height = 199
|
||||
Top = 24
|
||||
Width = 175
|
||||
Align = alClient
|
||||
ItemHeight = 13
|
||||
OnClick = lbItemsClick
|
||||
OnDrawItem = lbItemsDrawItem
|
||||
Style = lbOwnerDrawVariable
|
||||
TabOrder = 0
|
||||
TabOrder = 1
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 176
|
||||
Height = 200
|
||||
Top = 22
|
||||
Height = 199
|
||||
Top = 24
|
||||
Width = 32
|
||||
Align = alRight
|
||||
ClientHeight = 200
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 199
|
||||
ClientWidth = 32
|
||||
TabOrder = 1
|
||||
TabOrder = 2
|
||||
object btnItemAdd: TSpeedButton
|
||||
Left = 4
|
||||
Height = 25
|
||||
Hint = 'Add Item'
|
||||
Top = 7
|
||||
Width = 25
|
||||
Color = clBtnFace
|
||||
Glyph.Data = {
|
||||
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
|
||||
0400000000006800000000000000000000001000000010000000000000000000
|
||||
@ -62,7 +62,6 @@ object frmNavBarEd: TfrmNavBarEd
|
||||
3000
|
||||
}
|
||||
Layout = blGlyphTop
|
||||
NumGlyphs = 0
|
||||
Spacing = 1
|
||||
OnClick = btnItemAddClick
|
||||
ShowHint = True
|
||||
@ -74,7 +73,6 @@ object frmNavBarEd: TfrmNavBarEd
|
||||
Hint = 'Remove item'
|
||||
Top = 39
|
||||
Width = 25
|
||||
Color = clBtnFace
|
||||
Glyph.Data = {
|
||||
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
|
||||
0400000000006800000000000000000000001000000010000000000000000000
|
||||
@ -86,7 +84,6 @@ object frmNavBarEd: TfrmNavBarEd
|
||||
3000
|
||||
}
|
||||
Layout = blGlyphTop
|
||||
NumGlyphs = 0
|
||||
Spacing = 1
|
||||
OnClick = btnItemDeleteClick
|
||||
ShowHint = True
|
||||
@ -98,7 +95,6 @@ object frmNavBarEd: TfrmNavBarEd
|
||||
Hint = 'Move item up'
|
||||
Top = 72
|
||||
Width = 25
|
||||
Color = clBtnFace
|
||||
Glyph.Data = {
|
||||
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
|
||||
0400000000006800000000000000000000001000000010000000000000000000
|
||||
@ -110,7 +106,6 @@ object frmNavBarEd: TfrmNavBarEd
|
||||
3000
|
||||
}
|
||||
Layout = blGlyphTop
|
||||
NumGlyphs = 0
|
||||
Spacing = 1
|
||||
OnClick = btnItemUpClick
|
||||
ShowHint = True
|
||||
@ -122,7 +117,6 @@ object frmNavBarEd: TfrmNavBarEd
|
||||
Hint = 'Move item down'
|
||||
Top = 104
|
||||
Width = 25
|
||||
Color = clBtnFace
|
||||
Glyph.Data = {
|
||||
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
|
||||
0400000000006800000000000000000000001000000010000000000000000000
|
||||
@ -134,7 +128,6 @@ object frmNavBarEd: TfrmNavBarEd
|
||||
3000
|
||||
}
|
||||
Layout = blGlyphTop
|
||||
NumGlyphs = 0
|
||||
Spacing = 1
|
||||
OnClick = btnItemDownClick
|
||||
ShowHint = True
|
||||
@ -143,18 +136,19 @@ object frmNavBarEd: TfrmNavBarEd
|
||||
end
|
||||
object Panel4: TPanel
|
||||
Left = 1
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 1
|
||||
Width = 207
|
||||
Align = alTop
|
||||
ClientHeight = 21
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 23
|
||||
ClientWidth = 207
|
||||
TabOrder = 2
|
||||
TabOrder = 0
|
||||
object Label2: TLabel
|
||||
Left = 4
|
||||
Height = 14
|
||||
Height = 15
|
||||
Top = 4
|
||||
Width = 58
|
||||
Width = 62
|
||||
Caption = '&Items/Icons'
|
||||
FocusControl = lbItems
|
||||
ParentColor = False
|
||||
@ -162,36 +156,39 @@ object frmNavBarEd: TfrmNavBarEd
|
||||
end
|
||||
end
|
||||
object pnlFolders: TPanel
|
||||
Height = 223
|
||||
Left = 0
|
||||
Height = 224
|
||||
Top = 0
|
||||
Width = 217
|
||||
Align = alLeft
|
||||
ClientHeight = 223
|
||||
ClientHeight = 224
|
||||
ClientWidth = 217
|
||||
TabOrder = 0
|
||||
object lbFolders: TListBox
|
||||
Left = 1
|
||||
Height = 200
|
||||
Top = 22
|
||||
Height = 199
|
||||
Top = 24
|
||||
Width = 183
|
||||
Align = alClient
|
||||
ItemHeight = 13
|
||||
ItemHeight = 0
|
||||
OnClick = lbFoldersClick
|
||||
TabOrder = 0
|
||||
TabOrder = 1
|
||||
end
|
||||
object Panel6: TPanel
|
||||
Left = 1
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 1
|
||||
Width = 215
|
||||
Align = alTop
|
||||
ClientHeight = 21
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 23
|
||||
ClientWidth = 215
|
||||
TabOrder = 2
|
||||
TabOrder = 0
|
||||
object Label1: TLabel
|
||||
Left = 4
|
||||
Height = 13
|
||||
Height = 15
|
||||
Top = 4
|
||||
Width = 34
|
||||
Width = 38
|
||||
Caption = '&Folders'
|
||||
FocusControl = lbFolders
|
||||
ParentColor = False
|
||||
@ -199,20 +196,20 @@ object frmNavBarEd: TfrmNavBarEd
|
||||
end
|
||||
object Panel5: TPanel
|
||||
Left = 184
|
||||
Height = 200
|
||||
Top = 22
|
||||
Height = 199
|
||||
Top = 24
|
||||
Width = 32
|
||||
Align = alRight
|
||||
ClientHeight = 200
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 199
|
||||
ClientWidth = 32
|
||||
TabOrder = 1
|
||||
TabOrder = 2
|
||||
object btnFolderAdd: TSpeedButton
|
||||
Left = 4
|
||||
Height = 25
|
||||
Hint = 'Add Item'
|
||||
Top = 7
|
||||
Width = 25
|
||||
Color = clBtnFace
|
||||
Glyph.Data = {
|
||||
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
|
||||
0400000000006800000000000000000000001000000010000000000000000000
|
||||
@ -224,7 +221,6 @@ object frmNavBarEd: TfrmNavBarEd
|
||||
3000
|
||||
}
|
||||
Layout = blGlyphTop
|
||||
NumGlyphs = 0
|
||||
Spacing = 1
|
||||
OnClick = btnFolderAddClick
|
||||
ShowHint = True
|
||||
@ -236,7 +232,6 @@ object frmNavBarEd: TfrmNavBarEd
|
||||
Hint = 'Remove item'
|
||||
Top = 39
|
||||
Width = 25
|
||||
Color = clBtnFace
|
||||
Glyph.Data = {
|
||||
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
|
||||
0400000000006800000000000000000000001000000010000000000000000000
|
||||
@ -248,7 +243,6 @@ object frmNavBarEd: TfrmNavBarEd
|
||||
3000
|
||||
}
|
||||
Layout = blGlyphTop
|
||||
NumGlyphs = 0
|
||||
Spacing = 1
|
||||
OnClick = btnFolderDeleteClick
|
||||
ShowHint = True
|
||||
@ -260,7 +254,6 @@ object frmNavBarEd: TfrmNavBarEd
|
||||
Hint = 'Move item up'
|
||||
Top = 72
|
||||
Width = 25
|
||||
Color = clBtnFace
|
||||
Glyph.Data = {
|
||||
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
|
||||
0400000000006800000000000000000000001000000010000000000000000000
|
||||
@ -272,7 +265,6 @@ object frmNavBarEd: TfrmNavBarEd
|
||||
3000
|
||||
}
|
||||
Layout = blGlyphTop
|
||||
NumGlyphs = 0
|
||||
Spacing = 1
|
||||
OnClick = btnFolderUpClick
|
||||
ShowHint = True
|
||||
@ -284,7 +276,6 @@ object frmNavBarEd: TfrmNavBarEd
|
||||
Hint = 'Move item down'
|
||||
Top = 104
|
||||
Width = 25
|
||||
Color = clBtnFace
|
||||
Glyph.Data = {
|
||||
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
|
||||
0400000000006800000000000000000000001000000010000000000000000000
|
||||
@ -296,7 +287,6 @@ object frmNavBarEd: TfrmNavBarEd
|
||||
3000
|
||||
}
|
||||
Layout = blGlyphTop
|
||||
NumGlyphs = 0
|
||||
Spacing = 1
|
||||
OnClick = btnFolderDownClick
|
||||
ShowHint = True
|
||||
@ -305,27 +295,29 @@ object frmNavBarEd: TfrmNavBarEd
|
||||
end
|
||||
end
|
||||
object pnlImages: TPanel
|
||||
Height = 100
|
||||
Top = 223
|
||||
Left = 0
|
||||
Height = 102
|
||||
Top = 224
|
||||
Width = 426
|
||||
Align = alBottom
|
||||
ClientHeight = 100
|
||||
ClientHeight = 102
|
||||
ClientWidth = 426
|
||||
TabOrder = 2
|
||||
object Panel8: TPanel
|
||||
Left = 1
|
||||
Height = 25
|
||||
Height = 27
|
||||
Top = 1
|
||||
Width = 424
|
||||
Align = alTop
|
||||
ClientHeight = 25
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 27
|
||||
ClientWidth = 424
|
||||
TabOrder = 0
|
||||
object Label3: TLabel
|
||||
Left = 8
|
||||
Height = 14
|
||||
Height = 15
|
||||
Top = 8
|
||||
Width = 82
|
||||
Width = 89
|
||||
Caption = 'Available I&mages'
|
||||
ParentColor = False
|
||||
end
|
||||
@ -333,7 +325,7 @@ object frmNavBarEd: TfrmNavBarEd
|
||||
object lbImages: TListBox
|
||||
Left = 1
|
||||
Height = 73
|
||||
Top = 26
|
||||
Top = 28
|
||||
Width = 424
|
||||
Align = alClient
|
||||
Columns = 10
|
||||
|
||||
@ -10,13 +10,14 @@ object frmPrintPreview: TfrmPrintPreview
|
||||
ClientWidth = 477
|
||||
Constraints.MinHeight = 200
|
||||
Constraints.MinWidth = 395
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
KeyPreview = True
|
||||
OnCreate = FormCreate
|
||||
OnKeyDown = FormKeyDown
|
||||
LCLVersion = '1.7'
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Height = 73
|
||||
Top = 0
|
||||
Width = 477
|
||||
Align = alTop
|
||||
ClientHeight = 73
|
||||
@ -27,8 +28,7 @@ object frmPrintPreview: TfrmPrintPreview
|
||||
Height = 21
|
||||
Top = 40
|
||||
Width = 145
|
||||
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
|
||||
ItemHeight = 13
|
||||
ItemHeight = 15
|
||||
Items.Strings = (
|
||||
'Fit to Control'
|
||||
'Actual Size'
|
||||
@ -47,7 +47,7 @@ object frmPrintPreview: TfrmPrintPreview
|
||||
Height = 21
|
||||
Top = 40
|
||||
Width = 201
|
||||
ItemHeight = 13
|
||||
ItemHeight = 15
|
||||
Sorted = True
|
||||
TabOrder = 1
|
||||
end
|
||||
@ -58,7 +58,6 @@ object frmPrintPreview: TfrmPrintPreview
|
||||
Width = 475
|
||||
ButtonHeight = 25
|
||||
Caption = 'ToolBar1'
|
||||
Flat = True
|
||||
Images = imMain
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
@ -66,23 +65,20 @@ object frmPrintPreview: TfrmPrintPreview
|
||||
object btnCancel: TSpeedButton
|
||||
Left = 132
|
||||
Height = 25
|
||||
Hint = 'Cancel preview'
|
||||
Top = 2
|
||||
Width = 77
|
||||
Action = actCancel
|
||||
Color = clBtnFace
|
||||
Flat = True
|
||||
NumGlyphs = 0
|
||||
Transparent = False
|
||||
end
|
||||
object btnPrint: TToolButton
|
||||
Left = 1
|
||||
Hint = 'Print'
|
||||
Top = 2
|
||||
Action = actPrint
|
||||
end
|
||||
object ToolButton3: TToolButton
|
||||
Left = 24
|
||||
Height = 25
|
||||
Top = 2
|
||||
Width = 8
|
||||
Caption = 'ToolButton3'
|
||||
@ -91,30 +87,27 @@ object frmPrintPreview: TfrmPrintPreview
|
||||
end
|
||||
object btnFirstPage: TToolButton
|
||||
Left = 32
|
||||
Hint = 'First page'
|
||||
Top = 2
|
||||
Action = actFirstPage
|
||||
end
|
||||
object btnPrevPage: TToolButton
|
||||
Left = 55
|
||||
Hint = 'Previous page'
|
||||
Top = 2
|
||||
Action = actPrevPage
|
||||
end
|
||||
object btnNextPage: TToolButton
|
||||
Left = 78
|
||||
Hint = 'Next page'
|
||||
Top = 2
|
||||
Action = actNextPage
|
||||
end
|
||||
object btnLastPage: TToolButton
|
||||
Left = 101
|
||||
Hint = 'Last page'
|
||||
Top = 2
|
||||
Action = actLastPage
|
||||
end
|
||||
object ToolButton8: TToolButton
|
||||
Left = 124
|
||||
Height = 25
|
||||
Top = 2
|
||||
Width = 8
|
||||
Caption = 'ToolButton8'
|
||||
@ -124,9 +117,11 @@ object frmPrintPreview: TfrmPrintPreview
|
||||
end
|
||||
end
|
||||
object VpPrintPreview1: TVpPrintPreview
|
||||
Left = 0
|
||||
Height = 445
|
||||
Top = 73
|
||||
Width = 477
|
||||
CurPage = 0
|
||||
EndDate = 37355.4526088079
|
||||
StartDate = 37348.4526088079
|
||||
Align = alClient
|
||||
@ -330,7 +325,6 @@ object frmPrintPreview: TfrmPrintPreview
|
||||
top = 152
|
||||
object actPrint: TAction
|
||||
Caption = '&Print'
|
||||
DisableIfNoHandler = True
|
||||
Hint = 'Print'
|
||||
ImageIndex = 0
|
||||
OnExecute = actPrintExecute
|
||||
@ -338,7 +332,6 @@ object frmPrintPreview: TfrmPrintPreview
|
||||
end
|
||||
object actFirstPage: TAction
|
||||
Caption = '&First page'
|
||||
DisableIfNoHandler = True
|
||||
Hint = 'First page'
|
||||
ImageIndex = 1
|
||||
OnExecute = actFirstPageExecute
|
||||
@ -346,7 +339,6 @@ object frmPrintPreview: TfrmPrintPreview
|
||||
end
|
||||
object actPrevPage: TAction
|
||||
Caption = 'Pre&vious page'
|
||||
DisableIfNoHandler = True
|
||||
Hint = 'Previous page'
|
||||
ImageIndex = 2
|
||||
OnExecute = actPrevPageExecute
|
||||
@ -354,7 +346,6 @@ object frmPrintPreview: TfrmPrintPreview
|
||||
end
|
||||
object actNextPage: TAction
|
||||
Caption = '&Next page'
|
||||
DisableIfNoHandler = True
|
||||
Hint = 'Next page'
|
||||
ImageIndex = 3
|
||||
OnExecute = actNextPageExecute
|
||||
@ -362,14 +353,12 @@ object frmPrintPreview: TfrmPrintPreview
|
||||
end
|
||||
object actLastPage: TAction
|
||||
Caption = '&Last page'
|
||||
DisableIfNoHandler = True
|
||||
Hint = 'Last page'
|
||||
ImageIndex = 4
|
||||
OnExecute = actLastPageExecute
|
||||
ShortCut = 16460
|
||||
end
|
||||
object actCancel: TAction
|
||||
DisableIfNoHandler = True
|
||||
Hint = 'Cancel preview'
|
||||
OnExecute = actCancelExecute
|
||||
ShortCut = 32835
|
||||
|
||||
@ -10,8 +10,6 @@ object ResEditForm: TResEditForm
|
||||
ClientWidth = 400
|
||||
Constraints.MinHeight = 250
|
||||
Constraints.MinWidth = 400
|
||||
Font.Height = -11
|
||||
Font.Name = 'Default'
|
||||
OnCreate = FormCreate
|
||||
OnShow = FormShow
|
||||
LCLVersion = '1.7'
|
||||
@ -66,17 +64,17 @@ object ResEditForm: TResEditForm
|
||||
ClientWidth = 392
|
||||
object lblDescription: TLabel
|
||||
Left = 8
|
||||
Height = 14
|
||||
Height = 15
|
||||
Top = 24
|
||||
Width = 57
|
||||
Width = 63
|
||||
Caption = 'Description:'
|
||||
ParentColor = False
|
||||
end
|
||||
object lblNotes: TLabel
|
||||
Left = 8
|
||||
Height = 14
|
||||
Height = 15
|
||||
Top = 47
|
||||
Width = 31
|
||||
Width = 34
|
||||
Caption = 'Notes:'
|
||||
ParentColor = False
|
||||
end
|
||||
@ -114,7 +112,7 @@ object ResEditForm: TResEditForm
|
||||
end
|
||||
object DescriptionEdit: TEdit
|
||||
Left = 80
|
||||
Height = 22
|
||||
Height = 23
|
||||
Top = 20
|
||||
Width = 257
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
|
||||
@ -8,9 +8,8 @@ object frmSelectResource: TfrmSelectResource
|
||||
Caption = 'Select a Resource'
|
||||
ClientHeight = 162
|
||||
ClientWidth = 274
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Position = poDesktopCenter
|
||||
LCLVersion = '1.7'
|
||||
object Bevel1: TBevel
|
||||
Left = 8
|
||||
Height = 105
|
||||
@ -19,9 +18,9 @@ object frmSelectResource: TfrmSelectResource
|
||||
end
|
||||
object lblSelectResource: TLabel
|
||||
Left = 16
|
||||
Height = 14
|
||||
Height = 15
|
||||
Top = 16
|
||||
Width = 87
|
||||
Width = 91
|
||||
Caption = 'Select a Resource'
|
||||
ParentColor = False
|
||||
end
|
||||
@ -29,7 +28,7 @@ object frmSelectResource: TfrmSelectResource
|
||||
Left = 16
|
||||
Height = 21
|
||||
Top = 40
|
||||
Width = 217
|
||||
Width = 232
|
||||
Style = csDropDownList
|
||||
end
|
||||
object btnOK: TButton
|
||||
@ -40,7 +39,7 @@ object frmSelectResource: TfrmSelectResource
|
||||
Caption = 'OK'
|
||||
Default = True
|
||||
ModalResult = 1
|
||||
TabOrder = 1
|
||||
TabOrder = 3
|
||||
end
|
||||
object btnCancel: TButton
|
||||
Left = 192
|
||||
@ -50,7 +49,7 @@ object frmSelectResource: TfrmSelectResource
|
||||
Cancel = True
|
||||
Caption = 'Cancel'
|
||||
ModalResult = 2
|
||||
TabOrder = 2
|
||||
TabOrder = 4
|
||||
end
|
||||
object btnAddNew: TButton
|
||||
Left = 16
|
||||
@ -59,7 +58,7 @@ object frmSelectResource: TfrmSelectResource
|
||||
Width = 113
|
||||
Caption = 'Add New Resource'
|
||||
OnClick = btnAddNewClick
|
||||
TabOrder = 3
|
||||
TabOrder = 1
|
||||
end
|
||||
object btnEdit: TButton
|
||||
Left = 136
|
||||
@ -68,15 +67,17 @@ object frmSelectResource: TfrmSelectResource
|
||||
Width = 113
|
||||
Caption = 'Edit This Resource'
|
||||
OnClick = btnEditClick
|
||||
TabOrder = 4
|
||||
TabOrder = 2
|
||||
end
|
||||
object VpResourceEditDialog1: TVpResourceEditDialog
|
||||
Version = 'v1.03'
|
||||
Options = []
|
||||
Placement.Position = mpCenter
|
||||
Placement.Top = 10
|
||||
Placement.Left = 10
|
||||
Placement.Height = 250
|
||||
Placement.Width = 400
|
||||
left = 232
|
||||
top = 24
|
||||
top = 16
|
||||
end
|
||||
end
|
||||
|
||||
@ -10,8 +10,6 @@ object TaskEditForm: TTaskEditForm
|
||||
ClientWidth = 547
|
||||
Constraints.MinHeight = 340
|
||||
Constraints.MinWidth = 545
|
||||
Font.Height = -11
|
||||
Font.Name = 'Default'
|
||||
OnCreate = FormCreate
|
||||
OnShow = FormShow
|
||||
Position = poScreenCenter
|
||||
@ -80,26 +78,26 @@ object TaskEditForm: TTaskEditForm
|
||||
ClientWidth = 539
|
||||
object DueDateLbl: TLabel
|
||||
Left = 52
|
||||
Height = 14
|
||||
Height = 15
|
||||
Top = 44
|
||||
Width = 46
|
||||
Width = 50
|
||||
Caption = 'Due date:'
|
||||
FocusControl = DueDateEdit
|
||||
ParentColor = False
|
||||
end
|
||||
object CreatedOnLbl: TLabel
|
||||
Left = 52
|
||||
Height = 14
|
||||
Height = 15
|
||||
Top = 69
|
||||
Width = 56
|
||||
Width = 61
|
||||
Caption = 'Created on:'
|
||||
ParentColor = False
|
||||
end
|
||||
object CompletedOnLbl: TLabel
|
||||
Left = 313
|
||||
Height = 14
|
||||
Height = 15
|
||||
Top = 69
|
||||
Width = 68
|
||||
Width = 79
|
||||
Caption = 'Completed on:'
|
||||
ParentColor = False
|
||||
end
|
||||
@ -261,7 +259,7 @@ object TaskEditForm: TTaskEditForm
|
||||
end
|
||||
object DescriptionEdit: TEdit
|
||||
Left = 4
|
||||
Height = 22
|
||||
Height = 23
|
||||
Top = 5
|
||||
Width = 529
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
@ -274,7 +272,7 @@ object TaskEditForm: TTaskEditForm
|
||||
Left = 313
|
||||
Height = 19
|
||||
Top = 41
|
||||
Width = 64
|
||||
Width = 72
|
||||
Caption = 'Complete'
|
||||
TabOrder = 2
|
||||
end
|
||||
@ -294,7 +292,7 @@ object TaskEditForm: TTaskEditForm
|
||||
end
|
||||
object DueDateEdit: TDateEdit
|
||||
Left = 126
|
||||
Height = 22
|
||||
Height = 23
|
||||
Top = 41
|
||||
Width = 103
|
||||
CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
|
||||
@ -302,6 +300,42 @@ object TaskEditForm: TTaskEditForm
|
||||
CancelCaption = 'Cancel'
|
||||
DateOrder = doNone
|
||||
ButtonWidth = 23
|
||||
Glyph.Data = {
|
||||
36040000424D3604000000000000360000002800000010000000100000000100
|
||||
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D69E
|
||||
72C4D3996EF4D19668FFCE9263FFCB8E5EFFC98A5BFFC78756FFC38452FFC384
|
||||
52FFC38452FFC38452FFC38452FFC38452FFBB7742B0FFFFFF00FFFFFF00D7A1
|
||||
75FFF8F2EDFFF7F0EAFFF6EDE6FFF4EAE2FFF3E7DEFFF1E4DBFFF0E2D8FFEAD6
|
||||
C8FFF2E5DCFFFAF4F1FFF9F3F0FFFAF5F2FFC58A5DFDFFFFFF00FFFFFF00D9A4
|
||||
7AFFF9F3EEFFEBD2BEFFFFFFFFFFEBD3BFFFFFFFFFFFEBD3C0FFFFFFFFFFEAC7
|
||||
ADFFECD9CDFFF1E4DBFFF9F3F0FFF9F2EFFFC68C5FFFFFFFFF00FFFFFF00DDA8
|
||||
7EFFF9F3EFFFEBD0BAFFEBD0BBFF75B57AFF75B57AFF75B57AFFEBD1BDFFEACD
|
||||
B5FFFAF4F0FFEBD9CCFFF1E4DBFFFAF4F1FFC68A5CFFFFFFFF00FFFFFF00DFAA
|
||||
82FFF9F3EFFFEACEB7FFFFFFFFFF75B57AFF94D49BFF74B579FFFFFFFFFFEACF
|
||||
BAFFFBF6F2FFFAF3F0FFEBD8CBFFF2E6DDFFC88D5FFFFFFFFF00FFFFFF00E1AE
|
||||
87FFFAF4F0FFEACBB2FFEACCB3FF75B57AFF74B579FF73B478FFEACEB7FF70B3
|
||||
75FF6FB274FF6EB172FFE8C8AEFFEAD7C9FFC48654FFFFFFFF00FFFFFF00E3B1
|
||||
8CFFFAF6F1FFEAC9AEFFFFFFFFFFEAC9B0FFFFFFFFFFE9CBB3FFFFFFFFFF6FB1
|
||||
73FF8ED295FF6BAF6FFFFFFFFFFFF1E5DBFFC68655FFFFFFFF00FFFFFF00E5B4
|
||||
8FFFFAF6F2FFE9C6AAFFE9C6ACFFEAC7ACFFE9C7ADFFE9C9AEFFE9C9B0FF6CB0
|
||||
71FF6AAF6EFF68AD6DFFE8CCB5FFF2E7DEFFC88A59FFFFFFFF00FFFFFF00E7B7
|
||||
94FFFBF7F4FFE9C3A6FFFFFFFFFFE8C4A9FFFFFFFFFFE9C6AAFFFFFFFFFFE8C7
|
||||
ACFFFFFFFFFFE8C8B0FFFFFFFFFFF7F1EBFFCB8F5FFFFFFFFF00FFFFFF00E9BA
|
||||
98FFFBF7F4FF65A4FFFF64A3FFFF62A2FFFF61A1FFFF5F9FFFFF5C9DFFFF5A9A
|
||||
FFFF5798FFFF5495FFFF5294FFFFFBF7F4FFCE9364FFFFFFFF00FFFFFF00EBBD
|
||||
9BFFFBF7F4FF64A4FFFF79BDFFFF75BBFFFF71B9FFFF6DB8FFFF68B3FFFF61B0
|
||||
FFFF5AABFFFF54A7FFFF3B7DFFFFFBF7F4FFD1976AFFFFFFFF00FFFFFF00ECBF
|
||||
9EFFFBF7F4FF65A4FFFF64A3FFFF60A0FFFF5D9EFFFF5899FFFF5496FFFF4D90
|
||||
FFFF478BFFFF4284FFFF3D7FFFFFFBF7F4FFD49B6FFFFFFFFF00FFFFFF00EEC1
|
||||
A1EBFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7
|
||||
F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFD7A074F8FFFFFF00FFFFFF00EFC2
|
||||
A37EEFC1A2E3EDC09FFFEBBE9DFFEBBC9AFFE9BA96FFE7B793FFE6B590FFE4B2
|
||||
8CFFE2AF88FFE0AC84FFDDA980FFDCA57DFFDAA37ACAFFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||
}
|
||||
NumGlyphs = 1
|
||||
MaxLength = 0
|
||||
TabOrder = 1
|
||||
|
||||
@ -155,6 +155,7 @@ procedure TTaskEditForm.OnChange(Sender: TObject);
|
||||
begin
|
||||
Task.Changed := true;
|
||||
end;
|
||||
|
||||
{=====}
|
||||
|
||||
procedure TTaskEditForm.OKBtnClick(Sender: TObject);
|
||||
|
||||
@ -9,14 +9,15 @@ object FrmSoundDialog: TFrmSoundDialog
|
||||
Caption = 'FrmSoundDialog'
|
||||
ClientHeight = 262
|
||||
ClientWidth = 402
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
KeyPreview = True
|
||||
OnCreate = FormCreate
|
||||
OnKeyDown = FormKeyDown
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '1.7'
|
||||
object PageControl1: TPageControl
|
||||
Left = 0
|
||||
Height = 262
|
||||
Top = 0
|
||||
Width = 402
|
||||
TabStop = False
|
||||
ActivePage = TabSheet1
|
||||
@ -32,7 +33,6 @@ object FrmSoundDialog: TFrmSoundDialog
|
||||
Height = 22
|
||||
Top = 163
|
||||
Width = 26
|
||||
Color = clBtnFace
|
||||
Glyph.Data = {
|
||||
DE010000424DDE01000000000000760000002800000024000000120000000100
|
||||
0400000000006801000000000000000000001000000010000000000000000000
|
||||
@ -60,7 +60,7 @@ object FrmSoundDialog: TFrmSoundDialog
|
||||
Top = 29
|
||||
Width = 185
|
||||
Directory = 'D:\lazarus'
|
||||
ItemHeight = 13
|
||||
ItemHeight = 0
|
||||
Mask = '*.wav'
|
||||
OnChange = FileListBox1Change
|
||||
TabOrder = 1
|
||||
@ -69,7 +69,7 @@ object FrmSoundDialog: TFrmSoundDialog
|
||||
Left = 204
|
||||
Height = 19
|
||||
Top = 5
|
||||
Width = 74
|
||||
Width = 73
|
||||
Caption = 'CBDefault'
|
||||
OnClick = CBDefaultClick
|
||||
TabOrder = 0
|
||||
@ -82,7 +82,7 @@ object FrmSoundDialog: TFrmSoundDialog
|
||||
Caption = 'OkBtn'
|
||||
Default = True
|
||||
OnClick = OkBtnClick
|
||||
TabOrder = 3
|
||||
TabOrder = 2
|
||||
end
|
||||
object CancelBtn: TButton
|
||||
Left = 308
|
||||
@ -91,7 +91,7 @@ object FrmSoundDialog: TFrmSoundDialog
|
||||
Width = 75
|
||||
Caption = 'CancelBtn'
|
||||
OnClick = CancelBtnClick
|
||||
TabOrder = 2
|
||||
TabOrder = 3
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
Reference in New Issue
Block a user