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

LCL: published TCalendar.AutoSize

Browse Source 
git-svn-id: trunk@21203 -
This commit is contained in:
mattias 2009-08-12 15:44:16 +00:00
parent 4e41553208
commit 3e9f4bda8d
4 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/calendar.pp
View File

@ -110,6 +110,7 @@ type
published published
property Align; property Align;
property Anchors; property Anchors;
property AutoSize;
property BorderSpacing; property BorderSpacing;
property Constraints; property Constraints;
property Date; property Date;

1
lcl/forms/calendarpopup.lfm
View File

@ -18,6 +18,7 @@ object CalendarPopupForm: TCalendarPopupForm
Height = 153 Height = 153
Top = 1 Top = 1
Width = 162 Width = 162
AutoSize = True
BorderSpacing.Around = 1 BorderSpacing.Around = 1
DateTime = 38823 DateTime = 38823
OnDblClick = CalendarDblClick OnDblClick = CalendarDblClick

6
lcl/forms/calendarpopup.lrs
View File

@ -7,7 +7,7 @@ LazarusResources.Add('TCalendarPopupForm','FORMDATA',[
+#6'bsNone'#7'Caption'#6#17'CalendarPopupForm'#12'ClientHeight'#3#155#0#11'Cl' +#6'bsNone'#7'Caption'#6#17'CalendarPopupForm'#12'ClientHeight'#3#155#0#11'Cl'
+'ientWidth'#3#164#0#7'OnClose'#7#9'FormClose'#12'OnDeactivate'#7#14'FormDeac' +'ientWidth'#3#164#0#7'OnClose'#7#9'FormClose'#12'OnDeactivate'#7#14'FormDeac'
+'tivate'#10'LCLVersion'#6#6'0.9.27'#0#9'TCalendar'#8'Calendar'#4'Left'#2#1#6 +'tivate'#10'LCLVersion'#6#6'0.9.27'#0#9'TCalendar'#8'Calendar'#4'Left'#2#1#6
+'Height'#3#153#0#3'Top'#2#1#5'Width'#3#162#0#20'BorderSpacing.Around'#2#1#8 +'Height'#3#153#0#3'Top'#2#1#5'Width'#3#162#0#8'AutoSize'#9#20'BorderSpacing.'
+'DateTime'#5#0#0#0#0#0#0#167#151#14'@'#10'OnDblClick'#7#16'CalendarDblClick' +'Around'#2#1#8'DateTime'#5#0#0#0#0#0#0#167#151#14'@'#10'OnDblClick'#7#16'Cal'
+#9'OnKeyDown'#7#15'CalendarKeyDown'#7'TabStop'#9#0#0#0 +'endarDblClick'#9'OnKeyDown'#7#15'CalendarKeyDown'#7'TabStop'#9#0#0#0
]); ]);

4
lcl/forms/calendarpopup.pas
View File

@ -77,6 +77,7 @@ end;
procedure TCalendarPopupForm.FormClose(Sender: TObject; procedure TCalendarPopupForm.FormClose(Sender: TObject;
var CloseAction: TCloseAction); var CloseAction: TCloseAction);
begin begin
//DebugLn(['TCalendarPopupForm.FormClose ']);
FClosed := true; FClosed := true;
CloseAction := caFree; CloseAction := caFree;
end; end;
@ -112,7 +113,8 @@ end;
procedure TCalendarPopupForm.FormDeactivate(Sender: TObject); procedure TCalendarPopupForm.FormDeactivate(Sender: TObject);
begin begin
if not FClosed then //DebugLn(['TCalendarPopupForm.FormDeactivate ',DbgSName(GetCaptureControl)]);
if (not FClosed) then
Close; Close;
end; end;