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

tvplanit: Adjust visibility of DayView variables and methods. Cosmetic changes.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8412 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-08-22 14:48:35 +00:00
parent 82df095ab2
commit 9a098ee42b
2 changed files with 117 additions and 181 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1160,14 +1160,14 @@ var
begin
{ size and place the Today button first. }
with TVpDayViewOpener(FDayView) do begin
dvDayUpBtn.Visible := FShowNavButtons;
dvDayDownBtn.Visible := FShowNavButtons;
dvTodayBtn.Visible := FShowNavButtons;
dvWeekUpBtn.Visible := FShowNavButtons;
dvWeekDownBtn.Visible := FShowNavButtons;
dvDayUpBtn.Visible := ShowNavButtons;
dvDayDownBtn.Visible := ShowNavButtons;
dvTodayBtn.Visible := ShowNavButtons;
dvWeekUpBtn.Visible := ShowNavButtons;
dvWeekDownBtn.Visible := ShowNavButtons;
{ In order to hide the nav btns in designmode move them out of their parent }
if (csDesigning in ComponentState) and not FShowNavButtons then begin
if (csDesigning in ComponentState) and not ShowNavButtons then begin
dvTodayBtn.Left := -Width;
dvWeekDownBtn.Left := -Width;
dvWeekUpBtn.Left := -Width;