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.Font.Color = clBlack
TimeBlockProps.SelBlockHdrAttr.ParentFont = False TimeBlockProps.SelBlockHdrAttr.ParentFont = False
TimeBlockProps.SelBlockHdrAttr.FrameColor = clBlack TimeBlockProps.SelBlockHdrAttr.FrameColor = clBlack
ApptAttr.Color = clWhite
ApptAttr.Font.Color = clWindowText ApptAttr.Font.Color = clWindowText
ApptAttr.ParentFont = False ApptAttr.ParentFont = False
SelApptAttr.Color = clWhite
SelApptAttr.Font.Color = clWindowText SelApptAttr.Font.Color = clWindowText
SelApptAttr.ParentFont = False SelApptAttr.ParentFont = False
HdrAttr.Font.Color = clWindowText HdrAttr.Font.Color = clWindowText
@ -80,7 +78,6 @@ object MainForm: TMainForm
SelFancyRowHdrAttr.TickColor = clBlack SelFancyRowHdrAttr.TickColor = clBlack
PrimeTime.StartTime = 0.333333333333333 PrimeTime.StartTime = 0.333333333333333
PrimeTime.EndTime = 0.708333333333333 PrimeTime.EndTime = 0.708333333333333
PrimeTime.Color = clYellow
GroupHdrAttr.Font.Color = clWindowText GroupHdrAttr.Font.Color = clWindowText
GroupHdrAttr.ParentFont = False GroupHdrAttr.ParentFont = False
GroupHdrAttr.FrameColor = clBlack 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 JEDI-VCL Demo

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

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