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

tvplanit: Separate code into designtime and runtime packages. Move lpk files to library root folder for better visibility. Test all demos.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5372 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-11-21 17:12:05 +00:00
parent a9bff701eb
commit fcfce0aa75
75 changed files with 632 additions and 563 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/tvplanit/source/vpcalendar.pas
View File

@@ -39,9 +39,8 @@ uses
{$ELSE}
Windows, Messages,
{$ENDIF}
Buttons, Classes, Controls, Forms, Graphics, Menus,
SysUtils, VpBase, VpSR, VpConst, VpMisc, VpBaseDS, VpCanvasUtils,
VpException;
SysUtils, Buttons, Classes, Controls, Forms, Graphics, Menus,
VpBase, VpSR, VpConst, VpMisc, VpBaseDS, VpCanvasUtils, VpException;
type
TVpCalDisplayOption = (cdoShortNames, cdoShowYear, cdoShowInactive,
@@ -559,7 +558,7 @@ begin
clFirst := I;
{find the index of the last day in the month}
clLast := clFirst + DaysInAMonth(clYear, clMonth) - 1;
clLast := clFirst + DaysInAMonth(clYear, clMonth) {%H-}- 1;
{initialize the first part of the calendar}
if clMonth = 1 then
@@ -1297,7 +1296,7 @@ begin
{create the menu items}
repeat
MI := TMenuItem.Create(M);
MI.Caption := LongMonthNames[I];
MI.Caption := FormatSettings.LongMonthNames[I];
MI.Enabled := Enabled;
MI.OnClick := calChangeMonth;
MI.Tag := I;