You've already forked lazarus-ccr
bab84c3523
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6508 8e941d3f-bd1b-0410-a28a-d453659cc2b4
75 lines
1.5 KiB
ObjectPascal
75 lines
1.5 KiB
ObjectPascal
unit Unit1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
|
|
VpBaseDS, VpBufDS, VpDayView, VpWeekView, VpMonthView;
|
|
|
|
type
|
|
|
|
{ TForm1 }
|
|
|
|
TForm1 = class(TForm)
|
|
Panel1: TPanel;
|
|
procedure FormCreate(Sender: TObject);
|
|
private
|
|
{ private declarations }
|
|
Datastore: TVpBufDSDatastore;
|
|
ControlLink: TVpControlLink;
|
|
WeekView: TVpWeekView;
|
|
DayView: TVpDayView;
|
|
MonthView: TVpMonthView;
|
|
combo: TVpResourceCombo;
|
|
public
|
|
{ public declarations }
|
|
end;
|
|
|
|
var
|
|
Form1: TForm1;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TForm1 }
|
|
|
|
procedure TForm1.FormCreate(Sender: TObject);
|
|
begin
|
|
Datastore := TVpBufDSDatastore.Create(self);
|
|
Datastore.Directory := '.';
|
|
Datastore.AutoCreate := true;
|
|
Datastore.Connected := true;
|
|
|
|
DayView := TVpDayview.Create(self);
|
|
DayView.Parent := self;
|
|
DayView.Align := alLeft;
|
|
|
|
WeekView := TVpWeekView.Create(self);
|
|
WeekView.Parent := self;
|
|
Weekview.Align := alClient;
|
|
|
|
MonthView := TVpMonthView.Create(self);
|
|
MonthView.Parent := self;
|
|
MonthView.Align := alRight;
|
|
|
|
Combo := TVpResourceCombo.Create(Self);
|
|
Combo.Parent := Panel1;
|
|
Combo.Width := 300;
|
|
Combo.BorderSpacing.Around := 4;
|
|
Panel1.AutoSize := true;
|
|
|
|
ControlLink := TVpControlLink.Create(self);
|
|
ControlLink.Datastore := Datastore;
|
|
// This establishes the links to all controls that depend on Datastore.
|
|
// Must be called when all dependent controls have been created.
|
|
|
|
if Datastore.Resources.Count > 0 then
|
|
Datastore.Resource := Datastore.Resources.Items[0];
|
|
end;
|
|
|
|
end.
|
|
|