I will change the contents of the item of TDBPlannerMonthView. Click on TDBPlannerMonthView.
TDBPlannerMonthView does not call dbpmwMonthItemToFields!
TDBPlanner-s are OK
The Planner functions are common to all three Planners
Your Demo23 doesn't work the same way
procedure TfrmPlannerRole.dbpmwMonthFieldsToItem(Sender: TObject; Fields: TFields; Item: TPlannerItem);
begin
if not fdtblPlanner.FieldByName('COLOR').IsNull then
begin
Item.Color := TColor(fdtblPlanner.FieldByName('COLOR').AsInteger);
Item.ColorTo := Item.Color;
end;
Item.CaptionType := TCaptionType(fdtblPlanner.FieldByName('CAPTIONTYPE').AsInteger);
Item.Shape := TPlannerShape(fdtblPlanner.FieldByName('SHAPE').AsInteger);
end;
procedure TfrmPlannerRole.dbpmwMonthItemToFields(Sender: TObject; Fields: TFields; Item: TPlannerItem);
begin
Fields.FieldByName('COLOR').AsInteger := Item.Color;
Fields.FieldByName('CAPTIONTYPE').AsInteger := Ord(TCaptionType(Item.CaptionType));
Fields.FieldByName('SHAPE').AsInteger := Ord(TPlannerShape(Item.Shape));
end;
