From 38be775a00ab1697fc2b4b0adc841dbdd316a3dc Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 22 Jun 2016 14:28:19 +0000
Subject: [PATCH] tvplanit: Extend demo to show several days in DayView

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4803 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../tvplanit/examples/demo/demomain.lfm       | 35 +++++++++++++++++--
 .../tvplanit/examples/demo/demomain.lrt       |  1 +
 .../tvplanit/examples/demo/demomain.pas       | 16 +++++++++
 components/tvplanit/languages/demo.de.po      |  4 +++
 components/tvplanit/languages/demo.po         |  4 +++
 5 files changed, 58 insertions(+), 2 deletions(-)

diff --git a/components/tvplanit/examples/demo/demomain.lfm b/components/tvplanit/examples/demo/demomain.lfm
index adeabfc74..d3e077992 100644
--- a/components/tvplanit/examples/demo/demomain.lfm
+++ b/components/tvplanit/examples/demo/demomain.lfm
@@ -129,8 +129,8 @@ object MainForm: TMainForm
         end
         object VpDayView1: TVpDayView
           Left = 0
-          Height = 378
-          Top = 0
+          Height = 336
+          Top = 42
           Width = 386
           DataStore = VpBufDSDataStore1
           ControlLink = VpControlLink1
@@ -165,6 +165,37 @@ object MainForm: TMainForm
           DefaultTopHour = h_07
           TimeFormat = tf12Hour
         end
+        object DaySelectorPanel: TPanel
+          Left = 0
+          Height = 42
+          Top = 0
+          Width = 386
+          Align = alTop
+          BevelOuter = bvNone
+          ClientHeight = 42
+          ClientWidth = 386
+          TabOrder = 3
+          Visible = False
+          object Label2: TLabel
+            Left = 16
+            Height = 15
+            Top = 8
+            Width = 25
+            Caption = 'Tage'
+            ParentColor = False
+          end
+          object TrackBar1: TTrackBar
+            Left = 56
+            Height = 25
+            Top = 8
+            Width = 180
+            Max = 7
+            Min = 1
+            OnChange = TrackBar1Change
+            Position = 1
+            TabOrder = 0
+          end
+        end
       end
       object Splitter3: TSplitter
         Left = 386
diff --git a/components/tvplanit/examples/demo/demomain.lrt b/components/tvplanit/examples/demo/demomain.lrt
index 90318fb03..f18760d14 100644
--- a/components/tvplanit/examples/demo/demomain.lrt
+++ b/components/tvplanit/examples/demo/demomain.lrt
@@ -3,6 +3,7 @@ TMAINFORM.BTNNEWRES.CAPTION=New resource
 TMAINFORM.BTNEDITRES.CAPTION=Edit resource
 TMAINFORM.LABEL1.CAPTION=Language
 TMAINFORM.TABEVENTS.CAPTION=Events
+TMAINFORM.LABEL2.CAPTION=Tage
 TMAINFORM.TABTASKS.CAPTION=Tasks
 TMAINFORM.RBALLTASKS.CAPTION=All tasks
 TMAINFORM.RBHIDECOMPLETEDTASKS.CAPTION=Hide completed tasks
diff --git a/components/tvplanit/examples/demo/demomain.pas b/components/tvplanit/examples/demo/demomain.pas
index 8827df108..72220d4da 100644
--- a/components/tvplanit/examples/demo/demomain.pas
+++ b/components/tvplanit/examples/demo/demomain.pas
@@ -20,11 +20,13 @@ type
     CbLanguages: TComboBox;
     ImageList1: TImageList;
     Label1: TLabel;
+    Label2: TLabel;
     Memo1: TMemo;
     PageControl1: TPageControl;
     Panel1: TPanel;
     Panel2: TPanel;
     Panel3: TPanel;
+    DaySelectorPanel: TPanel;
     RbAllTasks: TRadioButton;
     RbHideCompletedTasks: TRadioButton;
     Splitter2: TSplitter;
