pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Use font "default" (lowercase!) in all forms instead of MS Sans Serif, font size 0

Browse Source 
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
2016-06-09 23:49:35 +00:00
parent 3e1a370a4b
commit d9de3d571d
17 changed files with 457 additions and 425 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
components/tvplanit/source/vpabout.lfm
View File

@ -9,8 +9,6 @@ object frmAbout: TfrmAbout
Caption = 'About Visual PlanIt' Caption = 'About Visual PlanIt'
ClientHeight = 312 ClientHeight = 312
ClientWidth = 471 ClientWidth = 471
Font.Height = -11
Font.Name = 'Default'
OnActivate = FormActivate OnActivate = FormActivate
OnMouseMove = FormMouseMove OnMouseMove = FormMouseMove
Position = poScreenCenter Position = poScreenCenter
@ -43,17 +41,17 @@ object frmAbout: TfrmAbout
end end
object VisitUsLabel: TLabel object VisitUsLabel: TLabel
Left = 152 Left = 152
Height = 14 Height = 15
Top = 109 Top = 109
Width = 217 Width = 235
Caption = 'Visit the Visual PlanIt project on SourceForge' Caption = 'Visit the Visual PlanIt project on SourceForge'
ParentColor = False ParentColor = False
end end
object GeneralNewsgroupsLabel: TLabel object GeneralNewsgroupsLabel: TLabel
Left = 160 Left = 160
Height = 14 Height = 15
Top = 168 Top = 168
Width = 135 Width = 148
Caption = 'Visual PlanIt support groups' Caption = 'Visual PlanIt support groups'
ParentColor = False ParentColor = False
end end
@ -91,17 +89,17 @@ object frmAbout: TfrmAbout
end end
object CopyrightLabel: TLabel object CopyrightLabel: TLabel
Left = 7 Left = 7
Height = 14 Height = 15
Top = 273 Top = 273
Width = 256 Width = 277
Caption = '(C) Copyright 2001, TurboPower Software Company.' Caption = '(C) Copyright 2001, TurboPower Software Company.'
ParentColor = False ParentColor = False
end end
object RightsReservedLabel: TLabel object RightsReservedLabel: TLabel
Left = 7 Left = 7
Height = 14 Height = 15
Top = 289 Top = 289
Width = 92 Width = 97
Caption = 'All rights reserved.' Caption = 'All rights reserved.'
ParentColor = False ParentColor = False
end end
@ -123,17 +121,17 @@ object frmAbout: TfrmAbout
end end
object Label2: TLabel object Label2: TLabel
Left = 168 Left = 168
Height = 14 Height = 15
Top = 186 Top = 186
Width = 24 Width = 28
Caption = 'Help:' Caption = 'Help:'
ParentColor = False ParentColor = False
end end
object Label3: TLabel object Label3: TLabel
Left = 168 Left = 168
Height = 14 Height = 15
Top = 217 Top = 217
Width = 97 Width = 102
Caption = 'General Discussion:' Caption = 'General Discussion:'
ParentColor = False ParentColor = False
end end

100
components/tvplanit/source/vpcontacteditdlg.lfm
View File

@ -9,8 +9,6 @@ object ContactEditForm: TContactEditForm
Caption = 'ContactEdit' Caption = 'ContactEdit'
ClientHeight = 320 ClientHeight = 320
ClientWidth = 433 ClientWidth = 433
Font.Height = -11
Font.Name = 'Default'
OnCreate = FormCreate OnCreate = FormCreate
OnKeyDown = FormKeyDown OnKeyDown = FormKeyDown
OnShow = FormShow OnShow = FormShow
@ -21,9 +19,9 @@ object ContactEditForm: TContactEditForm
Height = 279 Height = 279
Top = 0 Top = 0
Width = 433 Width = 433
ActivePage = tabMain ActivePage = tabCustom
Align = alClient Align = alClient
TabIndex = 0 TabIndex = 2
TabOrder = 0 TabOrder = 0
OnChange = tsContactsChange OnChange = tsContactsChange
object tabMain: TTabSheet object tabMain: TTabSheet
@ -142,7 +140,7 @@ object ContactEditForm: TContactEditForm
end end
object NameEdit: TEdit object NameEdit: TEdit
Left = 136 Left = 136
Height = 22 Height = 23
Top = 4 Top = 4
Width = 247 Width = 247
MaxLength = 100 MaxLength = 100
@ -151,7 +149,7 @@ object ContactEditForm: TContactEditForm
end end
object AddressEdit: TEdit object AddressEdit: TEdit
Left = 136 Left = 136
Height = 22 Height = 23
Top = 52 Top = 52
Width = 247 Width = 247
MaxLength = 100 MaxLength = 100
@ -160,7 +158,7 @@ object ContactEditForm: TContactEditForm
end end
object CityEdit: TEdit object CityEdit: TEdit
Left = 136 Left = 136
Height = 22 Height = 23
Top = 76 Top = 76
Width = 247 Width = 247
MaxLength = 50 MaxLength = 50
@ -169,7 +167,7 @@ object ContactEditForm: TContactEditForm
end end
object StateEdit: TEdit object StateEdit: TEdit
Left = 168 Left = 168
Height = 22 Height = 23
Top = 100 Top = 100
Width = 247 Width = 247
MaxLength = 25 MaxLength = 25
@ -178,7 +176,7 @@ object ContactEditForm: TContactEditForm
end end
object ZipCodeEdit: TEdit object ZipCodeEdit: TEdit
Left = 136 Left = 136
Height = 22 Height = 23
Top = 124 Top = 124
Width = 121 Width = 121
MaxLength = 10 MaxLength = 10
@ -187,7 +185,7 @@ object ContactEditForm: TContactEditForm
end end
object PositionEdit: TEdit object PositionEdit: TEdit
Left = 136 Left = 136
Height = 22 Height = 23
Top = 197 Top = 197
Width = 121 Width = 121
MaxLength = 50 MaxLength = 50
@ -196,7 +194,7 @@ object ContactEditForm: TContactEditForm
end end
object TitleEdit: TEdit object TitleEdit: TEdit
Left = 136 Left = 136
Height = 22 Height = 23
Top = 29 Top = 29
Width = 121 Width = 121
MaxLength = 50 MaxLength = 50
@ -205,7 +203,7 @@ object ContactEditForm: TContactEditForm
end end
object CompanyEdit: TEdit object CompanyEdit: TEdit
Left = 136 Left = 136
Height = 22 Height = 23
Top = 173 Top = 173
Width = 121 Width = 121
MaxLength = 50 MaxLength = 50
@ -217,7 +215,7 @@ object ContactEditForm: TContactEditForm
Height = 22 Height = 22
Top = 224 Top = 224
Width = 121 Width = 121
ItemHeight = 14 ItemHeight = 15
MaxLength = 65535 MaxLength = 65535
TabOrder = 11 TabOrder = 11
end end
@ -226,14 +224,14 @@ object ContactEditForm: TContactEditForm
Height = 22 Height = 22
Top = 100 Top = 100
Width = 249 Width = 249
ItemHeight = 14 ItemHeight = 15
MaxLength = 65535 MaxLength = 65535
TabOrder = 4 TabOrder = 4
Visible = False Visible = False
end end
object edtCountry: TEdit object edtCountry: TEdit
Left = 152 Left = 152
Height = 22 Height = 23
Top = 148 Top = 148
Width = 249 Width = 249
TabOrder = 8 TabOrder = 8
@ -258,10 +256,10 @@ object ContactEditForm: TContactEditForm
ClientWidth = 425 ClientWidth = 425
ImageIndex = 1 ImageIndex = 1
object EMailLbl: TLabel object EMailLbl: TLabel
Left = 91 Left = 84
Height = 14 Height = 15
Top = 133 Top = 133
Width = 38 Width = 45
Caption = 'EMailLbl' Caption = 'EMailLbl'
FocusControl = EMailEdit FocusControl = EMailEdit
ParentColor = False ParentColor = False
@ -271,7 +269,7 @@ object ContactEditForm: TContactEditForm
Height = 22 Height = 22
Top = 8 Top = 8
Width = 121 Width = 121
ItemHeight = 14 ItemHeight = 15
MaxLength = 65535 MaxLength = 65535
TabOrder = 0 TabOrder = 0
end end
@ -280,7 +278,7 @@ object ContactEditForm: TContactEditForm
Height = 22 Height = 22
Top = 32 Top = 32
Width = 121 Width = 121
ItemHeight = 14 ItemHeight = 15
MaxLength = 65535 MaxLength = 65535
TabOrder = 2 TabOrder = 2
end end
@ -289,7 +287,7 @@ object ContactEditForm: TContactEditForm
Height = 22 Height = 22
Top = 56 Top = 56
Width = 121 Width = 121
ItemHeight = 14 ItemHeight = 15
MaxLength = 65535 MaxLength = 65535
TabOrder = 4 TabOrder = 4
end end
@ -298,42 +296,42 @@ object ContactEditForm: TContactEditForm
Height = 22 Height = 22
Top = 80 Top = 80
Width = 121 Width = 121
ItemHeight = 14 ItemHeight = 15
MaxLength = 65535 MaxLength = 65535
TabOrder = 6 TabOrder = 6
end end
object Phone4Edit: TEdit object Phone4Edit: TEdit
Left = 136 Left = 136
Height = 22 Height = 23
Top = 80 Top = 80
Width = 121 Width = 281
MaxLength = 25 MaxLength = 25
OnChange = ItemChanged OnChange = ItemChanged
TabOrder = 7 TabOrder = 7
end end
object Phone3Edit: TEdit object Phone3Edit: TEdit
Left = 136 Left = 136
Height = 22 Height = 23
Top = 56 Top = 56
Width = 121 Width = 281
MaxLength = 25 MaxLength = 25
OnChange = ItemChanged OnChange = ItemChanged
TabOrder = 5 TabOrder = 5
end end
object Phone2Edit: TEdit object Phone2Edit: TEdit
Left = 136 Left = 136
Height = 22 Height = 23
Top = 32 Top = 32
Width = 121 Width = 281
MaxLength = 25 MaxLength = 25
OnChange = ItemChanged OnChange = ItemChanged
TabOrder = 3 TabOrder = 3
end end
object Phone1Edit: TEdit object Phone1Edit: TEdit
Left = 136 Left = 136
Height = 22 Height = 23
Top = 8 Top = 8
Width = 121 Width = 281
MaxLength = 25 MaxLength = 25
OnChange = ItemChanged OnChange = ItemChanged
TabOrder = 1 TabOrder = 1
@ -343,24 +341,24 @@ object ContactEditForm: TContactEditForm
Height = 22 Height = 22
Top = 104 Top = 104
Width = 121 Width = 121
ItemHeight = 14 ItemHeight = 15
MaxLength = 65535 MaxLength = 65535
TabOrder = 8 TabOrder = 8
end end
object Phone5Edit: TEdit object Phone5Edit: TEdit
Left = 136 Left = 136
Height = 22 Height = 23
Top = 104 Top = 104
Width = 121 Width = 281
MaxLength = 25 MaxLength = 25
OnChange = ItemChanged OnChange = ItemChanged
TabOrder = 9 TabOrder = 9
end end
object EMailEdit: TEdit object EMailEdit: TEdit
Left = 136 Left = 136
Height = 22 Height = 23
Top = 128 Top = 128
Width = 121 Width = 281
TabOrder = 10 TabOrder = 10
end end
end end
@ -371,68 +369,68 @@ object ContactEditForm: TContactEditForm
ImageIndex = 2 ImageIndex = 2
object CustomLbl1: TLabel object CustomLbl1: TLabel
Left = 8 Left = 8
Height = 14 Height = 15
Top = 12 Top = 12
Width = 56 Width = 64
Caption = 'CustomLbl1' Caption = 'CustomLbl1'
ParentColor = False ParentColor = False
end end
object CustomLbl2: TLabel object CustomLbl2: TLabel
Left = 8 Left = 8
Height = 14 Height = 15
Top = 36 Top = 36
Width = 56 Width = 64
Caption = 'CustomLbl2' Caption = 'CustomLbl2'
ParentColor = False ParentColor = False
end end
object CustomLbl3: TLabel object CustomLbl3: TLabel
Left = 8 Left = 8
Height = 14 Height = 15
Top = 60 Top = 60
Width = 56 Width = 64
Caption = 'CustomLbl3' Caption = 'CustomLbl3'
ParentColor = False ParentColor = False
end end
object CustomLbl4: TLabel object CustomLbl4: TLabel
Left = 8 Left = 8
Height = 14 Height = 15
Top = 84 Top = 84
Width = 56 Width = 64
Caption = 'CustomLbl4' Caption = 'CustomLbl4'
ParentColor = False ParentColor = False
end end
object Custom1Edit: TEdit object Custom1Edit: TEdit
Left = 80 Left = 80
Height = 22 Height = 23
Top = 8 Top = 8
Width = 121 Width = 337
MaxLength = 100 MaxLength = 100
OnChange = ItemChanged OnChange = ItemChanged
TabOrder = 0 TabOrder = 0
end end
object Custom2Edit: TEdit object Custom2Edit: TEdit
Left = 80 Left = 80
Height = 22 Height = 23
Top = 32 Top = 32
Width = 121 Width = 337
MaxLength = 100 MaxLength = 100
OnChange = ItemChanged OnChange = ItemChanged
TabOrder = 1 TabOrder = 1
end end
object Custom3Edit: TEdit object Custom3Edit: TEdit
Left = 80 Left = 80
Height = 22 Height = 23
Top = 56 Top = 56
Width = 121 Width = 337
MaxLength = 100 MaxLength = 100
OnChange = ItemChanged OnChange = ItemChanged
TabOrder = 2 TabOrder = 2
end end
object Custom4Edit: TEdit object Custom4Edit: TEdit
Left = 80 Left = 80
Height = 22 Height = 23
Top = 80 Top = 80
Width = 121 Width = 337
MaxLength = 100 MaxLength = 100
OnChange = ItemChanged OnChange = ItemChanged
TabOrder = 3 TabOrder = 3

