Hello
I tried to reproduce the error using EhLib Demos\PlannerEh.MainDemo\ project.
But I can't.
Here are the steps:
1. Create new event
Code:
procedure TfrFrameOne.Button1Click(Sender: TObject);
var
StartTime, EndTime: TDateTime;
PlanItem: TPlannerDataItemEh;
AResource: TPlannerResourceEh;
begin
if PlannerControlEh1.NewItemParams(StartTime, EndTime, AResource) then
begin
PlanItem := PlannerControlEh1.PlannerDataSource.NewItem;
PlanItem.Title := 'New Item';
PlanItem.Body := '';
PlanItem.AllDay := False;
PlanItem.StartTime := StartTime;
PlanItem.FillColor := clGreen;
PlanItem.EndTime := EndTime;
PlanItem.EndEdit(True);
end;
end;
Result:
Attachment:
sshot-132.png [ 16.79 KiB | Viewed 890 times ]
Step2 change event color:
Code:
procedure TfrFrameOne.Button2Click(Sender: TObject);
var
PlanItem: TPlannerDataItemEh;
begin
PlanItem := PlannerControlEh1.PlannerDataSource.Items[0];
PlanItem.BeginEdit;
PlanItem.FillColor := clRed;
PlanItem.EndEdit(True);
end;
Result:
Attachment:
sshot-133.png [ 15.74 KiB | Viewed 890 times ]
Event color changes every time.
Login
Register
FAQ
Search
