You've already forked lazarus-ccr
7e962a585f
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5119 8e941d3f-bd1b-0410-a28a-d453659cc2b4
130 lines
2.9 KiB
ObjectPascal
130 lines
2.9 KiB
ObjectPascal
unit Unit1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
|
|
StdCtrls, VpBaseDS,
|
|
//VpBufDS,
|
|
VpmORMotDS,
|
|
VpDayView, VpWeekView, VpMonthView;
|
|
|
|
type
|
|
|
|
{ TForm1 }
|
|
|
|
TForm1 = class(TForm)
|
|
Panel1: TPanel;
|
|
Timer1: TTimer;
|
|
procedure Button1Click(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure Timer1Timer(Sender: TObject);
|
|
private
|
|
TerminateTimer:boolean;
|
|
Datastore: TVpmORMotDatastore;
|
|
//Datastore: TVpBufDSDatastore;
|
|
ControlLink: TVpControlLink;
|
|
WeekView: TVpWeekView;
|
|
DayView: TVpDayView;
|
|
MonthView: TVpMonthView;
|
|
combo: TVpResourceCombo;
|
|
public
|
|
end;
|
|
|
|
var
|
|
Form1: TForm1;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TForm1 }
|
|
|
|
procedure TForm1.FormCreate(Sender: TObject);
|
|
begin
|
|
TerminateTimer:=false;
|
|
|
|
ControlLink := TVpControlLink.Create(self);
|
|
|
|
Datastore := TVpmORMotDatastore.Create(self);
|
|
// if the HostIP is set, it will look for a running server on this IP address when connecting.
|
|
// leave blank (comment out) for a local (and private) database
|
|
//DataStore.HostIP:='localhost';
|
|
|
|
Datastore.Directory:='data';
|
|
Datastore.Connected := true;
|
|
|
|
if (Length(Datastore.HostIP)>0) AND (NOT Datastore.Connected) then
|
|
begin
|
|
MessageDlg('Cannot connect with server', mtError, [mbOk], 0);
|
|
Close;
|
|
end;
|
|
|
|
|
|
//Datastore := TVpBufDSDatastore.Create(self);
|
|
//Datastore.Directory := '.';
|
|
//Datastore.AutoCreate := true;
|
|
//Datastore.Connected := true;
|
|
|
|
DayView := TVpDayview.Create(self);
|
|
DayView.Parent := self;
|
|
DayView.Align := alLeft;
|
|
DayView.ControlLink := ControlLink;
|
|
DayView.Datastore := Datastore;
|
|
DayView.AllowDragAndDrop:=True;
|
|
|
|
WeekView := TVpWeekView.Create(self);
|
|
WeekView.Parent := self;
|
|
Weekview.Align := alClient;
|
|
WeekView.ControlLink := ControlLink;
|
|
WeekView.Datastore := Datastore;
|
|
|
|
MonthView := TVpMonthView.Create(self);
|
|
MonthView.Parent := self;
|
|
MonthView.Align := alRight;
|
|
MonthView.ControlLink := ControlLink;
|
|
MonthView.Datastore := Datastore;
|
|
|
|
Combo := TVpResourceCombo.Create(Self);
|
|
Combo.Parent := Panel1;
|
|
Combo.Left := 8;
|
|
Combo.Top := 8;
|
|
Combo.Width := 200;
|
|
Combo.Datastore := Datastore;
|
|
|
|
if Datastore.Resources.Count > 0 then
|
|
Datastore.ResourceID := Datastore.Resources.Items[0].ResourceID;
|
|
|
|
Timer1.Enabled:=True;
|
|
end;
|
|
|
|
procedure TForm1.Button1Click(Sender: TObject);
|
|
begin
|
|
{
|
|
with DataStore.GetEventsTable do
|
|
begin
|
|
Memo1.Lines.Append(InttoStr(RecordCount));
|
|
if BOF then Memo1.Lines.Append('BOF');
|
|
if EOF then Memo1.Lines.Append('EOF');
|
|
Refresh;
|
|
if BOF then Memo1.Lines.Append('BOF');
|
|
if EOF then Memo1.Lines.Append('EOF');
|
|
Resync([]);
|
|
if BOF then Memo1.Lines.Append('BOF');
|
|
if EOF then Memo1.Lines.Append('EOF');
|
|
end;
|
|
}
|
|
end;
|
|
|
|
procedure TForm1.Timer1Timer(Sender: TObject);
|
|
begin
|
|
Timer1.Enabled:=False;
|
|
Datastore.CheckUpdate;
|
|
Timer1.Enabled:=True;
|
|
end;
|
|
|
|
end.
|
|
|