@@ -33,6 +35,7 @@ type
     TabContacts: TTabSheet;
     TabInfo: TTabSheet;
     TabTasks: TTabSheet;
+    TrackBar1: TTrackBar;
     VpBufDSDataStore1: TVpBufDSDataStore;
     VpContactButtonBar1: TVpContactButtonBar;
     VpContactGrid1: TVpContactGrid;
@@ -51,6 +54,7 @@ type
     procedure FormCreate(Sender: TObject);
     procedure RbAllTasksChange(Sender: TObject);
     procedure RbHideCompletedTasksChange(Sender: TObject);
+    procedure TrackBar1Change(Sender: TObject);
     procedure VpNavBar1ItemClick(Sender: TObject; Button: TMouseButton;
       Shift: TShiftState; Index: Integer);
   private
@@ -363,6 +367,11 @@ begin
   Invalidate;
 end;
 
+procedure TMainForm.TrackBar1Change(Sender: TObject);
+begin
+  VpDayView1.NumDays := Trackbar1.Position;
+end;
+
 procedure TMainForm.VpNavBar1ItemClick(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; Index: Integer);
 
@@ -379,6 +388,8 @@ procedure TMainForm.VpNavBar1ItemClick(Sender: TObject; Button: TMouseButton;
     Splitter3.Show;
     Splitter3.Left := Width;
     VpWeekView1.Show;
+    DaySelectorPanel.Hide;
+    VpDayView1.NumDays := 1;
   end;
 
   procedure ShowEventsPerMonth;
@@ -390,6 +401,7 @@ procedure TMainForm.VpNavBar1ItemClick(Sender: TObject; Button: TMouseButton;
     VpMonthView1.Parent := TabEvents;
     VpMonthView1.Align := alClient;
     VpMonthView1.Show;
+    DaySelectorPanel.Hide;
   end;
 
   procedure ShowEventsPerWeek;
@@ -400,6 +412,7 @@ procedure TMainForm.VpNavBar1ItemClick(Sender: TObject; Button: TMouseButton;
     VpMonthView1.Hide;
     VpDayView1.Hide;
     VpWeekView1.Show;
+    DaySelectorPanel.Hide;
   end;
 
   procedure ShowEventsPerDay;
@@ -411,6 +424,9 @@ procedure TMainForm.VpNavBar1ItemClick(Sender: TObject; Button: TMouseButton;
     VpDayView1.Parent := TabEvents;
     VpDayView1.Align := alClient;
     VpDayView1.Show;
+    DaySelectorPanel.Parent := TabEvents;
+    DaySelectorPanel.Show;
+    VpDayView1.NumDays := Trackbar1.Position;
   end;
 
   procedure ShowTasks;
diff --git a/components/tvplanit/languages/demo.de.po b/components/tvplanit/languages/demo.de.po
index 7426b727f..b148a56d2 100644
--- a/components/tvplanit/languages/demo.de.po
+++ b/components/tvplanit/languages/demo.de.po
@@ -27,6 +27,10 @@ msgstr "Turbo Power VisualPlanIt Demo"
 msgid "Language"
 msgstr "Sprache"
 
+#: tmainform.label2.caption
+msgid "Tage"
+msgstr ""
+
 #: tmainform.rballtasks.caption
 msgid "All tasks"
 msgstr "Alle Aufgaben"
diff --git a/components/tvplanit/languages/demo.po b/components/tvplanit/languages/demo.po
index 9df94b4bb..4873a348c 100644
--- a/components/tvplanit/languages/demo.po
+++ b/components/tvplanit/languages/demo.po
@@ -17,6 +17,10 @@ msgstr ""
 msgid "Language"
 msgstr ""
 
+#: tmainform.label2.caption
+msgid "Tage"
+msgstr ""
+
 #: tmainform.rballtasks.caption
 msgid "All tasks"
 msgstr ""