[JVCL-Checkins] dev/JVCL3/run JvDropDownForm.pas,1.30,1.31 - Mantis 3409: Popup now appears correctly on top of fsStayOnT

[Olivier S. <ob...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11320/dev/JVCL3/run

Modified Files:
	JvDropDownForm.pas 
Log Message:
Mantis 3409: Popup now appears correctly on top of fsStayOnTop forms.


Index: JvDropDownForm.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvDropDownForm.pas,v
retrieving revision 1.30
retrieving revision 1.31
diff -C2 -d -r1.30 -r1.31
*** JvDropDownForm.pas	8 Jan 2006 16:07:04 -0000	1.30
--- JvDropDownForm.pas	8 Jan 2006 16:12:34 -0000	1.31
***************
*** 145,148 ****
--- 145,159 ----
    inherited CreateParams(AParams);
    AParams.Style := AParams.Style or WS_BORDER;
+ 
+   // Fixing the Window Ghosting "bug"
+   // This also fixes mantis 3409 where the popup would not appear if its
+   // associated control was placed on a form with fsStayOnTop form style.
+   AParams.Style := Aparams.Style or WS_POPUP;
+   if Assigned(Screen.ActiveForm) then
+     AParams.WndParent := Screen.ActiveForm.Handle
+   else if Assigned (Application.MainForm) then
+     AParams.WndParent := Application.MainForm.Handle
+   else
+     AParams.WndParent := Application.Handle;
  end;
  {$ENDIF VCL}