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

jvcllaz: Use system colors for some elements of the TJvTFDays grid of the JvTimeFramework components.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7105 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-08-09 10:22:52 +00:00
parent 7794c04d51
commit 22a3496170
3 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/jvcllaz/examples/JvTimeFramework/tfmain.lfm
View File

@ -57,10 +57,8 @@ object MainForm: TMainForm
TimeBlockProps.SelBlockHdrAttr.Font.Color = clBlack
TimeBlockProps.SelBlockHdrAttr.ParentFont = False
TimeBlockProps.SelBlockHdrAttr.FrameColor = clBlack
ApptAttr.Color = clWhite
ApptAttr.Font.Color = clWindowText
ApptAttr.ParentFont = False
SelApptAttr.Color = clWhite
SelApptAttr.Font.Color = clWindowText
SelApptAttr.ParentFont = False
HdrAttr.Font.Color = clWindowText
@ -80,7 +78,6 @@ object MainForm: TMainForm
SelFancyRowHdrAttr.TickColor = clBlack
PrimeTime.StartTime = 0.333333333333333
PrimeTime.EndTime = 0.708333333333333
PrimeTime.Color = clYellow
GroupHdrAttr.Font.Color = clWindowText
GroupHdrAttr.ParentFont = False
GroupHdrAttr.FrameColor = clBlack

3
components/jvcllaz/examples/JvTimeFramework/tfmain.pas
View File

@ -1,3 +1,6 @@
// todo -cTJvTimeFramework: Remove small square at left/top corner of screen; assosciated with Days/Months/Weeks
// todo -cTJvTimeFramework: Fix text height when printing text with font size 0
{******************************************************************
JEDI-VCL Demo

8
components/jvcllaz/run/JvTimeFramework/jvtfdays.pas
View File

@ -677,7 +677,7 @@ type
procedure Assign(Source: TPersistent); override;
procedure ParentFontChanged; virtual;
published
property Color: TColor read FColor write SetColor;
property Color: TColor read FColor write SetColor default clWindow;
property Font: TFont read FFont write SetFont;
property ParentFont: Boolean read FParentFont write SetParentFont default True;
property FrameColor: TColor read FFrameColor write SetFrameColor default clBlack;
@ -701,7 +701,7 @@ type
constructor Create(AApptGrid: TJvTFDays);
procedure Assign(Source: TPersistent); override;
published
property Color: TColor read FColor write SetColor default clNavy;
property Color: TColor read FColor write SetColor default clHighlight;
property FrameWidth: Integer read FFrameWidth write SetFrameWidth default 2;
property Style: TJvTFSelCellStyle read FStyle write SetStyle default scsSolid;
end;
@ -3831,7 +3831,7 @@ begin
FFrameWidth := 1;
FFrameColor := clBlack;
FColor := clWhite;
FColor := clWindow;
end;
destructor TJvTFDaysApptAttr.Destroy;
@ -3933,7 +3933,7 @@ begin
inherited Create;
FApptGrid := AApptGrid;
FColor := clNavy;
FColor := clHighlight;
FStyle := scsSolid;
FFrameWidth := 2;
end;