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

tvplanit: Replace the MS Sans Serif font used in the event and resource dialogs by the system's default font. Some polish up of these dialogs (TabOrder etc).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4689 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-07 23:30:29 +00:00
parent ecf7b634a1
commit 81b271c908
2 changed files with 96 additions and 91 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -10,7 +10,7 @@ object DlgEventEdit: TDlgEventEdit
Constraints.MinHeight = 378 Constraints.MinHeight = 378
Constraints.MinWidth = 594 Constraints.MinWidth = 594
Font.Height = -11 Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Name = 'Default'
OnCreate = FormCreate OnCreate = FormCreate
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
@ -24,7 +24,7 @@ object DlgEventEdit: TDlgEventEdit
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 41 ClientHeight = 41
ClientWidth = 697 ClientWidth = 697
TabOrder = 0 TabOrder = 2
object ResourceNameLbl: TLabel object ResourceNameLbl: TLabel
Left = 8 Left = 8
Height = 16 Height = 16
@ -67,18 +67,18 @@ object DlgEventEdit: TDlgEventEdit
end end
object AppointmentGroupBox: TGroupBox object AppointmentGroupBox: TGroupBox
Left = 8 Left = 8
Height = 211 Height = 218
Top = 5 Top = 5
Width = 679 Width = 679
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
Caption = 'Appointment' Caption = 'Appointment'
ClientHeight = 193 ClientHeight = 199
ClientWidth = 675 ClientWidth = 675
TabOrder = 1 TabOrder = 0
object DescriptionLbl: TLabel object DescriptionLbl: TLabel
Left = 5 Left = 5
Height = 13 Height = 13
Top = 25 Top = 15
Width = 77 Width = 77
AutoSize = False AutoSize = False
Caption = 'Description:' Caption = 'Description:'
@ -101,36 +101,36 @@ object DlgEventEdit: TDlgEventEdit
object CategoryLbl: TLabel object CategoryLbl: TLabel
Left = 5 Left = 5
Height = 13 Height = 13
Top = 49 Top = 41
Width = 77 Width = 77
AutoSize = False AutoSize = False
Caption = 'Category:' Caption = 'Category:'
ParentColor = False ParentColor = False
end end
object StartTimeLbl: TLabel object StartTimeLbl: TLabel
Left = 47 Left = 32
Height = 13 Height = 13
Top = 106 Top = 108
Width = 59 Width = 59
Alignment = taRightJustify Alignment = taRightJustify
AutoSize = False AutoSize = False
Caption = 'StartTime:' Caption = 'Start time:'
ParentColor = False ParentColor = False
end end
object EndTimeLbl: TLabel object EndTimeLbl: TLabel
Left = 48 Left = 33
Height = 13 Height = 13
Top = 130 Top = 135
Width = 57 Width = 57
Alignment = taRightJustify Alignment = taRightJustify
AutoSize = False AutoSize = False
Caption = 'EndTime:' Caption = 'End time:'
ParentColor = False ParentColor = False
end end
object Image2: TImage object Image2: TImage
Left = 352 Left = 352
Height = 18 Height = 18
Top = 82 Top = 81
Width = 18 Width = 18
Picture.Data = { Picture.Data = {
1754506F727461626C654E6574776F726B477261706869637802000089504E47 1754506F727461626C654E6574776F726B477261706869637802000089504E47
@ -181,7 +181,7 @@ object DlgEventEdit: TDlgEventEdit
ParentColor = False ParentColor = False
end end
object Image1: TImage object Image1: TImage
Left = 18 Left = 13
Height = 25 Height = 25
Top = 168 Top = 168
Width = 23 Width = 23
@ -213,7 +213,7 @@ object DlgEventEdit: TDlgEventEdit
} }
end end
object SpeedButton1: TSpeedButton object SpeedButton1: TSpeedButton
Left = 325 Left = 329
Height = 22 Height = 22
Top = 167 Top = 167
Width = 23 Width = 23
@ -229,7 +229,7 @@ object DlgEventEdit: TDlgEventEdit
} }
end end
object imgClock: TImage object imgClock: TImage
Left = 18 Left = 13
Height = 16 Height = 16
Top = 80 Top = 80
Width = 16 Width = 16
@ -267,8 +267,8 @@ object DlgEventEdit: TDlgEventEdit
object RecurrenceEndsLbl: TLabel object RecurrenceEndsLbl: TLabel
Left = 352 Left = 352
Height = 13 Height = 13
Top = 131 Top = 135
Width = 92 Width = 80
Alignment = taRightJustify Alignment = taRightJustify
AutoSize = False AutoSize = False
Caption = 'Until:' Caption = 'Until:'
@ -276,66 +276,67 @@ object DlgEventEdit: TDlgEventEdit
end end
object DescriptionEdit: TEdit object DescriptionEdit: TEdit
Left = 86 Left = 86
Height = 21 Height = 22
Top = 21 Top = 11
Width = 580 Width = 580
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
TabOrder = 0 TabOrder = 0
Text = 'DescriptionEdit' Text = 'DescriptionEdit'
end end
object AlarmSet: TCheckBox object AlarmSet: TCheckBox
Left = 40 Left = 38
Height = 19 Height = 19
Top = 170 Top = 170
Width = 68 Width = 68
Caption = '&Reminder:' Caption = '&Reminder:'
OnClick = AlarmSetClick OnClick = AlarmSetClick
TabOrder = 3 TabOrder = 11
end end
object StartTime: TComboBox object StartTime: TComboBox
Left = 231 Left = 231
Height = 21 Height = 22
Top = 103 Top = 104
Width = 93 Width = 93
ItemHeight = 13 ItemHeight = 14
OnChangeBounds = StartTimeChange OnChangeBounds = StartTimeChange
OnExit = StartTimeExit OnExit = StartTimeExit
TabOrder = 4 TabOrder = 4
end end
object EndTime: TComboBox object EndTime: TComboBox
Left = 231 Left = 231
Height = 21 Height = 22
Top = 127 Top = 131
Width = 93 Width = 93
ItemHeight = 13 ItemHeight = 14
OnChangeBounds = EndTimeChange OnChangeBounds = EndTimeChange
OnExit = EndTimeExit OnExit = EndTimeExit
TabOrder = 5 TabOrder = 6
end end
object Category: TComboBox object Category: TComboBox
Left = 86 Left = 86
Height = 19 Height = 21
Top = 46 Top = 38
Width = 182 Width = 182
ItemHeight = 13 ItemHeight = 15
OnDrawItem = CategoryDrawItem OnDrawItem = CategoryDrawItem
ReadOnly = True
Style = csOwnerDrawFixed Style = csOwnerDrawFixed
TabOrder = 1 TabOrder = 1
end end
object RecurringType: TComboBox object RecurringType: TComboBox
Left = 379 Left = 379
Height = 21 Height = 22
Top = 103 Top = 104
Width = 183 Width = 187
ItemHeight = 13 ItemHeight = 14
OnChange = RecurringTypeChange OnChange = RecurringTypeChange
Style = csDropDownList Style = csDropDownList
TabOrder = 6 TabOrder = 7
end end
object IntervalUpDown: TUpDown object IntervalUpDown: TUpDown
Left = 654 Left = 654
Height = 29 Height = 24
Top = 99 Top = 103
Width = 19 Width = 19
Max = 32767 Max = 32767
Min = 0 Min = 0
@ -345,30 +346,30 @@ object DlgEventEdit: TDlgEventEdit
Wrap = False Wrap = False
end end
object AlarmAdvType: TComboBox object AlarmAdvType: TComboBox
Left = 230 Left = 231
Height = 21 Height = 22
Top = 168 Top = 167
Width = 88 Width = 93
ItemHeight = 13 ItemHeight = 14
Style = csDropDownList Style = csDropDownList
TabOrder = 8 TabOrder = 14
end end
object AdvanceUpDown: TUpDown object AdvanceUpDown: TUpDown
Left = 196 Left = 196
Height = 29 Height = 24
Top = 164 Top = 167
Width = 19 Width = 19
Max = 120 Max = 120
Min = 1 Min = 1
OnClick = AdvanceUpDownClick OnClick = AdvanceUpDownClick
Position = 1 Position = 1
TabOrder = 10 TabOrder = 13
Wrap = False Wrap = False
end end
object CBAllDay: TCheckBox object CBAllDay: TCheckBox
Left = 109 Left = 104
Height = 19 Height = 19
Top = 85 Top = 80
Width = 84 Width = 84
Caption = 'All Day Event' Caption = 'All Day Event'
OnClick = CBAllDayClick OnClick = CBAllDayClick
@ -376,18 +377,18 @@ object DlgEventEdit: TDlgEventEdit
end end
object edtUnusedPlaceholder: TEdit object edtUnusedPlaceholder: TEdit
Left = 587 Left = 587
Height = 21 Height = 22
Top = 103 Top = 104
Width = 65 Width = 65
TabOrder = 7 TabOrder = 8
Text = 'Placeholder control' Text = 'Placeholder control'
Visible = False Visible = False
end end
object StartDate: TDateEdit object StartDate: TDateEdit
Left = 117 Left = 104
Height = 21 Height = 22
Top = 104 Top = 104
Width = 80 Width = 104
CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
OKCaption = 'OK' OKCaption = 'OK'
CancelCaption = 'Cancel' CancelCaption = 'Cancel'
@ -432,13 +433,13 @@ object DlgEventEdit: TDlgEventEdit
NumGlyphs = 1 NumGlyphs = 1
MaxLength = 0 MaxLength = 0
OnChangeBounds = StartDateChange OnChangeBounds = StartDateChange
TabOrder = 11 TabOrder = 3
end end
object EndDate: TDateEdit object EndDate: TDateEdit
Left = 117 Left = 104
Height = 21 Height = 22
Top = 131 Top = 131
Width = 80 Width = 104
CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
OKCaption = 'OK' OKCaption = 'OK'
CancelCaption = 'Cancel' CancelCaption = 'Cancel'
@ -483,13 +484,13 @@ object DlgEventEdit: TDlgEventEdit
NumGlyphs = 1 NumGlyphs = 1
MaxLength = 0 MaxLength = 0
OnChangeBounds = EndDateChange OnChangeBounds = EndDateChange
TabOrder = 12 TabOrder = 5
end end
object RepeatUntil: TDateEdit object RepeatUntil: TDateEdit
Left = 460 Left = 440
Height = 21 Height = 22
Top = 129 Top = 131
Width = 80 Width = 100
CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
OKCaption = 'OK' OKCaption = 'OK'
CancelCaption = 'Cancel' CancelCaption = 'Cancel'
@ -533,29 +534,29 @@ object DlgEventEdit: TDlgEventEdit
} }
NumGlyphs = 1 NumGlyphs = 1
MaxLength = 0 MaxLength = 0
TabOrder = 13 TabOrder = 10
end end
object AlarmAdvance: TEdit object AlarmAdvance: TEdit
Left = 130 Left = 130
Height = 21 Height = 22
Top = 168 Top = 168
Width = 64 Width = 64
OnChange = AlarmAdvanceChange OnChange = AlarmAdvanceChange
TabOrder = 14 TabOrder = 12
Text = 'AlarmAdvance' Text = 'AlarmAdvance'
end end
end end
object NotesMemo: TMemo object NotesMemo: TMemo
Left = 8 Left = 8
Height = 110 Height = 102
Top = 224 Top = 232
Width = 679 Width = 679
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
ScrollBars = ssVertical ScrollBars = ssVertical
TabOrder = 2 TabOrder = 1
end end
object FileDialog: TOpenDialog object FileDialog: TOpenDialog
left = 356 left = 320
top = 199 top = 256
end end
end end

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

