[JVCL-Checkins] dev/JVCL3/run JvXPCoreUtils.pas,1.17,1.18 - Cleaned ifdefs (brushcopy)

[André S. <asn...@us...>]

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

Modified Files:
	JvXPCoreUtils.pas 
Log Message:
Cleaned ifdefs (brushcopy)


Index: JvXPCoreUtils.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvXPCoreUtils.pas,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** JvXPCoreUtils.pas	1 Sep 2004 15:06:55 -0000	1.17
--- JvXPCoreUtils.pas	8 Sep 2004 09:08:17 -0000	1.18
***************
*** 360,372 ****
      begin
        Brush.Color := AColor;
!       {$IFDEF VCL}
!       BrushCopy(Rect, Bitmap, Rect, clBlack);
!       {$ENDIF VCL}
!       {$IFDEF VisualCLX}
!       FillRect(Rect);
!       Bitmap.TransparentColor := clBlack;
!       Bitmap.Transparent := True;
!       Draw(0,0, Bitmap);
!       {$ENDIF VisualCLX}
      end;
      {$IFDEF VisualCLX}
--- 360,364 ----
      begin
        Brush.Color := AColor;
!       BrushCopy({$IFDEF VisualCLX}ColorMap.Canvas,{$ENDIF} Rect, Bitmap, Rect, clBlack);
      end;
      {$IFDEF VisualCLX}