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

tvplanit: Fix display of end date in an all-day event in GanttView. Less hints and warnings.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8684 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-01-16 12:43:17 +00:00
parent 53f1b40d92
commit fe1a95db7c
5 changed files with 5 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/tvplanit/source/vpedelem.lfm
View File

@ -13,6 +13,7 @@ object frmEditElement: TfrmEditElement
OnCreate = FormCreate OnCreate = FormCreate
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '2.3.0.0'
object gbCaption: TGroupBox object gbCaption: TGroupBox
Left = 12 Left = 12
Height = 54 Height = 54
@ -40,7 +41,6 @@ object frmEditElement: TfrmEditElement
Width = 27 Width = 27
BorderSpacing.Left = 8 BorderSpacing.Left = 8
Caption = 'Text: ' Caption = 'Text: '
Color = clDefault
FocusControl = edCaptionText FocusControl = edCaptionText
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
@ -104,7 +104,6 @@ object frmEditElement: TfrmEditElement
Top = 4 Top = 4
Width = 38 Width = 38
Caption = 'Name: ' Caption = 'Name: '
Color = clDefault
ParentColor = False ParentColor = False
end end
object edName: TEdit object edName: TEdit
@ -420,7 +419,6 @@ object frmEditElement: TfrmEditElement
BorderSpacing.Left = 1 BorderSpacing.Left = 1
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Top:' Caption = 'Top:'
Color = clDefault
FocusControl = edTop FocusControl = edTop
ParentColor = False ParentColor = False
end end
@ -498,7 +496,6 @@ object frmEditElement: TfrmEditElement
BorderSpacing.Left = 1 BorderSpacing.Left = 1
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Left:' Caption = 'Left:'
Color = clDefault
FocusControl = edLeft FocusControl = edLeft
ParentColor = False ParentColor = False
end end
@ -531,7 +528,6 @@ object frmEditElement: TfrmEditElement
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Height:' Caption = 'Height:'
Color = clDefault
FocusControl = edHeight FocusControl = edHeight
ParentColor = False ParentColor = False
end end
@ -578,7 +574,6 @@ object frmEditElement: TfrmEditElement
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Width:' Caption = 'Width:'
Color = clDefault
FocusControl = edWidth FocusControl = edWidth
ParentColor = False ParentColor = False
end end

2
components/tvplanit/source/vpedelem.pas
View File

@ -25,7 +25,7 @@
{* Contributor(s): *} {* Contributor(s): *}
{* *} {* *}
{* ***** END LICENSE BLOCK ***** *} {* ***** END LICENSE BLOCK ***** *}
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
{$I vp.inc} {$I vp.inc}
unit VpEdElem; unit VpEdElem;

3
components/tvplanit/source/vpganttview.pas
View File

@ -1,7 +1,7 @@
unit VpGanttView; unit VpGanttView;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
interface interface
uses uses
@ -498,7 +498,6 @@ begin
begin begin
dt1 := DatePart(AEvent.StartTime); dt1 := DatePart(AEvent.StartTime);
dt2 := DatePart(AEvent.EndTime) + 1; dt2 := DatePart(AEvent.EndTime) + 1;
if frac(AEvent.EndTime) = 0 then dt2 := dt2 + 1;
end else end else
begin begin
dt1 := AEvent.StartTime; dt1 := AEvent.StartTime;

1
components/tvplanit/source/vpprtprvdlg.lfm
View File

@ -14,6 +14,7 @@ object frmPrintPreview: TfrmPrintPreview
OnCreate = FormCreate OnCreate = FormCreate
OnKeyDown = FormKeyDown OnKeyDown = FormKeyDown
OnShow = FormShow OnShow = FormShow
LCLVersion = '2.3.0.0'
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 56 Height = 56

2
components/tvplanit/source/vpprtprvdlg.pas
View File

@ -169,7 +169,7 @@ implementation
uses uses
OSPrinters, OSPrinters,
VpConst, // needed for define VP_LCL_SCALING {%H-}VpConst, // needed for define VP_LCL_SCALING
VpPrtFmt; VpPrtFmt;
{ TfrmPrintPreview } { TfrmPrintPreview }