2
components/tvplanit/source/vpcontacteditdlg.pas
View File

@ -499,6 +499,8 @@ begin
Height := FieldTop + FormHeightOffset Height := FieldTop + FormHeightOffset
else else
Height := MinFormHeight; Height := MinFormHeight;
EMailLbl.Left := EMailEdit.Left - EMailLbl.Width;
end; end;
{=====} {=====}

12
components/tvplanit/source/vpdatepropedit.lfm
View File

@ -9,9 +9,8 @@ object frmDatePropertyEditor: TfrmDatePropertyEditor
Caption = 'Select Date' Caption = 'Select Date'
ClientHeight = 193 ClientHeight = 193
ClientWidth = 219 ClientWidth = 219
Font.Height = -11
Font.Name = 'MS Sans Serif'
Position = poDefaultPosOnly Position = poDefaultPosOnly
LCLVersion = '1.7'
object Button1: TButton object Button1: TButton
Left = 56 Left = 56
Height = 25 Height = 25
@ -35,18 +34,23 @@ object frmDatePropertyEditor: TfrmDatePropertyEditor
Height = 140 Height = 140
Top = 8 Top = 8
Width = 200 Width = 200
Font.Height = -11 ParentFont = False
Font.Name = 'MS Sans Serif' BorderStyle = bsNone
Colors.ActiveDay = clRed Colors.ActiveDay = clRed
Colors.ColorScheme = cscalCustom
Colors.DayNames = clMaroon Colors.DayNames = clMaroon
Colors.Days = clBlack
Colors.InactiveDays = clGray Colors.InactiveDays = clGray
Colors.MonthAndYear = clBlue Colors.MonthAndYear = clBlue
Colors.Weekend = clRed Colors.Weekend = clRed
Colors.EventDays = clBlack
DateFormat = dfLong DateFormat = dfLong
DayNameWidth = 3 DayNameWidth = 3
Options = [cdoShortNames, cdoShowYear, cdoShowRevert, cdoShowToday, cdoShowNavBtns] Options = [cdoShortNames, cdoShowYear, cdoShowRevert, cdoShowToday, cdoShowNavBtns]
ReadOnly = False
TabOrder = 2 TabOrder = 2
TabStop = True TabStop = True
WantDblClicks = True WantDblClicks = True
WeekStarts = dtSunday
end end
end end

213
components/tvplanit/source/vpedelem.lfm
View File

