unit Kalender;
interface
uses
SysUtils, Classes, Controls, Graphics, Messages, Windows, Dialogs, StdCtrls,
Calc, MyButton;
type
TKalender = class(TCustomControl)
private
FNextButton: TMyButton;
FBackButton: TMyButton;
procedure CanvasLastDays;
procedure CanvasNextDays;
procedure CanvasDays;
{ Private-Deklarationen }
protected
{ Protected-Deklarationen }
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LBUTTONDOWN;
procedure WMLButtonUp(var Message: TWMLButtonUp); message WM_LBUTTONUP;
procedure NextButtonClick(Sender: TObject);
procedure BackButtonClick(Sender: TObject);
{ Public-Deklarationen }
published
property Enabled;
property Font;
property ShowHint;
property Visible;
property OnClick;
property OnMouseDown;
property OnMouseUp;
Property NextButton: TMyButton read FNextButton;
property BackButton: TMyButton read FBackButton;
{ Published-Deklarationen }
end;
procedure Register;