paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 14:38:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: calendar popup form should have pmActive popup mode to be on top of parent stayontop forms (#0010092)

Browse Source 
git-svn-id: trunk@25102 -
This commit is contained in:
paul 2010-05-01 16:08:11 +00:00
parent 1cdf3fb984
commit c406896b08
2 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/forms/calendarpopup.lfm
View File

@ -3,7 +3,6 @@ object CalendarPopupForm: TCalendarPopupForm
Height = 192
Top = 259
Width = 233
ActiveControl = Calendar
AutoSize = True
BorderIcons = [biMinimize, biMaximize]
BorderStyle = bsNone
@ -12,12 +11,13 @@ object CalendarPopupForm: TCalendarPopupForm
ClientWidth = 233
OnClose = FormClose
OnDeactivate = FormDeactivate
LCLVersion = '0.9.27'
PopupMode = pmAuto
LCLVersion = '0.9.29'
object Calendar: TCalendar
Left = 1
Height = 190
Height = 153
Top = 1
Width = 231
Width = 162
AutoSize = True
BorderSpacing.Around = 1
DateTime = 38823

11
lcl/forms/calendarpopup.pas
View File

@ -26,11 +26,10 @@ unit CalendarPopup;
interface
uses
Classes, SysUtils, LCLProc, Forms, Controls, Graphics, Dialogs,
Calendar, LCLType;
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Calendar, LCLProc, LCLType;
type
TReturnDateEvent = procedure (Sender: TObject;const Date: TDateTime) of object;
TReturnDateEvent = procedure (Sender: TObject; const Date: TDateTime) of object;
{ TCalendarPopupForm }
@ -46,8 +45,7 @@ type
procedure Initialize(const PopupOrigin: TPoint; ADate: TDateTime);
procedure ReturnDate;
protected
procedure Paint;override;
public
procedure Paint; override;
end;
procedure ShowCalendarPopup(const Position: TPoint; ADate: TDateTime;
@ -102,7 +100,8 @@ procedure TCalendarPopupForm.CalendarKeyDown(Sender: TObject; var Key: Word;
var
Handled: Boolean;
begin
if Shift=[] then begin
if Shift=[] then
begin
Handled := true;
case Key of
VK_ESCAPE: