pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

cancel button for close popup calendar for TRxDateEdit

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@332 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2008-01-29 18:17:55 +00:00
parent 53d593d66d
commit b46d30d9bb
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/rx/pickdate.pas
View File

@ -162,6 +162,7 @@ type
procedure MonthMenuClick(Sender: TObject); procedure MonthMenuClick(Sender: TObject);
procedure CalendarDblClick(Sender: TObject); procedure CalendarDblClick(Sender: TObject);
protected protected
FCloseBtn:TBitBtn;
FControlPanel:TPanel; FControlPanel:TPanel;
procedure KeyDown(var Key: Word; Shift: TShiftState); override; procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure KeyPress(var Key: Char); override; procedure KeyPress(var Key: Char); override;
@ -848,6 +849,12 @@ begin
OnDblClick := @CalendarDblClick; OnDblClick := @CalendarDblClick;
end; end;
FCloseBtn:=TBitBtn.Create(Self);
FCloseBtn.Parent := BackPanel;
FCloseBtn.Kind:=bkCancel;
FCloseBtn.Align:=alBottom;
FCloseBtn.AutoSize:=true;
FBtns[0] := TRxTimerSpeedButton.Create(Self); FBtns[0] := TRxTimerSpeedButton.Create(Self);
with FBtns[0] do with FBtns[0] do
begin begin
@ -915,7 +922,7 @@ end;
procedure TPopupCalendar.AutoSizeForm; procedure TPopupCalendar.AutoSizeForm;
begin begin
FControlPanel.Height:=FCalendar.Canvas.TextHeight('Wg')+4; 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; Width:=FCalendar.Canvas.TextWidth('WWW')*7;
FCalendar.AutoFillColumns:=true; FCalendar.AutoFillColumns:=true;
end; end;