From b46d30d9bb0f1efec66ba9d835c71b94a588a09b Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 29 Jan 2008 18:17:55 +0000
Subject: [PATCH] cancel button for close popup calendar for TRxDateEdit

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@332 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/pickdate.pas | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/components/rx/pickdate.pas b/components/rx/pickdate.pas
index d083224c9..247c886e8 100644
--- a/components/rx/pickdate.pas
+++ b/components/rx/pickdate.pas
@@ -162,6 +162,7 @@ type
     procedure MonthMenuClick(Sender: TObject);
     procedure CalendarDblClick(Sender: TObject);
   protected
+    FCloseBtn:TBitBtn;
     FControlPanel:TPanel;
     procedure KeyDown(var Key: Word; Shift: TShiftState); override;
     procedure KeyPress(var Key: Char); override;
@@ -848,6 +849,12 @@ begin
     OnDblClick := @CalendarDblClick;
   end;
 
+  FCloseBtn:=TBitBtn.Create(Self);
+  FCloseBtn.Parent := BackPanel;
+  FCloseBtn.Kind:=bkCancel;
+  FCloseBtn.Align:=alBottom;
+  FCloseBtn.AutoSize:=true;
+
   FBtns[0] := TRxTimerSpeedButton.Create(Self);
   with FBtns[0] do
   begin
@@ -915,7 +922,7 @@ end;
 procedure TPopupCalendar.AutoSizeForm;
 begin
   FControlPanel.Height:=FCalendar.Canvas.TextHeight('Wg')+4;
-  Height:=(FCalendar.Canvas.TextHeight('Wg')+4)*7+FControlPanel.Height;
+  Height:=(FCalendar.Canvas.TextHeight('Wg')+4)*7+FControlPanel.Height + FCloseBtn.Height;
   Width:=FCalendar.Canvas.TextWidth('WWW')*7;
   FCalendar.AutoFillColumns:=true;
 end;