paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 13:59:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: fixed dateedit's calendarpopup (bug #8182)

Browse Source 
git-svn-id: trunk@10499 -
This commit is contained in:
vincents 2007-01-23 13:13:01 +00:00
parent 48f499114d
commit 0fb085d921
3 changed files with 9 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/forms/calendarpopup.lfm
View File

@ -2,8 +2,8 @@ object CalendarPopupForm: TCalendarPopupForm
Left = 635
Height = 153
Top = 259
Width = 155
HorzScrollBar.Page = 154
Width = 190
HorzScrollBar.Page = 189
VertScrollBar.Page = 152
ActiveControl = Calendar
AutoSize = True
@ -11,11 +11,10 @@ object CalendarPopupForm: TCalendarPopupForm
BorderStyle = bsNone
Caption = 'CalendarPopupForm'
OnClose = FormClose
OnCreate = FormCreate
OnDeactivate = FormDeactivate
object Calendar: TCalendar
Height = 153
Width = 155
Width = 190
DateTime = 38823
DisplaySettings = [dsShowHeadings, dsShowDayNames]
OnDblClick = CalendarDblClick

13
lcl/forms/calendarpopup.lrs
View File

@ -2,13 +2,12 @@
LazarusResources.Add('TCalendarPopupForm','FORMDATA',[
'TPF0'#18'TCalendarPopupForm'#17'CalendarPopupForm'#4'Left'#3'{'#2#6'Height'#3
+#153#0#3'Top'#3#3#1#5'Width'#3#155#0#18'HorzScrollBar.Page'#3#154#0#18'VertS'
+#153#0#3'Top'#3#3#1#5'Width'#3#190#0#18'HorzScrollBar.Page'#3#189#0#18'VertS'
+'crollBar.Page'#3#152#0#13'ActiveControl'#7#8'Calendar'#8'AutoSize'#9#11'Bor'
+'derIcons'#11#10'biMinimize'#10'biMaximize'#0#11'BorderStyle'#7#6'bsNone'#7
+'Caption'#6#17'CalendarPopupForm'#7'OnClose'#7#9'FormClose'#8'OnCreate'#7#10
+'FormCreate'#12'OnDeactivate'#7#14'FormDeactivate'#0#9'TCalendar'#8'Calendar'
+#6'Height'#3#153#0#5'Width'#3#155#0#8'DateTime'#5#0#0#0#0#0#0#167#151#14'@'
+#15'DisplaySettings'#11#14'dsShowHeadings'#14'dsShowDayNames'#0#10'OnDblClic'
+'k'#7#16'CalendarDblClick'#9'OnKeyDown'#7#15'CalendarKeyDown'#7'Tabstop'#9#0
+#0#0
+'Caption'#6#17'CalendarPopupForm'#7'OnClose'#7#9'FormClose'#12'OnDeactivate'
+#7#14'FormDeactivate'#0#9'TCalendar'#8'Calendar'#6'Height'#3#153#0#5'Width'#3
+#190#0#8'DateTime'#5#0#0#0#0#0#0#167#151#14'@'#15'DisplaySettings'#11#14'dsS'
+'howHeadings'#14'dsShowDayNames'#0#10'OnDblClick'#7#16'CalendarDblClick'#9'O'
+'nKeyDown'#7#15'CalendarKeyDown'#7'Tabstop'#9#0#0#0
]);

10
lcl/forms/calendarpopup.pas
View File

@ -39,7 +39,6 @@ type
procedure CalendarKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormDeactivate(Sender: TObject);
private
{ private declarations }
@ -84,15 +83,6 @@ begin
CloseAction := caFree;
end;
procedure TCalendarPopupForm.FormCreate(Sender: TObject);
begin
AutoSize:=false;
Calendar.Top:=1;
Calendar.Left:=1;
Width:=Calendar.Width + 2;
Height:=Calendar.Height + 2;
end;
procedure TCalendarPopupForm.CalendarDblClick(Sender: TObject);
begin
ReturnDate;