델파이에 새로 추가된 달력 콤포넌트중..

TCalendarView, TCalendarPicker 콤포넌트에 대해서 전에 제가 얘기한 버그와 기능을 직관적으로 수정된 내용을 알려드립니다.

TCalendarView

이 콤포넌트는 기존에 싱글선택기능시 더블클릭하면 선택된게 해제됩니다.

어떻게 보면 두번 클릭했으니, 선택하고 선택해제 하고 이런 동작이 맞습니다.

그런데 실무에 적용해 보면.. 대부분 컴퓨터를 모르는 분들이나 기타 업무에 사용하시는 분들인 경우

무조건 더블클릭을 합니다. 그러다보니..

선택이 안 된다고 항의하는 경우가 종종있습니다.

이 콤포넌트는 기능도 좋고, 적절한 애니메이션 효과에 시각적으로 뛰어나 사용을 안하면 손해입니다.

그래서, 더블클릭시에도 선택이 유지되도록 수정을 하는 방법을 알려드립니다.

물론 다중선택시에는 기존과 같습니다.

방법.

Vcl.WinXCalendars 유닛의 소스를 열어서 아래부분을 수정하여 컴파일 후 사용하시면 됩니다.

TCustomCalendarView 의 ClickOnDate(const ADate: TDate)함수를 찾아서

아래처럼 수정하시면 됩니다.

원소스

      TSelectionMode.smSingle:
      begin
        if IsDateSelected(ADate) then RemoveFromSelectedDates(ADate)
        else begin
          if SelectionCount > 0 then FSelectedDates.Clear;
          AddToSelectedDates(ADate);
        end;
      end;

수정소스

      TSelectionMode.smSingle:
      begin
        if not IsDateSelected(ADate) then
        begin
          if SelectionCount > 0 then FSelectedDates.Clear;
          AddToSelectedDates(ADate);
        end;
      end;

TCalendarPicker

이 컴포넌트의 위의 달력컴포넌트를 이용해서 날짜를 선택할 수 있도록 하는 콤보박스 콤포넌트입니다.

플랫 디자인이 적용되어 모던한 UI를 보여주는 콤포넌트로 시각적으로 기존 달력콤포넌트와 비교할 수 없습니다.

기존에는 버그로(전에 이 게시판에 버그레포팅을 하였음에도 수정되지 않았네요) 팝업 윈도우의 폼을 fsStayOnTop 값으로 둔 상태로 Show 해서 오픈할 경우, 콤보상자 선택시 나오는 TCalendarView 콤포넌트가 윈도우 뒤로 숨는 버그입니다.

이 버그로 인해 거의 사용을 안하다가, 시간이 나서 원소스를 보다가 버그가 있는 부분을 찾아서 수정후 테스트해보니 정상적으로 동작함을 확인했습니다.

방법

Vcl.WinXCalendars 유닛의 소스를 열어서 아래부분을 수정하여 컴파일 후 사용하시면 됩니다.

TCustomCalendarPicker 클래스의 Create 생성자 함수부분을 수정하시면 됩니다.

원소스

  FCalendarView := TPopupCalendarView.Create(Self);
  FCalendarView.TabStop := False;
  FCalendarView.OnChange := CalendarViewChange;
  FCalendarView.DisplayMode := TDisplayMode.dmMonth;
  FCalendarView.SelectionMode := TSelectionMode.smSingle;

수정소스

  위의 원소스 다음항목에 아래 항목을 추가하신 후 컴파일 후 사용하시면 됩니다.

  SetWindowPos(FCalendarView.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE or SWP_NOOWNERZORDER);

도움이 되기를 바라면서...