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

tvplanit: Improving LCL scaling.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8438 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-09-02 17:38:26 +00:00
parent f60702ccb7
commit 30acf7208e
30 changed files with 448 additions and 163 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -4,13 +4,12 @@ object MainForm: TMainForm
Top = 134
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 = 596
@@ -81,6 +80,7 @@ object MainForm: TMainForm
Top = 351
Width = 357
ShowHint = True
PopupMenu = VpMonthView1.default
ControlLink = VpControlLink1
ParentShowHint = False
Align = alBottom
@@ -88,7 +88,7 @@ object MainForm: TMainForm
DayHeadAttributes.Color = clBtnFace
DrawingStyle = dsFlat
EventDayStyle = [fsItalic]
HeadAttributes.Font.Height = -13
HeadAttributes.Font.Height = -16
HeadAttributes.Font.Style = [fsItalic]
HeadAttributes.Color = clBtnFace
HolidayAttributes.Font.Color = clBlack
@@ -114,6 +114,7 @@ object MainForm: TMainForm
Top = 34
Width = 357
ShowHint = True
PopupMenu = VpDayView1.default
ControlLink = VpControlLink1
Font.Height = -12
ParentFont = False
@@ -129,7 +130,7 @@ object MainForm: TMainForm
TimeSlotColors.Active = clWhite
TimeSlotColors.ActiveRange.RangeBegin = h_00
TimeSlotColors.ActiveRange.RangeEnd = h_00
HeadAttributes.Font.Height = -13
HeadAttributes.Font.Height = -16
HeadAttributes.Font.Style = [fsItalic]
HeadAttributes.Color = clBtnFace
RowHeadAttributes.HourFont.Height = -24
@@ -288,6 +289,7 @@ object MainForm: TMainForm
Top = 0
Width = 472
ShowHint = True
PopupMenu = VpWeekView1.default
ControlLink = VpControlLink1
Font.Height = -12
ParentFont = False
@@ -302,7 +304,7 @@ object MainForm: TMainForm
DayHeadAttributes.Font.Height = -13
DrawingStyle = dsFlat
EventFont.Height = -12
HeadAttributes.Font.Height = -13
HeadAttributes.Font.Height = -16
HeadAttributes.Font.Style = [fsItalic]
HeadAttributes.Color = clBtnFace
LineColor = clGray
@@ -360,6 +362,7 @@ object MainForm: TMainForm
Height = 501
Top = 27
Width = 834
PopupMenu = VpTaskList1.default
ControlLink = VpControlLink1
ParentFont = False
Align = alClient
@@ -400,6 +403,7 @@ object MainForm: TMainForm
Height = 528
Top = 0
Width = 794
PopupMenu = VpContactGrid1.default
ControlLink = VpControlLink1
ParentFont = False
Align = alClient