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

tvplanit: Check all examples for HiDPI scaling.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5882 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-05-20 15:39:18 +00:00
parent 795bda1357
commit d8a0f703d2
31 changed files with 1018 additions and 506 deletions
Download Patch File Download Diff File Expand all files Collapse all files

202
components/tvplanit/examples/fulldemo/demomain.lfm
View File

@ -9,7 +9,7 @@ object MainForm: TMainForm
Menu = MainMenu1
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
LCLVersion = '1.9.0.0'
LCLVersion = '1.6.4.0'
object Panel1: TPanel
Left = 125
Height = 576
@ -57,7 +57,7 @@ object MainForm: TMainForm
Height = 528
Top = 48
Width = 834
PageIndex = 0
PageIndex = 3
Align = alClient
TabOrder = 1
TabStop = True
@ -66,17 +66,17 @@ object MainForm: TMainForm
Left = 0
Height = 528
Top = 0
Width = 333
Width = 357
Align = alLeft
BevelOuter = bvNone
ClientHeight = 528
ClientWidth = 333
ClientWidth = 357
TabOrder = 0
object VpMonthView1: TVpMonthView
Left = 0
Height = 197
Top = 331
Width = 333
Width = 357
ShowHint = True
ControlLink = VpControlLink1
Color = clWindow
@ -111,15 +111,15 @@ object MainForm: TMainForm
Left = 0
Height = 5
Top = 326
Width = 333
Width = 357
Align = alBottom
ResizeAnchor = akBottom
end
object VpDayView1: TVpDayView
Left = 0
Height = 284
Top = 42
Width = 333
Height = 292
Top = 34
Width = 357
ShowHint = True
ControlLink = VpControlLink1
Color = clWindow
@ -201,40 +201,61 @@ object MainForm: TMainForm
end
object DaySelectorPanel: TPanel
Left = 0
Height = 42
Height = 34
Top = 0
Width = 333
Width = 357
Align = alTop
AutoSize = True
BevelOuter = bvNone
ClientHeight = 42
ClientWidth = 333
ClientHeight = 34
ClientWidth = 357
TabOrder = 3
Visible = False
object LblVisibleDays: TLabel
Left = 8
AnchorSideLeft.Control = DaySelectorPanel
AnchorSideTop.Control = DaySelectorPanel
AnchorSideTop.Side = asrCenter
Left = 4
Height = 15
Top = 12
Top = 10
Width = 61
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
Caption = 'Visible days'
ParentColor = False
end
object DaysTrackBar: TTrackBar
Left = 56
AnchorSideLeft.Control = LblVisibleDays
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = DaySelectorPanel
AnchorSideTop.Side = asrCenter
Left = 73
Height = 25
Top = 8
Top = 5
Width = 180
Max = 7
Min = 1
OnChange = DaysTrackBarChange
PageSize = 1
Position = 1
BorderSpacing.Left = 8
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
TabOrder = 0
end
object CbGranularity: TComboBox
Left = 320
AnchorSideLeft.Control = LblGranularity
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = DaySelectorPanel
AnchorSideTop.Side = asrCenter
Left = 331
Height = 23
Top = 8
Top = 6
Width = 120
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
ItemHeight = 15
ItemIndex = 5
Items.Strings = (
@ -252,26 +273,33 @@ object MainForm: TMainForm
Text = '30 Min'
end
object LblGranularity: TLabel
Left = 256
AnchorSideLeft.Control = DaysTrackBar
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = DaySelectorPanel
AnchorSideTop.Side = asrCenter
Left = 269
Height = 15
Top = 12
Top = 10
Width = 58
BorderSpacing.Left = 16
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
Caption = 'Granularity'
ParentColor = False
end
end
end
object Splitter3: TSplitter
Left = 333
Left = 357
Height = 528
Top = 0
Width = 5
end
object VpWeekView1: TVpWeekView
Left = 338
Left = 362
Height = 528
Top = 0
Width = 496
Width = 472
ShowHint = True
ControlLink = VpControlLink1
Color = clWindow
@ -304,21 +332,26 @@ object MainForm: TMainForm
end
end
object Tasks: TPage
object Panel6: TPanel
object TaskControlPanel: TPanel
Left = 0
Height = 36
Height = 27
Top = 0
Width = 853
Width = 834
Align = alTop
AutoSize = True
BevelOuter = bvNone
ClientHeight = 36
ClientWidth = 853
ClientHeight = 27
ClientWidth = 834
TabOrder = 0
object RbAllTasks: TRadioButton
Left = 8
AnchorSideLeft.Control = TaskControlPanel
Left = 4
Height = 19
Top = 8
Top = 4
Width = 63
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
Caption = 'All tasks'
Checked = True
OnChange = RbAllTasksChange
@ -328,11 +361,13 @@ object MainForm: TMainForm
object RbHideCompletedTasks: TRadioButton
AnchorSideLeft.Control = RbAllTasks
AnchorSideLeft.Side = asrBottom
Left = 101
Left = 99
Height = 19
Top = 8
Top = 4
Width = 134
BorderSpacing.Left = 30
BorderSpacing.Left = 32
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
Caption = 'Hide completed tasks'
OnChange = RbHideCompletedTasksChange
TabOrder = 1
@ -340,9 +375,9 @@ object MainForm: TMainForm
end
object VpTaskList1: TVpTaskList
Left = 0
Height = 496
Top = 36
Width = 853
Height = 501
Top = 27
Width = 834
ControlLink = VpControlLink1
Color = clWindow
Font.Height = -12
@ -417,7 +452,7 @@ object MainForm: TMainForm
Left = 96
Height = 25
Top = 64
Width = 75
Width = 46
Caption = 'Edit'
OnClick = BtnEditResClick
TabOrder = 1
@ -426,7 +461,7 @@ object MainForm: TMainForm
Left = 16
Height = 25
Top = 64
Width = 75
Width = 50
Caption = 'New'
OnClick = BtnNewResClick
TabOrder = 2
@ -443,18 +478,23 @@ object MainForm: TMainForm
object LblLanguage: TLabel
AnchorSideTop.Control = CbLanguages
AnchorSideTop.Side = asrCenter
Left = 16
AnchorSideRight.Control = CbLanguages
Left = 52
Height = 15
Top = 28
Width = 52
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'Language'
ParentColor = False
end
object CbLanguages: TComboBox
AnchorSideTop.Control = Settings
Left = 112
Height = 23
Top = 24
Width = 172
BorderSpacing.Top = 24
DropDownCount = 24
ItemHeight = 15
OnChange = CbLanguagesChange
@ -462,28 +502,41 @@ object MainForm: TMainForm
TabOrder = 0
end
object CbDrawingStyle: TComboBox
AnchorSideLeft.Control = CbLanguages
AnchorSideTop.Control = CbAddressBuilder
AnchorSideTop.Side = asrBottom
Left = 112
Height = 23
Top = 184
Top = 176
Width = 172
BorderSpacing.Top = 16
ItemHeight = 15
OnChange = CbDrawingStyleChange
Style = csDropDownList
TabOrder = 4
end
object LblDrawingStyle: TLabel
Left = 24
AnchorSideTop.Control = CbDrawingStyle
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = CbDrawingStyle
Left = 30
Height = 15
Top = 188
Top = 180
Width = 74
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'Drawing style:'
ParentColor = False
end
object CbAddressBuilder: TComboBox
AnchorSideLeft.Control = CbLanguages
AnchorSideTop.Control = CbFirstDayOfWeek
AnchorSideTop.Side = asrBottom
Left = 112
Height = 23
Top = 144
Top = 137
Width = 172
BorderSpacing.Top = 16
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
@ -500,18 +553,26 @@ object MainForm: TMainForm
object LblAddressBuilder: TLabel
AnchorSideTop.Control = CbAddressBuilder
AnchorSideTop.Side = asrCenter
Left = 16
AnchorSideRight.Control = CbAddressBuilder
Left = 22
Height = 15
Top = 148
Top = 141
Width = 82
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'Address builder'
ParentColor = False
end
object CbAllowInplaceEditing: TCheckBox
Left = 349
AnchorSideLeft.Control = CbLanguages
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CbLanguages
AnchorSideTop.Side = asrCenter
Left = 316
Height = 19
Top = 28
Top = 26
Width = 131
BorderSpacing.Left = 32
Caption = 'Allow inplace editing'
Checked = True
OnChange = CbAllowInplaceEditingChange
@ -519,10 +580,14 @@ object MainForm: TMainForm
TabOrder = 5
end
object CbFirstDayOfWeek: TComboBox
AnchorSideLeft.Control = CbLanguages
AnchorSideTop.Control = CbTimeFormat
AnchorSideTop.Side = asrBottom
Left = 112
Height = 23
Top = 104
Top = 98
Width = 172
BorderSpacing.Top = 16
ItemHeight = 15
OnChange = CbFirstDayOfWeekChange
Style = csDropDownList
@ -531,18 +596,25 @@ object MainForm: TMainForm
object LblFirstDayOfWeek: TLabel
AnchorSideTop.Control = CbFirstDayOfWeek
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = CbFirstDayOfWeek
Left = 16
Height = 15
Top = 108
Top = 102
Width = 88
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'First day of week'
ParentColor = False
end
object CbTimeFormat: TComboBox
AnchorSideLeft.Control = CbLanguages
AnchorSideTop.Control = LblLanguage
AnchorSideTop.Side = asrBottom
Left = 112
Height = 23
Top = 64
Top = 59
Width = 172
BorderSpacing.Top = 16
ItemHeight = 15
OnChange = CbTimeFormatChange
Style = csDropDownList
@ -551,35 +623,47 @@ object MainForm: TMainForm
object LblTimeFormat: TLabel
AnchorSideTop.Control = CbTimeFormat
AnchorSideTop.Side = asrCenter
Left = 16
AnchorSideRight.Control = CbTimeFormat
Left = 38
Height = 15
Top = 68
Top = 63
Width = 66
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'Time format'
ParentColor = False
end
object CbAllowDragAndDrop: TCheckBox
Left = 349
AnchorSideLeft.Control = CbAllowInplaceEditing
AnchorSideTop.Control = CbTimeFormat
AnchorSideTop.Side = asrCenter
Left = 316
Height = 19
Top = 56
Top = 61
Width = 179
Caption = 'Allow drag and drop of events'
OnChange = CbAllowDragAndDropChange
TabOrder = 6
end
object CbDragDropTransparent: TCheckBox
Left = 349
AnchorSideLeft.Control = CbAllowInplaceEditing
AnchorSideTop.Control = CbFirstDayOfWeek
AnchorSideTop.Side = asrCenter
Left = 316
Height = 19
Top = 86
Top = 100
Width = 161
Caption = 'Transparent drag and drop'
OnChange = CbDragDropTransparentChange
TabOrder = 7
end
object CbShowEventHints: TCheckBox
Left = 349
AnchorSideLeft.Control = CbAllowInplaceEditing
AnchorSideTop.Control = CbAddressBuilder
AnchorSideTop.Side = asrCenter
Left = 316
Height = 19
Top = 117
Top = 139
Width = 176
Caption = 'Show event and contact hints'
Checked = True