Компонента для выбора даты - C++ Builder - Ответ 1888443

//---------------------------------------------------------------------------
 
#ifndef EvgCustomPanelH
#define EvgCustomPanelH
//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <Controls.hpp>
#include <ExtCtrls.hpp>
 
#define EDP_DEFAULT_BUTTON_WIDTH 25
#define EDP_DEFAULT_PANEL_HEIGHT 21
 
//---------------------------------------------------------------------------
class PACKAGE TEvgDatePanel : public TCustomPanel {
private:
 
    void __fastcall SetText(AnsiString val);
 
    AnsiString __fastcall GetText();
 
    int iFBtnWidth;
 
    TEdit *edp_Edit;
    TButton *edp_Button;
    TMonthCalendar *edp_MonthCalendar;
    TForm *edp_MonthForm;
 
    TButton *edp_ButtonOk;
    TButton *edp_ButtonCancel;
 
    void __fastcall edp_OnBtnClick(TObject *Sender);
    void __fastcall edp_OnMonthCalendarOkClick(TObject *Sender);
    void __fastcall edp_OnMonthCalendarCnclClick(TObject *Sender);
 
    void __fastcall SetButtonWidth(int val);
    int __fastcall GetButtonWidth();
 
    void __fastcall SetHeight(int val);
    int __fastcall GetHeight();
protected:
 
    virtual void __fastcall edp_OnDeactivateMonthForm(TObject *Sender);
 
public:
 
    __fastcall TEvgDatePanel(TComponent* Owner);
    __fastcall ~TEvgDatePanel();
 
__published:
    __property int ButtonWidth = {read=GetButtonWidth, write=SetButtonWidth, default=EDP_DEFAULT_BUTTON_WIDTH};
    __property AnsiString Text = {read=GetText, write=SetText};
    __property Align = {default=0};
    __property Anchors = {default=3};
    __property Constraints;
    __property Enabled = {default=1};
    __property PopupMenu;
    __property ShowHint;
    __property TabOrder = {default=-1};
    __property TabStop = {default=0};
    __property Touch;
    __property Visible = {default=1};
};
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------
 
#include <vcl.h>
 
#pragma hdrstop
 
#include "EvgCustomPanel.h"
#pragma package(smart_init)
//---------------------------------------------------------------------------
// ValidCtrCheck is used to assure that the components created do not have
// any pure virtual functions.
//
 
static inline void ValidCtrCheck(TEvgDatePanel *) {
    new TEvgDatePanel(NULL);
}
 
//---------------------------------------------------------------------------
__fastcall TEvgDatePanel::TEvgDatePanel(TComponent* Owner) : TCustomPanel(Owner) {
 
    iFBtnWidth = EDP_DEFAULT_BUTTON_WIDTH;
 
    this->BevelKind = TBevelKind::bkNone;
    this->BevelOuter = TBevelCut::bvNone;
    this->Height = EDP_DEFAULT_PANEL_HEIGHT;
 
    edp_Button = new TButton(this);
    edp_Button->Parent = this;
    edp_Button->Width = iFBtnWidth;
    edp_Button->Align = alRight;
    edp_Button->OnClick = &edp_OnBtnClick;
 
    edp_Edit = new TEdit(this);
    edp_Edit->Parent = this;
    edp_Edit->Align = alClient;
 
    edp_MonthForm = new TForm(this);
    edp_MonthForm->BorderStyle = TFormBorderStyle::bsNone;
    edp_MonthForm->FormStyle = fsStayOnTop;
    edp_MonthForm->Position = poDesigned;
    edp_MonthForm->OnDeactivate = &edp_OnDeactivateMonthForm;
 
    const int iMonthCalBorder = 14; // учитываем рамку календаря при создании
    edp_MonthCalendar = new TMonthCalendar(this);
    edp_MonthCalendar->Parent = edp_MonthForm;
    edp_MonthCalendar->Left = -iMonthCalBorder;
    edp_MonthCalendar->Top = 0;
 
    edp_MonthForm->Width = edp_MonthCalendar->Width - iMonthCalBorder * 2;
 
    edp_ButtonOk = new TButton(edp_MonthForm);
    edp_ButtonOk->Parent = edp_MonthForm;
    edp_ButtonOk->Left = 0;
    edp_ButtonOk->Top = edp_MonthCalendar->Height;
    edp_ButtonOk->Width = edp_MonthForm->Width / 2;
    edp_ButtonOk->Caption = "OK";
    edp_ButtonOk->OnClick = &edp_OnMonthCalendarOkClick;
    // форма сама потом удалит компонент
    edp_MonthForm->InsertComponent(edp_ButtonOk);
 
    edp_ButtonCancel = new TButton(edp_MonthForm);
    edp_ButtonCancel->Parent = edp_MonthForm;
    edp_ButtonCancel->Top = edp_MonthCalendar->Height;
    edp_ButtonCancel->Left = edp_ButtonOk->BoundsRect.Right + 3;
    edp_ButtonCancel->Width = edp_MonthForm->Width / 2 - 3;
    edp_ButtonCancel->Caption = "Cancel";
    edp_ButtonCancel->OnClick = &edp_OnMonthCalendarCnclClick;
    // форма сама потом удалит компонент
    edp_MonthForm->InsertComponent(edp_ButtonCancel);
 
    edp_MonthForm->Height = edp_MonthCalendar->Height + edp_ButtonOk->Height;
 
}
 
