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

gtk2 intf: added comment

Browse Source 
git-svn-id: trunk@20336 -
This commit is contained in:
mattias 2009-06-01 20:16:12 +00:00
parent f3ba79012b
commit 338ebe97d4
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/gtk2/gtk2wscalendar.pp
View File

@ -150,9 +150,14 @@ var
CalendarCtrl: TCustomCalendar;
CalendarWidget: PGtkCalendar;
begin
// When the user drags a day number, the gtk2 starts a mouse capture.
// when the TCalendar is on a TDateEdit, the LCL destroys the widget while the
// gtk is still capturing. Result: The capture hangs.
// thaw it:
CalendarCtrl:=TCustomCalendar(AWinControl);
CalendarWidget:=GetCalendar(CalendarCtrl);
gtk_calendar_thaw(CalendarWidget);
inherited DestroyHandle(AWinControl);
end;