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

1
components/tvplanit/examples/fulldemo/demo.lpi
View File

@ -9,6 +9,7 @@
</Flags>
<SessionStorage Value="InProjectDir"/>
<Title Value="demo"/>
<Scaled Value="True"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<XPManifest>

1
components/tvplanit/examples/fulldemo/demo.lpr
View File

@ -14,6 +14,7 @@ uses
begin
RequireDerivedFormResource := True;
Application.Scaled:=True;
Application.Initialize;
Application.CreateForm(TDemoDM, DemoDM);
Application.CreateForm(TMainForm, MainForm);

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

2
components/tvplanit/examples/fulldemo/demomain.pas
View File

@ -10,7 +10,7 @@ uses
{$ENDIF}
Classes, fgl, SysUtils, FileUtil,
PrintersDlgs, Forms, Controls, Graphics, Dialogs,
ExtCtrls, StdCtrls, ComCtrls, LCLTranslator, Menus, Types, LCLVersion, Contnrs,
ExtCtrls, StdCtrls, ComCtrls, LCLTranslator, Menus, Types, LCLVersion,
CheckLst, VpBaseDS, VpDayView, VpWeekView, VpTaskList, VpAbout, VpContactGrid,
VpMonthView, VpResEditDlg, VpContactButtons, VpNavBar, VpData, VpPrtPrvDlg,
VpPrtFmtDlg, VpBase;