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

jvcllaz: Printing layout improvements in JvTimeFrame demo.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7117 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-08-10 21:57:19 +00:00
parent 3297b8d309
commit d794bb55c2
4 changed files with 62 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -56,37 +56,43 @@ object MainForm: TMainForm
TimeBlockProps.SelBlockHdrAttr.FrameColor = clBlack
ApptAttr.Font.Color = clWindowText
ApptAttr.ParentFont = False
ApptAttr.FrameColor = clGray
SelApptAttr.Font.Color = clWindowText
SelApptAttr.ParentFont = False
SelApptAttr.FrameColor = clGray
HdrAttr.Font.Color = clWindowText
HdrAttr.Font.Style = [fsBold]
HdrAttr.ParentFont = False
HdrAttr.FrameColor = clBlack
HdrAttr.Frame3D = False
HdrAttr.FrameColor = clSilver
SelHdrAttr.Font.Color = clBlack
SelHdrAttr.Font.Style = [fsBold]
SelHdrAttr.ParentFont = False
SelHdrAttr.FrameColor = clBlack
SelHdrAttr.Frame3D = False
SelHdrAttr.FrameColor = clSilver
FancyRowHdrAttr.Hr2400 = False
FancyRowHdrAttr.MinorFont.Color = clWindowText
FancyRowHdrAttr.MajorFont.Color = clWindowText
FancyRowHdrAttr.MajorFont.Height = -21
FancyRowHdrAttr.TickColor = clSilver
SelFancyRowHdrAttr.Hr2400 = True
SelFancyRowHdrAttr.MinorFont.Color = clBlack
SelFancyRowHdrAttr.MajorFont.Color = clBlack
SelFancyRowHdrAttr.MajorFont.Height = -21
SelFancyRowHdrAttr.TickColor = clBlack
SelFancyRowHdrAttr.TickColor = clSilver
GridLineColor = clSilver
PrimeTime.StartTime = 0.333333333333333
PrimeTime.EndTime = 0.708333333333333
GroupHdrAttr.Color = clWindow
GroupHdrAttr.Font.Color = clWindowText
GroupHdrAttr.Font.Height = -19
GroupHdrAttr.Font.Style = [fsBold]
GroupHdrAttr.ParentFont = False
GroupHdrAttr.FrameColor = clBlack
GroupHdrAttr.Frame3D = False
GroupHdrAttr.FrameColor = clSilver
SelGroupHdrAttr.Font.Color = clBlack
SelGroupHdrAttr.ParentFont = False
SelGroupHdrAttr.FrameColor = clBlack
WeekendColor = 14671839
LeftCol = -1
OnDateChanging = JvTFDays1DateChanging
OnDateChanged = JvTFDays1DateChanged

6
components/jvcllaz/examples/JvTimeFramework/tfsettings.pas
View File

@ -71,10 +71,8 @@ end;
procedure TSettingsForm.SettingsToControls;
begin
if GlobalSettings.Hr2400 then
cbTimeFormat.ItemIndex := 0
else
cbTimeFormat.ItemIndex := 1;
cbTimeFormat.ItemIndex := ord(not GlobalSettings.Hr2400);
cbFirstDayOfWeek.ItemIndex := ord(GlobalSettings.FirstDayOfWeek);
edPrimeTimeStart.Time := GlobalSettings.PrimeTimeStart;
edPrimeTimeEnd.Time := GlobalSettings.PrimeTimeEnd;