@ -1,24 +1,23 @@
object frmEditElement: TfrmEditElement object frmEditElement: TfrmEditElement
Left = 376 Left = 376
Height = 445 Height = 427
Top = 163 Top = 163
Width = 379 Width = 413
HorzScrollBar.Page = 378 HorzScrollBar.Page = 378
VertScrollBar.Page = 444 VertScrollBar.Page = 444
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Edit Element' Caption = 'Edit Element'
ClientHeight = 445 ClientHeight = 427
ClientWidth = 379 ClientWidth = 413
Font.Height = -11
Font.Name = 'MS Sans Serif'
OnCreate = FormCreate OnCreate = FormCreate
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.7'
object Label1: TLabel object Label1: TLabel
Left = 8 Left = 20
Height = 15 Height = 15
Top = 136 Top = 136
Width = 72 Width = 58
Caption = 'Day Offset:' Caption = 'Day Offset:'
ParentColor = False ParentColor = False
end end
@ -26,7 +25,7 @@ object frmEditElement: TfrmEditElement
Left = 12 Left = 12
Height = 15 Height = 15
Top = 16 Top = 16
Width = 48 Width = 38
Caption = 'Name: ' Caption = 'Name: '
ParentColor = False ParentColor = False
end end
@ -34,7 +33,7 @@ object frmEditElement: TfrmEditElement
Left = 12 Left = 12
Height = 81 Height = 81
Top = 44 Top = 44
Width = 349 Width = 388
AutoFill = True AutoFill = True
Caption = 'Item Type ' Caption = 'Item Type '
ChildSizing.LeftRightSpacing = 6 ChildSizing.LeftRightSpacing = 6
@ -46,7 +45,7 @@ object frmEditElement: TfrmEditElement
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 4 ChildSizing.ControlsPerLine = 4
ClientHeight = 61 ClientHeight = 61
ClientWidth = 345 ClientWidth = 384
Columns = 4 Columns = 4
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
@ -63,10 +62,10 @@ object frmEditElement: TfrmEditElement
TabOrder = 1 TabOrder = 1
end end
object rgDayOffset: TRadioGroup object rgDayOffset: TRadioGroup
Left = 100 Left = 116
Height = 37 Height = 43
Top = 136 Top = 136
Width = 261 Width = 284
AutoFill = True AutoFill = True
Caption = ' Day Offset Unit ' Caption = ' Day Offset Unit '
ChildSizing.LeftRightSpacing = 6 ChildSizing.LeftRightSpacing = 6
@ -77,8 +76,8 @@ object frmEditElement: TfrmEditElement
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 4 ChildSizing.ControlsPerLine = 4
ClientHeight = 17 ClientHeight = 23
ClientWidth = 257 ClientWidth = 280
Columns = 4 Columns = 4
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
@ -87,59 +86,59 @@ object frmEditElement: TfrmEditElement
'Month' 'Month'
'Year' 'Year'
) )
TabOrder = 2 TabOrder = 3
end end
object btnOk: TButton object btnOk: TButton
Left = 212 Left = 240
Height = 25 Height = 25
Top = 412 Top = 392
Width = 75 Width = 75
Caption = 'OK' Caption = 'OK'
Default = True Default = True
OnClick = btnOkClick OnClick = btnOkClick
TabOrder = 6 TabOrder = 8
end end
object btnCancel: TButton object btnCancel: TButton
Left = 292 Left = 320
Height = 25 Height = 25
Top = 412 Top = 392
Width = 75 Width = 75
Cancel = True Cancel = True
Caption = 'Cancel' Caption = 'Cancel'
OnClick = btnCancelClick OnClick = btnCancelClick
TabOrder = 7 TabOrder = 9
end end
object edName: TEdit object edName: TEdit
Left = 56 Left = 56
Height = 21 Height = 23
Top = 12 Top = 12
Width = 241 Width = 344
TabOrder = 0 TabOrder = 0
end end
object btnShape: TButton object btnShape: TButton
Left = 44 Left = 12
Height = 25 Height = 25
Top = 412 Top = 392
Width = 75 Width = 75
Caption = 'Shape...' Caption = 'Shape...'
Enabled = False Enabled = False
OnClick = btnShapeClick OnClick = btnShapeClick
TabOrder = 5 TabOrder = 7
end end
object gbVisual: TGroupBox object gbVisual: TGroupBox
Left = 12 Left = 12
Height = 121 Height = 129
Top = 184 Top = 184
Width = 357 Width = 388
Caption = ' Visual ' Caption = ' Visual '
ClientHeight = 101 ClientHeight = 109
ClientWidth = 353 ClientWidth = 384
TabOrder = 3 TabOrder = 5
object Label3: TLabel object Label3: TLabel
Left = 172 Left = 172
Height = 15 Height = 15
Top = 20 Top = 20
Width = 28 Width = 23
Caption = 'Top:' Caption = 'Top:'
ParentColor = False ParentColor = False
end end
@ -147,30 +146,30 @@ object frmEditElement: TfrmEditElement
Left = 172 Left = 172
Height = 15 Height = 15
Top = 48 Top = 48
Width = 29 Width = 23
Caption = 'Left:' Caption = 'Left:'
ParentColor = False ParentColor = False
end end
object Label5: TLabel object Label5: TLabel
Left = 259 Left = 276
Height = 15 Height = 15
Top = 20 Top = 20
Width = 47 Width = 39
Caption = 'Height:' Caption = 'Height:'
ParentColor = False ParentColor = False
end end
object Label6: TLabel object Label6: TLabel
Left = 263 Left = 280
Height = 15 Height = 15
Top = 48 Top = 48
Width = 40 Width = 35
Caption = 'Width:' Caption = 'Width:'
ParentColor = False ParentColor = False
end end
object rgMeasurement: TRadioGroup object rgMeasurement: TRadioGroup
Left = 76 Left = 76
Height = 80 Height = 99
Top = 20 Top = 0
Width = 89 Width = 89
AutoFill = True AutoFill = True
Caption = ' Measurement ' Caption = ' Measurement '
@ -182,7 +181,7 @@ object frmEditElement: TfrmEditElement
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 60 ClientHeight = 79
ClientWidth = 85 ClientWidth = 85
ItemIndex = 1 ItemIndex = 1
Items.Strings = ( Items.Strings = (
@ -195,8 +194,8 @@ object frmEditElement: TfrmEditElement
end end
object rgRotation: TRadioGroup object rgRotation: TRadioGroup
Left = 8 Left = 8
Height = 93 Height = 99
Top = 20 Top = 0
Width = 61 Width = 61
AutoFill = True AutoFill = True
Caption = ' Rotation ' Caption = ' Rotation '
@ -208,7 +207,7 @@ object frmEditElement: TfrmEditElement
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 73 ClientHeight = 79
ClientWidth = 57 ClientWidth = 57
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
@ -220,8 +219,8 @@ object frmEditElement: TfrmEditElement
TabOrder = 0 TabOrder = 0
end end
object edTop: TEdit object edTop: TEdit
Left = 197 Left = 208
Height = 21 Height = 23
Top = 16 Top = 16
Width = 40 Width = 40
OnEnter = PosEditEnter OnEnter = PosEditEnter
@ -230,132 +229,152 @@ object frmEditElement: TfrmEditElement
Text = '0.00' Text = '0.00'
end end
object edLeft: TEdit object edLeft: TEdit
Left = 197 Left = 208
Height = 21 Height = 23
Top = 44 Top = 44
Width = 40 Width = 40
OnEnter = PosEditEnter OnEnter = PosEditEnter
OnExit = PosEditExit 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 TabOrder = 4
Text = '0.00' Text = '0.00'
end 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 object edWidth: TEdit
Left = 296 Left = 321
Height = 21 Height = 23
Top = 44 Top = 44
Width = 40 Width = 40
OnEnter = PosEditEnter OnEnter = PosEditEnter
OnExit = PosEditExit OnExit = PosEditExit
TabOrder = 5 TabOrder = 8
Text = '0.00' Text = '0.00'
end end
object chkVisible: TCheckBox object chkVisible: TCheckBox
Left = 228 Left = 228
Height = 23 Height = 19
Top = 80 Top = 80
Width = 65 Width = 54
Caption = 'Visible' Caption = 'Visible'
TabOrder = 6 TabOrder = 10
end end
object udTop: TUpDown object udTop: TUpDown
Left = 237 Left = 248
Height = 21 Height = 23
Top = 16 Top = 16
Width = 12 Width = 12
TabOrder = 7 Associate = edTop
Min = 0
OnClick = UpDownClick OnClick = UpDownClick
Position = 0
TabOrder = 3
Wrap = False
end end
object udLeft: TUpDown object udLeft: TUpDown
Left = 237 Left = 248
Height = 21 Height = 23
Top = 44 Top = 44
Width = 12 Width = 12
TabOrder = 8 Associate = edLeft
Min = 0
OnClick = UpDownClick OnClick = UpDownClick
Position = 0
TabOrder = 5
Wrap = False
end end
object udHeight: TUpDown object udHeight: TUpDown
Left = 336 Left = 361
Height = 21 Height = 23
Top = 16 Top = 16
Width = 12 Width = 12
TabOrder = 9 Associate = edHeight
Min = 0
OnClick = UpDownClick OnClick = UpDownClick
Position = 0
TabOrder = 7
Wrap = False
end end
object udWidth: TUpDown object udWidth: TUpDown
Left = 336 Left = 361
Height = 21 Height = 23
Top = 44 Top = 44
Width = 12 Width = 12
TabOrder = 10 Associate = edWidth
Min = 0
OnClick = UpDownClick OnClick = UpDownClick
Position = 0
TabOrder = 9
Wrap = False
end end
end end
object gbCaption: TGroupBox object gbCaption: TGroupBox
Left = 12 Left = 12
Height = 93 Height = 69
Top = 316 Top = 316
Width = 357 Width = 388
Caption = ' Caption ' Caption = ' Caption '
ClientHeight = 73 ClientHeight = 49
ClientWidth = 353 ClientWidth = 384
TabOrder = 4 TabOrder = 6
object lbCaptionText: TLabel object lbCaptionText: TLabel
Left = 16 Left = 16
Height = 15 Height = 15
Top = 24 Top = 12
Width = 36 Width = 27
Caption = 'Text: ' Caption = 'Text: '
ParentColor = False ParentColor = False
end end
object btnCaptionFont: TButton object btnCaptionFont: TButton
Left = 24 Left = 312
Height = 25 Height = 25
Top = 48 Top = 6
Width = 75 Width = 67
Caption = 'Font...' Caption = 'Font...'
OnClick = btnCaptionFontClick OnClick = btnCaptionFontClick
TabOrder = 1 TabOrder = 1
end end
object edCaptionText: TEdit object edCaptionText: TEdit
Left = 52 Left = 52
Height = 21 Height = 23
Top = 20 Top = 8
Width = 293 Width = 253
OnChange = edCaptionTextChange OnChange = edCaptionTextChange
TabOrder = 0 TabOrder = 0
end end
end end
object edOffset: TEdit object edOffset: TEdit
Left = 20 Left = 20
Height = 21 Height = 23
Top = 156 Top = 156
Width = 54 Width = 54
OnKeyDown = nil TabOrder = 2
TabOrder = 8
Text = '0' Text = '0'
end end
object udOffset: TUpDown object udOffset: TUpDown
Left = 74 Left = 74
Height = 21 Height = 23
Top = 156 Top = 156
Width = 11 Width = 11
Associate = edOffset Associate = edOffset
TabOrder = 9 Min = 0
Position = 0
TabOrder = 4
Wrap = False
end end
object FontDialog1: TFontDialog object FontDialog1: TFontDialog
Font.Height = -11 Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
left = 4 MinFontSize = 0
top = 308 MaxFontSize = 0
left = 176
top = 296
end end
end end

69
components/tvplanit/source/vpedfmt.lfm
View File

@ -1,67 +1,66 @@
object frmEditFormat: TfrmEditFormat object frmEditFormat: TfrmEditFormat
Left = 403 Left = 403
Height = 189 Height = 199
Top = 199 Top = 199
Width = 329 Width = 329
HorzScrollBar.Page = 328 HorzScrollBar.Page = 328
VertScrollBar.Page = 188 VertScrollBar.Page = 188
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Edit Format' Caption = 'Edit Format'
ClientHeight = 189 ClientHeight = 199
ClientWidth = 329 ClientWidth = 329
Font.Height = -11
Font.Name = 'MS Sans Serif'
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.7'
object Label1: TLabel object Label1: TLabel
Left = 12 Left = 16
Height = 15 Height = 15
Top = 76 Top = 76
Width = 99 Width = 80
Caption = 'Day Increment:' Caption = 'Day Increment:'
ParentColor = False ParentColor = False
end end
object Label2: TLabel object Label2: TLabel
Left = 12 Left = 16
Height = 15 Height = 15
Top = 44 Top = 44
Width = 81 Width = 66
Caption = 'Description: ' Caption = 'Description: '
ParentColor = False ParentColor = False
end end
object Label3: TLabel object Label3: TLabel
Left = 12 Left = 16
Height = 15 Height = 15
Top = 16 Top = 16
Width = 48 Width = 38
Caption = 'Name: ' Caption = 'Name: '
ParentColor = False ParentColor = False
end end
object btnOk: TButton object btnOk: TButton
Left = 160 Left = 157
Height = 25 Height = 25
Top = 156 Top = 164
Width = 75 Width = 75
Caption = 'OK' Caption = 'OK'
Default = True Default = True
OnClick = btnOkClick OnClick = btnOkClick
TabOrder = 3 TabOrder = 5
end end
object btnCancel: TButton object btnCancel: TButton
Left = 240 Left = 237
Height = 25 Height = 25
Top = 156 Top = 164
Width = 75 Width = 75
Cancel = True Cancel = True
Caption = 'Cancel' Caption = 'Cancel'
OnClick = btnCancelClick OnClick = btnCancelClick
TabOrder = 4 TabOrder = 6
end end
object rgDayIncrement: TRadioGroup object rgDayIncrement: TRadioGroup
Left = 16 Left = 16
Height = 37 Height = 48
Top = 104 Top = 104
Width = 293 Width = 296
AutoFill = True AutoFill = True
Caption = ' Day Increment Unit ' Caption = ' Day Increment Unit '
ChildSizing.LeftRightSpacing = 6 ChildSizing.LeftRightSpacing = 6
@ -72,8 +71,8 @@ object frmEditFormat: TfrmEditFormat
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 4 ChildSizing.ControlsPerLine = 4
ClientHeight = 17 ClientHeight = 28
ClientWidth = 289 ClientWidth = 292
Columns = 4 Columns = 4
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
@ -82,38 +81,40 @@ object frmEditFormat: TfrmEditFormat
'Month' 'Month'
'Year' 'Year'
) )
TabOrder = 2 TabOrder = 4
end end
object edDescription: TEdit object edDescription: TEdit
Left = 80 Left = 88
Height = 21 Height = 23
Top = 40 Top = 40
Width = 241 Width = 224
TabOrder = 1 TabOrder = 1
end end
object edName: TEdit object edName: TEdit
Left = 56 Left = 64
Height = 21 Height = 23
Top = 12 Top = 12
Width = 265 Width = 248
TabOrder = 0 TabOrder = 0
end end
object udIncrement: TUpDown object udIncrement: TUpDown
Left = 150 Left = 158
Height = 21 Height = 23
Top = 72 Top = 72
Width = 16 Width = 16
Associate = edIncrement Associate = edIncrement
Max = 365 Max = 365
TabOrder = 5 Min = 0
Position = 0
TabOrder = 3
Wrap = False
end end
object edIncrement: TEdit object edIncrement: TEdit
Left = 96 Left = 104
Height = 21 Height = 23
Top = 72 Top = 72
Width = 54 Width = 54
OnKeyDown = nil TabOrder = 2
TabOrder = 6
Text = '0' Text = '0'
end end
end end

