[JVCL-Checkins] dev/JVCL3/devtools/JvExVCL/src JvExControls.pas,1.17,1.18 - Fixed DoPaintBackground bug

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

Update of /cvsroot/jvcl/dev/JVCL3/devtools/JvExVCL/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7055/devtools/JvExVCL/src

Modified Files:
	JvExControls.pas 
Log Message:
Fixed DoPaintBackground bug


Index: JvExControls.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/devtools/JvExVCL/src/JvExControls.pas,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** JvExControls.pas	11 Feb 2004 14:48:25 -0000	1.17
--- JvExControls.pas	15 Feb 2004 22:25:41 -0000	1.18
***************
*** 243,246 ****
--- 243,247 ----
    Canvas: TCanvas;
    DlgCodes: TDlgCodes;
+   IdSaveDC: Integer;
  begin
    CallInherited := True;
***************
*** 372,375 ****
--- 373,377 ----
          WM_ERASEBKGND:
            begin
+             IdSaveDC := SaveDC(HDC(PMsg^.WParam)); // protect DC against Stock-Objects from Canvas
              Canvas := TCanvas.Create;
              try
***************
*** 379,382 ****
--- 381,385 ----
                Canvas.Handle := 0;
                Canvas.Free;
+               RestoreDC(HDC(PMsg^.WParam), IdSaveDC);
              end;
            end;