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

jvcllaz: Use system colors in JvTFWeeks and JvTFMonths. Store more settings of demo program in ini file.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7112 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-08-09 22:22:02 +00:00
parent 701e4e31d5
commit 141290dc94
5 changed files with 84 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/jvcllaz/run/JvTimeFramework/jvtfglance.pas
View File

@ -338,7 +338,7 @@ type
procedure Assign(Source: TPersistent); override;
property GlanceControl: TJvTFCustomGlance read FGlanceControl;
published
property Color: TColor read FColor write SetColor default clWhite;
property Color: TColor read FColor write SetColor default clWindow;
property Font: TFont read FFont write SetFont;
property FrameAttr: TJvTFGlanceFrameAttr read FFrameAttr write SetFrameAttr;
property TitleAttr: TJvTFGlanceTitleAttr read FTitleAttr write SetTitleAttr;
@ -1311,8 +1311,8 @@ begin
FCellAttr := TJvTFGlanceCellAttr.Create(Self);
FCellAttr.TitleAttr.DayTxtAttr.AlignH := taLeftJustify;
FSelCellAttr := TJvTFGlanceCellAttr.Create(Self);
FSelCellAttr.TitleAttr.Color := clNavy;
FSelCellAttr.TitleAttr.DayTxtAttr.Font.Color := clWhite;
FSelCellAttr.TitleAttr.Color := clHighlight;
FSelCellAttr.TitleAttr.DayTxtAttr.Font.Color := clHighlightText;
//FSelOrder := soColMajor;
FSelOrder := soRowMajor;
@ -3247,11 +3247,12 @@ begin
inherited Create;
FGlanceControl := AOwner;
FColor := clWhite;
FColor := clWindow;
FFrameAttr := TJvTFGlanceFrameAttr.Create(AOwner);
FTitleAttr := TJvTFGlanceTitleAttr.Create(AOwner);
FFont := TFont.Create;
FFont.Color := clWindowText;
FFont.OnChange := @FontChange;
end;

6
components/jvcllaz/run/JvTimeFramework/jvtfmonths.pas
View File

@ -131,9 +131,9 @@ begin
FExtraDayCellAttr := TJvTFGlanceCellAttr.Create(Self);
FOffDayCellAttr := TJvTFGlanceCellAttr.Create(Self);
CellAttr.TitleAttr.Color := clWhite;
FExtraDayCellAttr.TitleAttr.Color := clWhite;
FOffDayCellAttr.TitleAttr.Color := clWhite;
//CellAttr.TitleAttr.Color := clWhite;
//FExtraDayCellAttr.TitleAttr.Color := clWhite;
//FOffDayCellAttr.TitleAttr.Color := clWhite;
FDayFormat := 'd';
FFirstDayOfMonthFormat := 'mmm d';

1
components/jvcllaz/run/JvTimeFramework/jvtfweeks.pas
View File

@ -181,7 +181,6 @@ begin
inherited Create(AOwner);
GapSize := 4;
CellAttr.TitleAttr.Color := clWhite;
CellAttr.TitleAttr.FrameAttr.Color := clGray;
FDWNames := TJvTFDWNames.Create;