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

tvplanit: Add tutorial sources (see wiki). Improved painting of "today" in MonthView.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5062 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-08-01 17:09:52 +00:00
parent 2b1c2a58cb
commit 9bf2b8f260
6 changed files with 407 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
components/tvplanit/examples/tutorial/unit1.pas Normal file
View File

@ -0,0 +1,54 @@
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
VpDayView, VpMonthView, VpTaskList, VpContactGrid, VpContactButtons,
VpWeekView, VpIniDs, VpBaseDS, VpXmlDs;
type
{ TForm1 }
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
VpContactButtonBar1: TVpContactButtonBar;
VpContactGrid1: TVpContactGrid;
VpControlLink1: TVpControlLink;
VpDayView1: TVpDayView;
VpMonthView1: TVpMonthView;
VpTaskList1: TVpTaskList;
VpWeekView1: TVpWeekView;
VpXmlDatastore1: TVpXmlDatastore;
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
VpXmlDatastore1.Filename := 'data.xml';
VpXmlDatastore1.Connected := true;
if VpXmlDatastore1.Resources.Count > 0 then
VpXmlDatastore1.Resource := VpXmlDatastore1.Resources.Items[0];
end;
end.