[JVCL-Checkins] dev/JVCL3/run JvColorForm.pas,1.29,1.30 JvComponent.pas,1.52,1.53 - Fixed Mantis #3564: bug: tjvcolorbutton on a modal form (for

[Andreas H. <ah...@us...>]

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

Modified Files:
	JvColorForm.pas JvComponent.pas 
Log Message:
Fixed Mantis #3564: bug: tjvcolorbutton on a modal form (form sent to back)


Index: JvColorForm.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvColorForm.pas,v
retrieving revision 1.29
retrieving revision 1.30
diff -C2 -d -r1.29 -r1.30
*** JvColorForm.pas	11 Dec 2005 16:14:14 -0000	1.29
--- JvColorForm.pas	10 Mar 2006 10:57:04 -0000	1.30
***************
*** 115,118 ****
--- 115,119 ----
  begin
    inherited CreateNew(AOwner, Dummy);
+   IsPopupWindow := True;
    FButtonSize := cButtonWidth;
    FSelectedColor := clBlack;

Index: JvComponent.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvComponent.pas,v
retrieving revision 1.52
retrieving revision 1.53
diff -C2 -d -r1.52 -r1.53
*** JvComponent.pas	1 Mar 2006 13:30:23 -0000	1.52
--- JvComponent.pas	10 Mar 2006 10:57:04 -0000	1.53
***************
*** 75,80 ****
--- 75,83 ----
    TJvForm = class(TJvExForm)
    {$IFDEF VCL}
+   private
+     FIsPopupWindow: Boolean; 
    protected
      procedure CreateParams(var Params: TCreateParams); override;
+     property IsPopupWindow: Boolean read FIsPopupWindow write FIsPopupWindow;
    {$ENDIF VCL}
    {$IFDEF USE_DXGETTEXT}
***************
*** 155,166 ****
  {$IFDEF VCL}
  
! procedure TJvForm.CreateParams(var Params: TCreateParams); //override;
  begin
    inherited CreateParams(Params);
  
!   if FormStyle <> fsMDIChild then
    begin
      // Fixing the Window Ghosting "bug"
!     Params.Style := params.Style or WS_POPUP;
      if Assigned(Screen.ActiveForm) then
        Params.WndParent := Screen.ActiveForm.Handle
--- 158,169 ----
  {$IFDEF VCL}
  
! procedure TJvForm.CreateParams(var Params: TCreateParams); 
  begin
    inherited CreateParams(Params);
  
!   if (FormStyle <> fsMDIChild) and not IsPopupWindow then
    begin
      // Fixing the Window Ghosting "bug"
!     Params.Style := Params.Style or WS_POPUP;
      if Assigned(Screen.ActiveForm) then
        Params.WndParent := Screen.ActiveForm.Handle