TMSFNCPlanner remove border

FNC TMS FNC UI Pack
1

I am looking for the options to remove the left, right, top and bottom borders (if available) so that it can look like the calendar which is on the right side on the attached image. On the attached image, borders I want to remove are the one highlighted in orange (calendar which is on the left side).
Thank you for tour help.

Calendar
Calendar1324×872 87 KB

2

Hi,

Here is a full sample on how to achieve this

procedure TForm1.FormCreate(Sender: TObject);
begin
  TMSFNCPlanner1.Stroke.Color := TMSFNCPlanner1.Fill.Color;
  TMSFNCPlanner1.PositionsAppearance.FillEmptySpaces := False;
  TMSFNCPlanner1.FullDaysAppearance.FillEmptySpaces := False;
  TMSFNCPlanner1.GroupsAppearance.FillEmptySpaces := False;
  TMSFNCPlanner1.TimeLineAppearance.RightStroke.Kind := gskNone;
  TMSFNCPlanner1.TimeLineAppearance.LeftStroke.Kind := gskNone;
  TMSFNCPlanner1.PositionsAppearance.BottomStroke.Kind := gskNone;
  TMSFNCPlanner1.PositionsAppearance.TopStroke.Kind := gskNone;
  TMSFNCPlanner1.Interaction.TopNavigationButtons := [pnbPrevious, pnbNext];
  TMSFNCPlanner1.PositionsAppearance.TopNavigationButtonStroke.Kind := gskNone;
  TMSFNCPlanner1.PositionsAppearance.TopNavigationButtonHoverStroke.Kind := gskNone;
  TMSFNCPlanner1.PositionsAppearance.TopNavigationButtonDownStroke.Kind := gskNone;

  TMSFNCPlanner1.Color := gcWhite;
end;

procedure TForm1.TMSFNCPlanner1BeforeDrawCellVerticalLine(Sender: TObject;
  AGraphics: TTMSFNCGraphics; ARect: TRectF; ACol, ARow: Integer; AStartTime,
  AEndTime: TDateTime; APosition: Integer; AKind: TTMSFNCPlannerCacheItemKind;
  var AAllow, ADefaultDraw: Boolean);
begin
  ADefaultDraw := False;
end;
3

It works perfectly. Thank you very much.

1 Like
4

This topic was automatically closed 24 hours after the last reply. New replies are no longer allowed.