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

tvplanit: New calendar icon by Roland Hahn.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8476 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-09-12 11:03:48 +00:00
parent 6b56f106bb
commit cf63f75a7a
16 changed files with 194 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
components/tvplanit/examples/fulldemo/ExVpRptSetup.lfm
View File

@ -12,7 +12,6 @@ object frmReportSetup: TfrmReportSetup
OnCreate = FormCreate
OnShow = FormShow
Position = poMainFormCenter
LCLVersion = '1.6.4.0'
object Panel1: TPanel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
@ -37,6 +36,7 @@ object frmReportSetup: TfrmReportSetup
BorderSpacing.Left = 8
BorderSpacing.Right = 8
Caption = 'Start Date:'
Color = clDefault
FocusControl = edStartDate
ParentColor = False
end
@ -52,6 +52,7 @@ object frmReportSetup: TfrmReportSetup
BorderSpacing.Left = 8
BorderSpacing.Right = 8
Caption = 'End Date:'
Color = clDefault
FocusControl = edEndDate
ParentColor = False
end
@ -67,6 +68,7 @@ object frmReportSetup: TfrmReportSetup
BorderSpacing.Left = 8
BorderSpacing.Right = 8
Caption = 'Format:'
Color = clDefault
FocusControl = PrintFormatCombo
ParentColor = False
end
@ -85,7 +87,7 @@ object frmReportSetup: TfrmReportSetup
Borderspacing.Bottom = 12
ItemHeight = 15
Sorted = True
TabOrder = 0
TabOrder = 2
end
object edStartDate: TDateEdit
AnchorSideTop.Control = Panel1
@ -103,7 +105,7 @@ object frmReportSetup: TfrmReportSetup
BorderSpacing.Right = 8
NumGlyphs = 1
MaxLength = 0
TabOrder = 1
TabOrder = 0
end
object edEndDate: TDateEdit
AnchorSideLeft.Control = edStartDate
@ -122,7 +124,22 @@ object frmReportSetup: TfrmReportSetup
BorderSpacing.Top = 8
NumGlyphs = 1
MaxLength = 0
TabOrder = 2
TabOrder = 1
end
object Bevel1: TBevel
AnchorSideLeft.Control = Panel1
AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Panel1
AnchorSideBottom.Side = asrBottom
Left = 8
Height = 3
Top = 102
Width = 249
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Left = 8
BorderSpacing.Right = 8
Shape = bsBottomLine
end
end
object ButtonPanel: TPanel
@ -133,10 +150,11 @@ object frmReportSetup: TfrmReportSetup
AnchorSideRight.Side = asrBottom
Left = 0
Height = 33
Top = 105
Top = 113
Width = 265
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 8
BevelOuter = bvNone
ClientHeight = 33
ClientWidth = 265

3
components/tvplanit/examples/fulldemo/ExVpRptSetup.pas
View File

@ -41,6 +41,7 @@ type
{ TfrmReportSetup }
TfrmReportSetup = class(TForm)
Bevel1: TBevel;
btnOK: TButton;
btnCancel: TButton;
lblStartDate: TLabel;
@ -100,6 +101,8 @@ end;
procedure TfrmReportSetup.FormCreate(Sender: TObject);
begin
LoadGlyphFromRCDATA(edStartDate.Glyph, 'VpDateEdit', 16, 24, 32);
LoadGlyphFromRCDATA(edEndDate.Glyph, 'VpDateEdit', 16, 24, 32);
SetCaptions;
end;