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

added workaround for gtk1 not being able to show non modal forms on top of a modal dialog

Browse Source 
git-svn-id: trunk@9356 -
This commit is contained in:
vincents 2006-05-26 09:55:03 +00:00
parent c09cf36f2d
commit d85c27e3b9
3 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/forms/calendarpopup.lfm
View File

@ -10,11 +10,8 @@ object CalendarPopupForm: TCalendarPopupForm
BorderIcons = [biMinimize, biMaximize]
BorderStyle = bsNone
Caption = 'CalendarPopupForm'
ClientHeight = 153
ClientWidth = 162
OnClose = FormClose
OnDeactivate = FormDeactivate
PixelsPerInch = 96
object Calendar: TCalendar
Height = 153
Width = 162

13
lcl/forms/calendarpopup.lrs
View File

@ -1,12 +1,13 @@
{ This is an automatically generated lazarus resource file }
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#162#0#18'HorzScrollBar.Page'#3#161#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'#12'ClientHeight'#3#153#0#11'ClientWidth'#3
+#162#0#7'OnClose'#7#9'FormClose'#12'OnDeactivate'#7#14'FormDeactivate'#13'Pi'
+'xelsPerInch'#2'`'#0#9'TCalendar'#8'Calendar'#6'Height'#3#153#0#5'Width'#3
+#162#0#8'DateTime'#4#167#151#0#0#15'DisplaySettings'#11#14'dsShowHeadings'#14
+'dsShowDayNames'#0#10'OnDblClick'#7#16'CalendarDblClick'#9'OnKeyDown'#7#15'C'
+'alendarKeyDown'#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
+#162#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
]);

4
lcl/forms/calendarpopup.pas
View File

@ -63,7 +63,9 @@ begin
PopupForm := TCalendarPopupForm.Create(nil);
PopupForm.Initialize(Position, ADate);
PopupForm.FOnReturnDate := OnReturnDate;
PopupForm.Show;
//TODO: Change to PopupForm.Show when gtk supports non modal forms on top of
//modal forms.
PopupForm.ShowModal;
end;
{ TCalendarPopupForm }