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

tvplanit: cosmetic changes, mostly in day view unit.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4784 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-20 14:21:33 +00:00
parent 89198cf134
commit 2e89999e86
2 changed files with 1220 additions and 1368 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
components/tvplanit/source/vpbase.pas
View File

@ -214,7 +214,6 @@ type
TVpCategoryColorMap = class(TPersistent)
protected
FCat: array[0..9] of TVpCategoryInfo;
function GetCat(AIndex: Integer): TVpCategoryInfo;
procedure SetCat(AIndex: Integer; AValue: TVpCategoryInfo);
{
FCat0: TVpCategoryInfo;
@ -233,17 +232,18 @@ type
destructor Destroy; override;
function GetColor(Index: Integer): TColor;
function GetName(Index: Integer):string;
function GetCategory(AIndex: Integer): TVpCategoryInfo;
published
property Category0: TVpCategoryInfo index 0 read GetCat write SetCat;
property Category1: TVpCategoryInfo index 1 read GetCat write SetCat;
property Category2: TVpCategoryInfo index 2 read GetCat write SetCat;
property Category3: TVpCategoryInfo index 3 read GetCat write SetCat;
property Category4: TVpCategoryInfo index 4 read GetCat write SetCat;
property Category5: TVpCategoryInfo index 5 read GetCat write SetCat;
property Category6: TVpCategoryInfo index 6 read GetCat write SetCat;
property Category7: TVpCategoryInfo index 7 read GetCat write SetCat;
property Category8: TVpCategoryInfo index 8 read GetCat write SetCat;
property Category9: TVpCategoryInfo index 9 read GetCat write SetCat;
property Category0: TVpCategoryInfo index 0 read GetCategory write SetCat;
property Category1: TVpCategoryInfo index 1 read GetCategory write SetCat;
property Category2: TVpCategoryInfo index 2 read GetCategory write SetCat;
property Category3: TVpCategoryInfo index 3 read GetCategory write SetCat;
property Category4: TVpCategoryInfo index 4 read GetCategory write SetCat;
property Category5: TVpCategoryInfo index 5 read GetCategory write SetCat;
property Category6: TVpCategoryInfo index 6 read GetCategory write SetCat;
property Category7: TVpCategoryInfo index 7 read GetCategory write SetCat;
property Category8: TVpCategoryInfo index 8 read GetCategory write SetCat;
property Category9: TVpCategoryInfo index 9 read GetCategory write SetCat;
{
property Category0: TVpCategoryInfo read FCat0 write FCat0;
property Category1: TVpCategoryInfo read FCat1 write FCat1;
@ -760,7 +760,7 @@ begin
end;
{=====}
function TVpCategoryColorMap.GetCat(AIndex: Integer): TVpCategoryInfo;
function TVpCategoryColorMap.GetCategory(AIndex: Integer): TVpCategoryInfo;
begin
Result := FCat[AIndex];
end;

2564
components/tvplanit/source/vpdayview.pas
View File

File diff suppressed because it is too large Load Diff