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

13
components/tvplanit/examples/datastores/zeos/project1.lpi
View File

@@ -21,19 +21,22 @@
<FormatVersion Value="1"/>
</local>
</RunParams>
<RequiredPackages Count="4">
<RequiredPackages Count="5">
<Item1>
<PackageName Value="laz_visualplanit_zeos"/>
<PackageName Value="laz_visualplanit_zeos_design"/>
</Item1>
<Item2>
<PackageName Value="laz_visualplanit"/>
<PackageName Value="laz_visualplanit_zeos"/>
</Item2>
<Item3>
<PackageName Value="zcomponent"/>
<PackageName Value="laz_visualplanit"/>
</Item3>
<Item4>
<PackageName Value="LCL"/>
<PackageName Value="zcomponent"/>
</Item4>
<Item5>
<PackageName Value="LCL"/>
</Item5>
</RequiredPackages>
<Units Count="2">
<Unit0>

73
components/tvplanit/examples/datastores/zeos/unit1.lfm
View File

@@ -7,39 +7,56 @@ object Form1: TForm1
ClientHeight = 686
ClientWidth = 980
OnCreate = FormCreate
LCLVersion = '1.7'
LCLVersion = '1.6.4.0'
object Panel1: TPanel
Left = 0
Height = 34
Height = 33
Top = 0
Width = 980
Align = alTop
AutoSize = True
BevelOuter = bvNone
ClientHeight = 34
ClientHeight = 33
ClientWidth = 980
TabOrder = 0
object VpResourceCombo1: TVpResourceCombo
Left = 8
AnchorSideLeft.Control = Panel1
Left = 4
Height = 23
Top = 5
Width = 208
DataStore = VpZeosDatastore1
Style = csDropDownList
Borderspacing.Left = 4
Borderspacing.Top = 4
Borderspacing.Bottom = 4
end
object BtnNewRes: TButton
Left = 222
AnchorSideLeft.Control = VpResourceCombo1
AnchorSideLeft.Side = asrBottom
Left = 216
Height = 25
Top = 4
Width = 99
Width = 98
AutoSize = True
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
Caption = 'New resource'
OnClick = BtnNewResClick
TabOrder = 1
end
object BtnEditRes: TButton
Left = 328
AnchorSideLeft.Control = BtnNewRes
AnchorSideLeft.Side = asrBottom
Left = 318
Height = 25
Top = 4
Width = 96
Width = 94
AutoSize = True
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
Caption = 'Edit resource'
OnClick = BtnEditResClick
TabOrder = 2
@@ -47,8 +64,8 @@ object Form1: TForm1
end
object PageControl1: TPageControl
Left = 0
Height = 652
Top = 34
Height = 653
Top = 33
Width = 980
ActivePage = TabSheet1
Align = alClient
@@ -56,11 +73,11 @@ object Form1: TForm1
TabOrder = 1
object TabSheet1: TTabSheet
Caption = 'Events and tasks'
ClientHeight = 624
ClientHeight = 625
ClientWidth = 972
object VpDayView1: TVpDayView
Left = 0
Height = 624
Height = 625
Top = 0
Width = 301
DataStore = VpZeosDatastore1
@@ -78,7 +95,6 @@ object Form1: TForm1
TimeSlotColors.Active = clWhite
TimeSlotColors.Inactive = 8454143
TimeSlotColors.Holiday = 16744703
TimeSlotColors.Weekday = clWhite
TimeSlotColors.Weekend = 16777088
TimeSlotColors.ActiveRange.RangeBegin = h_00
TimeSlotColors.ActiveRange.RangeEnd = h_00
@@ -97,18 +113,18 @@ object Form1: TForm1
end
object Panel2: TPanel
Left = 306
Height = 624
Height = 625
Top = 0
Width = 386
Align = alLeft
BevelOuter = bvNone
Caption = 'Panel2'
ClientHeight = 624
ClientHeight = 625
ClientWidth = 386
TabOrder = 1
object VpWeekView1: TVpWeekView
Left = 0
Height = 378
Height = 379
Top = 0
Width = 386
DataStore = VpZeosDatastore1
@@ -136,7 +152,7 @@ object Form1: TForm1
object VpMonthView1: TVpMonthView
Left = 0
Height = 241
Top = 383
Top = 384
Width = 386
DataStore = VpZeosDatastore1
ControlLink = VpControlLink1
@@ -146,29 +162,28 @@ object Form1: TForm1
TabOrder = 1
KBNavigation = True
DateLabelFormat = 'mmmm yyyy'
DayHeadAttributes.Color = clBtnFace
DayHeadAttributes.Font.Height = -13
DayHeadAttributes.Font.Name = 'Tahoma'
DayHeadAttributes.Color = clBtnFace
DayNameStyle = dsShort
DrawingStyle = dsFlat
EventDayStyle = []
HeadAttributes.Color = clBtnFace
LineColor = clGray
TimeFormat = tf12Hour
TodayAttributes.Color = clSilver
TodayAttributes.BorderPen.Color = clRed
TodayAttributes.BorderPen.Width = 3
OffDayColor = clSilver
SelectedDayColor = clRed
ShowEvents = True
ShowEventTime = False
TimeFormat = tf12Hour
TodayAttributes.Color = clSilver
TodayAttributes.BorderPen.Color = clRed
TodayAttributes.BorderPen.Width = 3
WeekStartsOn = dtSunday
end
object Splitter2: TSplitter
Cursor = crVSplit
Left = 0
Height = 5
Top = 378
Top = 379
Width = 386
Align = alBottom
ResizeAnchor = akBottom
@@ -176,7 +191,7 @@ object Form1: TForm1
end
object VpTaskList1: TVpTaskList
Left = 697
Height = 624
Height = 625
Top = 0
Width = 275
DataStore = VpZeosDatastore1
@@ -204,13 +219,13 @@ object Form1: TForm1
end
object Splitter1: TSplitter
Left = 692
Height = 624
Height = 625
Top = 0
Width = 5
end
object Splitter3: TSplitter
Left = 301
Height = 624
Height = 625
Top = 0
Width = 5
end
@@ -251,6 +266,7 @@ object Form1: TForm1
end
object ZConnection1: TZConnection
ControlsCodePage = cCP_UTF8
AutoEncodeStrings = False
Properties.Strings = (
'AutoEncodeStrings=ON'
)
@@ -283,6 +299,7 @@ object Form1: TForm1
HiddenCategories.Color = clGray
EnableEventTimer = True
PlayEventSounds = True
AutoCreate = True
Daybuffer = 31
left = 136
top = 200
@@ -302,7 +319,7 @@ object Form1: TForm1
top = 264
end
object VpResourceEditDialog1: TVpResourceEditDialog
Version = 'v1.04'
Version = 'v1.05'
DataStore = VpZeosDatastore1
Options = []
Placement.Position = mpCenter