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

tvplanit: remove hard-coded font name "Tahoma" from DayView unit.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4751 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-14 14:24:19 +00:00
parent 6827b11c3a
commit e8c8fb2ed2
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -787,18 +787,20 @@ begin
FIncludeWeekends := True; FIncludeWeekends := True;
{ set up fonts and colors } { set up fonts and colors }
FHeadAttr.Font.Name := 'Tahoma';
FHeadAttr.Font.Size := 10; FHeadAttr.Font.Size := 10;
FHeadAttr.Font.Style := []; FHeadAttr.Font.Style := [];
FHeadAttr.Color := clBtnFace; FHeadAttr.Color := clBtnFace;
FRowHeadAttr.FHourFont.Name := 'Tahoma';
FRowHeadAttr.FHourFont.Size := 18; FRowHeadAttr.FHourFont.Size := 18;
FRowHeadAttr.FHourFont.Style := []; FRowHeadAttr.FHourFont.Style := [];
FRowHeadAttr.FMinuteFont.Name := 'Tahoma';
FRowHeadAttr.FMinuteFont.Size := 9; FRowHeadAttr.FMinuteFont.Size := 9;
FRowHeadAttr.FMinuteFont.Style := []; FRowHeadAttr.FMinuteFont.Style := [];
FRowHeadAttr.Color := clBtnFace; FRowHeadAttr.Color := clBtnFace;
{$IFNDEF LCL}
FHeadAttr.Font.Name := 'Tahoma';
FRowHeadAttr.FHourFont.Name := 'Tahoma';
FRowHeadAttr.FMinuteFont.Name := 'Tahoma';
{$ENDIF}
SetLength(dvEventArray, MaxVisibleEvents); SetLength(dvEventArray, MaxVisibleEvents);
@ -4800,9 +4802,11 @@ begin
inherited Create; inherited Create;
FOwner := AOwner; FOwner := AOwner;
FHourFont := TVpFont.Create(AOwner); FHourFont := TVpFont.Create(AOwner);
FHourFont.Name := 'Tahoma';
FMinuteFont := TVpFont.Create(AOwner); FMinuteFont := TVpFont.Create(AOwner);
{$IFNDEF LCL}
FHourFont.Name := 'Tahoma';
FMinuteFont.Name := 'Tahoma'; FMinuteFont.Name := 'Tahoma';
{$ENDIF}
end; end;
{=====} {=====}