53
components/tvplanit/source/vpedfmtlst.lfm
View File

@ -8,36 +8,34 @@ object frmPrnFormat: TfrmPrnFormat
Caption = 'Print Format Designer' Caption = 'Print Format Designer'
ClientHeight = 480 ClientHeight = 480
ClientWidth = 640 ClientWidth = 640
Font.Height = -11
Font.Name = 'MS Sans Serif'
OnCloseQuery = FormCloseQuery OnCloseQuery = FormCloseQuery
OnCreate = FormCreate OnCreate = FormCreate
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.7'
object Label1: TLabel object Label1: TLabel
Left = 8 Left = 8
Height = 14 Height = 15
Top = 4 Top = 5
Width = 44 Width = 46
Caption = '&Formats:' Caption = '&Formats:'
FocusControl = lbFormats FocusControl = lbFormats
ParentColor = False ParentColor = False
end end
object Label2: TLabel object Label2: TLabel
Left = 8 Left = 8
Height = 14 Height = 15
Top = 205 Top = 205
Width = 48 Width = 51
Caption = 'Ele&ments:' Caption = 'Ele&ments:'
FocusControl = lbElements FocusControl = lbElements
ParentColor = False ParentColor = False
end end
object btnMoveElementUp: TSpeedButton object btnMoveElementUp: TSpeedButton
Left = 232 Left = 248
Height = 22 Height = 22
Top = 352 Top = 352
Width = 23 Width = 23
Color = clBtnFace
Glyph.Data = { Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100 76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000 0400000000000001000000000000000000001000000010000000000000000000
@ -56,11 +54,10 @@ object frmPrnFormat: TfrmPrnFormat
OnClick = btnMoveElementUpClick OnClick = btnMoveElementUpClick
end end
object btnMoveElementDn: TSpeedButton object btnMoveElementDn: TSpeedButton
Left = 232 Left = 248
Height = 22 Height = 22
Top = 380 Top = 380
Width = 23 Width = 23
Color = clBtnFace
Glyph.Data = { Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100 76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000 0400000000000001000000000000000000001000000010000000000000000000
@ -79,10 +76,10 @@ object frmPrnFormat: TfrmPrnFormat
OnClick = btnMoveElementDnClick OnClick = btnMoveElementDnClick
end end
object Label3: TLabel object Label3: TLabel
Left = 220 Left = 232
Height = 14 Height = 15
Top = 332 Top = 332
Width = 54 Width = 58
Caption = 'Print Order' Caption = 'Print Order'
ParentColor = False ParentColor = False
end end
@ -97,19 +94,22 @@ object frmPrnFormat: TfrmPrnFormat
TabOrder = 1 TabOrder = 1
end end
object Panel1: TPanel object Panel1: TPanel
Left = 334 Left = 312
Height = 439 Height = 439
Width = 306 Top = 0
Width = 320
Align = alRight Align = alRight
BorderSpacing.Right = 8
Caption = 'Panel1' Caption = 'Panel1'
ClientHeight = 439 ClientHeight = 439
ClientWidth = 306 ClientWidth = 320
TabOrder = 8 TabOrder = 8
object PrintPreview: TVpPrintPreview object PrintPreview: TVpPrintPreview
Left = 1 Left = 1
Height = 437 Height = 437
Top = 1 Top = 1
Width = 304 Width = 318
CurPage = 0
EndDate = 37377.6447728357 EndDate = 37377.6447728357
StartDate = 37370.6447728357 StartDate = 37370.6447728357
ZoomFactor = zfActualSize ZoomFactor = zfActualSize
@ -121,10 +121,10 @@ object frmPrnFormat: TfrmPrnFormat
end end
object lbFormats: TListBox object lbFormats: TListBox
Left = 8 Left = 8
Height = 170 Height = 173
Top = 28 Top = 25
Width = 201 Width = 201
ItemHeight = 13 ItemHeight = 0
OnClick = lbFormatsClick OnClick = lbFormatsClick
Sorted = True Sorted = True
TabOrder = 0 TabOrder = 0
@ -134,7 +134,7 @@ object frmPrnFormat: TfrmPrnFormat
Height = 180 Height = 180
Top = 225 Top = 225
Width = 201 Width = 201
ItemHeight = 13 ItemHeight = 0
OnClick = lbElementsClick OnClick = lbElementsClick
OnDragDrop = lbElementsDragDrop OnDragDrop = lbElementsDragDrop
OnDragOver = lbElementsDragOver OnDragOver = lbElementsDragOver
@ -192,6 +192,7 @@ object frmPrnFormat: TfrmPrnFormat
TabOrder = 7 TabOrder = 7
end end
object Panel2: TPanel object Panel2: TPanel
Left = 0
Height = 41 Height = 41
Top = 439 Top = 439
Width = 640 Width = 640
@ -243,8 +244,8 @@ object frmPrnFormat: TfrmPrnFormat
DefaultExt = '.xml' DefaultExt = '.xml'
FileName = '*.xml' FileName = '*.xml'
Filter = 'Filter Files (.xml)|*.xml|All Files (*.*)|*.*' Filter = 'Filter Files (.xml)|*.xml|All Files (*.*)|*.*'
left = 215 left = 400
top = 156 top = 128
end end
object SaveDialog1: TSaveDialog object SaveDialog1: TSaveDialog
Title = 'Save formats as' Title = 'Save formats as'
@ -252,7 +253,7 @@ object frmPrnFormat: TfrmPrnFormat
FileName = '*.xml' FileName = '*.xml'
Filter = 'Filter Files (.xml)|*.xml|All Files (*.*)|*.*' Filter = 'Filter Files (.xml)|*.xml|All Files (*.*)|*.*'
Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing] Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
left = 247 left = 400
top = 156 top = 200
end end
end end

58
components/tvplanit/source/vpedshape.lfm
View File

@ -9,14 +9,12 @@ object frmEditShape: TfrmEditShape
Caption = 'Edit Shape' Caption = 'Edit Shape'
ClientHeight = 314 ClientHeight = 314
ClientWidth = 363 ClientWidth = 363
Font.Height = -11
Font.Name = 'MS Sans Serif'
OnCreate = FormCreate OnCreate = FormCreate
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.7' LCLVersion = '1.7'
object rgShapeType: TRadioGroup object rgShapeType: TRadioGroup
Left = 8 Left = 8
Height = 84 Height = 88
Top = 8 Top = 8
Width = 345 Width = 345
AutoFill = True AutoFill = True
@ -29,7 +27,7 @@ object frmEditShape: TfrmEditShape
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 3 ChildSizing.ControlsPerLine = 3
ClientHeight = 66 ClientHeight = 68
ClientWidth = 341 ClientWidth = 341
Columns = 3 Columns = 3
ItemIndex = 0 ItemIndex = 0
@ -67,26 +65,26 @@ object frmEditShape: TfrmEditShape
end end
object gbBrush: TGroupBox object gbBrush: TGroupBox
Left = 188 Left = 188
Height = 165 Height = 158
Top = 92 Top = 100
Width = 165 Width = 165
Caption = ' Brush ' Caption = ' Brush '
ClientHeight = 147 ClientHeight = 138
ClientWidth = 161 ClientWidth = 161
TabOrder = 2 TabOrder = 2
object Label1: TLabel object Label1: TLabel
Left = 6 Left = 6
Height = 13 Height = 15
Top = 112 Top = 111
Width = 26 Width = 28
Caption = 'Style:' Caption = 'Style:'
ParentColor = False ParentColor = False
end end
object cbBrushStyle: TComboBox object cbBrushStyle: TComboBox
Left = 42 Left = 48
Height = 22 Height = 22
Top = 108 Top = 108
Width = 97 Width = 99
ItemHeight = 16 ItemHeight = 16
OnDrawItem = cbBrushStyleDrawItem OnDrawItem = cbBrushStyleDrawItem
Style = csOwnerDrawFixed Style = csOwnerDrawFixed
@ -104,49 +102,49 @@ object frmEditShape: TfrmEditShape
TabOrder = 1 TabOrder = 1
object Label2: TLabel object Label2: TLabel
Left = 8 Left = 8
Height = 13 Height = 15
Top = 104 Top = 103
Width = 26 Width = 28
Caption = 'Style:' Caption = 'Style:'
ParentColor = False ParentColor = False
end end
object Label3: TLabel object Label3: TLabel
Left = 8 Left = 8
Height = 13 Height = 15
Top = 132 Top = 132
Width = 31 Width = 35
Caption = 'Width:' Caption = 'Width:'
ParentColor = False ParentColor = False
end end
object Label4: TLabel object Label4: TLabel
Left = 8 Left = 8
Height = 13 Height = 15
Top = 160 Top = 160
Width = 30 Width = 34
Caption = 'Mode:' Caption = 'Mode:'
ParentColor = False ParentColor = False
end end
object cbPenStyle: TComboBox object cbPenStyle: TComboBox
Left = 44 Left = 52
Height = 19 Height = 22
Top = 100 Top = 100
Width = 105 Width = 97
ItemHeight = 13 ItemHeight = 16
OnDrawItem = cbPenStyleDrawItem OnDrawItem = cbPenStyleDrawItem
Style = csOwnerDrawFixed Style = csOwnerDrawFixed
TabOrder = 0 TabOrder = 0
end end
object cbPenMode: TComboBox object cbPenMode: TComboBox
Left = 44 Left = 52
Height = 21 Height = 21
Top = 156 Top = 156
Width = 105 Width = 97
ItemHeight = 13 ItemHeight = 15
TabOrder = 1 TabOrder = 1
end end
object udPenWidth: TUpDown object udPenWidth: TUpDown
Left = 98 Left = 98
Height = 21 Height = 23
Top = 128 Top = 128
Width = 11 Width = 11
Associate = edPenWidth Associate = edPenWidth
@ -156,10 +154,10 @@ object frmEditShape: TfrmEditShape
Wrap = False Wrap = False
end end
object edPenWidth: TEdit object edPenWidth: TEdit
Left = 44 Left = 52
Height = 21 Height = 23
Top = 128 Top = 128
Width = 54 Width = 46
TabOrder = 2 TabOrder = 2
Text = '0' Text = '0'
end end

62
components/tvplanit/source/vpevnteditdlg.lfm
View File

@ -9,8 +9,6 @@ object DlgEventEdit: TDlgEventEdit
ClientWidth = 697 ClientWidth = 697
Constraints.MinHeight = 378 Constraints.MinHeight = 378
Constraints.MinWidth = 594 Constraints.MinWidth = 594
Font.Height = -11
Font.Name = 'Default'
OnCreate = FormCreate OnCreate = FormCreate
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
@ -41,7 +39,7 @@ object DlgEventEdit: TDlgEventEdit
ParentFont = False ParentFont = False
end end
object OKBtn: TButton object OKBtn: TButton
Left = 518 Left = 509
Height = 25 Height = 25
Top = 8 Top = 8
Width = 85 Width = 85
@ -53,7 +51,7 @@ object DlgEventEdit: TDlgEventEdit
TabStop = False TabStop = False
end end
object CancelBtn: TButton object CancelBtn: TButton
Left = 606 Left = 602
Height = 25 Height = 25
Top = 8 Top = 8
Width = 85 Width = 85
@ -77,10 +75,9 @@ object DlgEventEdit: TDlgEventEdit
TabOrder = 0 TabOrder = 0
object DescriptionLbl: TLabel object DescriptionLbl: TLabel
Left = 5 Left = 5
Height = 13 Height = 15
Top = 15 Top = 15
Width = 77 Width = 63
AutoSize = False
Caption = 'Description:' Caption = 'Description:'
ParentColor = False ParentColor = False
end end
@ -100,15 +97,14 @@ object DlgEventEdit: TDlgEventEdit
end end
object CategoryLbl: TLabel object CategoryLbl: TLabel
Left = 5 Left = 5
Height = 13 Height = 15
Top = 41 Top = 41
Width = 77 Width = 51
AutoSize = False
Caption = 'Category:' Caption = 'Category:'
ParentColor = False ParentColor = False
end end
object StartTimeLbl: TLabel object StartTimeLbl: TLabel
Left = 32 Left = 33
Height = 13 Height = 13
Top = 108 Top = 108
Width = 59 Width = 59
@ -118,7 +114,7 @@ object DlgEventEdit: TDlgEventEdit
ParentColor = False ParentColor = False
end end
object EndTimeLbl: TLabel object EndTimeLbl: TLabel
Left = 33 Left = 35
Height = 13 Height = 13
Top = 135 Top = 135
Width = 57 Width = 57
@ -276,7 +272,7 @@ object DlgEventEdit: TDlgEventEdit
end end
object DescriptionEdit: TEdit object DescriptionEdit: TEdit
Left = 86 Left = 86
Height = 22 Height = 23
Top = 11 Top = 11
Width = 580 Width = 580
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -287,7 +283,7 @@ object DlgEventEdit: TDlgEventEdit
Left = 38 Left = 38
Height = 19 Height = 19
Top = 170 Top = 170
Width = 68 Width = 74
Caption = '&Reminder:' Caption = '&Reminder:'
OnClick = AlarmSetClick OnClick = AlarmSetClick
TabOrder = 11 TabOrder = 11
@ -297,7 +293,7 @@ object DlgEventEdit: TDlgEventEdit
Height = 22 Height = 22
Top = 104 Top = 104
Width = 93 Width = 93
ItemHeight = 14 ItemHeight = 15
OnChangeBounds = StartTimeChange OnChangeBounds = StartTimeChange
OnExit = StartTimeExit OnExit = StartTimeExit
TabOrder = 4 TabOrder = 4
@ -307,7 +303,7 @@ object DlgEventEdit: TDlgEventEdit
Height = 22 Height = 22
Top = 131 Top = 131
Width = 93 Width = 93
ItemHeight = 14 ItemHeight = 15
OnChangeBounds = EndTimeChange OnChangeBounds = EndTimeChange
OnExit = EndTimeExit OnExit = EndTimeExit
TabOrder = 6 TabOrder = 6
@ -328,16 +324,17 @@ object DlgEventEdit: TDlgEventEdit
Height = 22 Height = 22
Top = 104 Top = 104
Width = 187 Width = 187
ItemHeight = 14 ItemHeight = 15
OnChange = RecurringTypeChange OnChange = RecurringTypeChange
Style = csDropDownList Style = csDropDownList
TabOrder = 7 TabOrder = 7
end end
object IntervalUpDown: TUpDown object IntervalUpDown: TUpDown
Left = 654 Left = 652
Height = 24 Height = 23
Top = 103 Top = 104
Width = 19 Width = 16
Associate = edtUnusedPlaceholder
Max = 32767 Max = 32767
Min = 0 Min = 0
OnClick = IntervalUpDownClick OnClick = IntervalUpDownClick
@ -350,15 +347,16 @@ object DlgEventEdit: TDlgEventEdit
Height = 22 Height = 22
Top = 167 Top = 167
Width = 93 Width = 93
ItemHeight = 14 ItemHeight = 15
Style = csDropDownList Style = csDropDownList
TabOrder = 14 TabOrder = 14
end end
object AdvanceUpDown: TUpDown object AdvanceUpDown: TUpDown
Left = 196 Left = 194
Height = 24 Height = 23
Top = 167 Top = 168
Width = 19 Width = 14
Associate = AlarmAdvance
Max = 120 Max = 120
Min = 1 Min = 1
OnClick = AdvanceUpDownClick OnClick = AdvanceUpDownClick
@ -370,14 +368,14 @@ object DlgEventEdit: TDlgEventEdit
Left = 104 Left = 104
Height = 19 Height = 19
Top = 80 Top = 80
Width = 84 Width = 89
Caption = 'All Day Event' Caption = 'All Day Event'
OnClick = CBAllDayClick OnClick = CBAllDayClick
TabOrder = 2 TabOrder = 2
end end
object edtUnusedPlaceholder: TEdit object edtUnusedPlaceholder: TEdit
Left = 587 Left = 587
Height = 22 Height = 23
Top = 104 Top = 104
Width = 65 Width = 65
TabOrder = 8 TabOrder = 8
@ -386,7 +384,7 @@ object DlgEventEdit: TDlgEventEdit
end end
object StartDate: TDateEdit object StartDate: TDateEdit
Left = 104 Left = 104
Height = 22 Height = 23
Top = 104 Top = 104
Width = 104 Width = 104
CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
@ -437,7 +435,7 @@ object DlgEventEdit: TDlgEventEdit
end end
object EndDate: TDateEdit object EndDate: TDateEdit
Left = 104 Left = 104
Height = 22 Height = 23
Top = 131 Top = 131
Width = 104 Width = 104
CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
@ -488,7 +486,7 @@ object DlgEventEdit: TDlgEventEdit
end end
object RepeatUntil: TDateEdit object RepeatUntil: TDateEdit
Left = 440 Left = 440
Height = 22 Height = 23
Top = 131 Top = 131
Width = 100 Width = 100
CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
@ -538,7 +536,7 @@ object DlgEventEdit: TDlgEventEdit
end end
object AlarmAdvance: TEdit object AlarmAdvance: TEdit
Left = 130 Left = 130
Height = 22 Height = 23
Top = 168 Top = 168
Width = 64 Width = 64
OnChange = AlarmAdvanceChange OnChange = AlarmAdvanceChange

48
components/tvplanit/source/vpflxdsed1.lfm
View File

@ -1,33 +1,31 @@
object frmFieldMapper: TfrmFieldMapper object frmFieldMapper: TfrmFieldMapper
Left = 281 Left = 281
Height = 537 Height = 533
Top = 112 Top = 112
Width = 409 Width = 409
HorzScrollBar.Page = 408 HorzScrollBar.Page = 408
VertScrollBar.Page = 536 VertScrollBar.Page = 536
BorderStyle = bsToolWindow BorderStyle = bsToolWindow
Caption = 'FlexDataStore Field Mapping Designer' Caption = 'FlexDataStore Field Mapping Designer'
ClientHeight = 537 ClientHeight = 533
ClientWidth = 409 ClientWidth = 409
Font.Height = -11
Font.Name = 'Default'
OnClose = FormClose OnClose = FormClose
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.7' LCLVersion = '1.7'
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 57 Height = 45
Top = 480 Top = 488
Width = 409 Width = 409
Align = alBottom Align = alBottom
ClientHeight = 57 ClientHeight = 45
ClientWidth = 409 ClientWidth = 409
TabOrder = 1 TabOrder = 1
object Button2: TButton object Button2: TButton
Left = 325 Left = 325
Height = 25 Height = 25
Top = 16 Top = 8
Width = 75 Width = 75
Caption = 'Close' Caption = 'Close'
OnClick = Button2Click OnClick = Button2Click
@ -36,7 +34,7 @@ object frmFieldMapper: TfrmFieldMapper
end end
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 0 Left = 0
Height = 480 Height = 488
Top = 0 Top = 0
Width = 409 Width = 409
ActivePage = TabSheet1 ActivePage = TabSheet1
@ -45,7 +43,7 @@ object frmFieldMapper: TfrmFieldMapper
TabOrder = 0 TabOrder = 0
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Field Mapping Designer' Caption = 'Field Mapping Designer'
ClientHeight = 453 ClientHeight = 460
ClientWidth = 401 ClientWidth = 401
object Bevel1: TBevel object Bevel1: TBevel
Left = 5 Left = 5
@ -54,34 +52,34 @@ object frmFieldMapper: TfrmFieldMapper
Width = 390 Width = 390
end end
object Label2: TLabel object Label2: TLabel
Left = 10 Left = 11
Height = 14 Height = 15
Top = 36 Top = 36
Width = 118 Width = 126
Caption = 'Available Dataset Fields:' Caption = 'Available Dataset Fields:'
ParentColor = False ParentColor = False
end end
object Label5: TLabel object Label5: TLabel
Left = 35 Left = 35
Height = 14 Height = 15
Top = 329 Top = 329
Width = 74 Width = 84
Caption = 'Field Mappings:' Caption = 'Field Mappings:'
ParentColor = False ParentColor = False
end end
object Label6: TLabel object Label6: TLabel
Left = 242 Left = 242
Height = 14 Height = 15
Top = 36 Top = 36
Width = 139 Width = 151
Caption = 'Available Visual PlanIt Fields:' Caption = 'Available Visual PlanIt Fields:'
ParentColor = False ParentColor = False
end end
object Label1: TLabel object Label1: TLabel
Left = 12 Left = 11
Height = 14 Height = 15
Top = 13 Top = 13
Width = 40 Width = 42
Caption = 'Dataset:' Caption = 'Dataset:'
ParentColor = False ParentColor = False
end end
@ -119,18 +117,18 @@ object frmFieldMapper: TfrmFieldMapper
Left = 259 Left = 259
Height = 25 Height = 25
Top = 349 Top = 349
Width = 97 Width = 109
Caption = 'Delete Mapping' Caption = 'Delete Mapping'
Enabled = False Enabled = False
OnClick = btnDeleteMappingClick OnClick = btnDeleteMappingClick
TabOrder = 5 TabOrder = 5
end end
object DatasetCombo: TComboBox object DatasetCombo: TComboBox
Left = 56 Left = 64
Height = 22 Height = 22
Top = 10 Top = 10
Width = 145 Width = 145
ItemHeight = 14 ItemHeight = 15
OnChange = DatasetComboChange OnChange = DatasetComboChange
TabOrder = 0 TabOrder = 0
Text = 'DatasetCombo' Text = 'DatasetCombo'
@ -140,7 +138,7 @@ object frmFieldMapper: TfrmFieldMapper
Height = 49 Height = 49
Top = 136 Top = 136
Width = 69 Width = 69
Caption = 'Add Field Mapping' Caption = 'Add'
Enabled = False Enabled = False
OnClick = btnAddMappingClick OnClick = btnAddMappingClick
TabOrder = 2 TabOrder = 2
@ -149,7 +147,7 @@ object frmFieldMapper: TfrmFieldMapper
Left = 259 Left = 259
Height = 25 Height = 25
Top = 381 Top = 381
Width = 97 Width = 109
Caption = 'Clear All ' Caption = 'Clear All '
Enabled = False Enabled = False
OnClick = btnClearMappingsClick OnClick = btnClearMappingsClick

106
components/tvplanit/source/vpnabed.lfm
View File

@ -1,56 +1,56 @@
object frmNavBarEd: TfrmNavBarEd object frmNavBarEd: TfrmNavBarEd
Left = 374 Left = 374
Height = 323 Height = 326
Top = 236 Top = 236
Width = 426 Width = 426
HorzScrollBar.Page = 425 HorzScrollBar.Page = 425
VertScrollBar.Page = 322 VertScrollBar.Page = 322
Caption = 'Nav Bar Layout Tool' Caption = 'Nav Bar Layout Tool'
ClientHeight = 323 ClientHeight = 326
ClientWidth = 426 ClientWidth = 426
Font.Height = -11
Font.Name = 'MS Sans Serif'
FormStyle = fsStayOnTop FormStyle = fsStayOnTop
OnClose = FormClose OnClose = FormClose
OnCreate = FormCreate OnCreate = FormCreate
OnResize = FormResize OnResize = FormResize
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.7'
object pnlItems: TPanel object pnlItems: TPanel
Left = 217 Left = 217
Height = 223 Height = 224
Top = 0
Width = 209 Width = 209
Align = alClient Align = alClient
ClientHeight = 223 ClientHeight = 224
ClientWidth = 209 ClientWidth = 209
TabOrder = 1 TabOrder = 1
object lbItems: TListBox object lbItems: TListBox
Left = 1 Left = 1
Height = 200 Height = 199
Top = 22 Top = 24
Width = 175 Width = 175
Align = alClient Align = alClient
ItemHeight = 13 ItemHeight = 13
OnClick = lbItemsClick OnClick = lbItemsClick
OnDrawItem = lbItemsDrawItem OnDrawItem = lbItemsDrawItem
Style = lbOwnerDrawVariable Style = lbOwnerDrawVariable
TabOrder = 0 TabOrder = 1
end end
object Panel1: TPanel object Panel1: TPanel
Left = 176 Left = 176
Height = 200 Height = 199
Top = 22 Top = 24
Width = 32 Width = 32
Align = alRight Align = alRight
ClientHeight = 200 BevelOuter = bvNone
ClientHeight = 199
ClientWidth = 32 ClientWidth = 32
TabOrder = 1 TabOrder = 2
object btnItemAdd: TSpeedButton object btnItemAdd: TSpeedButton
Left = 4 Left = 4
Height = 25 Height = 25
Hint = 'Add Item' Hint = 'Add Item'
Top = 7 Top = 7
Width = 25 Width = 25
Color = clBtnFace
Glyph.Data = { Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100 DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000 0400000000006800000000000000000000001000000010000000000000000000
@ -62,7 +62,6 @@ object frmNavBarEd: TfrmNavBarEd
3000 3000
} }
Layout = blGlyphTop Layout = blGlyphTop
NumGlyphs = 0
Spacing = 1 Spacing = 1
OnClick = btnItemAddClick OnClick = btnItemAddClick
ShowHint = True ShowHint = True
@ -74,7 +73,6 @@ object frmNavBarEd: TfrmNavBarEd
Hint = 'Remove item' Hint = 'Remove item'
Top = 39 Top = 39
Width = 25 Width = 25
Color = clBtnFace
Glyph.Data = { Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100 DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000 0400000000006800000000000000000000001000000010000000000000000000
@ -86,7 +84,6 @@ object frmNavBarEd: TfrmNavBarEd
3000 3000
} }
Layout = blGlyphTop Layout = blGlyphTop
NumGlyphs = 0
Spacing = 1 Spacing = 1
OnClick = btnItemDeleteClick OnClick = btnItemDeleteClick
ShowHint = True ShowHint = True
@ -98,7 +95,6 @@ object frmNavBarEd: TfrmNavBarEd
Hint = 'Move item up' Hint = 'Move item up'
Top = 72 Top = 72
Width = 25 Width = 25
Color = clBtnFace
Glyph.Data = { Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100 DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000 0400000000006800000000000000000000001000000010000000000000000000
@ -110,7 +106,6 @@ object frmNavBarEd: TfrmNavBarEd
3000 3000
} }
Layout = blGlyphTop Layout = blGlyphTop
NumGlyphs = 0
Spacing = 1 Spacing = 1
OnClick = btnItemUpClick OnClick = btnItemUpClick
ShowHint = True ShowHint = True
@ -122,7 +117,6 @@ object frmNavBarEd: TfrmNavBarEd
Hint = 'Move item down' Hint = 'Move item down'
Top = 104 Top = 104
Width = 25 Width = 25
Color = clBtnFace
Glyph.Data = { Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100 DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000 0400000000006800000000000000000000001000000010000000000000000000
@ -134,7 +128,6 @@ object frmNavBarEd: TfrmNavBarEd
3000 3000
} }
Layout = blGlyphTop Layout = blGlyphTop
NumGlyphs = 0
Spacing = 1 Spacing = 1
OnClick = btnItemDownClick OnClick = btnItemDownClick
ShowHint = True ShowHint = True
@ -143,18 +136,19 @@ object frmNavBarEd: TfrmNavBarEd
end end
object Panel4: TPanel object Panel4: TPanel
Left = 1 Left = 1
Height = 21 Height = 23
Top = 1 Top = 1
Width = 207 Width = 207
Align = alTop Align = alTop
ClientHeight = 21 BevelOuter = bvNone
ClientHeight = 23
ClientWidth = 207 ClientWidth = 207
TabOrder = 2 TabOrder = 0
object Label2: TLabel object Label2: TLabel
Left = 4 Left = 4
Height = 14 Height = 15
Top = 4 Top = 4
Width = 58 Width = 62
Caption = '&Items/Icons' Caption = '&Items/Icons'
FocusControl = lbItems FocusControl = lbItems
ParentColor = False ParentColor = False
@ -162,36 +156,39 @@ object frmNavBarEd: TfrmNavBarEd
end end
end end
object pnlFolders: TPanel object pnlFolders: TPanel
Height = 223 Left = 0
Height = 224
Top = 0
Width = 217 Width = 217
Align = alLeft Align = alLeft
ClientHeight = 223 ClientHeight = 224
ClientWidth = 217 ClientWidth = 217
TabOrder = 0 TabOrder = 0
object lbFolders: TListBox object lbFolders: TListBox
Left = 1 Left = 1
Height = 200 Height = 199
Top = 22 Top = 24
Width = 183 Width = 183
Align = alClient Align = alClient
ItemHeight = 13 ItemHeight = 0
OnClick = lbFoldersClick OnClick = lbFoldersClick
TabOrder = 0 TabOrder = 1
end end
object Panel6: TPanel object Panel6: TPanel
Left = 1 Left = 1
Height = 21 Height = 23
Top = 1 Top = 1
Width = 215 Width = 215
Align = alTop Align = alTop
ClientHeight = 21 BevelOuter = bvNone
ClientHeight = 23
ClientWidth = 215 ClientWidth = 215
TabOrder = 2 TabOrder = 0
object Label1: TLabel object Label1: TLabel
Left = 4 Left = 4
Height = 13 Height = 15
Top = 4 Top = 4
Width = 34 Width = 38
Caption = '&Folders' Caption = '&Folders'
FocusControl = lbFolders FocusControl = lbFolders
ParentColor = False ParentColor = False
@ -199,20 +196,20 @@ object frmNavBarEd: TfrmNavBarEd
end end
object Panel5: TPanel object Panel5: TPanel
Left = 184 Left = 184
Height = 200 Height = 199
Top = 22 Top = 24
Width = 32 Width = 32
Align = alRight Align = alRight
ClientHeight = 200 BevelOuter = bvNone
ClientHeight = 199
ClientWidth = 32 ClientWidth = 32
TabOrder = 1 TabOrder = 2
object btnFolderAdd: TSpeedButton object btnFolderAdd: TSpeedButton
Left = 4 Left = 4
Height = 25 Height = 25
Hint = 'Add Item' Hint = 'Add Item'
Top = 7 Top = 7
Width = 25 Width = 25
Color = clBtnFace
Glyph.Data = { Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100 DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000 0400000000006800000000000000000000001000000010000000000000000000
@ -224,7 +221,6 @@ object frmNavBarEd: TfrmNavBarEd
3000 3000
} }
Layout = blGlyphTop Layout = blGlyphTop
NumGlyphs = 0
Spacing = 1 Spacing = 1
OnClick = btnFolderAddClick OnClick = btnFolderAddClick
ShowHint = True ShowHint = True
@ -236,7 +232,6 @@ object frmNavBarEd: TfrmNavBarEd
Hint = 'Remove item' Hint = 'Remove item'
Top = 39 Top = 39
Width = 25 Width = 25
Color = clBtnFace
Glyph.Data = { Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100 DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000 0400000000006800000000000000000000001000000010000000000000000000
@ -248,7 +243,6 @@ object frmNavBarEd: TfrmNavBarEd
3000 3000
} }
Layout = blGlyphTop Layout = blGlyphTop
NumGlyphs = 0
Spacing = 1 Spacing = 1
OnClick = btnFolderDeleteClick OnClick = btnFolderDeleteClick
ShowHint = True ShowHint = True
@ -260,7 +254,6 @@ object frmNavBarEd: TfrmNavBarEd
Hint = 'Move item up' Hint = 'Move item up'
Top = 72 Top = 72
Width = 25 Width = 25
Color = clBtnFace
Glyph.Data = { Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100 DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000 0400000000006800000000000000000000001000000010000000000000000000
@ -272,7 +265,6 @@ object frmNavBarEd: TfrmNavBarEd
3000 3000
} }
Layout = blGlyphTop Layout = blGlyphTop
NumGlyphs = 0
Spacing = 1 Spacing = 1
OnClick = btnFolderUpClick OnClick = btnFolderUpClick
ShowHint = True ShowHint = True
@ -284,7 +276,6 @@ object frmNavBarEd: TfrmNavBarEd
Hint = 'Move item down' Hint = 'Move item down'
Top = 104 Top = 104
Width = 25 Width = 25
Color = clBtnFace
Glyph.Data = { Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100 DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000 0400000000006800000000000000000000001000000010000000000000000000
@ -296,7 +287,6 @@ object frmNavBarEd: TfrmNavBarEd
3000 3000
} }
Layout = blGlyphTop Layout = blGlyphTop
NumGlyphs = 0
Spacing = 1 Spacing = 1
OnClick = btnFolderDownClick OnClick = btnFolderDownClick
ShowHint = True ShowHint = True
@ -305,27 +295,29 @@ object frmNavBarEd: TfrmNavBarEd
end end
end end
object pnlImages: TPanel object pnlImages: TPanel
Height = 100 Left = 0
Top = 223 Height = 102
Top = 224
Width = 426 Width = 426
Align = alBottom Align = alBottom
ClientHeight = 100 ClientHeight = 102
ClientWidth = 426 ClientWidth = 426
TabOrder = 2 TabOrder = 2
object Panel8: TPanel object Panel8: TPanel
Left = 1 Left = 1
Height = 25 Height = 27
Top = 1 Top = 1
Width = 424 Width = 424
Align = alTop Align = alTop
ClientHeight = 25 BevelOuter = bvNone
ClientHeight = 27
ClientWidth = 424 ClientWidth = 424
TabOrder = 0 TabOrder = 0
object Label3: TLabel object Label3: TLabel
Left = 8 Left = 8
Height = 14 Height = 15
Top = 8 Top = 8
Width = 82 Width = 89
Caption = 'Available I&mages' Caption = 'Available I&mages'
ParentColor = False ParentColor = False
end end
@ -333,7 +325,7 @@ object frmNavBarEd: TfrmNavBarEd
object lbImages: TListBox object lbImages: TListBox
Left = 1 Left = 1
Height = 73 Height = 73
Top = 26 Top = 28
Width = 424 Width = 424
Align = alClient Align = alClient
Columns = 10 Columns = 10

