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

tvplanit: Extend demo to show several days in DayView

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4803 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-22 14:28:19 +00:00
parent a4f762c4d4
commit 38be775a00
5 changed files with 58 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
components/tvplanit/examples/demo/demomain.lfm
View File

@ -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

1
components/tvplanit/examples/demo/demomain.lrt
View File

@ -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

16
components/tvplanit/examples/demo/demomain.pas
View File

@ -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;

4
components/tvplanit/languages/demo.de.po
View File

@ -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"

4
components/tvplanit/languages/demo.po
View File

@ -17,6 +17,10 @@ msgstr ""
msgid "Language"
msgstr ""
#: tmainform.label2.caption
msgid "Tage"
msgstr ""
#: tmainform.rballtasks.caption
msgid "All tasks"
msgstr ""