SNEL STARTEN
Een teamplanner in een paar regels
Dezelfde API in Delphi, C++ Builder en C#: twee personen, een dagelijkse stand-up uit een herhalingsregel en een weekweergave waarin gebruikers nieuwe afspraken slepen.
Een VCL-weekplanner: twee personen als resources, een dagelijkse stand-up uit een herhalingsregel, slepen om te maken.
unit frmTeam;
interface
uses
Classes, Controls, Forms, SysUtils,
sgcUICore_Theme, sgcPlanner_Data, sgcPlanner_Scheduler,
sgcPlanner_Scheduler_VCL;
type
TFormTeam = class(TForm)
procedure FormCreate(Sender: TObject);
private
FData: TsgcPlannerData;
FScheduler: TsgcVCLScheduler;
procedure DoItemCreate(Sender: TObject; const aStart, aFinish: TDateTime;
const aResourceId: string; var aTitle: string; var aAccept: Boolean);
end;
implementation
procedure TFormTeam.FormCreate(Sender: TObject);
var
vItem: TsgcPlannerItem;
vMonday: TDateTime;
begin
vMonday := Date - DayOfWeek(Date) + 2;
FData := TsgcPlannerData.Create(Self);
FData.Resources.AddResource('ana', 'Ana').Color := $FF2563EB;
FData.Resources.AddResource('luis', 'Luis').Color := $FF0F766E;
// a daily stand-up from an iCalendar recurrence rule
vItem := FData.AddItem('standup');
vItem.Title := 'Daily stand-up';
vItem.Start := vMonday + EncodeTime(9, 0, 0, 0);
vItem.Finish := vMonday + EncodeTime(9, 15, 0, 0);
vItem.RecurrenceRule := 'FREQ=DAILY;BYDAY=MO,TU,WE,TH,FR';
vItem.Resources := 'ana,luis';
vItem := FData.AddItem('review');
vItem.Title := 'Design review';
vItem.Start := vMonday + 1 + EncodeTime(14, 0, 0, 0);
vItem.Finish := vMonday + 1 + EncodeTime(15, 30, 0, 0);
vItem.Resources := 'ana';
FScheduler := TsgcVCLScheduler.Create(Self);
FScheduler.Parent := Self;
FScheduler.Align := alClient;
FScheduler.Data := FData;
FScheduler.Theme := utDark;
FScheduler.View := psvWeek;
FScheduler.Options.DayStartHour := 8;
FScheduler.Options.DayEndHour := 18;
FScheduler.Options.GroupByResource := True;
FScheduler.OnItemCreate := DoItemCreate;
FScheduler.ScrollToTime(vMonday + EncodeTime(8, 0, 0, 0));
end;
procedure TFormTeam.DoItemCreate(Sender: TObject; const aStart,
aFinish: TDateTime; const aResourceId: string; var aTitle: string;
var aAccept: Boolean);
begin
// the user dragged an empty slot: name the new meeting
aTitle := 'New meeting';
aAccept := True;
end;
end.
Het helponderwerp lezen →
Dezelfde planner in C++ Builder.
#include <vcl.h>
#pragma hdrstop
#include <System.DateUtils.hpp>
#include "sgcUICore_Theme.hpp"
#include "sgcPlanner_Data.hpp"
#include "sgcPlanner_Scheduler.hpp"
#include "sgcPlanner_Scheduler_VCL.hpp"
class TTeamHandlers : public TObject
{
public:
// the user dragged an empty slot: name the new meeting
void __fastcall ItemCreate(TObject *Sender, const TDateTime aStart,
const TDateTime aFinish, const UnicodeString aResourceId,
UnicodeString &aTitle, bool &aAccept)
{
aTitle = "New meeting";
aAccept = true;
}
};
void __fastcall BuildTeamScheduler(TForm *Form)
{
static TTeamHandlers *vHandlers = new TTeamHandlers();
TDateTime vMonday = Date() - DayOfWeek(Date()) + 2;
TsgcPlannerData *vData = new TsgcPlannerData(Form);
vData->Resources->AddResource("ana", "Ana")->Color = 0xFF2563EB;
vData->Resources->AddResource("luis", "Luis")->Color = 0xFF0F766E;
// a daily stand-up from an iCalendar recurrence rule
TsgcPlannerItem *vItem = vData->AddItem("standup");
vItem->Title = "Daily stand-up";
vItem->Start = vMonday + EncodeTime(9, 0, 0, 0);
vItem->Finish = vMonday + EncodeTime(9, 15, 0, 0);
vItem->RecurrenceRule = "FREQ=DAILY;BYDAY=MO,TU,WE,TH,FR";
vItem->Resources = "ana,luis";
vItem = vData->AddItem("review");
vItem->Title = "Design review";
vItem->Start = vMonday + 1 + EncodeTime(14, 0, 0, 0);
vItem->Finish = vMonday + 1 + EncodeTime(15, 30, 0, 0);
vItem->Resources = "ana";
TsgcVCLScheduler *vScheduler = new TsgcVCLScheduler(Form);
vScheduler->Parent = Form;
vScheduler->Align = alClient;
vScheduler->Data = vData;
vScheduler->Theme = utDark;
vScheduler->View = psvWeek;
vScheduler->Options->DayStartHour = 8;
vScheduler->Options->DayEndHour = 18;
vScheduler->Options->GroupByResource = true;
vScheduler->OnItemCreate = vHandlers->ItemCreate;
vScheduler->ScrollToTime(vMonday + EncodeTime(8, 0, 0, 0));
}
Het helponderwerp lezen →
De C#-versie voor WinForms.
using System;
using System.Windows.Forms;
using esegece.sgcPlanner;
using esegece.sgcUICore;
namespace TeamPlanner
{
internal class MainForm : Form
{
public MainForm()
{
Text = "Team scheduler";
DateTime monday = DateTime.Today.AddDays(-(((int)DateTime.Today.DayOfWeek + 6) % 7));
var data = new TsgcPlannerData();
data.Resources.AddResource("ana", "Ana").Color = 0xFF2563EB;
data.Resources.AddResource("luis", "Luis").Color = 0xFF0F766E;
// a daily stand-up from an iCalendar recurrence rule
var item = data.AddItem("standup");
item.Title = "Daily stand-up";
item.Start = monday.AddHours(9);
item.Finish = monday.AddHours(9).AddMinutes(15);
item.RecurrenceRule = "FREQ=DAILY;BYDAY=MO,TU,WE,TH,FR";
item.Resources = "ana,luis";
item = data.AddItem("review");
item.Title = "Design review";
item.Start = monday.AddDays(1).AddHours(14);
item.Finish = monday.AddDays(1).AddHours(15.5);
item.Resources = "ana";
var scheduler = new TsgcWinFormsScheduler { Dock = DockStyle.Fill, Data = data, Theme = TsgcUITheme.utDark };
scheduler.View = TsgcPlannerSchedulerViewKind.psvWeek;
scheduler.Options.DayStartHour = 8;
scheduler.Options.DayEndHour = 18;
scheduler.Options.GroupByResource = true;
// the user dragged an empty slot: name the new meeting
scheduler.OnItemCreate = (object sender, DateTime start, DateTime finish, string resourceId,
ref string title, ref bool accept) => { title = "New meeting"; accept = true; };
Controls.Add(scheduler);
scheduler.ScrollToTime(monday.AddHours(8));
}
[STAThread]
static void Main() { Application.EnableVisualStyles(); Application.Run(new MainForm()); }
}
}
dotnet add package esegece.sgcPlanner.WinForms
Het helponderwerp lezen →
Gantt in Delphi
Drie taken, twee koppelingen, een basislijn, het kritieke pad en de planningsengine (de Gantt-functies hier zijn functies van de Registered-editie).
Herhalingsregels en de Gantt-aanroepen Schedule en SetBaseline zijn functies van de Registered-editie. De gratis Community-editie toont een terugkerend item één keer.