29
components/tvplanit/source/vpprtprvdlg.lfm
View File

@ -10,13 +10,14 @@ object frmPrintPreview: TfrmPrintPreview
ClientWidth = 477 ClientWidth = 477
Constraints.MinHeight = 200 Constraints.MinHeight = 200
Constraints.MinWidth = 395 Constraints.MinWidth = 395
Font.Height = -11
Font.Name = 'MS Sans Serif'
KeyPreview = True KeyPreview = True
OnCreate = FormCreate OnCreate = FormCreate
OnKeyDown = FormKeyDown OnKeyDown = FormKeyDown
LCLVersion = '1.7'
object Panel1: TPanel object Panel1: TPanel
Left = 0
Height = 73 Height = 73
Top = 0
Width = 477 Width = 477
Align = alTop Align = alTop
ClientHeight = 73 ClientHeight = 73
@ -27,8 +28,7 @@ object frmPrintPreview: TfrmPrintPreview
Height = 21 Height = 21
Top = 40 Top = 40
Width = 145 Width = 145
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending] ItemHeight = 15
ItemHeight = 13
Items.Strings = ( Items.Strings = (
'Fit to Control' 'Fit to Control'
'Actual Size' 'Actual Size'
@ -47,7 +47,7 @@ object frmPrintPreview: TfrmPrintPreview
Height = 21 Height = 21
Top = 40 Top = 40
Width = 201 Width = 201
ItemHeight = 13 ItemHeight = 15
Sorted = True Sorted = True
TabOrder = 1 TabOrder = 1
end end
@ -58,7 +58,6 @@ object frmPrintPreview: TfrmPrintPreview
Width = 475 Width = 475
ButtonHeight = 25 ButtonHeight = 25
Caption = 'ToolBar1' Caption = 'ToolBar1'
Flat = True
Images = imMain Images = imMain
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
@ -66,23 +65,20 @@ object frmPrintPreview: TfrmPrintPreview
object btnCancel: TSpeedButton object btnCancel: TSpeedButton
Left = 132 Left = 132
Height = 25 Height = 25
Hint = 'Cancel preview'
Top = 2 Top = 2
Width = 77 Width = 77
Action = actCancel Action = actCancel
Color = clBtnFace
Flat = True Flat = True
NumGlyphs = 0
Transparent = False Transparent = False
end end
object btnPrint: TToolButton object btnPrint: TToolButton
Left = 1 Left = 1
Hint = 'Print'
Top = 2 Top = 2
Action = actPrint Action = actPrint
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 24 Left = 24
Height = 25
Top = 2 Top = 2
Width = 8 Width = 8
Caption = 'ToolButton3' Caption = 'ToolButton3'
@ -91,30 +87,27 @@ object frmPrintPreview: TfrmPrintPreview
end end
object btnFirstPage: TToolButton object btnFirstPage: TToolButton
Left = 32 Left = 32
Hint = 'First page'
Top = 2 Top = 2
Action = actFirstPage Action = actFirstPage
end end
object btnPrevPage: TToolButton object btnPrevPage: TToolButton
Left = 55 Left = 55
Hint = 'Previous page'
Top = 2 Top = 2
Action = actPrevPage Action = actPrevPage
end end
object btnNextPage: TToolButton object btnNextPage: TToolButton
Left = 78 Left = 78
Hint = 'Next page'
Top = 2 Top = 2
Action = actNextPage Action = actNextPage
end end
object btnLastPage: TToolButton object btnLastPage: TToolButton
Left = 101 Left = 101
Hint = 'Last page'
Top = 2 Top = 2
Action = actLastPage Action = actLastPage
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 124 Left = 124
Height = 25
Top = 2 Top = 2
Width = 8 Width = 8
Caption = 'ToolButton8' Caption = 'ToolButton8'
@ -124,9 +117,11 @@ object frmPrintPreview: TfrmPrintPreview
end end
end end
object VpPrintPreview1: TVpPrintPreview object VpPrintPreview1: TVpPrintPreview
Left = 0
Height = 445 Height = 445
Top = 73 Top = 73
Width = 477 Width = 477
CurPage = 0
EndDate = 37355.4526088079 EndDate = 37355.4526088079
StartDate = 37348.4526088079 StartDate = 37348.4526088079
Align = alClient Align = alClient
@ -330,7 +325,6 @@ object frmPrintPreview: TfrmPrintPreview
top = 152 top = 152
object actPrint: TAction object actPrint: TAction
Caption = '&Print' Caption = '&Print'
DisableIfNoHandler = True
Hint = 'Print' Hint = 'Print'
ImageIndex = 0 ImageIndex = 0
OnExecute = actPrintExecute OnExecute = actPrintExecute
@ -338,7 +332,6 @@ object frmPrintPreview: TfrmPrintPreview
end end
object actFirstPage: TAction object actFirstPage: TAction
Caption = '&First page' Caption = '&First page'
DisableIfNoHandler = True
Hint = 'First page' Hint = 'First page'
ImageIndex = 1 ImageIndex = 1
OnExecute = actFirstPageExecute OnExecute = actFirstPageExecute
@ -346,7 +339,6 @@ object frmPrintPreview: TfrmPrintPreview
end end
object actPrevPage: TAction object actPrevPage: TAction
Caption = 'Pre&vious page' Caption = 'Pre&vious page'
DisableIfNoHandler = True
Hint = 'Previous page' Hint = 'Previous page'
ImageIndex = 2 ImageIndex = 2
OnExecute = actPrevPageExecute OnExecute = actPrevPageExecute
@ -354,7 +346,6 @@ object frmPrintPreview: TfrmPrintPreview
end end
object actNextPage: TAction object actNextPage: TAction
Caption = '&Next page' Caption = '&Next page'
DisableIfNoHandler = True
Hint = 'Next page' Hint = 'Next page'
ImageIndex = 3 ImageIndex = 3
OnExecute = actNextPageExecute OnExecute = actNextPageExecute
@ -362,14 +353,12 @@ object frmPrintPreview: TfrmPrintPreview
end end
object actLastPage: TAction object actLastPage: TAction
Caption = '&Last page' Caption = '&Last page'
DisableIfNoHandler = True
Hint = 'Last page' Hint = 'Last page'
ImageIndex = 4 ImageIndex = 4
OnExecute = actLastPageExecute OnExecute = actLastPageExecute
ShortCut = 16460 ShortCut = 16460
end end
object actCancel: TAction object actCancel: TAction
DisableIfNoHandler = True
Hint = 'Cancel preview' Hint = 'Cancel preview'
OnExecute = actCancelExecute OnExecute = actCancelExecute
ShortCut = 32835 ShortCut = 32835

12
components/tvplanit/source/vpreseditdlg.lfm
View File

@ -10,8 +10,6 @@ object ResEditForm: TResEditForm
ClientWidth = 400 ClientWidth = 400
Constraints.MinHeight = 250 Constraints.MinHeight = 250
Constraints.MinWidth = 400 Constraints.MinWidth = 400
Font.Height = -11
Font.Name = 'Default'
OnCreate = FormCreate OnCreate = FormCreate
OnShow = FormShow OnShow = FormShow
LCLVersion = '1.7' LCLVersion = '1.7'
@ -66,17 +64,17 @@ object ResEditForm: TResEditForm
ClientWidth = 392 ClientWidth = 392
object lblDescription: TLabel object lblDescription: TLabel
Left = 8 Left = 8
Height = 14 Height = 15
Top = 24 Top = 24
Width = 57 Width = 63
Caption = 'Description:' Caption = 'Description:'
ParentColor = False ParentColor = False
end end
object lblNotes: TLabel object lblNotes: TLabel
Left = 8 Left = 8
Height = 14 Height = 15
Top = 47 Top = 47
Width = 31 Width = 34
Caption = 'Notes:' Caption = 'Notes:'
ParentColor = False ParentColor = False
end end
@ -114,7 +112,7 @@ object ResEditForm: TResEditForm
end end
object DescriptionEdit: TEdit object DescriptionEdit: TEdit
Left = 80 Left = 80
Height = 22 Height = 23
Top = 20 Top = 20
Width = 257 Width = 257
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]

21
components/tvplanit/source/vpselresdlg.lfm
View File

@ -8,9 +8,8 @@ object frmSelectResource: TfrmSelectResource
Caption = 'Select a Resource' Caption = 'Select a Resource'
ClientHeight = 162 ClientHeight = 162
ClientWidth = 274 ClientWidth = 274
Font.Height = -11
Font.Name = 'MS Sans Serif'
Position = poDesktopCenter Position = poDesktopCenter
LCLVersion = '1.7'
object Bevel1: TBevel object Bevel1: TBevel
Left = 8 Left = 8
Height = 105 Height = 105
@ -19,9 +18,9 @@ object frmSelectResource: TfrmSelectResource
end end
object lblSelectResource: TLabel object lblSelectResource: TLabel
Left = 16 Left = 16
Height = 14 Height = 15
Top = 16 Top = 16
Width = 87 Width = 91
Caption = 'Select a Resource' Caption = 'Select a Resource'
ParentColor = False ParentColor = False
end end
@ -29,7 +28,7 @@ object frmSelectResource: TfrmSelectResource
Left = 16 Left = 16
Height = 21 Height = 21
Top = 40 Top = 40
Width = 217 Width = 232
Style = csDropDownList Style = csDropDownList
end end
object btnOK: TButton object btnOK: TButton
@ -40,7 +39,7 @@ object frmSelectResource: TfrmSelectResource
Caption = 'OK' Caption = 'OK'
Default = True Default = True
ModalResult = 1 ModalResult = 1
TabOrder = 1 TabOrder = 3
end end
object btnCancel: TButton object btnCancel: TButton
Left = 192 Left = 192
@ -50,7 +49,7 @@ object frmSelectResource: TfrmSelectResource
Cancel = True Cancel = True
Caption = 'Cancel' Caption = 'Cancel'
ModalResult = 2 ModalResult = 2
TabOrder = 2 TabOrder = 4
end end
object btnAddNew: TButton object btnAddNew: TButton
Left = 16 Left = 16
@ -59,7 +58,7 @@ object frmSelectResource: TfrmSelectResource
Width = 113 Width = 113
Caption = 'Add New Resource' Caption = 'Add New Resource'
OnClick = btnAddNewClick OnClick = btnAddNewClick
TabOrder = 3 TabOrder = 1
end end
object btnEdit: TButton object btnEdit: TButton
Left = 136 Left = 136
@ -68,15 +67,17 @@ object frmSelectResource: TfrmSelectResource
Width = 113 Width = 113
Caption = 'Edit This Resource' Caption = 'Edit This Resource'
OnClick = btnEditClick OnClick = btnEditClick
TabOrder = 4 TabOrder = 2
end end
object VpResourceEditDialog1: TVpResourceEditDialog object VpResourceEditDialog1: TVpResourceEditDialog
Version = 'v1.03' Version = 'v1.03'
Options = []
Placement.Position = mpCenter
Placement.Top = 10 Placement.Top = 10
Placement.Left = 10 Placement.Left = 10
Placement.Height = 250 Placement.Height = 250
Placement.Width = 400 Placement.Width = 400
left = 232 left = 232
top = 24 top = 16
end end
end end

56
components/tvplanit/source/vptaskeditdlg.lfm
View File

@ -10,8 +10,6 @@ object TaskEditForm: TTaskEditForm
ClientWidth = 547 ClientWidth = 547
Constraints.MinHeight = 340 Constraints.MinHeight = 340
Constraints.MinWidth = 545 Constraints.MinWidth = 545
Font.Height = -11
Font.Name = 'Default'
OnCreate = FormCreate OnCreate = FormCreate
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
@ -80,26 +78,26 @@ object TaskEditForm: TTaskEditForm
ClientWidth = 539 ClientWidth = 539
object DueDateLbl: TLabel object DueDateLbl: TLabel
Left = 52 Left = 52
Height = 14 Height = 15
Top = 44 Top = 44
Width = 46 Width = 50
Caption = 'Due date:' Caption = 'Due date:'
FocusControl = DueDateEdit FocusControl = DueDateEdit
ParentColor = False ParentColor = False
end end
object CreatedOnLbl: TLabel object CreatedOnLbl: TLabel
Left = 52 Left = 52
Height = 14 Height = 15
Top = 69 Top = 69
Width = 56 Width = 61
Caption = 'Created on:' Caption = 'Created on:'
ParentColor = False ParentColor = False
end end
object CompletedOnLbl: TLabel object CompletedOnLbl: TLabel
Left = 313 Left = 313
Height = 14 Height = 15
Top = 69 Top = 69
Width = 68 Width = 79
Caption = 'Completed on:' Caption = 'Completed on:'
ParentColor = False ParentColor = False
end end
@ -261,7 +259,7 @@ object TaskEditForm: TTaskEditForm
end end
object DescriptionEdit: TEdit object DescriptionEdit: TEdit
Left = 4 Left = 4
Height = 22 Height = 23
Top = 5 Top = 5
Width = 529 Width = 529
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -274,7 +272,7 @@ object TaskEditForm: TTaskEditForm
Left = 313 Left = 313
Height = 19 Height = 19
Top = 41 Top = 41
Width = 64 Width = 72
Caption = 'Complete' Caption = 'Complete'
TabOrder = 2 TabOrder = 2
end end
@ -294,7 +292,7 @@ object TaskEditForm: TTaskEditForm
end end
object DueDateEdit: TDateEdit object DueDateEdit: TDateEdit
Left = 126 Left = 126
Height = 22 Height = 23
Top = 41 Top = 41
Width = 103 Width = 103
CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
@ -302,6 +300,42 @@ object TaskEditForm: TTaskEditForm
CancelCaption = 'Cancel' CancelCaption = 'Cancel'
DateOrder = doNone DateOrder = doNone
ButtonWidth = 23 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 NumGlyphs = 1
MaxLength = 0 MaxLength = 0
TabOrder = 1 TabOrder = 1

1
components/tvplanit/source/vptaskeditdlg.pas
View File

@ -155,6 +155,7 @@ procedure TTaskEditForm.OnChange(Sender: TObject);
begin begin
Task.Changed := true; Task.Changed := true;
end; end;
{=====} {=====}
procedure TTaskEditForm.OKBtnClick(Sender: TObject); procedure TTaskEditForm.OKBtnClick(Sender: TObject);

14
components/tvplanit/source/vpwavdlg.lfm
View File

@ -9,14 +9,15 @@ object FrmSoundDialog: TFrmSoundDialog
Caption = 'FrmSoundDialog' Caption = 'FrmSoundDialog'
ClientHeight = 262 ClientHeight = 262
ClientWidth = 402 ClientWidth = 402
Font.Height = -11
Font.Name = 'MS Sans Serif'
KeyPreview = True KeyPreview = True
OnCreate = FormCreate OnCreate = FormCreate
OnKeyDown = FormKeyDown OnKeyDown = FormKeyDown
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.7'
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 0
Height = 262 Height = 262
Top = 0
Width = 402 Width = 402
TabStop = False TabStop = False
ActivePage = TabSheet1 ActivePage = TabSheet1
@ -32,7 +33,6 @@ object FrmSoundDialog: TFrmSoundDialog
Height = 22 Height = 22
Top = 163 Top = 163
Width = 26 Width = 26
Color = clBtnFace
Glyph.Data = { Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100 DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000010000000000000000000 0400000000006801000000000000000000001000000010000000000000000000
@ -60,7 +60,7 @@ object FrmSoundDialog: TFrmSoundDialog
Top = 29 Top = 29
Width = 185 Width = 185
Directory = 'D:\lazarus' Directory = 'D:\lazarus'
ItemHeight = 13 ItemHeight = 0
Mask = '*.wav' Mask = '*.wav'
OnChange = FileListBox1Change OnChange = FileListBox1Change
TabOrder = 1 TabOrder = 1
@ -69,7 +69,7 @@ object FrmSoundDialog: TFrmSoundDialog
Left = 204 Left = 204
Height = 19 Height = 19
Top = 5 Top = 5
Width = 74 Width = 73
Caption = 'CBDefault' Caption = 'CBDefault'
OnClick = CBDefaultClick OnClick = CBDefaultClick
TabOrder = 0 TabOrder = 0
@ -82,7 +82,7 @@ object FrmSoundDialog: TFrmSoundDialog
Caption = 'OkBtn' Caption = 'OkBtn'
Default = True Default = True
OnClick = OkBtnClick OnClick = OkBtnClick
TabOrder = 3 TabOrder = 2
end end
object CancelBtn: TButton object CancelBtn: TButton
Left = 308 Left = 308
@ -91,7 +91,7 @@ object FrmSoundDialog: TFrmSoundDialog
Width = 75 Width = 75
Caption = 'CancelBtn' Caption = 'CancelBtn'
OnClick = CancelBtnClick OnClick = CancelBtnClick
TabOrder = 2 TabOrder = 3
end end
end end
end end