@ -11,10 +11,12 @@ object ResEditForm: TResEditForm
Constraints.MinHeight = 250 Constraints.MinHeight = 250
Constraints.MinWidth = 400 Constraints.MinWidth = 400
Font.Height = -11 Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Name = 'Default'
OnCreate = FormCreate OnCreate = FormCreate
OnShow = FormShow OnShow = FormShow
LCLVersion = '1.7'
object pnlBottom: TPanel object pnlBottom: TPanel
Left = 0
Height = 41 Height = 41
Top = 209 Top = 209
Width = 400 Width = 400
@ -22,9 +24,9 @@ object ResEditForm: TResEditForm
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 41 ClientHeight = 41
ClientWidth = 400 ClientWidth = 400
TabOrder = 0 TabOrder = 1
object OKBtn: TButton object OKBtn: TButton
Left = 243 Left = 236
Height = 25 Height = 25
Top = 7 Top = 7
Width = 75 Width = 75
@ -36,7 +38,7 @@ object ResEditForm: TResEditForm
TabStop = False TabStop = False
end end
object CancelBtn: TButton object CancelBtn: TButton
Left = 322 Left = 315
Height = 25 Height = 25
Top = 7 Top = 7
Width = 75 Width = 75
@ -49,37 +51,39 @@ object ResEditForm: TResEditForm
end end
end end
object pgResource: TPageControl object pgResource: TPageControl
Left = 0
Height = 209 Height = 209
Top = 0
Width = 400 Width = 400
TabStop = False TabStop = False
ActivePage = tabResource ActivePage = tabResource
Align = alClient Align = alClient
TabIndex = 0 TabIndex = 0
TabOrder = 1 TabOrder = 0
object tabResource: TTabSheet object tabResource: TTabSheet
Caption = 'Resource' Caption = 'Resource'
ClientHeight = 183 ClientHeight = 182
ClientWidth = 392 ClientWidth = 392
object lblDescription: TLabel object lblDescription: TLabel
Left = 8 Left = 8
Height = 15 Height = 14
Top = 24 Top = 24
Width = 77 Width = 57
Caption = 'Description:' Caption = 'Description:'
ParentColor = False ParentColor = False
end end
object lblNotes: TLabel object lblNotes: TLabel
Left = 8 Left = 8
Height = 15 Height = 14
Top = 47 Top = 47
Width = 43 Width = 31
Caption = 'Notes:' Caption = 'Notes:'
ParentColor = False ParentColor = False
end end
object imgResources: TImage object imgResources: TImage
Left = 344 Left = 350
Height = 32 Height = 32
Top = 16 Top = 15
Width = 32 Width = 32
Anchors = [akTop] Anchors = [akTop]
AutoSize = True AutoSize = True
@ -106,13 +110,13 @@ object ResEditForm: TResEditForm
3333333330F87703333330F87703333333333333330005333333330000333333 3333333330F87703333330F87703333333333333330005333333330000333333
3333 3333
} }
Transparent = False Transparent = True
end end
object DescriptionEdit: TEdit object DescriptionEdit: TEdit
Left = 80 Left = 80
Height = 21 Height = 22
Top = 20 Top = 20
Width = 249 Width = 257
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
MaxLength = 255 MaxLength = 255
OnChange = Change OnChange = Change
@ -120,9 +124,9 @@ object ResEditForm: TResEditForm
end end
object NotesMemo: TMemo object NotesMemo: TMemo
Left = 8 Left = 8
Height = 84 Height = 103
Top = 67 Top = 67
Width = 369 Width = 374
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
MaxLength = 1024 MaxLength = 1024
OnChange = Change OnChange = Change