- fixed Handle deprecation

- removed unused units from uses

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@485 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/rgbgraphics/rgbgraphics.pas

@@ -937,7 +937,7 @@ procedure TRGBMask.StretchDrawShapePortionTo(ACanvas: TCanvas; DstX, DstY,
 begin
   if ACanvas <> nil then
     StretchDrawRGBMaskShapePortion(ACanvas.Handle, DstX, DstY, DstWidth, DstHeight,
-      Self, DX, DY, DW, DH, FBGPen.Handle, FFGPen.Handle);
+      Self, DX, DY, DW, DH, FBGPen.Reference.Handle, FFGPen.Reference.Handle);
 end;
 
 procedure TRGBMask.DrawTo(ACanvas: TCanvas; X, Y: Integer);

components/rgbgraphics/rgbgtkroutines.pas

@@ -33,13 +33,13 @@ interface
 uses
   SysUtils, Classes, LCLType,
 {$IFDEF LCLgtk2}
-  glib2, gdk2, gtk2,
+  glib2, gdk2,
 {$ENDIF}
 {$IFDEF LCLgtk}
-  glib, gdk, gtk,
+  glib, gdk,
 {$ENDIF}
   gtkDef, gtkProc,
-  RGBTypes, RGBUtils;
+  RGBTypes;
   
   procedure WidgetSetDrawRGB32Bitmap(Dest: HDC; DstX, DstY: Integer; SrcX, SrcY, SrcWidth, SrcHeight: Integer;
     Bitmap: TRGB32BitmapCore);