//---------------------------------------------------------------------------
__fastcall TEvgDatePanel::~TEvgDatePanel() {
    if (edp_MonthCalendar) {
        delete edp_MonthCalendar;
    }
    if (edp_MonthForm) {
        delete edp_MonthForm;
    }
    if (edp_Button) {
        delete edp_Button;
    }
    if (edp_Edit) {
        delete edp_Edit;
    }
}
 
//---------------------------------------------------------------------------
void __fastcall TEvgDatePanel::edp_OnDeactivateMonthForm(TObject *Sender) {
    edp_MonthForm->Hide();
}
 
//---------------------------------------------------------------------------
void __fastcall TEvgDatePanel::edp_OnBtnClick(TObject *Sender) {
    if (!edp_MonthForm->Showing) {
        // получаем экранные координаты кнопки
        const TPoint ptBtnScreen = ClientToScreen(TPoint(edp_Button->Left,
                edp_Button->Top));
 
        edp_MonthForm->Left = ptBtnScreen.x;
        edp_MonthForm->Top = ptBtnScreen.y + edp_Button->Height;
        // в календаре установим дату из Edit
        edp_MonthCalendar->Date = StrToDateTimeDef(edp_Edit->Text, Now());
        edp_MonthForm->Show();
    }
}
 
//---------------------------------------------------------------------------
void __fastcall TEvgDatePanel::edp_OnMonthCalendarOkClick(TObject *Sender) {
    edp_Edit->Text = edp_MonthCalendar->Date.DateString();
    edp_MonthForm->Hide();
}
 
//---------------------------------------------------------------------------
void __fastcall TEvgDatePanel::edp_OnMonthCalendarCnclClick(TObject *Sender) {
    edp_MonthForm->Hide();
}
 
//---------------------------------------------------------------------------
void __fastcall TEvgDatePanel::SetButtonWidth(int val) {
    iFBtnWidth = val;
    if (edp_Button) {
        edp_Button->Width = iFBtnWidth;
    }
}
 
//---------------------------------------------------------------------------
int __fastcall TEvgDatePanel::GetButtonWidth() {
    return iFBtnWidth;
}
 
//---------------------------------------------------------------------------
 
//---------------------------------------------------------------------------
namespace Evgcustompanel {
    void __fastcall PACKAGE Register() {
        TComponentClass classes[1] = {
            __classid(TEvgDatePanel)
        };
        RegisterComponents(L"Samples", classes, 0);
    }
}
 
//---------------------------------------------------------------------------
void __fastcall TEvgDatePanel::SetText(AnsiString val) {
    if (edp_Edit) {
        edp_Edit->Text = val;
    }
}
 
//---------------------------------------------------------------------------
AnsiString __fastcall TEvgDatePanel::GetText() {
    return edp_Edit->Text;
}
//---------------------------------------------------------------------------