unit AyYil;
 
interface
 
uses
 windows,SysUtils, Classes, Controls, ExtCtrls, ComCtrls, Mask, StdCtrls;
 
type
 
 TOptionBtn=(SMaxDt,SMixDt,BtnOncekiAy,BtnSonrakiAy,BtnOncekiYil,BtnSonrakiYil);
 TOptionsBtn = set of TOptionBtn;
 
 TREdit = class(TEdit)
    private
 published
  property Align;
 end;
 
 TRButon = class(TButton)
 published
  property Align;
 end;
 
 TAyYil = class(TPanel)
 private
  Tarih,FMaxDt,FMinDt:TDate;
  FOptionsBtn: TOptionsBtn;
  OYil,OAy,SAy,SYil:TRButon;
  Yaz:TREdit;
  procedure SetMaxDt(Value:TDate);
  procedure SetMixDt(Value:TDate);
  procedure SetOptionsBtn(Value: TOptionsBtn);
  function GYilAy:String;
  { Private declarations }
 protected
  procedure Loaded; override;
  procedure OYilClick(sender:TObject);
  procedure OAyClick(sender:TObject);
  procedure SYilClick(sender:TObject);
  procedure SAyClick(sender:TObject);
  procedure edityaz;
  { Protected declarations }
 public
  constructor Create(AOwner: TComponent); override;
  destructor Destroy; override;
  function YilAyVer(Value:TDateTime):String;
  function TarihDegistir(Value: TDate):Tdate;
  function OncekiAy:TDate;
  function SonrakiAy:TDate;
  function OncekiYil:TDate;
  function SonrakiYil:TDate;
 
  { Public declarations }
 published
  property YilAy:String read GYilAy;
  property Gun:TDate read Tarih;
  property OptionsBtn:TOptionsBtn read FOptionsBtn write SetOptionsBtn;
  property MaxDt:TDate read FMaxDt write SetMaxDt;
  property MinDt:TDate read FMinDt write SetMixDt;
  { Published declarations }
 end;
 
procedure Register;
 
implementation
 
uses DateUtils;
 
procedure Register;
begin
 RegisterComponents('editler', [TAyYil]);
end;
 
{ TAyYil }
 
constructor TAyYil.Create(AOwner: TComponent);
var x:Integer;
begin
 inherited Create(AOwner);
 Height:=25;
 x:=18;
 SetOptionsBtn([BtnOncekiAy,BtnSonrakiAy]);
 Yaz:=TREdit.Create(Self);
 yaz.ReadOnly:=True;
 
 OYil:=TRButon.Create(Self);
 OAy:=TRButon.Create(Self);
 SYil:=TRButon.Create(Self);
 SAy:=TRButon.Create(Self);
 
 Yaz.Parent:=Self;
 OYil.Parent:=Self;
 OAy.Parent:=Self;
 SYil.Parent:=Self;
 SAy.Parent:=Self;
 
 Yaz.Align:=alClient;
 OYil.Align:=alLeft;
 OAy.Align:=alLeft;
 SYil.Align:=alRight;
 SAy.Align:=alRight;
 
 OYil.Width:=x;
 OAy.Width:=x;
 SYil.Width:=x;
 SAy.Width:=x;
 
 OYil.Caption:='<<';
 OAy.Caption:='<';
 SAy.Caption:='>';
 SYil.Caption:='>>';
 
 OYil.Left:=0;
 OAy.Left:=OYil.Width+1;
 SYil.Left:=Width;
 SAy.Left:=SYil.Left-1;
 
 OYil.OnClick:=OYilClick;
 OAy.OnClick:=OAyClick;
 SYil.OnClick:=SYilClick;
 SAy.OnClick:=SAyClick;
 
 OYil.Visible:=False;
 OAy.Visible:=True;
 SAy.Visible:=True;
 SYil.Visible:=False;
 
 Loaded;
end;
 
destructor TAyYil.Destroy;
begin
 Yaz.Free;
 OYil.Free;
 OAy.Free;
 SYil.Free;
 SAy.Free;
 inherited;
end;
 
 
procedure TAyYil.edityaz;
begin
Yaz.Text:=copy(DateToStr(Tarih),7,4)+copy(DateToStr(Tarih),4,2);
end;
 
 
function TAyYil.GYilAy: String;
begin
Result:=Yaz.Text;
end;
 
procedure TAyYil.Loaded;
begin
 inherited;
Tarih:=Date;
Tarih:=StrToDate('01.'+copy(DateToStr(Tarih),4,2)+'.'+copy(DateToStr(Tarih),7,4));
edityaz;
OAy.Visible:=(BtnOncekiAy in OptionsBtn);
SAy.Visible:=(BtnSonrakiAy in OptionsBtn);
OYil.Visible:=(BtnOncekiYil in OptionsBtn);
SYil.Visible:=(BtnSonrakiYil in OptionsBtn);
end;
 
procedure TAyYil.OAyClick(sender: TObject);
begin
Tarih:=IncMonth(Tarih,-1);
if (SMixDt in OptionsBtn) then
 if Tarih<MinDt then
  Tarih:=MinDt;
edityaz;
if Assigned (OnClick) then  OnClick(self);
end;
 
function TAyYil.OncekiAy: TDate;
begin
Result:=IncMonth(Tarih,-1);
end;
 
function TAyYil.OncekiYil: TDate;
begin
Result:=IncYear(Tarih,-1);
end;
 
procedure TAyYil.OYilClick(sender: TObject);
begin
Tarih:=IncYear(Tarih,-1);
if (SMixDt in OptionsBtn) then
 if Tarih<MinDt then
  Tarih:=MinDt;
edityaz;
if Assigned (OnClick) then  OnClick(self);
end;
 
procedure TAyYil.SAyClick(sender: TObject);
begin
Tarih:=IncMonth(Tarih,1);
if (SMaxDt in OptionsBtn) then
 if Tarih>MaxDt then
  Tarih:=MaxDt;
edityaz;
if Assigned (OnClick) then  OnClick(self);
end;
 
 
procedure TAyYil.SetMaxDt(Value: TDate);
begin
FMaxDt:=Value;
end;
 
procedure TAyYil.SetMixDt(Value: TDate);
begin
FMinDt:=Value;
end;
 
procedure TAyYil.SetOptionsBtn(Value: TOptionsBtn);
begin
FOptionsBtn:=Value;
end;
 
function TAyYil.SonrakiAy: TDate;
begin
Result:=IncMonth(Tarih,1);
end;
 
function TAyYil.SonrakiYil: TDate;
begin
Result:=IncYear(Tarih,1);
end;
 
procedure TAyYil.SYilClick(sender: TObject);
begin
Tarih:=IncYear(Tarih,1);
if (SMaxDt in OptionsBtn) then
 if Tarih>MaxDt then
  Tarih:=MaxDt;
edityaz;
if Assigned (OnClick) then  OnClick(self);
end;
 
function TAyYil.TarihDegistir(Value: TDate):Tdate;
begin
Tarih:=Value;
Tarih:=StrToDate('01.'+copy(DateToStr(Tarih),4,2)+'.'+copy(DateToStr(Tarih),7,4));
edityaz;
result:=Tarih;
end;
 
function TAyYil.YilAyVer(Value: TDateTime): String;
begin
Result:=copy(DateToStr(Value),7,4)+copy(DateToStr(Value),4,2);
end;
 
end.