paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 14:58:13 +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
property Align;
property Anchors;
property AutoSize;
property BorderSpacing;
property Constraints;
property Date;

1
lcl/forms/calendarpopup.lfm
View File

@ -18,6 +18,7 @@ object CalendarPopupForm: TCalendarPopupForm
Height = 153
Top = 1
Width = 162
AutoSize = True
BorderSpacing.Around = 1
DateTime = 38823
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'
+'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
+'Height'#3#153#0#3'Top'#2#1#5'Width'#3#162#0#20'BorderSpacing.Around'#2#1#8
+'DateTime'#5#0#0#0#0#0#0#167#151#14'@'#10'OnDblClick'#7#16'CalendarDblClick'
+#9'OnKeyDown'#7#15'CalendarKeyDown'#7'TabStop'#9#0#0#0
+'Height'#3#153#0#3'Top'#2#1#5'Width'#3#162#0#8'AutoSize'#9#20'BorderSpacing.'
+'Around'#2#1#8'DateTime'#5#0#0#0#0#0#0#167#151#14'@'#10'OnDblClick'#7#16'Cal'
+'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;
var CloseAction: TCloseAction);
begin
//DebugLn(['TCalendarPopupForm.FormClose ']);
FClosed := true;
CloseAction := caFree;
end;
@ -112,7 +113,8 @@ end;
procedure TCalendarPopupForm.FormDeactivate(Sender: TObject);
begin
if not FClosed then
//DebugLn(['TCalendarPopupForm.FormDeactivate ',DbgSName(GetCaptureControl)]);
if (not FClosed) then
Close;
end;