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

tvplanit: Fix painting glitches for TVpTaskList.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8443 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-09-04 22:11:52 +00:00
parent 5c2d4719ab
commit d2bdaad7bf
5 changed files with 191 additions and 232 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,24 +1,25 @@
object MainForm: TMainForm
Left = 227
Left = 362
Height = 596
Top = 134
Top = 135
Width = 959
Caption = 'Turbo Power VisualPlanIt Demo'
ClientHeight = 596
ClientHeight = 576
ClientWidth = 959
Menu = MainMenu1
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDestroy = FormDestroy
LCLVersion = '2.3.0.0'
object Panel1: TPanel
Left = 125
Height = 596
Height = 576
Top = 0
Width = 834
Align = alClient
AutoSize = True
BevelOuter = bvNone
ClientHeight = 596
ClientHeight = 576
ClientWidth = 834
TabOrder = 2
object HeaderPanel: TPanel
@ -55,7 +56,7 @@ object MainForm: TMainForm
end
object Notebook: TNotebook
Left = 0
Height = 548
Height = 528
Top = 48
Width = 834
PageIndex = 0
@ -65,18 +66,18 @@ object MainForm: TMainForm
object Events: TPage
object LeftPanel: TPanel
Left = 0
Height = 548
Height = 528
Top = 0
Width = 357
Align = alLeft
BevelOuter = bvNone
ClientHeight = 548
ClientHeight = 528
ClientWidth = 357
TabOrder = 0
object VpMonthView1: TVpMonthView
Left = 0
Height = 197
Top = 351
Top = 331
Width = 357
ShowHint = True
PopupMenu = VpMonthView1.default
@ -102,14 +103,14 @@ object MainForm: TMainForm
Cursor = crVSplit
Left = 0
Height = 5
Top = 346
Top = 326
Width = 357
Align = alBottom
ResizeAnchor = akBottom
end
object VpDayView1: TVpDayView
Left = 0
Height = 312
Height = 292
Top = 34
Width = 357
ShowHint = True
@ -277,13 +278,13 @@ object MainForm: TMainForm
end
object Splitter3: TSplitter
Left = 357
Height = 548
Height = 528
Top = 0
Width = 5
end
object VpWeekView1: TVpWeekView
Left = 362
Height = 548
Height = 528
Top = 0
Width = 472
ShowHint = True
@ -362,24 +363,10 @@ object MainForm: TMainForm
Width = 834
PopupMenu = VpTaskList1.default
ControlLink = VpControlLink1
ParentFont = False
Align = alClient
TabOrder = 1
DisplayOptions.CheckBGColor = clWindow
DisplayOptions.CheckColor = cl3DDkShadow
DisplayOptions.CheckStyle = csCheck
DisplayOptions.DueDateFormat = 'dd.MM.yyyy'
DisplayOptions.ShowCompletedTasks = False
DisplayOptions.ShowAll = False
DisplayOptions.ShowDueDate = True
DisplayOptions.OverdueColor = clRed
DisplayOptions.NormalColor = clBlack
DisplayOptions.CompletedColor = clGray
LineColor = clGray
MaxVisibleTasks = 250
TaskHeadAttributes.Color = clSilver
TaskHeadAttributes.Font.Style = [fsItalic]
DrawingStyle = dsFlat
TaskHeadAttributes.Font.Style = [fsItalic]
end
end
object Contacts: TPage
@ -730,7 +717,7 @@ object MainForm: TMainForm
end
object VpNavBar1: TVpNavBar
Left = 0
Height = 596
Height = 576
Top = 0
Width = 120
ActiveFolder = 0
@ -831,7 +818,7 @@ object MainForm: TMainForm
end
object Splitter1: TSplitter
Left = 120
Height = 596
Height = 576
Top = 0
Width = 5
end