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

tvplanit: More consistent usage of colors and attribute classes.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8448 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-09-05 09:27:54 +00:00
parent 4af1e301a7
commit 7a151f2696
12 changed files with 256 additions and 225 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4,22 +4,21 @@ object MainForm: TMainForm
Top = 135
Width = 959
Caption = 'Turbo Power VisualPlanIt Demo'
ClientHeight = 576
ClientHeight = 596
ClientWidth = 959
Menu = MainMenu1
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDestroy = FormDestroy
LCLVersion = '2.3.0.0'
object Panel1: TPanel
Left = 125
Height = 576
Height = 596
Top = 0
Width = 834
Align = alClient
AutoSize = True
BevelOuter = bvNone
ClientHeight = 576
ClientHeight = 596
ClientWidth = 834
TabOrder = 2
object HeaderPanel: TPanel
@ -56,7 +55,7 @@ object MainForm: TMainForm
end
object Notebook: TNotebook
Left = 0
Height = 528
Height = 548
Top = 48
Width = 834
PageIndex = 0
@ -66,18 +65,18 @@ object MainForm: TMainForm
object Events: TPage
object LeftPanel: TPanel
Left = 0
Height = 528
Height = 548
Top = 0
Width = 357
Align = alLeft
BevelOuter = bvNone
ClientHeight = 528
ClientHeight = 548
ClientWidth = 357
TabOrder = 0
object VpMonthView1: TVpMonthView
Left = 0
Height = 197
Top = 331
Top = 351
Width = 357
ShowHint = True
PopupMenu = VpMonthView1.default
@ -85,12 +84,10 @@ object MainForm: TMainForm
ParentShowHint = False
Align = alBottom
TabOrder = 0
DayHeadAttributes.Color = clBtnFace
DrawingStyle = dsFlat
EventDayStyle = [fsItalic]
HeadAttributes.Font.Height = -16
HeadAttributes.Font.Style = [fsItalic]
HeadAttributes.Color = clBtnFace
HolidayAttributes.Font.Color = clBlack
TodayAttributes.Font.Color = clBlue
TodayAttributes.Color = 16761024
@ -103,14 +100,14 @@ object MainForm: TMainForm
Cursor = crVSplit
Left = 0
Height = 5
Top = 326
Top = 346
Width = 357
Align = alBottom
ResizeAnchor = akBottom
end
object VpDayView1: TVpDayView
Left = 0
Height = 292
Height = 312
Top = 34
Width = 357
ShowHint = True
@ -121,9 +118,6 @@ object MainForm: TMainForm
ParentShowHint = False
Align = alClient
TabOrder = 2
AllDayEventAttributes.BackgroundColor = clBtnShadow
AllDayEventAttributes.EventBorderColor = cl3DDkShadow
AllDayEventAttributes.EventBackgroundColor = clBtnFace
AllDayEventAttributes.Font.Height = -12
ShowEventTimes = False
DrawingStyle = dsFlat
@ -132,10 +126,8 @@ object MainForm: TMainForm
TimeSlotColors.ActiveRange.RangeEnd = h_00
HeadAttributes.Font.Height = -16
HeadAttributes.Font.Style = [fsItalic]
HeadAttributes.Color = clBtnFace
RowHeadAttributes.HourFont.Height = -24
RowHeadAttributes.MinuteFont.Height = -12
RowHeadAttributes.Color = clBtnFace
IconAttributes.AlarmBitmap.Data = {
76020000424D760200000000000036000000280000000C0000000C0000000100
20000000000040020000C30E0000C30E00000000000000000000FFFFFF00FFFF
@ -278,13 +270,13 @@ object MainForm: TMainForm
end
object Splitter3: TSplitter
Left = 357
Height = 528
Height = 548
Top = 0
Width = 5
end
object VpWeekView1: TVpWeekView
Left = 362
Height = 528
Height = 548
Top = 0
Width = 472
ShowHint = True
@ -293,19 +285,14 @@ object MainForm: TMainForm
Font.Height = -12
ParentFont = False
ParentShowHint = False
AllDayEventAttributes.BackgroundColor = clWindow
AllDayEventAttributes.EventBorderColor = clGray
AllDayEventAttributes.EventBackgroundColor = clBtnFace
AllDayEventAttributes.Font.Height = -12
DateLabelFormat = 'dddd, mmmm dd, yyyy'
DayHeadAttributes.Color = clBtnFace
DayHeadAttributes.DateFormat = 'ddddd'
DayHeadAttributes.Font.Height = -13
DrawingStyle = dsFlat
EventFont.Height = -12
HeadAttributes.Font.Height = -16
HeadAttributes.Font.Style = [fsItalic]
HeadAttributes.Color = clBtnFace
LineColor = clGray
Layout = wvlHorizontal
WeekStartsOn = dtMonday
@ -717,7 +704,7 @@ object MainForm: TMainForm
end
object VpNavBar1: TVpNavBar
Left = 0
Height = 576
Height = 596
Top = 0
Width = 120
ActiveFolder = 0
@ -818,7 +805,7 @@ object MainForm: TMainForm
end
object Splitter1: TSplitter
Left = 120
Height = 576
Height = 596
Top = 0
Width = 5
end
@ -1333,8 +1320,8 @@ object MainForm: TMainForm
end
end
object PrintDialog1: TPrintDialog
Left = 232
Top = 368
Left = 224
Top = 344
end
object VpPrintPreviewDialog1: TVpPrintPreviewDialog
Version = 'v1.12'