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

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;